emacsの文字列改変マクロ

今はローカルに置いたテキストファイルにアクションのチェックリスを作って管理しているのだが、何かアクションが終わる度に、アクションの両側に"%%アクション名%%"というように"%%"を挿入している。これを今まで手作業で挿入していたけど、これをemacsのマクロでやるように、以下のemacs-lispを書いてみた。
以下のマクロを使えば、アクションの文字列をハイライトして"Ctrl-C + r"と押せば、実行済みアクションに簡単にマークを入れることが出来る。

(defun my-insert-rm (beg end) (interactive "r") 
  (setq my-insert-rm-buffer (buffer-substring beg end))
  (delete-backward-char (length my-insert-rm-buffer))
  (insert-before-markers (format "%%%%%s%%%%" my-insert-rm-buffer))
  )

(global-set-key "\C-cr" 'my-insert-rm)

This is a macro for marking the already finished project.