Mercurial > emacs
changeset 104836:629a32caa79e
Use default-value rather than default-enable-multibyte-characters.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 04 Sep 2009 02:47:26 +0000 |
| parents | 88f046f0db6f |
| children | 6c2939592100 |
| files | lisp/gnus/ChangeLog lisp/gnus/mm-util.el lisp/gnus/yenc.el |
| diffstat | 3 files changed, 18 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Sep 04 02:46:08 2009 +0000 +++ b/lisp/gnus/ChangeLog Fri Sep 04 02:47:26 2009 +0000 @@ -1,3 +1,14 @@ +2009-09-04 Glenn Morris <rgm@gnu.org> + + * qp.el (quoted-printable-encode-string): Use mm-enable-multibyte, or + mm-disable-multibyte, rather than default-enable-multibyte-characters. + * utf7.el (utf7-encode, utf7-decode): Use mm-with-multibyte-buffer, or + mm-with-unibyte-buffer, rather than default-enable-multibyte-characters. + * mm-util.el (mm-with-unibyte-current-buffer) + (mm-find-buffer-file-coding-system): + * yenc.el (yenc-decode-region): Use default-value rather than + default-enable-multibyte-characters. + 2009-09-03 Glenn Morris <rgm@gnu.org> * mm-util.el (mm-emacs-mule, mm-default-multibyte-p):
--- a/lisp/gnus/mm-util.el Fri Sep 04 02:46:08 2009 +0000 +++ b/lisp/gnus/mm-util.el Fri Sep 04 02:47:26 2009 +0000 @@ -1227,7 +1227,7 @@ (defmacro mm-with-unibyte-current-buffer (&rest forms) "Evaluate FORMS with current buffer temporarily made unibyte. -Also bind `default-enable-multibyte-characters' to nil. +Also bind the default-value of `enable-multibyte-characters' to nil. Equivalent to `progn' in XEmacs NOTE: Use this macro with caution in multibyte buffers (it is not @@ -1242,12 +1242,12 @@ (let ((,multibyte enable-multibyte-characters) (,buffer (current-buffer))) (unwind-protect - (let (default-enable-multibyte-characters) + (letf (((default-value 'enable-multibyte-characters) nil)) (set-buffer-multibyte nil) ,@forms) (set-buffer ,buffer) (set-buffer-multibyte ,multibyte))) - (let (default-enable-multibyte-characters) + (letf (((default-value 'enable-multibyte-characters) nil)) ,@forms)))) (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0) (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body)) @@ -1590,8 +1590,8 @@ filename)) (mm-decompress-buffer filename nil t)))) (when decomp - (set-buffer (let (default-enable-multibyte-characters) - (generate-new-buffer " *temp*"))) + (set-buffer (letf (((default-value 'enable-multibyte-characters) nil)) + (generate-new-buffer " *temp*"))) (insert decomp) (setq filename (file-name-sans-extension filename))) (goto-char (point-min))
--- a/lisp/gnus/yenc.el Fri Sep 04 02:46:08 2009 +0000 +++ b/lisp/gnus/yenc.el Fri Sep 04 02:47:26 2009 +0000 @@ -89,8 +89,8 @@ (when (re-search-forward "^=yend.*$" end t) (setq last (match-beginning 0)) (setq footer-alist (yenc-parse-line (match-string 0))) - (let (default-enable-multibyte-characters) - (setq work-buffer (generate-new-buffer " *yenc-work*"))) + (letf (((default-value 'enable-multibyte-characters) nil)) + (setq work-buffer (generate-new-buffer " *yenc-work*"))) (while (< first last) (setq char (char-after first)) (cond ((or (eq char ?\r)