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): Fix handling of 'view option.

Browse source
This commit is contained in:
Karl Heuer 1998-06-01 21:47:36 +00:00
parent cd00fd3695
commit 5f7493ac69
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/arc-mode.el
View file

@ -905,12 +905,12 @@ using `make-temp-name', and the generated name is returned."
(or (not (buffer-name buffer))
(progn
(if view-p
(view-buffer buffer (and just-created 'kill-buffer)))
(if (eq other-window-p 'display)
(display-buffer buffer)
(if other-window-p
(switch-to-buffer-other-window buffer)
(switch-to-buffer buffer)))))))
(view-buffer buffer (and just-created 'kill-buffer))
(if (eq other-window-p 'display)
(display-buffer buffer)
(if other-window-p
(switch-to-buffer-other-window buffer)
(switch-to-buffer buffer))))))))
(defun archive-*-extract (archive name command)
(let* ((default-directory (file-name-as-directory archive-tmpdir))