# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1253989817 0
# Node ID beb4db733a345402c44a9a857bdc8ac37d6f403c
# Parent  cd549f5a486ba9f103245f5a02ec3b5f84545fac
* cedet/semantic/edit.el
(semantic-edits-incremental-reparse-failed-hook): Rename from
semantic-edits-incremental-reparse-failed-hooks.
(semantic-edits-incremental-fail): Use new var name.

* cedet/semantic/util-modes.el
(semantic-show-parser-state-mode-setup): Use new hook names.

diff -r cd549f5a486b -r beb4db733a34 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Sep 26 18:23:56 2009 +0000
+++ b/lisp/ChangeLog	Sat Sep 26 18:30:17 2009 +0000
@@ -13,6 +13,9 @@
 	(semantic-edits-move-change-hook)
 	(semantic-edits-reparse-change-hooks)
 	(semantic-edits-incremental-reparse-failed-hooks): Doc fixes.
+	(semantic-edits-incremental-reparse-failed-hook): Rename from
+	semantic-edits-incremental-reparse-failed-hooks.
+	(semantic-edits-incremental-fail): Use new var name.
 
 	* cedet/semantic/debug.el (semantic-debug-mode): Rename hook
 	symbols.
diff -r cd549f5a486b -r beb4db733a34 lisp/cedet/semantic/edit.el
--- a/lisp/cedet/semantic/edit.el	Sat Sep 26 18:23:56 2009 +0000
+++ b/lisp/cedet/semantic/edit.el	Sat Sep 26 18:30:17 2009 +0000
@@ -111,10 +111,13 @@
 Functions are called before the overlay is deleted, and after the
 incremental reparse.")
 
-(defvar semantic-edits-incremental-reparse-failed-hooks nil
-  "Abnormal hook run after the incremental parser fails.
+(defvar semantic-edits-incremental-reparse-failed-hook nil
+  "Hook run after the incremental parser fails.
 When this happens, the buffer is marked as needing a full reprase.")
 
+(semantic-varalias-obsolete 'semantic-edits-incremental-reparse-failed-hooks
+			    'semantic-edits-incremental-reparse-failed-hook)
+
 (defcustom semantic-edits-verbose-flag nil
   "Non-nil means the incremental perser is verbose.
 If nil, errors are still displayed, but informative messages are not."
@@ -467,7 +470,7 @@
   (when semantic-edits-verbose-flag
     (message "Force full reparse (%s)"
 	     (buffer-name (current-buffer))))
-  (run-hooks 'semantic-edits-incremental-reparse-failed-hooks))
+  (run-hooks 'semantic-edits-incremental-reparse-failed-hook))
 
 (defun semantic-edits-incremental-parser ()
   "Incrementally reparse the current buffer.
diff -r cd549f5a486b -r beb4db733a34 lisp/cedet/semantic/util-modes.el
--- a/lisp/cedet/semantic/util-modes.el	Sat Sep 26 18:23:56 2009 +0000
+++ b/lisp/cedet/semantic/util-modes.el	Sat Sep 26 18:30:17 2009 +0000
@@ -594,8 +594,8 @@
         (semantic-make-local-hook 'semantic-edits-new-change-hooks)
         (add-hook 'semantic-edits-new-change-hooks
                   'semantic-show-parser-state-marker nil t)
-	(semantic-make-local-hook 'semantic-edits-incremental-reparse-failed-hooks)
-	(add-hook 'semantic-edits-incremental-reparse-failed-hooks
+	(semantic-make-local-hook 'semantic-edits-incremental-reparse-failed-hook)
+	(add-hook 'semantic-edits-incremental-reparse-failed-hook
 		  'semantic-show-parser-state-marker nil t)
 	(semantic-make-local-hook 'semantic-after-partial-cache-change-hook)
 	(add-hook 'semantic-after-partial-cache-change-hook
@@ -625,7 +625,7 @@
     ;; Remove hooks
     (remove-hook 'semantic-edits-new-change-hooks
 		 'semantic-show-parser-state-marker t)
-    (remove-hook 'semantic-edits-incremental-reparse-failed-hooks
+    (remove-hook 'semantic-edits-incremental-reparse-failed-hook
 		 'semantic-show-parser-state-marker t)
     (remove-hook 'semantic-after-partial-cache-change-hook
 		 'semantic-show-parser-state-marker t)