>>527
insert-register と copy-to-register を参照すれば in Jamaica?

(defvar my-register 'my-register)
(defun my-register-paste ()
(interactive "*")
(insert-for-yank (get-register my-register)))
(defun my-register-copy (start end)
(interactive "r")
(set-register my-register (filter-buffer-substring start end))
(deactivate-mark))