Mercurial > emacs
comparison lisp/tar-mode.el @ 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 | 107ccd98fa12 |
| children | c70e45a7acfd |
comparison
equal
deleted
inserted
replaced
| 88039:e74ef2442a4a | 88040:5f0db12a78bd |
|---|---|
| 794 (tar-subfile-mode 1)) | 794 (tar-subfile-mode 1)) |
| 795 (set-buffer tar-buffer)) | 795 (set-buffer tar-buffer)) |
| 796 (narrow-to-region (point-min) tar-header-offset) | 796 (narrow-to-region (point-min) tar-header-offset) |
| 797 (set-buffer-multibyte tar-buffer-multibyte))) | 797 (set-buffer-multibyte tar-buffer-multibyte))) |
| 798 (if view-p | 798 (if view-p |
| 799 (view-buffer buffer (and just-created 'kill-buffer)) | 799 (view-buffer |
| 800 buffer (and just-created 'kill-buffer-if-not-modified)) | |
| 800 (if (eq other-window-p 'display) | 801 (if (eq other-window-p 'display) |
| 801 (display-buffer buffer) | 802 (display-buffer buffer) |
| 802 (if other-window-p | 803 (if other-window-p |
| 803 (switch-to-buffer-other-window buffer) | 804 (switch-to-buffer-other-window buffer) |
| 804 (switch-to-buffer buffer))))))) | 805 (switch-to-buffer buffer))))))) |