Mercurial > emacs

changeset 8726:fcf64871aa14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-do-command): Temporarily add vc-path to the end of PATH.
author Richard M. Stallman <rms@gnu.org>
date Sun, 11 Sep 1994 08:36:36 +0000
parents e4e6dc1e1be8
children 592bbf02e29d
files lisp/vc.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)