Mercurial > emacs
diff lisp/international/mule.el @ 56039:7dc1250b3b2f
(decode-char): Load subst tables if necessary.
(encode-char): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 12 Jun 2004 02:20:10 +0000 |
| parents | 9d46d8e2e70b |
| children | 80c137e51162 4c90ffeb71c5 |
line wrap: on
line diff
--- a/lisp/international/mule.el Sat Jun 12 02:18:36 2004 +0000 +++ b/lisp/international/mule.el Sat Jun 12 02:20:10 2004 +0000 @@ -316,8 +316,7 @@ and CODE-POINT to a character. Currently not supported and just ignored." (cond ((eq ccs 'ucs) - (or (gethash code-point - (get 'utf-subst-table-for-decode 'translation-hash-table)) + (or (utf-lookup-subst-table-for-decode code-point) (let ((c (cond ((< code-point 160) code-point) @@ -361,8 +360,7 @@ (charset (car split)) trans) (cond ((eq ccs 'ucs) - (or (gethash char (get 'utf-subst-table-for-encode - 'translation-hash-table)) + (or (utf-lookup-subst-table-for-encode char) (let ((table (get 'utf-translation-table-for-encode 'translation-table))) (setq trans (aref table char))