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