Mercurial > emacs

changeset 89369:db3deaa3ae51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-block-of-chars): Use decode-char instead of make-char.
author Kenichi Handa <handa@m17n.org>
date Tue, 21 Jan 2003 08:30:08 +0000
parents 6b4d70860c86
children 0888fb1bda3f
files lisp/international/mule-diag.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Tue Jan 21 08:28:52 2003 +0000
+++ b/lisp/international/mule-diag.el	Tue Jan 21 08:30:08 2003 +0000
@@ -254,11 +254,8 @@
       (setq ch (cond ((< i min)
 		      32)
 		     ((charsetp charset)
-		      (condition-case nil
-			  (if (= row 0)
-			      (make-char charset i)
-			    (make-char charset row i))
-			(error 32)))	; gap in mapping
+		      (or (decode-char charset (+ (* row 256) i))
+			  32))		; gap in mapping
 		     ((and (symbolp charset) (get charset 'translation-table))
 		      (aref (get charset 'translation-table) i))
 		     (t (funcall charset (+ (* row 256) i)))))