1
Fork 0
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:
Stefan Monnier 2009-10-25 02:55:27 +00:00
parent 7c85c02b81
commit eefa91dbc0
12 changed files with 36 additions and 36 deletions

View file

@ -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.

View file

@ -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 ()

View file

@ -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.

View file

@ -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.

View file

@ -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.

View file

@ -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.

View file

@ -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
;; ;;

View file

@ -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:

View file

@ -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)

View 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)

View file

@ -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
;; ;;

View file

@ -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.