From eadcb02c5339e7c33b0872911a418bf3ce8daac4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 11 Sep 1994 08:36:36 +0000 Subject: [PATCH] (vc-do-command): Temporarily add vc-path to the end of PATH. --- lisp/vc.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/vc.el b/lisp/vc.el index 06f49bfe641..11602b8d502 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -218,7 +218,12 @@ the master name of FILE; this is appended to an optional list of FLAGS." (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) -- 2.39.5