diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-03 02:22:55 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-03 02:22:55 +0000 |
| commit | ce4025c708cbe71881f4b3e82be3ab374bea2fdb (patch) | |
| tree | be9eeeaf5df2015db75f5224d55c25ae5bb48064 /lisp/vc-mtn.el | |
| parent | 5a3b79c471d9ae3bb54fae2b91b21eac119ae85d (diff) | |
| download | emacs-ce4025c708cbe71881f4b3e82be3ab374bea2fdb.tar.gz | |
(vc-mtn-command): Avoid localization of messages.
Diffstat (limited to 'lisp/vc-mtn.el')
| -rw-r--r-- | lisp/vc-mtn.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |