From: Kenichi Handa <handa@m17n.org>
Date: Sat, 20 May 2000 00:11:06 +0000 (+0000)
Subject: (find-multibyte-characters): Never
X-Git-Tag: emacs-pretest-21.0.90~3859
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14333e317b8c9d1611d88f610e1b60791825084c;p=emacs.git

(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 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