Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mercurial.el @ 1011:d06420c90d8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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