# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1143545029 0
# Node ID f40c33509fa4c861c41a46522dba18a545419f75
# Parent  b1b86dd8f3361efdcc52a7e95865dc3e810ebacf
(tar-untar-buffer, tar-summarize-buffer): Call
set-buffer-multibyte with arg `to'.

diff -r b1b86dd8f336 -r f40c33509fa4 lisp/tar-mode.el
--- 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