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

1 files changed, 5 insertions, 4 deletions

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