Mercurial > emacs
changeset 105750:a81c63f1a19f
* 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.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 24 Oct 2009 18:02:47 +0000 |
| parents | f955480a1d92 |
| children | 70c3773ee524 |
| files | lisp/ChangeLog lisp/cedet/semantic/fw.el lisp/cedet/semantic/tag.el lisp/cedet/semantic/util.el |
| diffstat | 4 files changed, 15 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 24 16:45:25 2009 +0000 +++ b/lisp/ChangeLog Sat Oct 24 18:02:47 2009 +0000 @@ -1,3 +1,12 @@ +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
--- a/lisp/cedet/semantic/fw.el Sat Oct 24 16:45:25 2009 +0000 +++ b/lisp/cedet/semantic/fw.el Sat Oct 24 18:02:47 2009 +0000 @@ -148,12 +148,12 @@ (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 @@ (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
--- a/lisp/cedet/semantic/tag.el Sat Oct 24 16:45:25 2009 +0000 +++ b/lisp/cedet/semantic/tag.el Sat Oct 24 18:02:47 2009 +0000 @@ -1347,7 +1347,7 @@ (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)
--- a/lisp/cedet/semantic/util.el Sat Oct 24 16:45:25 2009 +0000 +++ b/lisp/cedet/semantic/util.el Sat Oct 24 18:02:47 2009 +0000 @@ -174,7 +174,7 @@ (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 ;;