(tar-extract): Use kill-buffer-if-not-modified as

exit-action when viewing the buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c84ffb934b370ebbeafeaadeecf4ea8ed2ac993d..f54b105032daa8667ce8c18e4dfd89f0e7420798 100644 (file)
--- 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 d03458a1641364c6d2d827e76b0f7d63197e2ebf..39f2371c6862598c7941b7f9f754d094d971cef4 100644 (file)
--- 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