# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768718999 0
# Node ID 1e6adb18271b17298cb658d7b457948e74ea23e0
# Parent  a01b93a9f8933956a430c05a74dd245445f1c269
(tar-extract): Don't clear out the buffer-file-name.
Don't set list-buffers-directory.

diff -r a01b93a9f893 -r 1e6adb18271b lisp/tar-mode.el
--- a/lisp/tar-mode.el	Thu May 12 02:49:15 1994 +0000
+++ b/lisp/tar-mode.el	Thu May 12 05:03:19 1994 +0000
@@ -685,7 +685,8 @@
 		(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 @@
 		(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)