Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(archive-extract): Use kill-buffer-if-not-modified as

Browse source 
exit-action when viewing the buffer.
This commit is contained in:
Martin Rudalics 2008-01-27 22:20:43 +00:00
parent 5e613c0246
commit 687422dffa
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/arc-mode.el
View file

@ -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.