xyzzy: backward-delete-word-no-kill, kill-word-no-kill

gistfile1.lisp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;@@@ backward-delete-word-no-kill
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun backward-delete-word-no-kill ()
  (interactive)
  (let ((dest (save-excursion
               (progn (backward-word)
                      (point)))))
    (if (bolp) (backward-delete-char-untabify 1)
      (while (and (< dest (point)) (not (bolp)))
        (backward-delete-char-untabify 1)))))

(global-set-key #\M-h 'backward-delete-word-no-kill)

;; for minibuffer
(define-key minibuffer-local-must-match-map #\M-h 'backward-delete-word-no-kill)
(define-key minibuffer-local-completion-map #\M-h 'backward-delete-word-no-kill)
(define-key minibuffer-local-map #\M-h 'backward-delete-word-no-kill)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;@@@ kill-word-no-kill
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun kill-word-no-kill ()
  (interactive)
  (let ((n (- (save-excursion
                (progn (forward-word)
                       (point)))
              (point))))
    (if (eolp) (delete-char 1)
      (while (and (< 0 n) (char/= (following-char) (code-char 10)))
        (delete-char 1) (setq n (1- n))))))

(global-set-key #\M-d 'kill-word-no-kill)

;; for minibuffer
(define-key minibuffer-local-must-match-map #\M-d 'kill-word-no-kill)
(define-key minibuffer-local-completion-map #\M-d 'kill-word-no-kill)
(define-key minibuffer-local-map #\M-d 'kill-word-no-kill)