(tar-untar-buffer, tar-summarize-buffer): Call

set-buffer-multibyte with arg `to'.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 00d9da4d89b..60b2155adc3 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -397,7 +397,8 @@ MODE should be an integer which is a file mode value."
                 (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 @@ is visible (and the real data of the buffer is hidden)."
           (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