From: Martin Rudalics <rudalics@gmx.at>
Date: Sun, 27 Jan 2008 22:20:43 +0000 (+0000)
Subject: (archive-extract): Use kill-buffer-if-not-modified as
X-Git-Tag: emacs-pretest-23.0.90~8358
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=687422dffaffc4d763733b6e4f05df3b209b1d57;p=emacs.git

(archive-extract): Use kill-buffer-if-not-modified as
exit-action when viewing the buffer.
---

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 504cbce962f..8a01ed3cda6 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -995,7 +995,8 @@ using `make-temp-file', and the generated name is returned."
 	(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 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
           (archive-rar-extract tmpfile name))
       (if tmpbuf (kill-buffer tmpbuf))
       (delete-file tmpfile))))
-  
+
 
 ;; -------------------------------------------------------------------------
 ;; This line was a mistake; it is kept now for compatibility.