Commit 9280709b authored by Glenn Morris's avatar Glenn Morris

(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.

parent 3d9e6ffc
......@@ -171,15 +171,18 @@ It should also include other symbols GCC was compiled with.")
(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
(list "/usr/include"
gcc-include
gcc-include-c++
gcc-include-c++-ver
gcc-include-c++-ver-host)))))
(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))))))
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment