diff options
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 |