diff options
| author | Glenn Morris | 2009-09-30 02:26:12 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-09-30 02:26:12 +0000 |
| commit | 9280709b47b946d3afb77479ef73f56dc9e4085a (patch) | |
| tree | ca605b50c1691dcfa858e305472517b50f386035 | |
| parent | 3d9e6ffc427d4e3df63947c9bb1c4480b612f825 (diff) | |
| download | emacs-9280709b47b946d3afb77479ef73f56dc9e4085a.tar.gz emacs-9280709b47b946d3afb77479ef73f56dc9e4085a.zip | |
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.
| -rw-r--r-- | lisp/cedet/semantic/bovine/gcc.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lisp/cedet/semantic/bovine/gcc.el b/lisp/cedet/semantic/bovine/gcc.el index 49c65366c2a..5466546b61c 100644 --- a/lisp/cedet/semantic/bovine/gcc.el +++ b/lisp/cedet/semantic/bovine/gcc.el | |||
| @@ -171,15 +171,18 @@ It should also include other symbols GCC was compiled with.") | |||
| 171 | (gcc-include-c++-ver (expand-file-name ver gcc-include-c++)) | 171 | (gcc-include-c++-ver (expand-file-name ver gcc-include-c++)) |
| 172 | (gcc-include-c++-ver-host (expand-file-name host gcc-include-c++-ver))) | 172 | (gcc-include-c++-ver-host (expand-file-name host gcc-include-c++-ver))) |
| 173 | (setq c-include-path | 173 | (setq c-include-path |
| 174 | (remove-if-not 'file-accessible-directory-p | 174 | ;; Replace cl-function remove-if-not. |
| 175 | (list "/usr/include" gcc-include))) | 175 | (delq nil (mapcar (lambda (d) |
| 176 | (if (file-accessible-directory-p d) d)) | ||
| 177 | (list "/usr/include" gcc-include)))) | ||
| 176 | (setq c++-include-path | 178 | (setq c++-include-path |
| 177 | (remove-if-not 'file-accessible-directory-p | 179 | (delq nil (mapcar (lambda (d) |
| 178 | (list "/usr/include" | 180 | (if (file-accessible-directory-p d) d)) |
| 179 | gcc-include | 181 | (list "/usr/include" |
| 180 | gcc-include-c++ | 182 | gcc-include |
| 181 | gcc-include-c++-ver | 183 | gcc-include-c++ |
| 182 | gcc-include-c++-ver-host))))) | 184 | gcc-include-c++-ver |
| 185 | gcc-include-c++-ver-host)))))) | ||
| 183 | 186 | ||
| 184 | ;;; Fix-me: I think this part might have been a misunderstanding, but I am not sure. | 187 | ;;; Fix-me: I think this part might have been a misunderstanding, but I am not sure. |
| 185 | ;; If this option is specified, try it both with and without prefix, and with and without host | 188 | ;; If this option is specified, try it both with and without prefix, and with and without host |