Mercurial > emacs
changeset 88040:5f0db12a78bd
(tar-extract): Use kill-buffer-if-not-modified as
exit-action when viewing the buffer.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Sun, 27 Jan 2008 22:21:11 +0000 |
| parents | e74ef2442a4a |
| children | 0d96788fea72 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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