色川です。 ありがとさんだす。 kjm> Dave Loveさんのパッチですね。これは是非当ててください。Emacs21が kjm> かわいそうです。以下の修正をすれば、XEmacsでもコンパイルできると kjm> 思います。今XEmacs21.4がないので、XEmacs21.5.5 でしかチェックして kjm> ませんが... だがしかし、あんまし速くなって無いような気が。。。。。 Mozilla のブックマークが読めるから機能はしているようだけど。 description の件があるからどっちにしろ入れちゃうつもりではあります。 一応、私が再作成したパッチを書いておきます。 (http://tsukuba.m17n.org/mule-archive/2002-3/msg00000.html + [vine-users:055729]) diff -uNr Mule-UCS-0.84/lisp/un-define.el Mule-UCS-0.84.iro/lisp/un-define.el --- Mule-UCS-0.84/lisp/un-define.el 2001-03-07 07:41:38.000000000 +0900 +++ Mule-UCS-0.84.iro/lisp/un-define.el 2002-11-15 23:17:28.000000000 +0900 @@ -610,13 +610,22 @@ (mapcar (lambda (x) - (mapcar - (lambda (y) - (mucs-define-coding-system - (nth 0 y) (nth 1 y) (nth 2 y) - (nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y)) - (coding-system-put (car y) 'alias-coding-systems (list (car x)))) - (cdr x))) + (if (fboundp 'register-char-codings) + ;; Mule 5, where we don't need the eol-type specified and + ;; register-char-codings may be very slow for these coding + ;; system definitions. + (let ((y (cadr x))) + (mucs-define-coding-system + (car x) (nth 1 y) (nth 2 y) + (nth 3 y) (nth 4 y) (nth 5 y)) + (cdr x)) + (mapcar + (lambda (y) + (mucs-define-coding-system + (nth 0 y) (nth 1 y) (nth 2 y) + (nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y)) + (coding-system-put (car y) 'alias-coding-systems (list (car x)))) + (cdr x)))) `((utf-8 (utf-8-unix ?u "UTF-8 coding system" --- ---------1---------2---------3---------4---------5---------6---------7 烈風戦士