Haruhiko Okumura
okumu****@edu*****
2004年 5月 8日 (土) 08:28:32 JST
奥村@三重大です。 Seiji Zenitani <zenit****@tkg*****> wrote: > インラインパッチに含まれるmac-im-insert 関数を > > (defun mac-im-insert (str) > (while (string-match (char-to-string 2213) str) > (setq str (replace-match (char-to-string 92) t t str))) > (insert str) > (setq mac-im-insert-text-length (length str))) ばっちりできました! ありがとうございます。 -- 奥村 晴彦 http://oku.edu.mie-u.ac.jp/~okumura/ 〒514-8507 三重県津市上浜町1515 三重大学教育学部