Mercurial > hg-stable
comparison contrib/mercurial.el @ 1011:d06420c90d8b
Emacs: search for hg in path before looking in funny places.
author | bos@serpentine.internal.keyresearch.com |
---|---|
date | Tue, 23 Aug 2005 14:51:52 -0700 |
parents | ad6fcceaf59b |
children | 5b257e419816 ba08f2ef8cbe |
comparison
equal
deleted
inserted
replaced
1004:ad6fcceaf59b | 1011:d06420c90d8b |
---|---|
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 |