mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(vc-hg-working-revision): Make sure the command is executed in a

Browse Source 
known environment so that we can parse the output.  (Bug#4417)
This commit is contained in:
Dan Nicolaescu 2009-12-14 17:12:18 +00:00
parent 86b5e14c2d
commit 110de3bb16
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,6 +1,8 @@
2009-12-14 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-print-log): Fix argument order.
(vc-hg-working-revision): Make sure the command is executed in a
known environment so that we can parse the output. (Bug#4417)
2009-12-14 Chong Yidong <cyd@stupidchicken.com>

12
lisp/vc-hg.el
View File

@ -202,10 +202,14 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
standard-output
(setq status
(condition-case nil
;; Ignore all errors.
(process-file
"hg" nil t nil
"log" "-l1" (file-relative-name file))
(let ((process-environment
;; Avoid localization of messages so we can parse the output.
(append (list "TERM=dumb" "LANGUAGE=C" "HGRC=")
process-environment)))
;; Ignore all errors.
(process-file
"hg" nil t nil
"log" "-l1" (file-relative-name file)))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
(error nil)))))))