From 14333e317b8c9d1611d88f610e1b60791825084c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 20 May 2000 00:11:06 +0000 Subject: [PATCH] (find-multibyte-characters): Never exclude charsets eight-bit-control and eight-bit-graphic. --- lisp/international/mule-cmds.el | 5 +++-- 1 file 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 -- 2.39.5