mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Update CEDET from upstream.

Browse source
This commit is contained in:
Chong Yidong 2012-10-02 02:10:29 +08:00
parent b3317662ac
commit 62a81506f8
115 changed files with 5693 additions and 1649 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/cedet/semantic/find.el
View file

@ -49,6 +49,7 @@
(require 'semantic/tag)
(declare-function semantic-tag-protected-p "semantic/tag-ls")
(declare-function semantic-tag-package-protected-p "semantic/tag-ls")
;;; Overlay Search Routines
;;
@ -362,12 +363,19 @@ See `semantic-tag-protected-p' for details on which tags are returned."
table
(require 'semantic/tag-ls)
(semantic--find-tags-by-macro
(not (semantic-tag-protected-p (car tags) scopeprotection parent))
(not (and (semantic-tag-protected-p (car tags) scopeprotection parent)
(semantic-tag-package-protected-p (car tags) parent)))
table)))
(defsubst semantic-find-tags-included (&optional table)
;;;###autoload
(define-overloadable-function semantic-find-tags-included (&optional table)
"Find all tags in TABLE that are of the 'include class.
TABLE is a tag table. See `semantic-something-to-tag-table'."
TABLE is a tag table. See `semantic-something-to-tag-table'.")
(defun semantic-find-tags-included-default (&optional table)
"Find all tags in TABLE that are of the 'include class.
TABLE is a tag table. See `semantic-something-to-tag-table'.
By default, just call `semantic-find-tags-by-class'."
(semantic-find-tags-by-class 'include table))
;;; Deep Searches