Как мне переназначить команду Emacs M-d в макрос M-b, M-d?

Question

Я бы хотел, чтобы команда "удалить до конца слова" удаляла слово независимо от положения курсора.

Answer 1

(defun my-kill-word ()
  (interactive)
  (backward-word)
  (kill-word 1))

(global-set-key (kbd "M-d") 'my-kill-word)

Answer 2

Лучший код может быть:

(defun my-kill-word ()
   (interactive)
   (unless (looking-at "\\<")
     (backward-word))
   (kill-word 1))

(global-set-key (kbd "M-d") 'my-kill-word)

Так что мы движемся назад, только если мы не в начале слова еще.