[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/cedet/semantic/bovine gcc.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/cedet/semantic/bovine gcc.el |
Date: |
Wed, 30 Sep 2009 02:26:12 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/30 02:26:12
Modified files:
lisp/cedet/semantic/bovine: gcc.el
Log message:
(semantic-gcc-setup): Replace runtime use of CL function
`remove-if-not'.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/bovine/gcc.el?cvsroot=emacs&r1=1.2&r2=1.3
Patches:
Index: gcc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/bovine/gcc.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- gcc.el 28 Sep 2009 15:15:10 -0000 1.2
+++ gcc.el 30 Sep 2009 02:26:12 -0000 1.3
@@ -171,15 +171,18 @@
(gcc-include-c++-ver (expand-file-name ver gcc-include-c++))
(gcc-include-c++-ver-host (expand-file-name host
gcc-include-c++-ver)))
(setq c-include-path
- (remove-if-not 'file-accessible-directory-p
- (list "/usr/include" gcc-include)))
+ ;; Replace cl-function remove-if-not.
+ (delq nil (mapcar (lambda (d)
+ (if (file-accessible-directory-p d) d))
+ (list "/usr/include" gcc-include))))
(setq c++-include-path
- (remove-if-not 'file-accessible-directory-p
+ (delq nil (mapcar (lambda (d)
+ (if (file-accessible-directory-p d) d))
(list "/usr/include"
gcc-include
gcc-include-c++
gcc-include-c++-ver
- gcc-include-c++-ver-host)))))
+ gcc-include-c++-ver-host))))))
;;; Fix-me: I think this part might have been a misunderstanding, but I am
not sure.
;; If this option is specified, try it both with and without prefix, and
with and without host
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/cedet/semantic/bovine gcc.el,
Glenn Morris <=