[Emacs-diffs] /srv/bzr/emacs/trunk r99351: * vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we

[Chong Yidong]

------------------------------------------------------------
revno: 99351
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2010-01-16 16:37:46 -0500
message:
  * vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
  can parse the output of the external commands (Bug#5279).
modified:
  lisp/ChangeLog
  lisp/vc-dispatcher.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-01-16 21:20:43 +0000
+++ b/lisp/ChangeLog    2010-01-16 21:37:46 +0000
@@ -1,3 +1,8 @@
+2010-01-16  Frédéric Perrin  <address@hidden>
+
+       * 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  <address@hidden>
 
        * pcmpl-unix.el (pcmpl-unix-read-passwd-file): Doc fix.

=== modified file 'lisp/vc-dispatcher.el'
--- a/lisp/vc-dispatcher.el     2010-01-13 08:35:10 +0000
+++ b/lisp/vc-dispatcher.el     2010-01-16 21:37:46 +0000
@@ -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.