[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.173 
emacs/lisp/international/mule.el:1.174
*** emacs/lisp/international/mule.el:1.173      Fri Jan  3 15:11:15 2003
--- emacs/lisp/international/mule.el    Wed Jan 15 00:57:31 2003
***************
*** 604,613 ****
         ;; 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))))
       char-coding-system-table))
    (optimize-char-table char-coding-system-table))
  
--- 604,614 ----
         ;; reduced to ~1k.  (`optimize-char-table' might win if
         ;; permutations were eliminated, but that's probably a small
         ;; effect and not easy to test.)
!        (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))