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

[Miles Bader]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.147.2.9 
emacs/lisp/international/mule.el:1.147.2.10
*** emacs/lisp/international/mule.el:1.147.2.9  Tue Jul  6 09:39:54 2004
--- emacs/lisp/international/mule.el    Tue Jul  6 10:10:48 2004
***************
*** 318,325 ****
  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)
--- 318,324 ----
  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)
***************
*** 363,370 ****
         (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))
--- 362,368 ----
         (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))