lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11c5dcde3d7a710ec7754264e8479e1223afc044..ab4834ef0c7a972db1012938db8fa0ca91ccbaaa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el
index 8e6f5d5a1becfed4fadad728a73fbe2b913ac938..721bbb38fe5e2cfc717be59132f987a55bc08f26 100644 (file)
--- a/lisp/vc-dispatcher.el
+++ b/lisp/vc-dispatcher.el
@@ -318,16 +318,9 @@ case, and the process object in the asynchronous case."
            (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.