[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 165803c 2/2: Quieten semantic re-compilation when .
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 165803c 2/2: Quieten semantic re-compilation when .elc already exist |
Date: |
Fri, 16 Mar 2018 13:44:20 -0400 (EDT) |
branch: master
commit 165803c69136229aaf426bf7655eacbe94425138
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
Quieten semantic re-compilation when .elc already exist
* lisp/cedet/semantic/db-find.el, lisp/cedet/semantic/util.el:
Add some function declarations.
---
lisp/cedet/semantic/db-find.el | 6 ++++++
lisp/cedet/semantic/util.el | 18 ++++++++++++++++++
2 files changed, 24 insertions(+)
diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index d3ad5c7..7cb2ac1 100644
--- 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 313f235..0a02b89 100644
--- 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."