ｷﾀｰの応用。これもｷﾀｰ変換と同じで編集中の文章を一発変換。

(defun super-decyu ()
　　(interactive)
　　(let (count jtables rep orig)
　　　　(setq jtables '(("さ" "ちゃ") ("し" "ち") ("す" "ちゅ") ("せ" "ちぇ") ("そ" "ちょ")
　　　　　　("サ" "チャ") ("シ" "チ") ("ス" "チュ") ("セ" "チェ") ("ソ" "チョ")
　　　　　　("だ" "ら") ("で" "れ") ("ど" "ろ") ("ダ" "ラ") ("デ" "レ") ("ド" "ロ")))
　　　　(setq count 0)
　　　　(while (> 26 count)
　　　　　　(setq orig (car (nth count jtables)))
　　　　　　(setq rep (cdr (nth count jtables)))
　　　　　　(goto-char 0)
　　　　　　(replace-string orig rep)
　　　　　　(setq count (+ count 1)))))