Mercurial > emacs
changeset 106871:6427b60ed4f2
* vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
can parse the output of the external commands (Bug#5279).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 16 Jan 2010 16:37:46 -0500 |
| parents | 3604fe47137d |
| children | a9f181d02023 |
| files | lisp/ChangeLog lisp/vc-dispatcher.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jan 16 16:20:43 2010 -0500 +++ b/lisp/ChangeLog Sat Jan 16 16:37:46 2010 -0500 @@ -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.
--- a/lisp/vc-dispatcher.el Sat Jan 16 16:20:43 2010 -0500 +++ b/lisp/vc-dispatcher.el Sat Jan 16 16:37:46 2010 -0500 @@ -320,11 +320,14 @@ (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.