- 144 名前：140 mailto:sage [2013/08/30(金) NY:AN:NY.AN .net]
- >>143
「¢£−¬?〜‖」などで発生するようです。これを考慮して、以下のように
書いてみたのですが、なんかもっとエレガントにならないものか。
(add-hook 'wl-draft-config-exec-hook
(lambda ()
(save-excursion
(goto-char (point-min))
(while (search-forward "¢" nil t)
(replace-match "¢"))
(goto-char (point-min))
(while (search-forward "£" nil t)
(replace-match "£"))
...以下繰り返し
