diff options
Diffstat (limited to 'lisp/cedet/ede/make.el')
| -rw-r--r-- | lisp/cedet/ede/make.el | 24 |
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. |