Fix a problem Mule-UCS makes Emacs 21 slowing down.

	http://tsukuba.m17n.org/mule-archive/2002-3/msg00000.html

Bump PKGREVISION.  PR18605 from <hackerb9 at wongs dot ne>.

1 files changed, 33 insertions, 0 deletions

diff --git a/editors/mule-ucs/patches/patch-aa b/editors/mule-ucs/patches/patch-aa
new file mode 100644
index 00000000000..c0ac3976340
--- /dev/null
+++ b/editors/mule-ucs/patches/patch-aa
@@ -0,0 +1,33 @@
+$NetBSD: patch-aa,v 1.1 2003/03/14 01:26:41 uebayasi Exp $
+
+--- lisp/un-define.el.orig	Tue Mar  6 14:41:38 2001
++++ lisp/un-define.el
+@@ -610,13 +610,21 @@ by calling post-read-conversion and pre-
+ 
+  (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"