(find-multibyte-characters): Never

exclude charsets eight-bit-control and eight-bit-graphic.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 5165f38731d31e4ec6a947a760a8bb60e9494cc8..ade85317582b9daa62e1db356dc3275bb6e3979d 100644 (file)
--- 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