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

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 64651fc097271b84ee139a14b031d8d1dab1f8df..6d88e231dec0be0bcd86b7443b613a15ee572b1a 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -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))