# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1256407367 0
# Node ID a81c63f1a19f06f2ee327dfa562281f7ec710da1
# Parent  f955480a1d929c1684ee6602900587f854d0ae74
* 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 -r f955480a1d92 -r a81c63f1a19f lisp/ChangeLog
--- 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
diff -r f955480a1d92 -r a81c63f1a19f lisp/cedet/semantic/fw.el
--- 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
diff -r f955480a1d92 -r a81c63f1a19f lisp/cedet/semantic/tag.el
--- 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)
diff -r f955480a1d92 -r a81c63f1a19f lisp/cedet/semantic/util.el
--- 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
 ;;