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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8a41ef8d1714b785d734ce7b3202be56f06f0d33..2b05d3dd6ae021637fa452e2e0c13af96868ea23 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el
index a958e0112f2990464e02231fefe1d45f994bd2cf..95eb4b6e4531eebb06b8624eb840da56c99d94a6 100644 (file)
--- a/lisp/cedet/semantic/fw.el
+++ b/lisp/cedet/semantic/fw.el
@@ -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

diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el
index 5cc3629aa396a6daf0e2eb71d1579f3ba85ca463..44fbe7640595408e9c3dcc7391bde1faaecde817 100644 (file)
--- a/lisp/cedet/semantic/tag.el
+++ b/lisp/cedet/semantic/tag.el
@@ -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)

diff --git a/lisp/cedet/semantic/util.el b/lisp/cedet/semantic/util.el
index 974f915c834ea9edc8ef39678a63ca3406a904b3..6d3985e147b0fdba542f681c0e6bb376aab94d1f 100644 (file)
--- a/lisp/cedet/semantic/util.el
+++ b/lisp/cedet/semantic/util.el
@@ -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
 ;;