mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-01 01:41:01 -08:00
* cedet/semantic/fw.el (semantic-alias-obsolete)
(semantic-varalias-obsolete): Make the `when' arg mandatory. (define-mode-overload-implementation): * cedet/semantic/decorate/mode.el (semantic-decorate-pending-decoration-hooks): * cedet/semantic/wisent.el (wisent-lex-make-token-table): * cedet/semantic/util.el (semantic-file-token-stream) (semantic-something-to-stream): * cedet/semantic/tag.el (semantic-tag-make-assoc-list) (semantic-expand-nonterminal): * cedet/semantic/tag-file.el (semantic-find-nonterminal) (semantic-find-dependency, semantic-find-nonterminal) (semantic-find-dependency): * cedet/semantic/lex.el (semantic-flex-start, semantic-flex-end) (semantic-flex-text, semantic-flex-make-keyword-table) (semantic-flex-keyword-p, semantic-flex-keyword-put) (semantic-flex-keyword-get, semantic-flex-map-keywords) (semantic-flex-keywords, semantic-flex-buffer, semantic-flex-list): * cedet/semantic/java.el (semantic-java-prototype-nonterminal): * cedet/semantic/idle.el (semantic-before-idle-scheduler-reparse-hooks) (semantic-after-idle-scheduler-reparse-hooks): * cedet/semantic/edit.el (semantic-edits-incremental-reparse-failed-hooks): * cedet/semantic/db-mode.el (semanticdb-mode-hooks): * cedet/semantic.el (semantic-toplevel-bovine-table) (semantic-toplevel-bovine-cache) (semantic-before-toplevel-bovination-hook, semantic-init-hooks) (semantic-init-mode-hooks, semantic-init-db-hooks) (semantic-bovination-working-type): Provide the `when' arg.
This commit is contained in:
parent
7c85c02b81
commit
eefa91dbc0
12 changed files with 36 additions and 36 deletions
|
|
@ -77,7 +77,7 @@ This variable is for internal use only, and its content depends on the
|
||||||
external parser used.")
|
external parser used.")
|
||||||
(make-variable-buffer-local 'semantic--parse-table)
|
(make-variable-buffer-local 'semantic--parse-table)
|
||||||
(semantic-varalias-obsolete 'semantic-toplevel-bovine-table
|
(semantic-varalias-obsolete 'semantic-toplevel-bovine-table
|
||||||
'semantic--parse-table)
|
'semantic--parse-table "23.2")
|
||||||
|
|
||||||
(defvar semantic-symbol->name-assoc-list
|
(defvar semantic-symbol->name-assoc-list
|
||||||
'((type . "Types")
|
'((type . "Types")
|
||||||
|
|
@ -129,7 +129,7 @@ cached values for some reason, chances are you can, add a hook to
|
||||||
`semantic-after-toplevel-cache-change-hook'.")
|
`semantic-after-toplevel-cache-change-hook'.")
|
||||||
(make-variable-buffer-local 'semantic--buffer-cache)
|
(make-variable-buffer-local 'semantic--buffer-cache)
|
||||||
(semantic-varalias-obsolete 'semantic-toplevel-bovine-cache
|
(semantic-varalias-obsolete 'semantic-toplevel-bovine-cache
|
||||||
'semantic--buffer-cache)
|
'semantic--buffer-cache "23.2")
|
||||||
|
|
||||||
(defvar semantic-unmatched-syntax-cache nil
|
(defvar semantic-unmatched-syntax-cache nil
|
||||||
"A cached copy of unmatched syntax tokens.")
|
"A cached copy of unmatched syntax tokens.")
|
||||||
|
|
@ -166,7 +166,7 @@ It is called before any request for tags is made via the function
|
||||||
If any hook returns a nil value, the cached value is returned
|
If any hook returns a nil value, the cached value is returned
|
||||||
immediately, even if it is empty.")
|
immediately, even if it is empty.")
|
||||||
(semantic-varalias-obsolete 'semantic-before-toplevel-bovination-hook
|
(semantic-varalias-obsolete 'semantic-before-toplevel-bovination-hook
|
||||||
'semantic--before-fetch-tags-hook)
|
'semantic--before-fetch-tags-hook "23.2")
|
||||||
|
|
||||||
(defvar semantic-after-toplevel-bovinate-hook nil
|
(defvar semantic-after-toplevel-bovinate-hook nil
|
||||||
"Hooks run after a toplevel parse.
|
"Hooks run after a toplevel parse.
|
||||||
|
|
@ -298,11 +298,11 @@ This guarantees that the DB will go before other modes that require
|
||||||
a parse of the buffer.")
|
a parse of the buffer.")
|
||||||
|
|
||||||
(semantic-varalias-obsolete 'semantic-init-hooks
|
(semantic-varalias-obsolete 'semantic-init-hooks
|
||||||
'semantic-init-hook)
|
'semantic-init-hook "23.2")
|
||||||
(semantic-varalias-obsolete 'semantic-init-mode-hooks
|
(semantic-varalias-obsolete 'semantic-init-mode-hooks
|
||||||
'semantic-init-mode-hook)
|
'semantic-init-mode-hook "23.2")
|
||||||
(semantic-varalias-obsolete 'semantic-init-db-hooks
|
(semantic-varalias-obsolete 'semantic-init-db-hooks
|
||||||
'semantic-init-db-hook)
|
'semantic-init-db-hook "23.2")
|
||||||
|
|
||||||
(defvar semantic-new-buffer-fcn-was-run nil
|
(defvar semantic-new-buffer-fcn-was-run nil
|
||||||
"Non nil after `semantic-new-buffer-fcn' has been executed.")
|
"Non nil after `semantic-new-buffer-fcn' has been executed.")
|
||||||
|
|
@ -550,7 +550,7 @@ is requested."
|
||||||
'percent means we are doing a linear parse through the buffer.
|
'percent means we are doing a linear parse through the buffer.
|
||||||
'dynamic means we are reparsing specific tags.")
|
'dynamic means we are reparsing specific tags.")
|
||||||
(semantic-varalias-obsolete 'semantic-bovination-working-type
|
(semantic-varalias-obsolete 'semantic-bovination-working-type
|
||||||
'semantic-working-type)
|
'semantic-working-type "23.2")
|
||||||
|
|
||||||
(defvar semantic-minimum-working-buffer-size (* 1024 5)
|
(defvar semantic-minimum-working-buffer-size (* 1024 5)
|
||||||
"*The minimum size of a buffer before working messages are displayed.
|
"*The minimum size of a buffer before working messages are displayed.
|
||||||
|
|
|
||||||
|
|
@ -71,7 +71,7 @@ database, which can be saved for future Emacs sessions."
|
||||||
(defvaralias 'semanticdb-mode-hook 'global-semanticdb-minor-mode-hook)
|
(defvaralias 'semanticdb-mode-hook 'global-semanticdb-minor-mode-hook)
|
||||||
(defvaralias 'semanticdb-global-mode 'global-semanticdb-minor-mode)
|
(defvaralias 'semanticdb-global-mode 'global-semanticdb-minor-mode)
|
||||||
(semantic-varalias-obsolete 'semanticdb-mode-hooks
|
(semantic-varalias-obsolete 'semanticdb-mode-hooks
|
||||||
'global-semanticdb-minor-mode-hook)
|
'global-semanticdb-minor-mode-hook "23.2")
|
||||||
|
|
||||||
|
|
||||||
(defun semanticdb-toggle-global-mode ()
|
(defun semanticdb-toggle-global-mode ()
|
||||||
|
|
|
||||||
|
|
@ -197,7 +197,7 @@ Also make sure old decorations in the area are completely flushed."
|
||||||
"Normal hook run to perform pending decoration changes.")
|
"Normal hook run to perform pending decoration changes.")
|
||||||
|
|
||||||
(semantic-varalias-obsolete 'semantic-decorate-pending-decoration-hooks
|
(semantic-varalias-obsolete 'semantic-decorate-pending-decoration-hooks
|
||||||
'semantic-decorate-pending-decoration-hook)
|
'semantic-decorate-pending-decoration-hook "23.2")
|
||||||
|
|
||||||
(defun semantic-decorate-add-pending-decoration (fcn &optional buffer)
|
(defun semantic-decorate-add-pending-decoration (fcn &optional buffer)
|
||||||
"Add a pending decoration change represented by FCN.
|
"Add a pending decoration change represented by FCN.
|
||||||
|
|
|
||||||
|
|
@ -117,7 +117,7 @@ incremental reparse.")
|
||||||
When this happens, the buffer is marked as needing a full reparse.")
|
When this happens, the buffer is marked as needing a full reparse.")
|
||||||
|
|
||||||
(semantic-varalias-obsolete 'semantic-edits-incremental-reparse-failed-hooks
|
(semantic-varalias-obsolete 'semantic-edits-incremental-reparse-failed-hooks
|
||||||
'semantic-edits-incremental-reparse-failed-hook)
|
'semantic-edits-incremental-reparse-failed-hook "23.2")
|
||||||
|
|
||||||
(defcustom semantic-edits-verbose-flag nil
|
(defcustom semantic-edits-verbose-flag nil
|
||||||
"Non-nil means the incremental parser is verbose.
|
"Non-nil means the incremental parser is verbose.
|
||||||
|
|
|
||||||
|
|
@ -148,7 +148,7 @@ Remove self from `post-command-hook' if it is empty."
|
||||||
(intern (substring sym-name (match-end 0)))
|
(intern (substring sym-name (match-end 0)))
|
||||||
name)))
|
name)))
|
||||||
|
|
||||||
(defun semantic-alias-obsolete (oldfnalias newfn &optional when)
|
(defun semantic-alias-obsolete (oldfnalias newfn when)
|
||||||
"Make OLDFNALIAS an alias for NEWFN.
|
"Make OLDFNALIAS an alias for NEWFN.
|
||||||
Mark OLDFNALIAS as obsolete, such that the byte compiler
|
Mark OLDFNALIAS as obsolete, such that the byte compiler
|
||||||
will throw a warning when it encounters this symbol."
|
will throw a warning when it encounters this symbol."
|
||||||
|
|
@ -169,7 +169,7 @@ will throw a warning when it encounters this symbol."
|
||||||
(semantic-overload-symbol-from-function oldfnalias))
|
(semantic-overload-symbol-from-function oldfnalias))
|
||||||
))
|
))
|
||||||
|
|
||||||
(defun semantic-varalias-obsolete (oldvaralias newvar &optional when)
|
(defun semantic-varalias-obsolete (oldvaralias newvar when)
|
||||||
"Make OLDVARALIAS an alias for variable NEWVAR.
|
"Make OLDVARALIAS an alias for variable NEWVAR.
|
||||||
Mark OLDVARALIAS as obsolete, such that the byte compiler
|
Mark OLDVARALIAS as obsolete, such that the byte compiler
|
||||||
will throw a warning when it encounters this symbol."
|
will throw a warning when it encounters this symbol."
|
||||||
|
|
@ -219,7 +219,7 @@ FUNCTION does not have arguments. When FUNCTION is entered
|
||||||
(defalias 'semantic-map-mode-buffers 'mode-local-map-mode-buffers)
|
(defalias 'semantic-map-mode-buffers 'mode-local-map-mode-buffers)
|
||||||
|
|
||||||
(semantic-alias-obsolete 'define-mode-overload-implementation
|
(semantic-alias-obsolete 'define-mode-overload-implementation
|
||||||
'define-mode-local-override)
|
'define-mode-local-override "23.2")
|
||||||
|
|
||||||
(defun semantic-install-function-overrides (overrides &optional transient mode)
|
(defun semantic-install-function-overrides (overrides &optional transient mode)
|
||||||
"Install the function OVERRIDES in the specified environment.
|
"Install the function OVERRIDES in the specified environment.
|
||||||
|
|
|
||||||
|
|
@ -493,9 +493,9 @@ If any hook function throws an error, this variable is reset to nil.
|
||||||
This hook is not protected from lexical errors.")
|
This hook is not protected from lexical errors.")
|
||||||
|
|
||||||
(semantic-varalias-obsolete 'semantic-before-idle-scheduler-reparse-hooks
|
(semantic-varalias-obsolete 'semantic-before-idle-scheduler-reparse-hooks
|
||||||
'semantic-before-idle-scheduler-reparse-hook)
|
'semantic-before-idle-scheduler-reparse-hook "23.2")
|
||||||
(semantic-varalias-obsolete 'semantic-after-idle-scheduler-reparse-hooks
|
(semantic-varalias-obsolete 'semantic-after-idle-scheduler-reparse-hooks
|
||||||
'semantic-after-idle-scheduler-reparse-hook)
|
'semantic-after-idle-scheduler-reparse-hook "23.2")
|
||||||
|
|
||||||
(defun semantic-idle-scheduler-refresh-tags ()
|
(defun semantic-idle-scheduler-refresh-tags ()
|
||||||
"Refreshes the current buffer's tags.
|
"Refreshes the current buffer's tags.
|
||||||
|
|
|
||||||
|
|
@ -232,7 +232,7 @@ Optional argument COLOR indicates that color should be mixed in."
|
||||||
tag parent color)))
|
tag parent color)))
|
||||||
|
|
||||||
(semantic-alias-obsolete 'semantic-java-prototype-nonterminal
|
(semantic-alias-obsolete 'semantic-java-prototype-nonterminal
|
||||||
'semantic-format-tag-prototype-java-mode)
|
'semantic-format-tag-prototype-java-mode "23.2")
|
||||||
|
|
||||||
;; Include Tag Name
|
;; Include Tag Name
|
||||||
;;
|
;;
|
||||||
|
|
|
||||||
|
|
@ -1752,17 +1752,17 @@ If there is no error, then the last value of FORMS is returned."
|
||||||
;;
|
;;
|
||||||
;; NOTE: DELETE THIS SOMEDAY SOON
|
;; NOTE: DELETE THIS SOMEDAY SOON
|
||||||
|
|
||||||
(semantic-alias-obsolete 'semantic-flex-start 'semantic-lex-token-start)
|
(semantic-alias-obsolete 'semantic-flex-start 'semantic-lex-token-start "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-end 'semantic-lex-token-end)
|
(semantic-alias-obsolete 'semantic-flex-end 'semantic-lex-token-end "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-text 'semantic-lex-token-text)
|
(semantic-alias-obsolete 'semantic-flex-text 'semantic-lex-token-text "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-make-keyword-table 'semantic-lex-make-keyword-table)
|
(semantic-alias-obsolete 'semantic-flex-make-keyword-table 'semantic-lex-make-keyword-table "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-keyword-p 'semantic-lex-keyword-p)
|
(semantic-alias-obsolete 'semantic-flex-keyword-p 'semantic-lex-keyword-p "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-keyword-put 'semantic-lex-keyword-put)
|
(semantic-alias-obsolete 'semantic-flex-keyword-put 'semantic-lex-keyword-put "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-keyword-get 'semantic-lex-keyword-get)
|
(semantic-alias-obsolete 'semantic-flex-keyword-get 'semantic-lex-keyword-get "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-map-keywords 'semantic-lex-map-keywords)
|
(semantic-alias-obsolete 'semantic-flex-map-keywords 'semantic-lex-map-keywords "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-keywords 'semantic-lex-keywords)
|
(semantic-alias-obsolete 'semantic-flex-keywords 'semantic-lex-keywords "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-buffer 'semantic-lex-buffer)
|
(semantic-alias-obsolete 'semantic-flex-buffer 'semantic-lex-buffer "23.2")
|
||||||
(semantic-alias-obsolete 'semantic-flex-list 'semantic-lex-list)
|
(semantic-alias-obsolete 'semantic-flex-list 'semantic-lex-list "23.2")
|
||||||
|
|
||||||
;; This simple scanner uses the syntax table to generate a stream of
|
;; This simple scanner uses the syntax table to generate a stream of
|
||||||
;; simple tokens of the form:
|
;; simple tokens of the form:
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ PARENT can also be a `semanticdb-table' object."
|
||||||
)
|
)
|
||||||
|
|
||||||
(make-obsolete-overload 'semantic-find-nonterminal
|
(make-obsolete-overload 'semantic-find-nonterminal
|
||||||
'semantic-go-to-tag)
|
'semantic-go-to-tag "23.2")
|
||||||
|
|
||||||
;;; Dependencies
|
;;; Dependencies
|
||||||
;;
|
;;
|
||||||
|
|
@ -177,7 +177,7 @@ Depends on `semantic-dependency-include-path' for searching. Always searches
|
||||||
)))
|
)))
|
||||||
|
|
||||||
(make-obsolete-overload 'semantic-find-dependency
|
(make-obsolete-overload 'semantic-find-dependency
|
||||||
'semantic-dependency-tag-file)
|
'semantic-dependency-tag-file "23.2")
|
||||||
|
|
||||||
;;; PROTOTYPE FILE
|
;;; PROTOTYPE FILE
|
||||||
;;
|
;;
|
||||||
|
|
@ -203,10 +203,10 @@ file prototypes belong in."
|
||||||
(match-string 1))))))
|
(match-string 1))))))
|
||||||
|
|
||||||
(semantic-alias-obsolete 'semantic-find-nonterminal
|
(semantic-alias-obsolete 'semantic-find-nonterminal
|
||||||
'semantic-go-to-tag)
|
'semantic-go-to-tag "23.2")
|
||||||
|
|
||||||
(semantic-alias-obsolete 'semantic-find-dependency
|
(semantic-alias-obsolete 'semantic-find-dependency
|
||||||
'semantic-dependency-tag-file)
|
'semantic-dependency-tag-file "23.2")
|
||||||
|
|
||||||
|
|
||||||
(provide 'semantic/tag-file)
|
(provide 'semantic/tag-file)
|
||||||
|
|
|
||||||
|
|
@ -1350,10 +1350,10 @@ use `semantic-tag-type-superclass' \
|
||||||
and `semantic-tag-type-interfaces' instead" "23.2")
|
and `semantic-tag-type-interfaces' instead" "23.2")
|
||||||
|
|
||||||
(semantic-alias-obsolete 'semantic-tag-make-assoc-list
|
(semantic-alias-obsolete 'semantic-tag-make-assoc-list
|
||||||
'semantic-tag-make-plist)
|
'semantic-tag-make-plist "23.2")
|
||||||
|
|
||||||
(semantic-varalias-obsolete 'semantic-expand-nonterminal
|
(semantic-varalias-obsolete 'semantic-expand-nonterminal
|
||||||
'semantic-tag-expand-function)
|
'semantic-tag-expand-function "23.2")
|
||||||
|
|
||||||
(provide 'semantic/tag)
|
(provide 'semantic/tag)
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -81,7 +81,7 @@ If FILE is not loaded, and semanticdb is not available, find the file
|
||||||
(semantic-fetch-tags))))))
|
(semantic-fetch-tags))))))
|
||||||
|
|
||||||
(semantic-alias-obsolete 'semantic-file-token-stream
|
(semantic-alias-obsolete 'semantic-file-token-stream
|
||||||
'semantic-file-tag-table)
|
'semantic-file-tag-table "23.2")
|
||||||
|
|
||||||
(defun semantic-something-to-tag-table (something)
|
(defun semantic-something-to-tag-table (something)
|
||||||
"Convert SOMETHING into a semantic tag table.
|
"Convert SOMETHING into a semantic tag table.
|
||||||
|
|
@ -134,7 +134,7 @@ buffer, or a filename. If SOMETHING is nil return nil."
|
||||||
(t nil)))
|
(t nil)))
|
||||||
|
|
||||||
(semantic-alias-obsolete 'semantic-something-to-stream
|
(semantic-alias-obsolete 'semantic-something-to-stream
|
||||||
'semantic-something-to-tag-table)
|
'semantic-something-to-tag-table "23.2")
|
||||||
|
|
||||||
;;; Recursive searching through dependency trees
|
;;; Recursive searching through dependency trees
|
||||||
;;
|
;;
|
||||||
|
|
|
||||||
|
|
@ -48,7 +48,7 @@ When non-nil it is directly returned by `wisent-lex-function'.")
|
||||||
;; Maintain this alias for compatibility until all WY grammars have
|
;; Maintain this alias for compatibility until all WY grammars have
|
||||||
;; been translated again to Elisp code.
|
;; been translated again to Elisp code.
|
||||||
(semantic-alias-obsolete 'wisent-lex-make-token-table
|
(semantic-alias-obsolete 'wisent-lex-make-token-table
|
||||||
'semantic-lex-make-type-table)
|
'semantic-lex-make-type-table "23.2")
|
||||||
|
|
||||||
(defmacro wisent-lex-eoi ()
|
(defmacro wisent-lex-eoi ()
|
||||||
"Return an End-Of-Input lexical token.
|
"Return an End-Of-Input lexical token.
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue