Mercurial > emacs
changeset 90373:f40c33509fa4
(tar-untar-buffer, tar-summarize-buffer): Call
set-buffer-multibyte with arg `to'.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 28 Mar 2006 11:23:49 +0000 |
| parents | b1b86dd8f336 |
| children | cf65b3d033bb |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Mon Mar 20 22:42:15 2006 +0000 +++ b/lisp/tar-mode.el Tue Mar 28 11:23:49 2006 +0000 @@ -397,7 +397,8 @@ (unless (file-directory-p name) (write-region start end name)) (set-file-modes name (tar-header-mode tokens)))))) - (set-buffer-multibyte multibyte)))) + (if multibyte + (set-buffer-multibyte 'to))))) (defun tar-summarize-buffer () "Parse the contents of the tar file in the current buffer. @@ -448,7 +449,8 @@ (progress-reporter-done progress-reporter) (message "Warning: premature EOF parsing tar file"))) ;; Obey the user's preference for the use of uni/multibytes. - (set-buffer-multibyte default-enable-multibyte-characters) + (if default-enable-multibyte-characters + (set-buffer-multibyte 'to)) (goto-char (point-min)) (let ((inhibit-read-only t) ;; Collect summary lines and insert them all at once since tar files