Mercurial > emacs

comparison lisp/arc-mode.el @ 22327:c119045b2019

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(archive-extract): Fix handling of 'view option.
author Karl Heuer <kwzh@gnu.org>
date Mon, 01 Jun 1998 21:47:36 +0000
parents 18a455216af7
children 7d99675ff55f
comparison
equal deleted inserted replaced
22326:a049e7c748d9 22327:c119045b2019
903 (message "Note: altering this archive is not implemented.")))) 903 (message "Note: altering this archive is not implemented."))))
904 (archive-maybe-update t)) 904 (archive-maybe-update t))
905 (or (not (buffer-name buffer)) 905 (or (not (buffer-name buffer))
906 (progn 906 (progn
907 (if view-p 907 (if view-p
908 (view-buffer buffer (and just-created 'kill-buffer))) 908 (view-buffer buffer (and just-created 'kill-buffer))
909 (if (eq other-window-p 'display) 909 (if (eq other-window-p 'display)
910 (display-buffer buffer) 910 (display-buffer buffer)
911 (if other-window-p 911 (if other-window-p
912 (switch-to-buffer-other-window buffer) 912 (switch-to-buffer-other-window buffer)
913 (switch-to-buffer buffer))))))) 913 (switch-to-buffer buffer))))))))
914 914
915 (defun archive-*-extract (archive name command) 915 (defun archive-*-extract (archive name command)
916 (let* ((default-directory (file-name-as-directory archive-tmpdir)) 916 (let* ((default-directory (file-name-as-directory archive-tmpdir))
917 (tmpfile (expand-file-name (file-name-nondirectory name) 917 (tmpfile (expand-file-name (file-name-nondirectory name)
918 default-directory)) 918 default-directory))