Mercurial > emacs

changeset 18286:e526918bbae8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(archive-extract): Use second argument of view-buffer instead of setting view-exit-action.
author Richard M. Stallman <rms@gnu.org>
date Tue, 17 Jun 1997 22:02:01 +0000
parents d38d2b26bd52
children f55270c78210
files lisp/arc-mode.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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