読者です 読者をやめる 読者になる 読者になる

kill-word+

emacs
(defun kill-word+ (arg)
  (interactive "p")
  (if (looking-at "\\W")
      (kill-word arg)
    (beginning-of-thing 'word)
    (kill-word arg)))

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