`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 regexp nil t 1)
               (replace-match (cadr (assoc (match-string 0) tbl)))))))

変換する文字を変更する場合は `tbl`(assoc-list) の内容を適宜変えて下さい。