Skip to main content
1 / 2
user avatar
user avatar

make-tone-2 関数を以下の様にしてみてはどうでしょうか。

(defun make-tone-2 ()
  (interactive)
  (save-excursion
    (let ((tbl '(("a" "á") ("u" "ú") ("o" "ó") ("i" "í"))))
      (and (re-search-backward "[auoi]" nil t 1)
           (replace-match (cadr (assoc (match-string 0) tbl)))))))

tbl のキーと re-search-backward の引数 "[auoi]" が重複している点は改良の余地がありそうです。

user9156