Mercurial > emacs
changeset 7464:1e6adb18271b
(tar-extract): Don't clear out the buffer-file-name.
Don't set list-buffers-directory.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 12 May 1994 05:03:19 +0000 |
| parents | a01b93a9f893 |
| children | fccf9d4df7bb |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)