mirror of
https://github.com/facebook/sapling.git
synced 2024-10-07 15:27:13 +03:00
Emacs: search for hg in path before looking in funny places.
This commit is contained in:
parent
3ba9b828ed
commit
f58baa49ba
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user