aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/ede/make.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/cedet/ede/make.el')
-rw-r--r--lisp/cedet/ede/make.el24
1 files changed, 5 insertions, 19 deletions
diff --git a/lisp/cedet/ede/make.el b/lisp/cedet/ede/make.el
index ecce3e7105b..140e7387a68 100644
--- a/lisp/cedet/ede/make.el
+++ b/lisp/cedet/ede/make.el
@@ -32,29 +32,15 @@
32 32
33(declare-function inversion-check-version "inversion") 33(declare-function inversion-check-version "inversion")
34 34
35(if (fboundp 'locate-file) 35(defsubst ede--find-executable (exec)
36 (defsubst ede--find-executable (exec) 36 "Return an expanded file name for a program EXEC on the exec path."
37 "Return an expanded file name for a program EXEC on the exec path." 37 (declare (obsolete locate-file "28.1"))
38 (locate-file exec exec-path)) 38 (locate-file exec exec-path))
39
40 ;; Else, older version of Emacs.
41
42 (defsubst ede--find-executable (exec)
43 "Return an expanded file name for a program EXEC on the exec path."
44 (let ((p exec-path)
45 (found nil))
46 (while (and p (not found))
47 (let ((f (expand-file-name exec (car p))))
48 (if (file-exists-p f)
49 (setq found f)))
50 (setq p (cdr p)))
51 found))
52 )
53 39
54(defvar ede-make-min-version "3.0" 40(defvar ede-make-min-version "3.0"
55 "Minimum version of GNU make required.") 41 "Minimum version of GNU make required.")
56 42
57(defcustom ede-make-command (cond ((ede--find-executable "gmake") 43(defcustom ede-make-command (cond ((executable-find "gmake")
58 "gmake") 44 "gmake")
59 (t "make")) ;; What to do? 45 (t "make")) ;; What to do?
60 "The MAKE command to use for EDE when compiling. 46 "The MAKE command to use for EDE when compiling.