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

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

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 5776680d6cb..c0a83597957 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -747,11 +747,7 @@ appear on disk when you save the tar-file's buffer."
 	      (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