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 | |
| parent | 5a3b79c471d9ae3bb54fae2b91b21eac119ae85d (diff) | |
| download | emacs-ce4025c708cbe71881f4b3e82be3ab374bea2fdb.tar.gz | |
(vc-mtn-command): Avoid localization of messages.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/vc-mtn.el | 5 |
2 files changed, 6 insertions, 1 deletions
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 |