[Emacs-diffs] emacs/lisp ChangeLog cedet/semantic/fw.el cedet...

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/10/24 18:02:51

Modified files:
        lisp           : ChangeLog 
        lisp/cedet/semantic: fw.el tag.el util.el 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16500&r2=1.16501
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/fw.el?cvsroot=emacs&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/tag.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/util.el?cvsroot=emacs&r1=1.3&r2=1.4

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16500
retrieving revision 1.16501
diff -u -b -r1.16500 -r1.16501
--- ChangeLog   24 Oct 2009 06:34:26 -0000      1.16500
+++ ChangeLog   24 Oct 2009 18:02:47 -0000      1.16501
@@ -1,3 +1,12 @@
+2009-10-24  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * vc.el (vc-backend-for-registration): Rename from

Index: cedet/semantic/fw.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/fw.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- cedet/semantic/fw.el        2 Oct 2009 10:53:35 -0000       1.3
+++ cedet/semantic/fw.el        24 Oct 2009 18:02:51 -0000      1.4
@@ -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

Index: cedet/semantic/tag.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/tag.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/semantic/tag.el       2 Oct 2009 10:53:35 -0000       1.4
+++ cedet/semantic/tag.el       24 Oct 2009 18:02:51 -0000      1.5
@@ -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)

Index: cedet/semantic/util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/util.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- cedet/semantic/util.el      2 Oct 2009 10:53:35 -0000       1.3
+++ cedet/semantic/util.el      24 Oct 2009 18:02:51 -0000      1.4
@@ -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
 ;;