facebook/sapling
1
1
Fork 0
mirror of https://github.com/facebook/sapling.git synced 2024-10-07 15:27:13 +03:00
Code Issues Projects Releases Wiki Activity

Emacs: search for hg in path before looking in funny places.

Browse Source
This commit is contained in:
bos@serpentine.internal.keyresearch.com 2005-08-23 14:51:52 -07:00
parent 3ba9b828ed
commit f58baa49ba
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/mercurial.el
View File

@ -67,11 +67,10 @@
:group 'tools)
(defcustom hg-binary
(dolist (path '("~/bin/hg"
"/usr/bin/hg"
"/usr/local/bin/hg"))
(or (executable-find "hg")
(dolist (path '("~/bin/hg" "/usr/bin/hg" "/usr/local/bin/hg"))
(when (file-executable-p path)
(return path)))
(return path))))
"The path to Mercurial's hg executable."
:type '(file :must-match t)
:group 'mercurial)