ルビ再び

先日のアレ
n-e-r-d.hatenablog.com
テキストを後ろから選択するとカーソル位置がおかしい。
直しました。泥縄修正……

(defun insert-ruby-notation ()
  (interactive)
  (if (region-active-p)
    (let ((start-point (region-beginning))
           (end-point (region-end)))
      (save-excursion
       (goto-char start-point)
       (insert "|")
       (goto-char (+ end-point 1))
       (insert "《》"))
       (goto-char (+ end-point 2)))
    (insert "|《》")
    (backward-char 2)))

やはりググってコピペだと限界がですね……