From: Kenichi Handa <handa@m17n.org>
Date: Tue, 21 Jan 2003 08:30:08 +0000 (+0000)
Subject: (list-block-of-chars): Use decode-char instead of make-char.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~99
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01ca0a766d09f70a38c0aecf77dbb8272fadbaed;p=emacs.git

(list-block-of-chars): Use decode-char instead of make-char.
---

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 10332ed7810..3dca775bf05 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -254,11 +254,8 @@ detailed meanings of these arguments."
       (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)))))