make-tone-2
関数を以下の様にしてみてはどうでしょうか。
(defun make-tone-2 ()
(interactive)
(save-excursion
(let* ((tbl '(("a" "á") ("u" "ú") ("o" "ó") ("i" "í")))
(regexp (concat "[" (mapconcat 'car tbl "") "]")))
(and (re-search-backward "[auoi]"regexp nil t 1)
(replace-match (cadr (assoc (match-string 0) tbl)))))))
tbl
のキーと 変換する文字を変更する場合は re-search-backwardtbl
(assoc-list) の引数 "[auoi]"
が重複し内容を適宜変えている点は改良の余地がありそうです下さい。