mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-26 10:49:33 +00:00
* vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
can parse the output of the external commands (Bug#5279).
This commit is contained in:
parent
bbdc98eff1
commit
d4efdaea76
@ -1,3 +1,8 @@
|
||||
2010-01-16 Frédéric Perrin <frederic.perrin@resel.fr>
|
||||
|
||||
* vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
|
||||
can parse the output of the external commands (Bug#5279).
|
||||
|
||||
2010-01-16 Jari Aalto <jari.aalto@cante.net>
|
||||
|
||||
* pcmpl-unix.el (pcmpl-unix-read-passwd-file): Doc fix.
|
||||
|
@ -320,11 +320,14 @@ case, and the process object in the asynchronous case."
|
||||
(setq squeezed (nconc squeezed files)))
|
||||
(let ((exec-path (append vc-path exec-path))
|
||||
;; Add vc-path to PATH for the execution of this command.
|
||||
;; Also, since some functions need to parse the output
|
||||
;; from external commands, set LC_MESSAGES to C.
|
||||
(process-environment
|
||||
(cons (concat "PATH=" (getenv "PATH")
|
||||
path-separator
|
||||
(mapconcat 'identity vc-path path-separator))
|
||||
process-environment))
|
||||
(cons "LC_MESSAGES=C"
|
||||
process-environment)))
|
||||
(w32-quote-process-args t))
|
||||
(if (eq okstatus 'async)
|
||||
;; Run asynchronously.
|
||||
|
Loading…
Reference in New Issue
Block a user