diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2008-01-27 22:21:45 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2008-01-27 22:21:45 +0000 |
| commit | a51b80e7a7dd10a97761ff750deb95310412ff89 (patch) | |
| tree | 40d5b427e4ec21cd162b45d9be8837b7302c1045 /lisp/tar-mode.el | |
| parent | 687422dffaffc4d763733b6e4f05df3b209b1d57 (diff) | |
| download | emacs-a51b80e7a7dd10a97761ff750deb95310412ff89.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 |