From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 16 Jan 2010 21:37:46 +0000 (-0500)
Subject: * vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
X-Git-Tag: emacs-pretest-23.1.92~35^2~20
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4efdaea760ed65a09762a0ebf74da184f5eb5e1;p=emacs.git

* 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 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.