From 01ca0a766d09f70a38c0aecf77dbb8272fadbaed Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 21 Jan 2003 08:30:08 +0000
Subject: [PATCH] (list-block-of-chars): Use decode-char instead of make-char.
---
lisp/international/mule-diag.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
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)))))
--
2.39.5