diff options
| author | Kenichi Handa | 2003-01-21 08:30:08 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-01-21 08:30:08 +0000 |
| commit | 01ca0a766d09f70a38c0aecf77dbb8272fadbaed (patch) | |
| tree | abb9cea1006985850ae8a1b6519b3ebd0f288805 | |
| parent | e3beb58b5b1eb51399f621d75ced00835360fb33 (diff) | |
| download | emacs-01ca0a766d09f70a38c0aecf77dbb8272fadbaed.tar.gz emacs-01ca0a766d09f70a38c0aecf77dbb8272fadbaed.zip | |
(list-block-of-chars): Use decode-char instead of make-char.
| -rw-r--r-- | lisp/international/mule-diag.el | 7 |
1 files 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." | |||
| 254 | (setq ch (cond ((< i min) | 254 | (setq ch (cond ((< i min) |
| 255 | 32) | 255 | 32) |
| 256 | ((charsetp charset) | 256 | ((charsetp charset) |
| 257 | (condition-case nil | 257 | (or (decode-char charset (+ (* row 256) i)) |
| 258 | (if (= row 0) | 258 | 32)) ; gap in mapping |
| 259 | (make-char charset i) | ||
| 260 | (make-char charset row i)) | ||
| 261 | (error 32))) ; gap in mapping | ||
| 262 | ((and (symbolp charset) (get charset 'translation-table)) | 259 | ((and (symbolp charset) (get charset 'translation-table)) |
| 263 | (aref (get charset 'translation-table) i)) | 260 | (aref (get charset 'translation-table) i)) |
| 264 | (t (funcall charset (+ (* row 256) i))))) | 261 | (t (funcall charset (+ (* row 256) i))))) |