Mercurial > emacs
changeset 107434:11244653958e
lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 19 Mar 2010 15:19:54 +0100 |
| parents | 02eb32da1fbb |
| children | 3447e262f426 |
| files | lisp/ChangeLog lisp/vc-dispatcher.el |
| diffstat | 2 files changed, 6 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Mar 19 11:29:02 2010 +0100 +++ b/lisp/ChangeLog Fri Mar 19 15:19:54 2010 +0100 @@ -1,3 +1,7 @@ +2010-03-19 Juanma Barranquero <lekktu@gmail.com> + + * vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'. + 2010-03-19 Dan Nicolaescu <dann@ics.uci.edu> * vc-hooks.el (vc-path): Remove variable and obsolete declaration.
--- a/lisp/vc-dispatcher.el Fri Mar 19 11:29:02 2010 +0100 +++ b/lisp/vc-dispatcher.el Fri Mar 19 15:19:54 2010 +0100 @@ -318,16 +318,9 @@ (status 0)) (when files (setq squeezed (nconc squeezed files))) - (let ((exec-path (append vc-path exec-path)) - ;; Add vc-path to PATH for the execution of this command. - ;; Also, since some functions need to parse the output + (let (;; Since some functions need to parse the output ;; from external commands, set LC_MESSAGES to C. - (process-environment - (cons (concat "PATH=" (getenv "PATH") - path-separator - (mapconcat 'identity vc-path path-separator)) - (cons "LC_MESSAGES=C" - process-environment))) + (process-environment (cons "LC_MESSAGES=C" process-environment)) (w32-quote-process-args t)) (if (eq okstatus 'async) ;; Run asynchronously.