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]"
が重複している点は改良の余地がありそうです。