# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1263677866 18000
# Node ID 6427b60ed4f200a45126ca2fb4762e88bc86b0aa
# Parent  3604fe47137dbaac69a47491f250b512d06da978
* vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
can parse the output of the external commands (Bug#5279).

diff -r 3604fe47137d -r 6427b60ed4f2 lisp/ChangeLog
--- 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.
diff -r 3604fe47137d -r 6427b60ed4f2 lisp/vc-dispatcher.el
--- 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.