comparison contrib/mercurial.el @ 1012:d74bcc61be6f

Merge with BOS
author mpm@selenic.com
date Tue, 23 Aug 2005 15:15:14 -0700
parents d06420c90d8b
children 5b257e419816 ba08f2ef8cbe
comparison
equal deleted inserted replaced
1010:f46e809bbe87 1012:d74bcc61be6f
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