From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 1 Jun 1998 21:47:36 +0000 (+0000)
Subject: (archive-extract): Fix handling of 'view option.
X-Git-Tag: emacs-20.3~750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f7493ac6950f30813753002286c45f097cc8ff8;p=emacs.git

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

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 64651fc0972..6d88e231dec 100644
--- 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))