Mercurial > emacs
changeset 92783:b8de2f698e11
(binhex-decode-region-internal): Use set-buffer-multibyte rather than
setting default-enable-multibyte-characters.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 12 Mar 2008 20:53:46 +0000 |
| parents | b643f53a57c5 |
| children | a7f3b0c8e4a5 |
| files | lisp/ChangeLog lisp/mail/binhex.el |
| diffstat | 2 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Mar 12 20:53:10 2008 +0000 +++ b/lisp/ChangeLog Wed Mar 12 20:53:46 2008 +0000 @@ -1,5 +1,6 @@ 2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca> + * mail/binhex.el (binhex-decode-region-internal): * mail/uudecode.el (uudecode-decode-region-internal): * net/dns.el (dns-read-string-name, dns-read, dns-read-type, query-dns): * sha1.el (sha1-string-external): Use set-buffer-multibyte rather than
--- a/lisp/mail/binhex.el Wed Mar 12 20:53:10 2008 +0000 +++ b/lisp/mail/binhex.el Wed Mar 12 20:53:46 2008 +0000 @@ -222,8 +222,8 @@ (save-excursion (goto-char start) (when (re-search-forward binhex-begin-line end t) - (let (default-enable-multibyte-characters) - (setq work-buffer (generate-new-buffer " *binhex-work*"))) + (setq work-buffer (generate-new-buffer " *binhex-work*")) + (with-current-buffer work-buffer (set-buffer-multibyte nil)) (beginning-of-line) (setq bits 0 counter 0) (while tmp