From fef5a0becfec44cf93f5ce02a8df0d959d9714db Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 18 Dec 1994 18:48:04 +0000 Subject: [PATCH] (tar-extract): Don't use set-visited-file-name. to avoid interaction problems with ange-ftp. --- lisp/tar-mode.el | 25 +++++++++---------------- 1 file changed, 9 insertions(+), 16 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 9dd9732fab8..65810de76ca 100644 --- 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)) -- 2.39.5