summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2010-03-19 15:19:54 +0100
committerJuanma Barranquero <lekktu@gmail.com>2010-03-19 15:19:54 +0100
commitb0287b39f290209cfdc868775c1d90b8347aae47 (patch)
treef2b9cf9ef1ef7637b2aff8916f1783cc7cd971e9
parent7d1a916339218bdbd5654dc69f90a5d0ecdb80c0 (diff)
downloademacs-b0287b39f290209cfdc868775c1d90b8347aae47.tar.gz
lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/vc-dispatcher.el11
2 files changed, 6 insertions, 9 deletions
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.