Mercurial > emacs
changeset 10188:f837d768d569
(tar-extract): Don't use set-visited-file-name. to
avoid interaction problems with ange-ftp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 18 Dec 1994 18:48:04 +0000 |
| parents | a3b8bfad0a75 |
| children | b2d6d69b7707 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 9 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Sun Dec 18 17:40:25 1994 +0000 +++ b/lisp/tar-mode.el Sun Dec 18 18:48:04 1994 +0000 @@ -685,30 +685,23 @@ (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))