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." |
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 |
|
|