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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 40dd8ff0a966bc8633792e7a91efab7bd46cd356..6f346a45a18489dd83604f4b878963890960869e 100644 (file)
--- 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 310cc3dc351b1400cb651427e463aaf12e0e9d0b..40223c9010d01afc5716fc553c0487f79806fcd7 100644 (file)
--- 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.