/[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.160 by handa, Wed Sep 4 08:15:40 2002 UTC revision 1.161 by handa, Thu Sep 5 00:28:04 2002 UTC
# Line 308  See also the documentation of `make-char Line 308  See also the documentation of `make-char
308  Return nil if such a character is not supported.  Return nil if such a character is not supported.
309  Currently the only supported coded character set is `ucs' (ISO/IEC  Currently the only supported coded character set is `ucs' (ISO/IEC
310  10646: Universal Multi-Octet Coded Character Set), and the result is  10646: Universal Multi-Octet Coded Character Set), and the result is
311  translated through the char table `utf-8-translation-table-for-decode'  translated through the char table `utf-8-translation-table-for-decode'.
 if the variable `utf-8-fragment-on-decoding' is non-nil.  
312    
313  Optional argument RESTRICTION specifies a way to map the pair of CCS  Optional argument RESTRICTION specifies a way to map the pair of CCS
314  and CODE-POINT to a character.   Currently not supported and just ignored."  and CODE-POINT to a character.   Currently not supported and just ignored."
# Line 332  and CODE-POINT to a character.   Current Line 331  and CODE-POINT to a character.   Current
331                 (setq code-point (- code-point #xe000))                 (setq code-point (- code-point #xe000))
332                 (make-char 'mule-unicode-e000-ffff                 (make-char 'mule-unicode-e000-ffff
333                            (+ (/ code-point 96) 32) (+ (% code-point 96) 32))))))                            (+ (/ code-point 96) 32) (+ (% code-point 96) 32))))))
334        (if (and c        (if (and c (aref utf-8-translation-table-for-decode c))
                utf-8-fragment-on-decoding  
                (aref utf-8-translation-table-for-decode c))  
335            (aref utf-8-translation-table-for-decode c)            (aref utf-8-translation-table-for-decode c)
336          c)))))          c)))))
337    

Legend:
Removed from v.1.160  
changed lines
  Added in v.1.161

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