4da 26.12.2012 22:49 darkstar1

Надоело вручную цопипастить куски текста для квотирования, накостылял велосипед.
Обосрите/найдите косяки чтоли.

(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"))
)

Do you really want to delete ?