From 687422dffaffc4d763733b6e4f05df3b209b1d57 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sun, 27 Jan 2008 22:20:43 +0000 Subject: [PATCH] (archive-extract): Use kill-buffer-if-not-modified as exit-action when viewing the buffer. --- lisp/arc-mode.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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. -- 2.39.2