# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779272596 0
# Node ID fcf64871aa14c4648a7beb1c698e8acf29ac5db2
# Parent  e4e6dc1e1be86bf6876df811d1f76af2200cc050
(vc-do-command): Temporarily add vc-path to the end of PATH.

diff -r e4e6dc1e1be8 -r fcf64871aa14 lisp/vc.el
--- a/lisp/vc.el	Sun Sep 11 05:43:50 1994 +0000
+++ b/lisp/vc.el	Sun Sep 11 08:36:36 1994 +0000
@@ -218,7 +218,12 @@
     (if vc-file
 	(setq squeezed (append squeezed (list vc-file))))
     (let ((default-directory (file-name-directory (or file "./")))
-	  (exec-path (if vc-path (append exec-path vc-path) exec-path)))
+	  (exec-path (if vc-path (append exec-path vc-path) exec-path))
+	  ;; Add vc-path to PATH for the execution of this command.
+	  (process-environment
+	   (cons (concat "PATH=" (getenv "PATH")
+			 ":" (mapconcat 'identity vc-path ":"))
+		 process-environment)))
       (setq status (apply 'call-process command nil t nil squeezed)))
     (goto-char (point-max))
     (forward-line -1)