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.