>>>>> In [emacs-w3m : No.08018] 有沢さん wrote: > I have updated codepage-ex.el. It may work with Emacs20 w/ Mule-UCS. > In addition, windows-125x coding-systems are provided as alias. > #xXXXX を ?\xXXXX に変えるだけで、Emacs20 でも動きそうだったので、 > 変更してみました。(但し、Mule-UCS が必要です。) > ついでに、define-coding-system-alias を呼ぶようにもしました。 ありがとうございます。さっそく Emacs 20.7 で試してみました。 cp-ex-coding-system-for-codepage-1 の (make-char-table 'safe-chars) がエラーになるので、対症療法的に (put 'safe-chars 'char-table-extra-slots 0) ということをやったところ、無事 windows-1252 などができました。が、 いろいろ問題があるようです。 1. -unix, -dos, -mac が生成されません。 2. (decode-coding-string "\200\r\n" 'windows-1252) の結果が `<euro sign>CRLF' になってしまいます。 3. Emacs 20 では safe-chars ではなくて safe-charsets を使わなけ ればいけないようです。例えば mule-cmds.el では (coding-system-get CODING 'safe-charsets) のようなことが行な われています。 > 以下のような感じでどうですかね。 Emacs 20 では mapc が cl 関数なので、次のようにしてみました。
Attachment:
bin00294.bin
Description: application/emacs-lisp