[Emacs-diffs] emacs/lisp/cedet/semantic/bovine gcc.el

[Glenn Morris]

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