Commit 86f1602f authored by Chong Yidong's avatar Chong Yidong
Browse files

* cedet/semantic/util.el (semantic-recursive-find-nonterminal-by-name):

* cedet/semantic/tag.el (semantic-token-type-parent): Add WHEN
argument to make-obsolete.

* cedet/semantic/fw.el (semantic-alias-obsolete)
(semantic-varalias-obsolete): Add optional WHEN argument.
parent 1cae01f7
2009-10-24 Chong Yidong <cyd@stupidchicken.com>
* cedet/semantic/util.el (semantic-recursive-find-nonterminal-by-name):
* cedet/semantic/tag.el (semantic-token-type-parent): Add WHEN
argument to make-obsolete.
* cedet/semantic/fw.el (semantic-alias-obsolete)
(semantic-varalias-obsolete): Add optional WHEN argument.
2009-10-24 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el (vc-backend-for-registration): Rename from
......
......@@ -148,12 +148,12 @@ Remove self from `post-command-hook' if it is empty."
(intern (substring sym-name (match-end 0)))
name)))
(defun semantic-alias-obsolete (oldfnalias newfn)
(defun semantic-alias-obsolete (oldfnalias newfn &optional 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."
(defalias oldfnalias newfn)
(make-obsolete oldfnalias newfn)
(make-obsolete oldfnalias newfn when)
(when (and (function-overload-p newfn)
(not (overload-obsoleted-by newfn))
;; Only throw this warning when byte compiling things.
......@@ -169,11 +169,11 @@ will throw a warning when it encounters this symbol."
(semantic-overload-symbol-from-function oldfnalias))
))
(defun semantic-varalias-obsolete (oldvaralias newvar)
(defun semantic-varalias-obsolete (oldvaralias newvar &optional 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."
(make-obsolete-variable oldvaralias newvar)
(make-obsolete-variable oldvaralias newvar when)
(condition-case nil
(defvaralias oldvaralias newvar)
(error
......
......@@ -1347,7 +1347,7 @@ interfaces, or abstract classes which are parents of TAG."
(make-obsolete 'semantic-token-type-parent
"\
use `semantic-tag-type-superclass' \
and `semantic-tag-type-interfaces' instead")
and `semantic-tag-type-interfaces' instead" "23.2")
(semantic-alias-obsolete 'semantic-tag-make-assoc-list
'semantic-tag-make-plist)
......
......@@ -174,7 +174,7 @@ THIS ISN'T USED IN SEMANTIC. DELETE ME SOON."
(setq includelist (cdr includelist)))
found)))
(make-obsolete 'semantic-recursive-find-nonterminal-by-name
"Do not use this function.")
"Do not use this function." "23.2")
;;; Completion APIs
;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment