Надоело вручную цопипастить куски текста для квотирования, накостылял велосипед.
Обосрите/найдите косяки чтоли.
(defun quote-selection ()
"pastes selection prefixed by > to end of input to comment on that"
(interactive)
(kill-ring-save (point) (mark))
(goto-char (point-max))
(insert "> ")
(yank)
(insert (kbd "C-j"))
)