Mercurial > emacs
diff lisp/cedet/semantic/lex.el @ 104446:df08b7ab0ba0
lisp/cedet/semantic/analyze.el: Add local vars for autoloading.
(semantic-analyze-current-context): Autoload.
lisp/cedet/semantic/ctxt.el: Add local vars for autoloading.
Don't eval-when-compile semantic/db
(semantic-ctxt-current-mode): Autoload.
(semantic-up-context): Require semantic/find.
lisp/cedet/semantic/find.el (semantic-current-tag-parent)
(semantic-find-tags-by-scope-protection): Autoload.
lisp/cedet/semantic/format.el (semantic-format-tag-prototype)
(semantic-format-tag-summarize): Autoload.
lisp/cedet/semantic/idle.el: Declare external functions.
(semantic-idle-work-for-one-buffer, semantic-idle-work-core-handler):
Require semantic/db-mode.
(semantic-idle-work-core-handler): Synch to upstream.
(semantic-idle-scheduler-refresh-tags): Require semantic/decorate/mode.
(semantic-idle-summary-find-current-symbol-tag): Require semantic/db-find.
(semantic-idle-summary-current-symbol-info-context): Require
semantic/analyze.
(semantic-idle-summary-maybe-highlight, semantic-idle-tag-highlight):
Require pulse.
(semantic-idle-completion-list-default): Require semantic/complete.
lisp/cedet/semantic/lex-spp.el: Require semantic.
(semantic-lex-spp-analyzer-push-tokens-for-symbol): Synch to upstream.
(semantic-lex-spp-first-token-arg-list): Use split-string.
lisp/cedet/semantic/lex.el: Declare semantic-elapsed-time.
Add local vars for autoloading.
(semantic-lex-test): Require semantic.
(semantic-lex): Autoload.
(semantic-flex): Use semantic-lex-keyword-p to avoid compiler warning.
lisp/cedet/semantic/sb.el: Require semantic/sort.
Declare semanticdb-minor-mode-p.
(semantic-sb-fetch-tag-table): Require semantic/db-mode.
lisp/cedet/semantic/scope.el: eval-when-compile semantic/find.
Declare external functions.
(semantic-analyze-scope-nested-tags-default): Require semantic/analyze.
(semantic-analyze-show): Require semantic/analyze.
(semantic-calculate-scope): Require semantic/db-typecache.
lisp/cedet/semantic/sort.el: Add local vars for autoloading.
Declare semanticdb-find-tags-external-children-of-type.
(semantic-flatten-tags-table, semantic-tag-external-member-parent):
Autoload.
(semantic-tag-external-member-children-default): Require semantic/db-find.
lisp/cedet/semantic/symref.el: Require semantic.
Declare data-debug-new-buffer and data-debug-insert-object-slots.
(semantic-symref-data-debug-last-result): Require eieio-datadebug.
lisp/cedet/semantic/tag-file.el: Declare external functions.
(semantic-go-to-tag): Call semanticdb-table-child-p only if
semantic/db is loaded.
(semantic-dependency-tag-file): Require semantic/dep.
lisp/cedet/semantic/tag-ls.el: Require semantic.
Add local variables for autoloading.
(semantic-tag-prototype-p): Autoload.
lisp/cedet/semantic/tag-write.el: Require semantic.
lisp/cedet/semantic/tag.el: Update external function declarations and
requirements, removing autoloaded functions.
Add local vars for autoloading.
(semantic-tag-components): Autoload.
lisp/cedet/semantic/texi.el: Declare lookup-words.
eval-when-compile semantic/find.
lisp/cedet/semantic/util.el: Update file header.
lisp/cedet/semantic/analyze/complete.el: Add local variables for autoloading.
(semantic-analyze-possible-completions, semantic-analyze-type-constants):
Autoload.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Thu, 03 Sep 2009 03:58:13 +0000 |
parents | b1ac14799f78 |
children | 273e528a9f9b |
line wrap: on
line diff
--- a/lisp/cedet/semantic/lex.el Wed Sep 02 05:04:38 2009 +0000 +++ b/lisp/cedet/semantic/lex.el Thu Sep 03 03:58:13 2009 +0000 @@ -672,10 +672,13 @@ ;;; Interactive testing commands +(declare-function semantic-elapsed-time "semantic") + (defun semantic-lex-test (arg) "Test the semantic lexer in the current buffer. If universal argument ARG, then try the whole buffer." (interactive "P") + (require 'semantic) (let* ((start (current-time)) (result (semantic-lex (if arg (point-min) (point)) @@ -996,6 +999,8 @@ (numberp (nth 2 thing))) ) +(eval-and-compile + (defun semantic-lex-expand-block-specs (specs) "Expand block specifications SPECS into a Lisp form. SPECS is a list of (BLOCK BEGIN END) elements where BLOCK, BEGIN, and @@ -1024,6 +1029,7 @@ (car semantic-lex-token-stream)))) (cond ,@(nreverse form)))) ))) +) (defmacro semantic-lex-push-token (token &rest blockspecs) "Push TOKEN in the lexical analyzer token stream. @@ -1070,6 +1076,7 @@ (modify-syntax-entry (car mod) (nth 1 mod) semantic-lex-syntax-table))) +;;;###autoload (define-overloadable-function semantic-lex (start end &optional depth length) "Lexically analyze text in the current buffer between START and END. Optional argument DEPTH indicates at what level to scan over entire @@ -1975,7 +1982,7 @@ ((looking-at "\\(\\sw\\|\\s_\\)+") (setq ts (cons (cons ;; Get info on if this is a keyword or not - (or (semantic-flex-keyword-p (match-string 0)) + (or (semantic-lex-keyword-p (match-string 0)) 'symbol) (cons (match-beginning 0) (match-end 0))) ts))) @@ -2092,4 +2099,9 @@ (provide 'semantic/lex) +;; Local variables: +;; generated-autoload-file: "loaddefs.el" +;; generated-autoload-feature: semantic/loaddefs +;; End: + ;;; semantic-lex.el ends here