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) |
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)) |