changeset 1011:d06420c90d8b

Emacs: search for hg in path before looking in funny places.
author bos@serpentine.internal.keyresearch.com
date Tue, 23 Aug 2005 14:51:52 -0700
parents ad6fcceaf59b
children d74bcc61be6f 5b257e419816
files contrib/mercurial.el
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/contrib/mercurial.el	Mon Aug 22 15:29:55 2005 -0700
+++ b/contrib/mercurial.el	Tue Aug 23 14:51:52 2005 -0700
@@ -67,11 +67,10 @@
   :group 'tools)
 
 (defcustom hg-binary
-  (dolist (path '("~/bin/hg"
-		  "/usr/bin/hg"
-		  "/usr/local/bin/hg"))
-    (when (file-executable-p path)
-      (return path)))
+    (or (executable-find "hg")
+	(dolist (path '("~/bin/hg" "/usr/bin/hg" "/usr/local/bin/hg"))
+	  (when (file-executable-p path)
+	    (return path))))
   "The path to Mercurial's hg executable."
   :type '(file :must-match t)
   :group 'mercurial)