From 5f7493ac6950f30813753002286c45f097cc8ff8 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 1 Jun 1998 21:47:36 +0000 Subject: [PATCH] (archive-extract): Fix handling of 'view option. --- lisp/arc-mode.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 64651fc097..6d88e231de 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)) -- 2.20.1