Есть функция удаления word и она же удаляет выделенный фрагмент. Хотелось бы, чтобы она перед тем, как удаляла фрагмент, сохраняла его в clipboard и\или делала C-x rsr
(global-set-key (kbd "C-w") 'backward-delete-word)
(defun delete-word (arg)
"Delete characters forward until encountering the end of a word.
With argument, do this that many times."
(interactive "p")
(if (use-region-p)
(delete-region (region-beginning) (region-end))
(delete-region (point) (progn (forward-word arg) (point)))))
(defun backward-delete-word (arg)
"Delete characters backward until encountering the end of a word.
With argument, do this that many times."
(interactive "p")
(delete-word (- arg)))