Skip to main content
本文に 42 文字追加
ソース リンク
user9156
user9156

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]" が重複し内容を適宜変えいる点は改良の余地がありそうです下さい

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

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)内容を適宜変え下さい

ソース リンク
user9156
user9156

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