changeset 1011 | d06420c90d8b |
parent 1004 | ad6fcceaf59b |
child 1024 | 5b257e419816 |
child 1025 | ba08f2ef8cbe |
--- 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)