* vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we

can parse the output of the external commands (Bug#5279).

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 40dd8ff0a96..6f346a45a18 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el
index 310cc3dc351..40223c9010d 100644
--- a/lisp/vc-dispatcher.el
+++ b/lisp/vc-dispatcher.el
@@ -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.