# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866584921 0
# Node ID e526918bbae88ddea29467a1c0e5802b4b45927a
# Parent  d38d2b26bd523cf7f04a77a54e23ba5a97c36181
(archive-extract): Use second argument of
view-buffer instead of setting view-exit-action.

diff -r d38d2b26bd52 -r e526918bbae8 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Tue Jun 17 21:54:16 1997 +0000
+++ b/lisp/arc-mode.el	Tue Jun 17 22:02:01 1997 +0000
@@ -752,9 +752,7 @@
 	  (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