Mercurial > emacs
changeset 88039:e74ef2442a4a
(archive-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:20:43 +0000 |
| parents | e75f63aebb2b |
| children | 5f0db12a78bd |
| files | lisp/arc-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/arc-mode.el Sun Jan 27 22:19:43 2008 +0000 +++ b/lisp/arc-mode.el Sun Jan 27 22:20:43 2008 +0000 @@ -995,7 +995,8 @@ (archive-maybe-update t)) (or (not (buffer-name buffer)) (cond - (view-p (view-buffer buffer (and just-created 'kill-buffer))) + (view-p (view-buffer + buffer (and just-created 'kill-buffer-if-not-modified))) ((eq other-window-p 'display) (display-buffer buffer)) (other-window-p (switch-to-buffer-other-window buffer)) (t (switch-to-buffer buffer)))))) @@ -1952,7 +1953,7 @@ (archive-rar-extract tmpfile name)) (if tmpbuf (kill-buffer tmpbuf)) (delete-file tmpfile)))) - + ;; ------------------------------------------------------------------------- ;; This line was a mistake; it is kept now for compatibility.