From cc9de211a627a2a8456ff0d4c0e62c161ad5240c Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Thu, 4 May 2000 21:22:36 +0000 Subject: [PATCH] * mm-util.el (mm-with-unibyte-current-buffer): Set the default value of enable-multibyte-characters. --- lisp/ChangeLog | 5 +++++ lisp/mm-util.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 95077e45b..9e84ca467 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-05-04 17:13:04 Shenghuo ZHU + + * mm-util.el (mm-with-unibyte-current-buffer): Set the default + value of enable-multibyte-characters. + 2000-05-04 10:31:24 Shenghuo ZHU * gnus-sum.el (gnus-summary-show-article): En/disable multibyte. diff --git a/lisp/mm-util.el b/lisp/mm-util.el index 03aca2227..74cd23f5e 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -334,7 +334,9 @@ See also `with-temp-file' and `with-output-to-string'." (coding-system-for-read mm-binary-coding-system) (coding-system-for-write mm-binary-coding-system)) (set-buffer-multibyte nil) + (setq-default enable-multibyte-characters nil) ,@forms) + (setq-default enable-multibyte-characters ,multibyte) (set-buffer-multibyte ,multibyte)))))) (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0) (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body)) -- 2.25.1