mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-29 19:48:19 +00:00
(binhex-decode-region-internal): Use set-buffer-multibyte rather than
setting default-enable-multibyte-characters.
This commit is contained in:
parent
058f400240
commit
ca874c230f
@ -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
|
||||
|
@ -222,8 +222,8 @@ If HEADER-ONLY is non-nil only decode header and return filename."
|
||||
(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
|
||||
|
Loading…
Reference in New Issue
Block a user