From: Kenichi Handa <handa@m17n.org>
Date: Wed, 15 Jan 2003 05:57:31 +0000 (+0000)
Subject: (optimize-char-coding-system-table): Optimize it.
X-Git-Tag: ttn-vms-21-2-B4~11647
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=850964c2bfcb53ed238defadd4ef3a625a0133e2;p=emacs.git

(optimize-char-coding-system-table): Optimize it.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index ed40b8f2152..909ba315b77 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -604,10 +604,11 @@ Elements which compare `equal' are modified to share the same list."
        ;; reduced to ~1k.  (`optimize-char-table' might win if
        ;; permutations were eliminated, but that's probably a small
        ;; effect and not easy to test.)
-       (let ((existing (car (member v cache))))
-	 (if existing
-	     (aset char-coding-system-table k existing)
-	   (push v cache))))
+       (if v
+	   (let ((existing (car (member v cache))))
+	     (if existing
+		 (aset char-coding-system-table k existing)
+	       (push v cache)))))
      char-coding-system-table))
   (optimize-char-table char-coding-system-table))