(tar-extract): Don't clear out the buffer-file-name.

Don't set list-buffers-directory.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 68a235405ff3502d7fc7eb6e919667f4ed59bacb..74054bea483d2efe544ddf13703b3b148ac49947 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -685,7 +685,8 @@ save your changes to disk."
                (goto-char 0)
                (set-visited-file-name name) ; give it a name to decide mode.
                (normal-mode)  ; pick a mode.
-               (set-visited-file-name nil)  ; nuke the name - not meaningful.
+;;; Without a file name, save-buffer doesn't work.
+;;;            (set-visited-file-name nil)  ; nuke the name - not meaningful.
                (rename-buffer bufname)
                
                (make-local-variable 'tar-superior-buffer)
@@ -693,11 +694,6 @@ save your changes to disk."
                (setq tar-superior-buffer tar-buffer)
                (setq tar-superior-descriptor descriptor)
 
-               ;; Since the "real" file name is not in buffer-file-name,
-               ;; put it here for list-buffers.
-               (make-local-variable 'list-buffers-directory)
-               (setq list-buffers-directory name)
-
                (tar-subfile-mode 1)
                
                (setq buffer-read-only read-only-p)