>>588
> (navi2ch-add-replace-html-tag-regexp "\\ck+" 'japanese-zenkaku)
がうまく動かないのは、japanese-zenkaku 内で match-data を破壊してるため。
渡るのは JIS X 0201 カナだけからなる文字列とわかっているのだから
(defun my-tozenkaku (string)
(concat (mapcar (lambda (c)
(or (get-char-code-property c 'katakana) c))
string)))
(navi2ch-add-replace-html-tag-regexp "\\ck+" #'my-tozenkaku)
こんな風にしてやるのが一番効率がいいです。同じようなループで何度も
バッファ全体をスキャンするのは無駄。
JIS X 0208 英数を ASCII に変換したい場合も同様ね。