(tar-extract): Don't use set-visited-file-name. to

avoid interaction problems with ange-ftp.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 9dd9732fab88da98bcd292572ca2d66d54e90d5d..65810de76ca324367e615186372d0bfa8052511b 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -685,30 +685,23 @@ save your changes to disk."
                (set-buffer buffer)
                (insert-buffer-substring tar-buffer start end)
                (goto-char 0)
-               ;; Give it a name for list-buffers and to decide mode.
-               ;; Set buffer-file-name by hand first
-               ;; so that set-visited-file-name won't lock the filename.
                (setq buffer-file-name
                      (expand-file-name (concat tarname ":" name)))
-               (set-visited-file-name buffer-file-name)
+               (setq buffer-file-truename
+                     (abbreviate-file-name buffer-file-name))
+               ;; Set the default-directory to the dir of the
+               ;; superior buffer. 
+               (setq default-directory
+                     (save-excursion
+                       (set-buffer tar-buffer)
+                       default-directory))
                (normal-mode)  ; pick a mode.
-;;; 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)
                (make-local-variable 'tar-superior-descriptor)
                (setq tar-superior-buffer tar-buffer)
                (setq tar-superior-descriptor descriptor)
-               ;; Set the default-directory to the dir of the
-               ;; superior buffer. 
-               (setq default-directory
-                     (save-excursion
-                       (set-buffer tar-superior-buffer)
-                       default-directory))
-
-               (tar-subfile-mode 1)
-               
+               (tar-subfile-mode 1)            
                (setq buffer-read-only read-only-p)
                (set-buffer-modified-p nil))
              (set-buffer tar-buffer))