diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-05-12 13:08:34 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-05-12 13:08:34 -0400 |
| commit | 28e8e49e08c19dd8f23aca4293d9cccc9477f2bf (patch) | |
| tree | 3ea315057e4c9bf5033aee5f49a77bdcf6e2a708 /lisp/cedet/semantic/db-el.el | |
| parent | 73071b4cdb45deb27052788c5c928ab809e878e0 (diff) | |
| download | emacs-28e8e49e08c19dd8f23aca4293d9cccc9477f2bf.tar.gz | |
* lisp/cedet/semantic: Silence some warnings
* lisp/cedet/semantic/db-el.el (emacs-lisp-mode)
(semanticdb-get-database-tables): Use make-instance to silence warnings.
* lisp/cedet/semantic/symref.el: Require semantic/find since we use
some macros from there. Silence compilation warnings:
Replace initargs with slot names in oref/oset.
Move `SYMREF TOOLS' section earlier so definitions precede their use.
Diffstat (limited to 'lisp/cedet/semantic/db-el.el')
| -rw-r--r-- | lisp/cedet/semantic/db-el.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/db-el.el b/lisp/cedet/semantic/db-el.el index a85b9024eb0..e7858ce36b5 100644 --- a/lisp/cedet/semantic/db-el.el +++ b/lisp/cedet/semantic/db-el.el @@ -79,7 +79,7 @@ Adds the number of tags in this file to the object print name." ;; Create the database, and add it to searchable databases for Emacs Lisp mode. (defvar-mode-local emacs-lisp-mode semanticdb-project-system-databases (list - (semanticdb-project-database-emacs-lisp "Emacs")) + (make-instance 'semanticdb-project-database-emacs-lisp)) "Search Emacs core for symbols.") (defvar-mode-local emacs-lisp-mode semanticdb-find-default-throttle @@ -96,7 +96,7 @@ Create one of our special tables that can act as an intermediary." ;; We need to return something since there is always the "master table" ;; The table can then answer file name type questions. (when (not (slot-boundp obj 'tables)) - (let ((newtable (semanticdb-table-emacs-lisp "Emacs System Table"))) + (let ((newtable (make-instance 'semanticdb-table-emacs-lisp))) (oset obj tables (list newtable)) (oset newtable parent-db obj) (oset newtable tags nil) |