(archive-extract): Use second argument of

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

1 files changed, 1 insertions, 3 deletions

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index ea42ecbcb0a..2fcb7c602e6 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -752,9 +752,7 @@ This function changes the set of information shown for each files."
           (run-hooks 'archive-extract-hooks))
         (archive-maybe-update t))
       (if view-p
-          (progn
-            (view-buffer buffer)
-            (and just-created (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