Mercurial > emacs
changeset 104517:beb4db733a34
* 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.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 26 Sep 2009 18:30:17 +0000 |
| parents | cd549f5a486b |
| children | 78d37f6e576f |
| files | lisp/ChangeLog lisp/cedet/semantic/edit.el lisp/cedet/semantic/util-modes.el |
| diffstat | 3 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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.
--- 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)