From a3cad1f3a2844ae3257a98b3843a1b8757f90481 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Fri, 6 Oct 2000 13:14:21 +0000 Subject: [PATCH] Enable/Disable multibyte might not be safe in Emacs Mule 5 if the buffer is not empty, but this macro has to be used in some situations in Emacs Mule 4. 2000-10-06 10:01:08 ShengHuo ZHU * mm-util.el (mm-with-unibyte-current-buffer): Don't set unibyte if eight-bit-control is a charset, e.g. Mule 5 in Emacs 21. --- lisp/ChangeLog | 5 +++++ lisp/mm-util.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 57f0534ee..e26b48a34 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-10-06 10:01:08 ShengHuo ZHU + + * mm-util.el (mm-with-unibyte-current-buffer): Don't set unibyte + if eight-bit-control is a charset, e.g. Mule 5.0 in Emacs 21. + 2000-10-06 09:38:54 ShengHuo ZHU * qp.el (quoted-printable-encode-region): Use diff --git a/lisp/mm-util.el b/lisp/mm-util.el index 70172f44a..5ce3dee81 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -340,7 +340,8 @@ See also `with-temp-file' and `with-output-to-string'." "Evaluate FORMS there like `progn' in current buffer." (let ((multibyte (make-symbol "multibyte"))) `(if (or (featurep 'xemacs) - (not (fboundp 'set-buffer-multibyte))) + (not (fboundp 'set-buffer-multibyte)) + (charsetp 'eight-bit-control)) (progn ,@forms) (let ((,multibyte (default-value 'enable-multibyte-characters))) -- 2.25.1