Mercurial > emacs
diff lisp/international/mule.el @ 49252:b38398e733f4
(optimize-char-coding-system-table): Optimize it.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 15 Jan 2003 05:57:31 +0000 |
parents | 4ecab4bfe0cd |
children | ed922baa8df3 |
line wrap: on
line diff
--- 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))