diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-12 05:03:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-12 05:03:19 +0000 |
| commit | 8be08cc8d1af1730560aee3de78c7673b353cd66 (patch) | |
| tree | a8ba03cb84b735bcb2597ede123f5ab566eacd8e /lisp/tar-mode.el | |
| parent | efceb2c9811968ed615ba0c7446b3c54790acd66 (diff) | |
| download | emacs-8be08cc8d1af1730560aee3de78c7673b353cd66.tar.gz | |
(tar-extract): Don't clear out the buffer-file-name.
Don't set list-buffers-directory.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 68a235405ff..74054bea483 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -685,7 +685,8 @@ save your changes to disk." (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 @@ save your changes to disk." (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) |