(vc-hg-global-switches): Remove.

(vc-hg-state, vc-hg-working-revision, vc-hg-command): Undo
previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b40ec39f2b0c87c60776950b78a1b8f81b1adff..7b835ca2daed6fa8643cc0e9404eb099a5b77dae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-11-24  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-hg.el (vc-hg-global-switches): Remove.
+       (vc-hg-state, vc-hg-working-revision, vc-hg-command): Undo
+       previous change.
+
 2008-11-23  Martin Rudalics  <rudalics@gmx.at>
 
        * info-look.el (info-lookup): When Info buffer is visible on

diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 35ff589f9f0468a31024c2391468b8cf4cd2ac7f..aa11495441afa9b6707296ee7ed15899046f486d 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -116,12 +116,6 @@
 
 ;;; Customization options
 
-(defcustom vc-hg-program "hg"
-  "Name of the Hg executable."
-  :type 'string
-  :version "23.1"
-  :group 'vc)
-
 (defcustom vc-hg-global-switches nil
   "*Global switches to pass to any Hg command."
   :type '(choice (const :tag "None" nil)
@@ -180,8 +174,7 @@ If you want to force an empty list of arguments, use t."
                  (condition-case nil
                      ;; Ignore all errors.
                      (call-process
-                      vc-hg-program nil t nil
-                       "--cwd" (file-name-directory file)
+                      "hg" nil t nil "--cwd" (file-name-directory file)
                       "status" "-A" (file-name-nondirectory file))
                    ;; Some problem happened.  E.g. We can't find an `hg'
                    ;; executable.
@@ -212,8 +205,7 @@ If you want to force an empty list of arguments, use t."
                  (condition-case nil
                      ;; Ignore all errors.
                      (call-process
-                      vc-hg-program nil t nil
-                       "--cwd" (file-name-directory file)
+                      "hg" nil t nil "--cwd" (file-name-directory file)
                       "log" "-l1" (file-name-nondirectory file))
                    ;; Some problem happened.  E.g. We can't find an `hg'
                    ;; executable.
@@ -605,9 +597,9 @@ REV is the revision to check out into WORKFILE."
 
 (defun vc-hg-command (buffer okstatus file-or-list &rest flags)
   "A wrapper around `vc-do-command' for use in vc-hg.el.
-The difference to vc-do-command is that this function always invokes
-`vc-hg-program', and that it passes `vc-hg-global-switches' to it before FLAGS."
-  (apply 'vc-do-command (or buffer "*vc*") okstatus vc-hg-program file-or-list
+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
          (if (stringp vc-hg-global-switches)
              (cons vc-hg-global-switches flags)
            (append vc-hg-global-switches