Mercurial > emacs
changeset 111621:753ce65aa0fc
* vc-hg.el (vc-hg-program): New var.
Suggested by Norman Gray <norman@astro.gla.ac.uk>.
(vc-hg-state, vc-hg-working-revision, vc-hg-command): Use it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 17 Nov 2010 09:34:28 -0500 |
| parents | d7f360c219d0 |
| children | df422e3ae879 |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 14 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Nov 16 19:47:16 2010 -0800 +++ b/lisp/ChangeLog Wed Nov 17 09:34:28 2010 -0500 @@ -1,3 +1,9 @@ +2010-11-17 Stefan Monnier <monnier@iro.umontreal.ca> + + * vc-hg.el (vc-hg-program): New var. + Suggested by Norman Gray <norman@astro.gla.ac.uk>. + (vc-hg-state, vc-hg-working-revision, vc-hg-command): Use it. + 2010-11-17 Glenn Morris <rgm@gnu.org> * emacs-lisp/autoload.el (autoload-find-destination): The function
--- a/lisp/vc-hg.el Tue Nov 16 19:47:16 2010 -0800 +++ b/lisp/vc-hg.el Wed Nov 17 09:34:28 2010 -0500 @@ -133,6 +133,10 @@ :version "23.1" :group 'vc) +(defcustom vc-hg-program "hg" + "Name of the Mercurial executable (excluding any arguments)." + :type 'string + :group 'vc) ;;; Properties of the backend @@ -173,7 +177,7 @@ (append (list "TERM=dumb" "LANGUAGE=C") process-environment))) (process-file - "hg" nil t nil + vc-hg-program nil t nil "--config" "alias.status=status" "--config" "defaults.status=" "status" "-A" (file-relative-name file))) @@ -211,7 +215,7 @@ (let ((process-environment avoid-local-env)) ;; Ignore all errors. (process-file - "hg" nil t nil + vc-hg-program nil t nil "--config" "alias.parents=parents" "--config" "defaults.parents=" "parents" "--template" "{rev}" (file-relative-name file))) @@ -226,7 +230,7 @@ (condition-case nil (let ((process-environment avoid-local-env)) (process-file - "hg" nil nil nil + vc-hg-program nil nil nil ;; We use "log" here, if there's a faster command ;; that returns true for an 'added file and false ;; for an 'unregistered one, we could use that. @@ -619,7 +623,7 @@ "A wrapper around `vc-do-command' for use in vc-hg.el. The difference to vc-do-command is that this function always invokes `hg', and that it passes `vc-hg-global-switches' to it before FLAGS." - (apply 'vc-do-command (or buffer "*vc*") okstatus "hg" file-or-list + (apply 'vc-do-command (or buffer "*vc*") okstatus vc-hg-program file-or-list (if (stringp vc-hg-global-switches) (cons vc-hg-global-switches flags) (append vc-hg-global-switches