procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Quieten cedet compilation

Browse source 
* lisp/cedet/semantic/db-el.el (semanticdb-elisp-sym->tag):
Invert fboundp test to quieten on current Emacs.
* lisp/cedet/ede/config.el (ede-shell-run-something)
(semanticdb-file-table-object, semanticdb-needs-refresh-p)
(semanticdb-refresh-table): Declare.
(ede-preprocessor-map): Require semantic/db.
This commit is contained in:
Glenn Morris 2015-05-06 16:02:32 -04:00
parent 7511337a8a
commit ece365e673
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/cedet/ede/config.el
View file

@ -268,6 +268,8 @@ programs from a project.")
(cmdsym (intern-soft (car cmdsplit))))
(call-interactively cmdsym t)))
(declare-function ede-shell-run-something "ede/shell")
(cl-defmethod project-run-target ((target ede-target-with-config-program))
"Run the current project derived from TARGET."
(let* ((proj (ede-target-parent target))
@ -358,8 +360,14 @@ parsed again."))
This target brings in methods used by Semantic to query
the preprocessor map, and include paths.")
(declare-function semanticdb-file-table-object "semantic/db"
(file &optional dontload))
(declare-function semanticdb-needs-refresh-p "semantic/db" (arg &rest args))
(declare-function semanticdb-refresh-table "semantic/db" (arg &rest args))
(cl-defmethod ede-preprocessor-map ((this ede-target-with-config-c))
"Get the pre-processor map for some generic C code."
(require 'semantic/sb)
(let* ((proj (ede-target-parent this))
(root (ede-project-root proj))
(config (ede-config-get-configuration proj))

10
lisp/cedet/semantic/db-el.el
View file

@ -223,11 +223,11 @@ TOKTYPE is a hint to the type of tag desired."
(symbol-name sym)
"class"
(semantic-elisp-desymbolify
(let ((class (find-class sym)))
(if (fboundp 'eieio-slot-descriptor-name)
(mapcar #'eieio-slot-descriptor-name
(eieio-class-slots class))
(eieio--class-public-a class))))
(let ((class (find-class sym)))
(if (fboundp 'eieio--class-public-a) ; Emacs < 25.1
(eieio--class-public-a class)
(mapcar #'eieio-slot-descriptor-name
(eieio-class-slots class)))))
(semantic-elisp-desymbolify (eieio-class-parents sym)) ;; parents
))
((not toktype)