Emacs HTML Font color 挿入関数

Emacs で HTML を編集するのだが、、、後から一度書いた Some String を <font color="#FF0000">Some String</font> に変更したい場合がある。この時、Some String の前後にカーソルを移動してタグを追加しなければならず、いちいち面倒ということで、Some String を選択して、あとは色を入力すればよいという関数を定義してみました。

(defun insert-html-font-color ()
  (interactive
   (let ((start (region-beginning))
	 (end (region-end))
	 (color (read-string "Color:")))
     (save-excursion
       (save-restriction
	 (goto-char end)
	 (insert "</font>")
	 (goto-char start)
	 (insert (concat "<font color=\"" color "\">")))))))

これで少しは楽になるだろう。