2001-08-03 19:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mm-util.el (mm-find-charset-region): Remove control-1.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f98636..c828932 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-03 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-util.el (mm-find-charset-region): Remove control-1.
+
 2001-08-03 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-decode.el (mm-readable-p): Emacs 20 takes one argument.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 356b6a3..80c182a 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -437,7 +437,8 @@ Mule4 only."
     ;; Remove eight-bit-*, treat them as ascii.
     (let ((css (find-charset-region b e)))
       (mapcar (lambda (cs) (setq css (delq cs css)))
-             '(composition eight-bit-control eight-bit-graphic))
+             '(composition eight-bit-control eight-bit-graphic
+                           control-1))
       css))
    (t
 ;; We are in a unibyte buffer or XEmacs non-mule, so we futz around a bit.