[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.200 
emacs/lisp/international/mule.el:1.201
*** emacs/lisp/international/mule.el:1.200      Wed Jun  2 00:43:56 2004
--- emacs/lisp/international/mule.el    Sat Jun 12 02:20:10 2004
***************
*** 316,323 ****
  and CODE-POINT to a character.  Currently not supported and just ignored."
    (cond
     ((eq ccs 'ucs)
!     (or (gethash code-point
!                (get 'utf-subst-table-for-decode 'translation-hash-table))
        (let ((c (cond
                  ((< code-point 160)
                   code-point)
--- 316,322 ----
  and CODE-POINT to a character.  Currently not supported and just ignored."
    (cond
     ((eq ccs 'ucs)
!     (or (utf-lookup-subst-table-for-decode code-point)
        (let ((c (cond
                  ((< code-point 160)
                   code-point)
***************
*** 361,368 ****
         (charset (car split))
         trans)
      (cond ((eq ccs 'ucs)
!          (or (gethash char (get 'utf-subst-table-for-encode
!                                 'translation-hash-table))
               (let ((table (get 'utf-translation-table-for-encode
                                 'translation-table)))
                 (setq trans (aref table char))
--- 360,366 ----
         (charset (car split))
         trans)
      (cond ((eq ccs 'ucs)
!          (or (utf-lookup-subst-table-for-encode char)
               (let ((table (get 'utf-translation-table-for-encode
                                 'translation-table)))
                 (setq trans (aref table char))