(tar-extract): Use second argument of

view-buffer instead of setting view-exit-action.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 5776680d6cbf62344551436b5be46b7e92ff3479..c0a83597957a4a9d4f60e278ee18fce98ae7b792 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -747,11 +747,7 @@ appear on disk when you save the tar-file's buffer."
              (set-buffer tar-buffer))
          (narrow-to-region 1 tar-header-offset)))
       (if view-p
-         (progn
-           (view-buffer buffer)
-           (and just-created
-                ;; This will be created by view.el
-                (setq view-exit-action 'kill-buffer)))
+         (view-buffer buffer (and just-created 'kill-buffer))
        (if (eq other-window-p 'display)
            (display-buffer buffer)
          (if other-window-p