diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-11 08:36:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-11 08:36:36 +0000 |
| commit | eadcb02c5339e7c33b0872911a418bf3ce8daac4 (patch) | |
| tree | 97929baa84e5d47349a7181e70684894be7efa60 /lisp | |
| parent | 60d4887419ac4b5718c6acd0602141ef9f2ab79d (diff) | |
| download | emacs-eadcb02c5339e7c33b0872911a418bf3ce8daac4.tar.gz | |
(vc-do-command): Temporarily add vc-path to the end of PATH.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 6 insertions, 1 deletions
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) |