(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 10332ed78103eca75b43f07816c767c868453d97..3dca775bf0585eaacbae784c08dd6e81613e2f29 100644 (file)
--- 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)))))