From 7a26bfc6610132f81f5871c316f943f8088d71ff Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 17 Jun 1997 22:02:01 +0000 Subject: [PATCH] (archive-extract): Use second argument of view-buffer instead of setting view-exit-action. --- lisp/arc-mode.el | 4 +--- 1 file changed, 1 insertion(+), 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 -- 2.39.5