mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -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
parent
7c85c02b81
commit
eefa91dbc0
12 changed files with 36 additions and 36 deletions
|
|
@ -71,7 +71,7 @@ database, which can be saved for future Emacs sessions."
|
|||
(defvaralias 'semanticdb-mode-hook 'global-semanticdb-minor-mode-hook)
|
||||
(defvaralias 'semanticdb-global-mode 'global-semanticdb-minor-mode)
|
||||
(semantic-varalias-obsolete 'semanticdb-mode-hooks
|
||||
'global-semanticdb-minor-mode-hook)
|
||||
'global-semanticdb-minor-mode-hook "23.2")
|
||||
|
||||
|
||||
(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.")
|
||||
|
||||
(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)
|
||||
"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.")
|
||||
|
||||
(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
|
||||
"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)))
|
||||
name)))
|
||||
|
||||
(defun semantic-alias-obsolete (oldfnalias newfn &optional when)
|
||||
(defun semantic-alias-obsolete (oldfnalias newfn when)
|
||||
"Make OLDFNALIAS an alias for NEWFN.
|
||||
Mark OLDFNALIAS as obsolete, such that the byte compiler
|
||||
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))
|
||||
))
|
||||
|
||||
(defun semantic-varalias-obsolete (oldvaralias newvar &optional when)
|
||||
(defun semantic-varalias-obsolete (oldvaralias newvar when)
|
||||
"Make OLDVARALIAS an alias for variable NEWVAR.
|
||||
Mark OLDVARALIAS as obsolete, such that the byte compiler
|
||||
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)
|
||||
|
||||
(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)
|
||||
"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.")
|
||||
|
||||
(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-after-idle-scheduler-reparse-hook)
|
||||
'semantic-after-idle-scheduler-reparse-hook "23.2")
|
||||
|
||||
(defun semantic-idle-scheduler-refresh-tags ()
|
||||
"Refreshes the current buffer's tags.
|
||||
|
|
|
|||
|
|
@ -232,7 +232,7 @@ Optional argument COLOR indicates that color should be mixed in."
|
|||
tag parent color)))
|
||||
|
||||
(semantic-alias-obsolete 'semantic-java-prototype-nonterminal
|
||||
'semantic-format-tag-prototype-java-mode)
|
||||
'semantic-format-tag-prototype-java-mode "23.2")
|
||||
|
||||
;; 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
|
||||
|
||||
(semantic-alias-obsolete 'semantic-flex-start 'semantic-lex-token-start)
|
||||
(semantic-alias-obsolete 'semantic-flex-end 'semantic-lex-token-end)
|
||||
(semantic-alias-obsolete 'semantic-flex-text 'semantic-lex-token-text)
|
||||
(semantic-alias-obsolete 'semantic-flex-make-keyword-table 'semantic-lex-make-keyword-table)
|
||||
(semantic-alias-obsolete 'semantic-flex-keyword-p 'semantic-lex-keyword-p)
|
||||
(semantic-alias-obsolete 'semantic-flex-keyword-put 'semantic-lex-keyword-put)
|
||||
(semantic-alias-obsolete 'semantic-flex-keyword-get 'semantic-lex-keyword-get)
|
||||
(semantic-alias-obsolete 'semantic-flex-map-keywords 'semantic-lex-map-keywords)
|
||||
(semantic-alias-obsolete 'semantic-flex-keywords 'semantic-lex-keywords)
|
||||
(semantic-alias-obsolete 'semantic-flex-buffer 'semantic-lex-buffer)
|
||||
(semantic-alias-obsolete 'semantic-flex-list 'semantic-lex-list)
|
||||
(semantic-alias-obsolete 'semantic-flex-start 'semantic-lex-token-start "23.2")
|
||||
(semantic-alias-obsolete 'semantic-flex-end 'semantic-lex-token-end "23.2")
|
||||
(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 "23.2")
|
||||
(semantic-alias-obsolete 'semantic-flex-keyword-p 'semantic-lex-keyword-p "23.2")
|
||||
(semantic-alias-obsolete 'semantic-flex-keyword-put 'semantic-lex-keyword-put "23.2")
|
||||
(semantic-alias-obsolete 'semantic-flex-keyword-get 'semantic-lex-keyword-get "23.2")
|
||||
(semantic-alias-obsolete 'semantic-flex-map-keywords 'semantic-lex-map-keywords "23.2")
|
||||
(semantic-alias-obsolete 'semantic-flex-keywords 'semantic-lex-keywords "23.2")
|
||||
(semantic-alias-obsolete 'semantic-flex-buffer 'semantic-lex-buffer "23.2")
|
||||
(semantic-alias-obsolete 'semantic-flex-list 'semantic-lex-list "23.2")
|
||||
|
||||
;; This simple scanner uses the syntax table to generate a stream of
|
||||
;; simple tokens of the form:
|
||||
|
|
|
|||
|
|
@ -103,7 +103,7 @@ PARENT can also be a `semanticdb-table' object."
|
|||
)
|
||||
|
||||
(make-obsolete-overload 'semantic-find-nonterminal
|
||||
'semantic-go-to-tag)
|
||||
'semantic-go-to-tag "23.2")
|
||||
|
||||
;;; Dependencies
|
||||
;;
|
||||
|
|
@ -177,7 +177,7 @@ Depends on `semantic-dependency-include-path' for searching. Always searches
|
|||
)))
|
||||
|
||||
(make-obsolete-overload 'semantic-find-dependency
|
||||
'semantic-dependency-tag-file)
|
||||
'semantic-dependency-tag-file "23.2")
|
||||
|
||||
;;; PROTOTYPE FILE
|
||||
;;
|
||||
|
|
@ -203,10 +203,10 @@ file prototypes belong in."
|
|||
(match-string 1))))))
|
||||
|
||||
(semantic-alias-obsolete 'semantic-find-nonterminal
|
||||
'semantic-go-to-tag)
|
||||
'semantic-go-to-tag "23.2")
|
||||
|
||||
(semantic-alias-obsolete 'semantic-find-dependency
|
||||
'semantic-dependency-tag-file)
|
||||
'semantic-dependency-tag-file "23.2")
|
||||
|
||||
|
||||
(provide 'semantic/tag-file)
|
||||
|
|
|
|||
|
|
@ -1350,10 +1350,10 @@ use `semantic-tag-type-superclass' \
|
|||
and `semantic-tag-type-interfaces' instead" "23.2")
|
||||
|
||||
(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-tag-expand-function)
|
||||
'semantic-tag-expand-function "23.2")
|
||||
|
||||
(provide 'semantic/tag)
|
||||
|
||||
|
|
|
|||
|
|
@ -81,7 +81,7 @@ If FILE is not loaded, and semanticdb is not available, find the file
|
|||
(semantic-fetch-tags))))))
|
||||
|
||||
(semantic-alias-obsolete 'semantic-file-token-stream
|
||||
'semantic-file-tag-table)
|
||||
'semantic-file-tag-table "23.2")
|
||||
|
||||
(defun semantic-something-to-tag-table (something)
|
||||
"Convert SOMETHING into a semantic tag table.
|
||||
|
|
@ -134,7 +134,7 @@ buffer, or a filename. If SOMETHING is nil return nil."
|
|||
(t nil)))
|
||||
|
||||
(semantic-alias-obsolete 'semantic-something-to-stream
|
||||
'semantic-something-to-tag-table)
|
||||
'semantic-something-to-tag-table "23.2")
|
||||
|
||||
;;; 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
|
||||
;; been translated again to Elisp code.
|
||||
(semantic-alias-obsolete 'wisent-lex-make-token-table
|
||||
'semantic-lex-make-type-table)
|
||||
'semantic-lex-make-type-table "23.2")
|
||||
|
||||
(defmacro wisent-lex-eoi ()
|
||||
"Return an End-Of-Input lexical token.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue