[Emacs-diffs] /srv/bzr/emacs/trunk r99695: lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.

[Juanma Barranquero]

------------------------------------------------------------
revno: 99695
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2010-03-19 15:19:54 +0100
message:
  lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
modified:
  lisp/ChangeLog
  lisp/vc-dispatcher.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-03-19 09:42:13 +0000
+++ b/lisp/ChangeLog    2010-03-19 14:19:54 +0000
@@ -1,3 +1,7 @@
+2010-03-19  Juanma Barranquero  <address@hidden>
+
+       * vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
+
 2010-03-19  Dan Nicolaescu  <address@hidden>
 
        * vc-hooks.el (vc-path): Remove variable and obsolete declaration.

=== modified file 'lisp/vc-dispatcher.el'
--- a/lisp/vc-dispatcher.el     2010-03-19 09:37:41 +0000
+++ b/lisp/vc-dispatcher.el     2010-03-19 14:19:54 +0000
@@ -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.