/[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.200 by lektu, Wed Jun 2 00:43:56 2004 UTC revision 1.201 by handa, Sat Jun 12 02:20:10 2004 UTC
# Line 316  Optional argument RESTRICTION specifies Line 316  Optional argument RESTRICTION specifies
316  and CODE-POINT to a character.  Currently not supported and just ignored."  and CODE-POINT to a character.  Currently not supported and just ignored."
317    (cond    (cond
318     ((eq ccs 'ucs)     ((eq ccs 'ucs)
319      (or (gethash code-point      (or (utf-lookup-subst-table-for-decode code-point)
                  (get 'utf-subst-table-for-decode 'translation-hash-table))  
320          (let ((c (cond          (let ((c (cond
321                    ((< code-point 160)                    ((< code-point 160)
322                     code-point)                     code-point)
# Line 361  code-point in CCS.  Currently not suppor Line 360  code-point in CCS.  Currently not suppor
360           (charset (car split))           (charset (car split))
361           trans)           trans)
362      (cond ((eq ccs 'ucs)      (cond ((eq ccs 'ucs)
363             (or (gethash char (get 'utf-subst-table-for-encode             (or (utf-lookup-subst-table-for-encode char)
                                   'translation-hash-table))  
364                 (let ((table (get 'utf-translation-table-for-encode                 (let ((table (get 'utf-translation-table-for-encode
365                                   'translation-table)))                                   'translation-table)))
366                   (setq trans (aref table char))                   (setq trans (aref table char))

Legend:
Removed from v.1.200  
changed lines
  Added in v.1.201

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