From: Martin Rudalics <rudalics@gmx.at>
Date: Sun, 27 Jan 2008 22:21:45 +0000 (+0000)
Subject: (tar-extract): Use kill-buffer-if-not-modified as
X-Git-Tag: emacs-pretest-23.0.90~8357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a51b80e7a7dd10a97761ff750deb95310412ff89;p=emacs.git

(tar-extract): Use kill-buffer-if-not-modified as
exit-action when viewing the buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c84ffb934b3..f54b105032d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2008-01-27  Martin Rudalics  <rudalics@gmx.at>
+
+	* view.el (view-buffer): Explain in doc-string why exit-action
+	should not be set to kill-buffer.
+
+	* arc-mode.el (archive-extract):
+	* tar-mode.el (tar-extract): Use kill-buffer-if-not-modified as
+	exit-action when viewing the buffer.
+
 2008-01-27  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* add-log.el (change-log-search-file-name): Work harder to find
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index d03458a1641..39f2371c686 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -796,7 +796,8 @@ appear on disk when you save the tar-file's buffer."
 	  (narrow-to-region (point-min) tar-header-offset)
 	  (set-buffer-multibyte tar-buffer-multibyte)))
       (if view-p
-	  (view-buffer buffer (and just-created 'kill-buffer))
+	  (view-buffer
+	   buffer (and just-created 'kill-buffer-if-not-modified))
 	(if (eq other-window-p 'display)
 	    (display-buffer buffer)
 	  (if other-window-p