Commit eadcb02c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(vc-do-command): Temporarily add vc-path to the end of PATH.

parent 60d48874
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment