From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 17 Jun 1997 22:02:01 +0000 (+0000)
Subject: (archive-extract): Use second argument of
X-Git-Tag: emacs-20.1~1660
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a26bfc6610132f81f5871c316f943f8088d71ff;p=emacs.git

(archive-extract): Use second argument of
view-buffer instead of setting view-exit-action.
---

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