From d4efdaea760ed65a09762a0ebf74da184f5eb5e1 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 16 Jan 2010 16:37:46 -0500 Subject: [PATCH] * vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we can parse the output of the external commands (Bug#5279). --- lisp/ChangeLog | 5 +++++ lisp/vc-dispatcher.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 * 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. -- 2.39.5