vine-users ML アーカイブ



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

  • From: 烈風戦士 <irorin@xxxxxxxxxxxxxxx>
  • Subject: [vine-users:055761] Re: IIIMECF の byte-compile で停止する
  • Date: Sat, 16 Nov 2002 00:01:35 +0900
色川です。
 ありがとさんだす。

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
烈風戦士