Mercurial > emacs
changeset 4120:872d8ef4bb62
(tar-extract): Use view-exit-action to kill viewed buf.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Jul 1993 19:10:13 +0000 |
| parents | 7b1b2a8d05f2 |
| children | 25d32add267c |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Sat Jul 17 19:06:12 1993 +0000 +++ b/lisp/tar-mode.el Sat Jul 17 19:10:13 1993 +0000 @@ -624,10 +624,11 @@ (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 ()