comparison lisp/vc.el @ 90114:e4694597cbf4

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-21 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0 (patch 129-149) - Update from CVS - Merge from gnus--rel--5.10 - (make-text-button): Default button type if not specified - quick-install-emacs: Use mkdir --verbose only when requested * miles@gnu.org--gnu-2005/gnus--rel--5.10 (patch 31-33) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 03 Mar 2005 10:35:22 +0000
parents 3ebd9bdb4fe5 68f16372ee5a
children 4da4a09e8b1b
comparison
equal deleted inserted replaced
90113:a50413a4ba8b 90114:e4694597cbf4
956 (cons (concat "PATH=" (getenv "PATH") 956 (cons (concat "PATH=" (getenv "PATH")
957 path-separator 957 path-separator
958 (mapconcat 'identity vc-path path-separator)) 958 (mapconcat 'identity vc-path path-separator))
959 process-environment)) 959 process-environment))
960 (w32-quote-process-args t)) 960 (w32-quote-process-args t))
961 (if (and (eq okstatus 'async) (file-remote-p default-directory))
962 ;; start-process does not support remote execution
963 (setq okstatus nil))
961 (if (eq okstatus 'async) 964 (if (eq okstatus 'async)
962 (let ((proc (apply 'start-process command (current-buffer) command 965 (let ((proc (apply 'start-process command (current-buffer) command
963 squeezed))) 966 squeezed)))
964 (unless (active-minibuffer-window) 967 (unless (active-minibuffer-window)
965 (message "Running %s in the background..." command)) 968 (message "Running %s in the background..." command))