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

diff -r e526918bbae8 -r f55270c78210 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Tue Jun 17 22:02:01 1997 +0000
+++ b/lisp/tar-mode.el	Tue Jun 17 22:04:57 1997 +0000
@@ -747,11 +747,7 @@
 	      (set-buffer tar-buffer))
 	  (narrow-to-region 1 tar-header-offset)))
       (if view-p
-	  (progn
-	    (view-buffer buffer)
-	    (and just-created
-		 ;; This will be created by view.el
-		 (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