/[emacs]/emacs/lisp/international/mule.el
ViewVC logotype

Diff of /emacs/lisp/international/mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.147.2.9 by miles, Tue Jul 6 09:39:54 2004 UTC revision 1.147.2.10 by miles, Tue Jul 6 10:10:48 2004 UTC
# Line 318  Optional argument RESTRICTION specifies Line 318  Optional argument RESTRICTION specifies
318  and CODE-POINT to a character.  Currently not supported and just ignored."  and CODE-POINT to a character.  Currently not supported and just ignored."
319    (cond    (cond
320     ((eq ccs 'ucs)     ((eq ccs 'ucs)
321      (or (gethash code-point      (or (utf-lookup-subst-table-for-decode code-point)
                  (get 'utf-subst-table-for-decode 'translation-hash-table))  
322          (let ((c (cond          (let ((c (cond
323                    ((< code-point 160)                    ((< code-point 160)
324                     code-point)                     code-point)
# Line 363  code-point in CCS.  Currently not suppor Line 362  code-point in CCS.  Currently not suppor
362           (charset (car split))           (charset (car split))
363           trans)           trans)
364      (cond ((eq ccs 'ucs)      (cond ((eq ccs 'ucs)
365             (or (gethash char (get 'utf-subst-table-for-encode             (or (utf-lookup-subst-table-for-encode char)
                                   'translation-hash-table))  
366                 (let ((table (get 'utf-translation-table-for-encode                 (let ((table (get 'utf-translation-table-for-encode
367                                   'translation-table)))                                   'translation-table)))
368                   (setq trans (aref table char))                   (setq trans (aref table char))

Legend:
Removed from v.1.147.2.9  
changed lines
  Added in v.1.147.2.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26