From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Jul 1993 19:10:13 +0000 (+0000)
Subject: (tar-extract): Use view-exit-action to kill viewed buf.
X-Git-Tag: emacs-19.34~11731
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5ae9ca5a96b2845d7c1695879bf2f1df830398c;p=emacs.git

(tar-extract): Use view-exit-action to kill viewed buf.
---

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 76259bb20fb..31bbde0e004 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -624,10 +624,11 @@ directory listing."
       (if view-p
 	  (progn
 	    (view-buffer buffer)
-	    (and just-created (kill-buffer buffer)))
-	  (if other-window-p
-	      (switch-to-buffer-other-window buffer)
-	      (switch-to-buffer buffer))))))
+	    (and just-created
+		 (setq view-exit-action 'kill-buffer)))
+	(if other-window-p
+	    (switch-to-buffer-other-window buffer)
+	  (switch-to-buffer buffer))))))
 
 
 (defun tar-extract-other-window ()