summaryrefslogtreecommitdiff
path: root/lisp/cedet/semantic/util-modes.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2009-09-26 17:47:11 +0000
committerChong Yidong <cyd@stupidchicken.com>2009-09-26 17:47:11 +0000
commit29e1a603c0d7fa1e4e2c116cbaab90d0401f898b (patch)
treeac94b65e2de818951c17cd1cb77d03e32418f158 /lisp/cedet/semantic/util-modes.el
parent17e1f4bc65ff059a6f05068dc2d64d7130719fd7 (diff)
downloademacs-29e1a603c0d7fa1e4e2c116cbaab90d0401f898b.tar.gz
* cedet/semantic/lex.el (semantic-lex-reset-hooks): Doc fix.
* cedet/semantic/idle.el (semantic-before-idle-scheduler-reparse-hook) (semantic-after-idle-scheduler-reparse-hook): Rename from *-hooks. Make old name an obsolete alias. * cedet/semantic/edit.el (semantic-after-partial-cache-change-hook) (semantic-change-hooks, semantic-edits-new-change-hooks) (semantic-edits-delete-change-hooks) (semantic-edits-move-change-hook) (semantic-edits-reparse-change-hooks) (semantic-edits-incremental-reparse-failed-hooks): Doc fixes. * cedet/semantic/debug.el (semantic-debug-mode): Rename hook symbols. * cedet/semantic/db-mode.el (semanticdb-mode-hook): Rename from semanticdb-mode-hooks. (global-semanticdb-minor-mode): Use the new name. (semanticdb-hooks): Use semantic-init-db-hook instead of obsolete alias semantic-init-db-hooks. * cedet/semantic/db-global.el (semanticdb-enable-gnu-global-databases): Use semantic-init-hook instead of obsolete alias semantic-init-hooks. * cedet/semantic/db-file.el (semanticdb-save-database-hook): Rename from semanticdb-save-database-hooks. Make old name an obsolete alias. * cedet/semantic/decorate/mode.el (semantic-decorate-pending-decoration-hook): Rename from semantic-decorate-pending-decoration-hooks. Make old name an obsolete alias. * cedet/srecode/map.el (srecode-map-validate-file-for-mode): Use semantic-init-hook instead of obsolete alias semantic-init-hooks. * cedet/semantic/fw.el (semantic-find-file-noselect): Use semantic-init-hook instead of obsolete alias semantic-init-hooks. * cedet/ede/project-am.el (project-am-with-makefile-current): Use semantic-init-hook instead of obsolete alias semantic-init-hooks. * cedet/semantic/util.el (semantic-describe-buffer): Use semantic-init-hook and semantic-init-db-hook instead of obsolete aliases. * cedet/semantic/util-modes.el (semantic-mode-line-update) (semantic-toggle-minor-mode-globally): Use semantic-init-hook instead of obsolete alias semantic-init-hooks. Synch to Eric M. Ludlam's upstream CEDET repository: * cedet/semantic/bovine/c.el (semantic-c-parse-token-hack-depth): New var. (semantic-c-parse-lexical-token): Save match data when setting up the secondary parse buffer. Allow recursion. Protect against initializing the major mode from throwing errors, ie user hooks. * cedet/semantic/lex-spp.el (semantic-lex-spp-lex-text-string): Protect installing a major mode from throwing errors.
Diffstat (limited to 'lisp/cedet/semantic/util-modes.el')
-rw-r--r--lisp/cedet/semantic/util-modes.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/cedet/semantic/util-modes.el b/lisp/cedet/semantic/util-modes.el
index 4df7e68d338..b0d08210c29 100644
--- a/lisp/cedet/semantic/util-modes.el
+++ b/lisp/cedet/semantic/util-modes.el
@@ -97,7 +97,7 @@ Only minor modes that are locally enabled are shown in the mode line."
ml (cdr ml))
(when (and (symbol-value mm)
;; Only show local minor mode status
- (not (memq mm semantic-init-hooks)))
+ (not (memq mm semantic-init-hook)))
(and ms
(symbolp ms)
(setq ms (symbol-value ms)))
@@ -178,26 +178,26 @@ function used to toggle the mode."
(or (and (fboundp mode) (assq mode minor-mode-alist))
(error "Semantic minor mode %s not found" mode))
(if (not arg)
- (if (memq mode semantic-init-hooks)
+ (if (memq mode semantic-init-hook)
(setq arg -1)
(setq arg 1)))
;; Add or remove the MODE toggle function from
- ;; `semantic-init-hooks'. Then turn MODE on or off in every
+ ;; `semantic-init-hook'. Then turn MODE on or off in every
;; Semantic enabled buffer.
(cond
;; Turn off if ARG < 0
((< arg 0)
- (remove-hook 'semantic-init-hooks mode)
+ (remove-hook 'semantic-init-hook mode)
(semantic-map-buffers #'(lambda () (funcall mode -1)))
nil)
;; Turn on if ARG > 0
((> arg 0)
- (add-hook 'semantic-init-hooks mode)
+ (add-hook 'semantic-init-hook mode)
(semantic-map-buffers #'(lambda () (funcall mode 1)))
t)
;; Otherwise just check MODE state
(t
- (memq mode semantic-init-hooks))
+ (memq mode semantic-init-hook))
))
;;;;