恥を忍んで訂正です。色川さんごめんなさい。間に合うかな? >>>> [vine-users: No.055761] にて >>>> "色川" = 烈風戦士 <irorin@xxxxxxxxxxxxxxx> さんは書きました: 色川> だがしかし、あんまし速くなって無いような気が。。。。。 そうですか。DaveさんはP133とらしいけど、私のVineマシンはP100です から、明日試してみます。 apt-get dist-upgrade して帰ってきたので、XEmacs21.4も入れて確認し てみます。 色川> 一応、私が再作成したパッチを書いておきます。 色川> (http://tsukuba.m17n.org/mule-archive/2002-3/msg00000.html 色川> + [vine-users:055729]) うう、すいません。エラーメッセージだけ見て、mapcarの引数を合わせ ただけですが、よく見ると、カッコの位置の修正だけですんでしまいま た。申し訳ありませんが、こっちにして下さい。 # あー、恥ずかし。 --- Mule-UCS-0.84/lisp/un-define.el.org Wed Mar 7 07:41:38 2001 +++ Mule-UCS-0.84/lisp/un-define.el Sat Nov 16 02:39:48 2002 @@ -610,13 +610,21 @@ (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))) + (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" -- toshi