diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-17 19:10:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-17 19:10:13 +0000 |
| commit | b5ae9ca5a96b2845d7c1695879bf2f1df830398c (patch) | |
| tree | db93d31df00bc7e55a5f3e41f7df6cbe596bd6c7 /lisp/tar-mode.el | |
| parent | 5c05f56971ff9299eae2628437bf3d0fc89bd5f7 (diff) | |
| download | emacs-b5ae9ca5a96b2845d7c1695879bf2f1df830398c.tar.gz | |
(tar-extract): Use view-exit-action to kill viewed buf.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 76259bb20fb..31bbde0e004 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -624,10 +624,11 @@ directory listing." (if view-p (progn (view-buffer buffer) - (and just-created (kill-buffer buffer))) - (if other-window-p - (switch-to-buffer-other-window buffer) - (switch-to-buffer buffer)))))) + (and just-created + (setq view-exit-action 'kill-buffer))) + (if other-window-p + (switch-to-buffer-other-window buffer) + (switch-to-buffer buffer)))))) (defun tar-extract-other-window () |