Merge from emacs--devo--0

Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 23d5af1bc63..ed974160382 100644
--- 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