mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(uudecode-decode-region-internal): Use set-buffer-multibyte rather than

Browse Source 
setting default-enable-multibyte-characters.
This commit is contained in:
Stefan Monnier 2008-03-12 20:53:10 +00:00
parent eb21f2ff51
commit 058f400240
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -1,5 +1,6 @@
2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca>
* 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
setting default-enable-multibyte-characters.

12
lisp/mail/uudecode.el
View File

@ -217,14 +217,14 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
result))))
(skip-chars-forward non-data-chars end))
(if file-name
(let (default-enable-multibyte-characters)
(with-temp-file file-name
(insert (apply 'concat (nreverse result)))))
(with-temp-file file-name
(set-buffer-multibyte nil)
(insert (apply 'concat (nreverse result))))
(or (markerp end) (setq end (set-marker (make-marker) end)))
(goto-char start)
(if enable-multibyte-characters
(mapc #'(lambda (x) (insert (uudecode-string-to-multibyte x)))
(nreverse result))
(dolist (x (nreverse result))
(insert (uudecode-string-to-multibyte x)))
(insert (apply 'concat (nreverse result))))
(delete-region (point) end))))))
@ -238,5 +238,5 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
(provide 'uudecode)
;;; arch-tag: e1f09ed5-62b4-4677-9f13-4e81c4fe8ce3
;; arch-tag: e1f09ed5-62b4-4677-9f13-4e81c4fe8ce3
;;; uudecode.el ends here