# HG changeset patch
# User mpm@selenic.com
# Date 2005-08-23 22:15:14
# Node ID d74bcc61be6fe991ac0c15dd3fff05ecf909b445
# Parent  f46e809bbe873a3d9230c84273a6958f78615f2e
# Parent  d06420c90d8b9da709daf6aa5302ebe09ad707d4

Merge with BOS



diff --git a/contrib/mercurial.el b/contrib/mercurial.el
--- a/contrib/mercurial.el
+++ b/contrib/mercurial.el
@@ -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)