Commit b525816e authored by Karl Heuer's avatar Karl Heuer
Browse files

(vc-log-info): Use path-separator.

parent 153e4de0
...@@ -237,7 +237,8 @@ value of this flag.") ...@@ -237,7 +237,8 @@ value of this flag.")
;; Add vc-path to PATH for the execution of this command. ;; Add vc-path to PATH for the execution of this command.
(process-environment (process-environment
(cons (concat "PATH=" (getenv "PATH") (cons (concat "PATH=" (getenv "PATH")
":" (mapconcat 'identity vc-path ":")) path-separator
(mapconcat 'identity vc-path path-separator))
process-environment))) process-environment)))
(apply 'call-process command nil "*vc*" nil (apply 'call-process command nil "*vc*" nil
(append flags (list (file-name-nondirectory file))))) (append flags (list (file-name-nondirectory file)))))
......
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