From 850964c2bfcb53ed238defadd4ef3a625a0133e2 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 15 Jan 2003 05:57:31 +0000 Subject: [PATCH] (optimize-char-coding-system-table): Optimize it. --- lisp/international/mule.el | 9 +++++---- 1 file 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)) -- 2.39.2