Skip to content

GitLab

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

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

parent cd00fd36
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 6 deletions
lisp/arc-mode.el
View file @ 5f7493ac
...@@ -905,12 +905,12 @@ using `make-temp-name', and the generated name is returned." ...@@ -905,12 +905,12 @@ using `make-temp-name', and the generated name is returned."
(or (not (buffer-name buffer)) (or (not (buffer-name buffer))
(progn (progn
(if view-p (if view-p
(view-buffer buffer (and just-created 'kill-buffer))) (view-buffer buffer (and just-created 'kill-buffer))
(if (eq other-window-p 'display) (if (eq other-window-p 'display)
(display-buffer buffer) (display-buffer buffer)
(if other-window-p (if other-window-p
(switch-to-buffer-other-window buffer) (switch-to-buffer-other-window buffer)
(switch-to-buffer buffer))))))) (switch-to-buffer buffer))))))))
(defun archive-*-extract (archive name command) (defun archive-*-extract (archive name command)
(let* ((default-directory (file-name-as-directory archive-tmpdir)) (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