Mercurial > emacs
changeset 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 | afbb682b9aa5 |
| children | 57b941bb42b4 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
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))