From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 19 Mar 2010 14:19:54 +0000 (+0100)
Subject: lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~710
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0287b39f290209cfdc868775c1d90b8347aae47;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11c5dcde3d7..ab4834ef0c7 100644
--- 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 8e6f5d5a1be..721bbb38fe5 100644
--- 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.