# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1201472471 0
# Node ID 5f0db12a78bd9edf193aa29c98f4020cf614e9ab
# Parent  e74ef2442a4aabad6b1c4d9bb96e3f84673449ea
(tar-extract): Use kill-buffer-if-not-modified as
exit-action when viewing the buffer.

diff -r e74ef2442a4a -r 5f0db12a78bd lisp/tar-mode.el
--- a/lisp/tar-mode.el	Sun Jan 27 22:20:43 2008 +0000
+++ b/lisp/tar-mode.el	Sun Jan 27 22:21:11 2008 +0000
@@ -796,7 +796,8 @@
 	  (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