Merge from emacs--devo--0

[gnu-emacs] / lisp / tar-mode.el

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 23d5af1bc63533ecbb5a0642e8ea35e7cb44787a..ed974160382f347c8c0678e8e233811e7f0dec47 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -785,7 +785,8 @@ appear on disk when you save the tar-file's buffer."
          (narrow-to-region (point-min) tar-header-offset)
          (goto-char pos)))
       (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