diff options
| author | Richard M. Stallman <[email protected]> | 1994-12-18 18:48:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-12-18 18:48:04 +0000 |
| commit | fef5a0becfec44cf93f5ce02a8df0d959d9714db (patch) | |
| tree | 1ae5173196ab9e6615798ed98c99fe66dd2dbdd2 /lisp/tar-mode.el | |
| parent | 342aa43969407324eb328d44c9b6e9f4aa067485 (diff) | |
(tar-extract): Don't use set-visited-file-name. to
avoid interaction problems with ange-ftp.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 25 |
1 files changed, 9 insertions, 16 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 9dd9732fab..65810de76c 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)) |