Quieten semantic re-compilation when .elc already exist

* lisp/cedet/semantic/db-find.el, lisp/cedet/semantic/util.el:
Add some function declarations.

diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index d3ad5c7537670270cff85fde48350e973fc35f27..7cb2ac1e94d85882ce162135e4de6dbfce3d755c 100644 (file)
--- a/lisp/cedet/semantic/db-find.el
+++ b/lisp/cedet/semantic/db-find.el
@@ -1333,6 +1333,9 @@ Returns a table of all matching tags."
       (semantic-find-tags-included (or tags (semanticdb-get-tags table)))
     (semantic-find-tags-by-class class (or tags (semanticdb-get-tags table)))))
 
+(declare-function semantic-find-tags-external-children-of-type
+                 "semantic/find" (type &optional table))
+
 (cl-defmethod semanticdb-find-tags-external-children-of-type-method ((table semanticdb-abstract-table) parent &optional tags)
    "In TABLE, find all occurrences of tags whose parent is the PARENT type.
 Optional argument TAGS is a list of tags to search.
@@ -1340,6 +1343,9 @@ Returns a table of all matching tags."
    (require 'semantic/find)
    (semantic-find-tags-external-children-of-type parent (or tags (semanticdb-get-tags table))))
 
+(declare-function semantic-find-tags-subclasses-of-type
+                 "semantic/find" (type &optional table))
+
 (cl-defmethod semanticdb-find-tags-subclasses-of-type-method ((table semanticdb-abstract-table) parent &optional tags)
    "In TABLE, find all occurrences of tags whose parent is the PARENT type.
 Optional argument TAGS is a list of tags to search.

diff --git a/lisp/cedet/semantic/util.el b/lisp/cedet/semantic/util.el
index 313f2350a43a294bd44baefbc2621300e1fb7e5d..0a02b898e341bb4f1f49ba017b69378f5756366a 100644 (file)
--- a/lisp/cedet/semantic/util.el
+++ b/lisp/cedet/semantic/util.el
@@ -54,6 +54,8 @@ Equivalent modes share a parser, and a set of override methods.
 A value of nil means that the current major mode is the only one.")
 (make-variable-buffer-local 'semantic-equivalent-major-modes)
 
+(declare-function semanticdb-file-stream "semantic/db" (file))
+
 ;; These semanticdb calls will throw warnings in the byte compiler.
 ;; Doing the right thing to make them available at compile time
 ;; really messes up the compilation sequence.
@@ -80,6 +82,11 @@ If FILE is not loaded, and semanticdb is not available, find the file
 (semantic-alias-obsolete 'semantic-file-token-stream
                         'semantic-file-tag-table "23.2")
 
+(declare-function semanticdb-abstract-table-child-p "semantic/db" (obj) t)
+(declare-function semanticdb-refresh-table "semantic/db")
+(declare-function semanticdb-get-tags "semantic/db" (arg &rest args) t)
+(declare-function semanticdb-find-results-p "semantic/db-find" (resultp))
+
 (defun semantic-something-to-tag-table (something)
   "Convert SOMETHING into a semantic tag table.
 Something can be a tag with a valid BUFFER property, a tag table, a
@@ -140,6 +147,11 @@ buffer, or a filename.  If SOMETHING is nil return nil."
 (defvar semantic-read-symbol-history nil
   "History for a symbol read.")
 
+(declare-function semantic-brute-find-tag-by-function
+                 "semantic/find"
+                 (function streamorbuffer
+                           &optional search-parts search-includes))
+
 (defun semantic-read-symbol (prompt &optional default stream filter)
   "Read a symbol name from the user for the current buffer.
 PROMPT is the prompt to use.
@@ -154,6 +166,7 @@ FILTER must be a function to call on each element."
   (setq stream
        (if filter
            (semantic--find-tags-by-function filter stream)
+         (require 'semantic/find)
          (semantic-brute-find-tag-standard stream)))
   (if (and default (string-match ":" prompt))
       (setq prompt
@@ -367,6 +380,11 @@ NOTFIRST indicates that this was not the first call in the recursive use."
 
 ;; Symbol completion
 
+(declare-function semanticdb-fast-strip-find-results
+                 "semantic/db-find" (results))
+(declare-function semanticdb-deep-find-tags-for-completion
+                 "semantic/db-find" (prefix &optional path find-file-match))
+
 (defun semantic-find-tag-for-completion (prefix)
   "Find all tags with name starting with PREFIX.
 This uses `semanticdb' when available."