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 | b942bf9e28827842dbe3c79ece3002747eb0082b (patch) | |
| tree | bbde37e6a8143126554f55454637519d0d4e51d2 /lisp/tar-mode.el | |
| parent | bcbbeafdaadd6d2dca345257b0464e18fb4f3be0 (diff) | |
| download | emacs-b942bf9e28827842dbe3c79ece3002747eb0082b.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 () |