equal
deleted
inserted
replaced
65 (defgroup mercurial nil |
65 (defgroup mercurial nil |
66 "Mercurial distributed SCM." |
66 "Mercurial distributed SCM." |
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) |
78 |
77 |
79 (defcustom hg-mode-hook nil |
78 (defcustom hg-mode-hook nil |