# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1253988234 0
# Node ID c65d65798b34022db3288122a10d809ab2752e41
# Parent  a6a812dd2d88903b53e94860f978dc34ab724e25
Fix last change to use semantic-varalias-obsolete.

diff -r a6a812dd2d88 -r c65d65798b34 lisp/cedet/semantic.el
--- a/lisp/cedet/semantic.el	Sat Sep 26 17:47:11 2009 +0000
+++ b/lisp/cedet/semantic.el	Sat Sep 26 18:03:54 2009 +0000
@@ -269,12 +269,12 @@
 This guarantees that the DB will go before other modes that require
 a parse of the buffer.")
 
-(define-obsolete-variable-alias 'semantic-init-hooks
-  'semantic-init-hook "23.2")
-(define-obsolete-variable-alias 'semantic-init-mode-hooks
-  'semantic-init-mode-hook "23.2")
-(define-obsolete-variable-alias 'semantic-init-db-hooks
-  'semantic-init-db-hook "23.2")
+(semantic-varalias-obsolete 'semantic-init-hooks
+			    'semantic-init-hook)
+(semantic-varalias-obsolete 'semantic-init-mode-hooks
+			    'semantic-init-mode-hook)
+(semantic-varalias-obsolete 'semantic-init-db-hooks
+			    'semantic-init-db-hook)
 
 (defvar semantic-new-buffer-fcn-was-run nil
   "Non nil after `semantic-new-buffer-fcn' has been executed.")
diff -r a6a812dd2d88 -r c65d65798b34 lisp/cedet/semantic/db-file.el
--- a/lisp/cedet/semantic/db-file.el	Sat Sep 26 17:47:11 2009 +0000
+++ b/lisp/cedet/semantic/db-file.el	Sat Sep 26 18:03:54 2009 +0000
@@ -69,15 +69,14 @@
   :type nil)
 
 (defcustom semanticdb-save-database-hook nil
-  "Normal hook run after a database is saved.
+  "Hook run after a database is saved.
 Each function is called with one argument, the object representing
 the database recently written."
   :group 'semanticdb
   :type 'hook)
 
-(define-obsolete-variable-alias
-  'semanticdb-save-database-hooks
-  'semanticdb-save-database-hook "23.2")
+(semantic-varalias-obsolete 'semanticdb-save-database-hooks
+			    'semanticdb-save-database-hook)
 
 (defvar semanticdb-dir-sep-char (if (boundp 'directory-sep-char)
 				    (symbol-value 'directory-sep-char)
diff -r a6a812dd2d88 -r c65d65798b34 lisp/cedet/semantic/db-mode.el
--- a/lisp/cedet/semantic/db-mode.el	Sat Sep 26 17:47:11 2009 +0000
+++ b/lisp/cedet/semantic/db-mode.el	Sat Sep 26 18:03:54 2009 +0000
@@ -48,15 +48,14 @@
          (custom-set-default sym val)))
 
 (defcustom semanticdb-mode-hook nil
-  "Normal hook run whenever `global-semanticdb-minor-mode' is run.
+  "Hook run whenever `global-semanticdb-minor-mode' is run.
 Use `semanticdb-minor-mode-p' to determine if the mode has been turned
 on or off."
   :group 'semanticdb
   :type 'hook)
 
-(define-obsolete-variable-alias
-  'semanticdb-mode-hooks
-  'semanticdb-mode-hook "23.2")
+(semantic-varalias-obsolete 'semanticdb-mode-hooks
+			    'semanticdb-mode-hook)
 
 ;;; Start/Stop database use
 ;;
diff -r a6a812dd2d88 -r c65d65798b34 lisp/cedet/semantic/decorate/mode.el
--- a/lisp/cedet/semantic/decorate/mode.el	Sat Sep 26 17:47:11 2009 +0000
+++ b/lisp/cedet/semantic/decorate/mode.el	Sat Sep 26 18:03:54 2009 +0000
@@ -195,11 +195,10 @@
 ;; that the next idle step will do the decoration change, but at the
 ;; time of the state change, minimal work would be done.
 (defvar semantic-decorate-pending-decoration-hook nil
-  "Functions to call with pending decoration changes.")
+  "Normal hook run to perform pending decoration changes.")
 
-(define-obsolete-variable-alias
-  'semantic-decorate-pending-decoration-hooks
-  'semantic-decorate-pending-decoration-hook "23.2")
+(semantic-varalias-obsolete 'semantic-decorate-pending-decoration-hooks
+			    'semantic-decorate-pending-decoration-hook)
 
 (defun semantic-decorate-add-pending-decoration (fcn &optional buffer)
   "Add a pending decoration change represented by FCN.
diff -r a6a812dd2d88 -r c65d65798b34 lisp/cedet/semantic/idle.el
--- a/lisp/cedet/semantic/idle.el	Sat Sep 26 17:47:11 2009 +0000
+++ b/lisp/cedet/semantic/idle.el	Sat Sep 26 18:03:54 2009 +0000
@@ -501,24 +501,19 @@
 ;;   :type 'boolean)
 
 (defvar semantic-before-idle-scheduler-reparse-hook nil
-  "Normal hook run before option `semantic-idle-scheduler' begins parsing.
+  "Hook run before option `semantic-idle-scheduler' begins parsing.
 If any hook function throws an error, this variable is reset to nil.
 This hook is not protected from lexical errors.")
 
-(define-obsolete-variable-alias
-  'semantic-before-idle-scheduler-reparse-hooks
-  'semantic-before-idle-scheduler-reparse-hook
-  "23.2")
-
 (defvar semantic-after-idle-scheduler-reparse-hook nil
-  "Normal hook run after option `semantic-idle-scheduler' has parsed.
+  "Hook run after option `semantic-idle-scheduler' has parsed.
 If any hook function throws an error, this variable is reset to nil.
 This hook is not protected from lexical errors.")
 
-(define-obsolete-variable-alias
-  'semantic-after-idle-scheduler-reparse-hooks
-  'semantic-after-idle-scheduler-reparse-hook
-  "23.2")
+(semantic-varalias-obsolete 'semantic-before-idle-scheduler-reparse-hooks
+			    'semantic-before-idle-scheduler-reparse-hook)
+(semantic-varalias-obsolete 'semantic-after-idle-scheduler-reparse-hooks
+			    'semantic-after-idle-scheduler-reparse-hook)
 
 (defun semantic-idle-scheduler-refresh-tags ()
   "Refreshes the current buffer's tags.