# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1043137808 0
# Node ID db3deaa3ae514f22f39704c0d3381be96086850d
# Parent  6b4d70860c86000c54160d445c2986faf749289a
(list-block-of-chars): Use decode-char instead of make-char.

diff -r 6b4d70860c86 -r db3deaa3ae51 lisp/international/mule-diag.el
--- 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)))))