diff options
author | Kenichi Handa <handa@m17n.org> | 2000-05-20 00:11:06 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2000-05-20 00:11:06 +0000 |
commit | 14333e317b8c9d1611d88f610e1b60791825084c (patch) | |
tree | c36a84d67581cbb74d450c5c4a5b87a2e6326a31 /lisp/international | |
parent | 7d584ec4df993279ce28940188853eaa3b38ee53 (diff) |
(find-multibyte-characters): Never
exclude charsets eight-bit-control and eight-bit-graphic.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/mule-cmds.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 5165f38731d..ade85317582 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -415,7 +415,8 @@ For invalid characters, CHARs are actually strings." charset (char-charset char)) (if (eq charset 'unknown) (setq char (match-string 0))) - (if (or (eq charset 'unknown) + (if (or (memq charset '(unknown + eight-bit-control eight-bit-graphic)) (not (or (eq excludes t) (memq charset excludes)))) (let ((slot (assq charset chars))) (if slot @@ -433,7 +434,7 @@ For invalid characters, CHARs are actually strings." charset (char-charset char)) (if (eq charset 'unknown) (setq char (match-string 0))) - (if (or (eq charset 'unknown) + (if (or (memq charset '(unknown eight-bit-control eight-bit-graphic)) (not (or (eq excludes t) (memq charset excludes)))) (let ((slot (assq charset chars))) (if slot |