From 8458c8b93d0e1c5c8f7dcaa6b73511f863039acb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 12 Jun 2004 02:20:10 +0000 Subject: [PATCH] (decode-char): Load subst tables if necessary. (encode-char): Likewise. --- lisp/international/mule.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index c4c7be3a225..bbe83c2baf7 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -316,8 +316,7 @@ Optional argument RESTRICTION specifies a way to map the pair of CCS 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 @@ code-point in CCS. Currently not supported and just ignored." (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)) -- 2.39.5