From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 3 Apr 2008 02:22:55 +0000 (+0000)
Subject: (vc-mtn-command): Avoid localization of messages.
X-Git-Tag: emacs-pretest-23.0.90~6659
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce4025c708cbe71881f4b3e82be3ab374bea2fdb;p=emacs.git

(vc-mtn-command): Avoid localization of messages.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb5dd122fb0..de6b0d711a4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-04-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* vc-mtn.el (vc-mtn-command): Avoid localization of messages.
+
 	* vc-bzr.el (vc-bzr-checkout): Simplify.
 
 	* image-mode.el (image-mode-fit-frame): New command.
diff --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el
index fd3f48f9105..faa28964be7 100644
--- a/lisp/vc-mtn.el
+++ b/lisp/vc-mtn.el
@@ -67,7 +67,10 @@
 
 (defun vc-mtn-command (buffer okstatus files &rest flags)
   "A wrapper around `vc-do-command' for use in vc-mtn.el."
-  (apply 'vc-do-command buffer okstatus vc-mtn-command files flags))
+  (let ((process-environment
+         ;; Avoid localization of messages so we can parse the output.
+         (cons "LC_MESSAGES=C" process-environment)))
+    (apply 'vc-do-command buffer okstatus vc-mtn-command files flags)))
 
 (defun vc-mtn-state (file)
   ;; If `mtn' fails or returns status>0, or if the search files, just