Mercurial > emacs
changeset 22327:c119045b2019
(archive-extract): Fix handling of 'view option.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 01 Jun 1998 21:47:36 +0000 |
| parents | a049e7c748d9 |
| children | 874f007a7d9c |
| files | lisp/arc-mode.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/arc-mode.el Mon Jun 01 21:46:44 1998 +0000 +++ b/lisp/arc-mode.el Mon Jun 01 21:47:36 1998 +0000 @@ -905,12 +905,12 @@ (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))