Commit 5f7493ac authored by Karl Heuer's avatar Karl Heuer

(archive-extract): Fix handling of 'view option.

parent cd00fd36
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment