(tar-extract): Use view-exit-action to kill viewed buf.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 76259bb..31bbde0 100644 (file)
--- 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 ()