emacs delete words

;; Functions that delete words without sending them to the kill ring.

(defun delete-word (arg)
  "Equivalent to `kill-word'. Characters do not get sent to the kill-ring."
  (interactive "p")
  (delete-region (point) (progn (forward-word arg) (point))))

(defun backward-delete-word (arg)
  "Equivalent to `backward-kill-word'. Characters do not get sent to the kill-ring."
  (interactive "p")
  (delete-word (- arg)))

(global-set-key (kbd "M-D") #'delete-word)
(global-set-key (kbd "M-S-<backspace>") #'backward-delete-word)