Show More
@@ -67,11 +67,10 b'' | |||||
67 | :group 'tools) |
|
67 | :group 'tools) | |
68 |
|
68 | |||
69 | (defcustom hg-binary |
|
69 | (defcustom hg-binary | |
70 | (dolist (path '("~/bin/hg" |
|
70 | (or (executable-find "hg") | |
71 | "/usr/bin/hg" |
|
71 | (dolist (path '("~/bin/hg" "/usr/bin/hg" "/usr/local/bin/hg")) | |
72 | "/usr/local/bin/hg")) |
|
72 | (when (file-executable-p path) | |
73 | (when (file-executable-p path) |
|
73 | (return path)))) | |
74 | (return path))) |
|
|||
75 | "The path to Mercurial's hg executable." |
|
74 | "The path to Mercurial's hg executable." | |
76 | :type '(file :must-match t) |
|
75 | :type '(file :must-match t) | |
77 | :group 'mercurial) |
|
76 | :group 'mercurial) |
General Comments 0
You need to be logged in to leave comments.
Login now