mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(archive-extract): Use second argument of

Browse source 
view-buffer instead of setting view-exit-action.
This commit is contained in:
Richard M. Stallman 1997-06-17 22:02:01 +00:00
parent 48879301fd
commit 7a26bfc661
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/arc-mode.el
View file

@ -752,9 +752,7 @@ This function changes the set of information shown for each files."
(run-hooks 'archive-extract-hooks))
(archive-maybe-update t))
(if view-p
(progn
(view-buffer buffer)
(and just-created (setq view-exit-action 'kill-buffer)))
(view-buffer buffer (and just-created 'kill-buffer))
(if (eq other-window-p 'display)
(display-buffer buffer)
(if other-window-p