vine-users ML アーカイブ



[vine-users:055763] Re: IIIMECF の byte-compile で停止する

  • From: Toshiyasu KOJIMA (小島登志泰) <t_kojima@xxxxxxxxxxxxx>
  • Subject: [vine-users:055763] Re: IIIMECF の byte-compile で停止する
  • Date: Sat, 16 Nov 2002 02:59:52 +0900
恥を忍んで訂正です。色川さんごめんなさい。間に合うかな?

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