[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: windows-1252



>>>>> 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