diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2008-01-27 22:21:11 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2008-01-27 22:21:11 +0000 |
| commit | c864d6487986f2dbe002b58366bd5136392ef84c (patch) | |
| tree | bf28233bdd60b0246055623c49fd71ac2607e22e /lisp/tar-mode.el | |
| parent | 686a6c87e7d483666287d79742a9ea98e7361b19 (diff) | |
| download | emacs-c864d6487986f2dbe002b58366bd5136392ef84c.tar.gz | |
(tar-extract): Use kill-buffer-if-not-modified as
exit-action when viewing the buffer.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |