Mercurial > emacs

changeset 56039:7dc1250b3b2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 b7fe21511efe
children 13758b690c5c
files lisp/international/mule.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
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))