# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1042610251 0
# Node ID b38398e733f402b8f547c4e742fac872f8c0a128
# Parent  afbb682b9aa5904998f26639e8485e0773117875
(optimize-char-coding-system-table): Optimize it.

diff -r afbb682b9aa5 -r b38398e733f4 lisp/international/mule.el
--- a/lisp/international/mule.el	Wed Jan 15 05:33:18 2003 +0000
+++ b/lisp/international/mule.el	Wed Jan 15 05:57:31 2003 +0000
@@ -604,10 +604,11 @@
        ;; 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))