mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

* cedet/cedet.el (cedet-menu-map): Re-order menu items.

Browse Source 
* cedet/semantic.el: Enable idle-mode menu items only if
global-semantic-idle-scheduler-mode is enabled.
(semantic-default-submodes): Doc fix.

* cedet/semantic/idle.el (global-semantic-idle-scheduler-mode):
When turning off, disable other idle modes.
This commit is contained in:
Chong Yidong 2009-11-20 01:35:49 +00:00
parent b58edcb60f
commit 725bff063e
4 changed files with 35 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -1,3 +1,14 @@
2009-11-20 Chong Yidong <cyd@stupidchicken.com>
* cedet/cedet.el (cedet-menu-map): Re-order menu items.
* cedet/semantic.el: Enable idle-mode menu items only if
global-semantic-idle-scheduler-mode is enabled.
(semantic-default-submodes): Doc fix.
* cedet/semantic/idle.el (global-semantic-idle-scheduler-mode):
When turning off, disable other idle modes.
2009-11-20 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc.el (calc-set-mode-line): Rename

2
lisp/cedet/cedet.el
View File

@ -61,8 +61,8 @@
(define-key map [global-semantic-decoration-mode] 'undefined)
(define-key map [global-semantic-idle-completions-mode] 'undefined)
(define-key map [global-semantic-idle-summary-mode] 'undefined)
(define-key map [global-semanticdb-minor-mode] 'undefined)
(define-key map [global-semantic-idle-scheduler-mode] 'undefined)
(define-key map [global-semanticdb-minor-mode] 'undefined)
(define-key map [cedet-menu-separator] 'undefined)
(define-key map [ede-find-file] 'undefined)
(define-key map [ede-speedbar] 'undefined)

31
lisp/cedet/semantic.el
View File

@ -987,22 +987,24 @@ Throw away all the old tags, and recreate the tag database."
'(menu-item "Show Tag Completions" global-semantic-idle-completions-mode
:help "Show tag completions when idle"
:visible semantic-mode
:enable global-semantic-idle-scheduler-mode
:button (:toggle . global-semantic-idle-completions-mode)))
(define-key cedet-menu-map [global-semantic-idle-summary-mode]
'(menu-item "Show Tag Summaries" global-semantic-idle-summary-mode
:help "Show tag summaries when idle"
:visible semantic-mode
:enable global-semantic-idle-scheduler-mode
:button (:toggle . global-semantic-idle-summary-mode)))
(define-key cedet-menu-map [global-semanticdb-minor-mode]
'(menu-item "Semantic Database" global-semanticdb-minor-mode
:help "Store tag information in a database"
:visible semantic-mode
:button (:toggle . global-semanticdb-minor-mode)))
(define-key cedet-menu-map [global-semantic-idle-scheduler-mode]
'(menu-item "Reparse When Idle" global-semantic-idle-scheduler-mode
:help "Keep a buffer's parse tree up to date when idle"
:visible semantic-mode
:button (:toggle . global-semantic-idle-scheduler-mode))))
:button (:toggle . global-semantic-idle-scheduler-mode)))
(define-key cedet-menu-map [global-semanticdb-minor-mode]
'(menu-item "Semantic Database" global-semanticdb-minor-mode
:help "Store tag information in a database"
:visible semantic-mode
:button (:toggle . global-semanticdb-minor-mode))))
;; The `semantic-mode' command, in conjuction with the
;; `semantic-default-submodes' variable, toggles Semantic's various
@ -1029,15 +1031,14 @@ Prevent this load system from loading files in twice.")
"List of auxiliary Semantic minor modes enabled by `semantic-mode'.
The possible elements of this list include the following:
`semantic-highlight-func-mode' - Highlight the current tag.
`semantic-decoration-mode' - Decorate tags based on various attributes.
`semantic-stickyfunc-mode' - Track current function in the header-line.
`semantic-idle-completions-mode' - Provide smart symbol completion
automatically when idle.
`semantic-idle-scheduler-mode' - Keep a buffer's parse tree up to date.
`semanticdb-minor-mode' - Store tags when a buffer is not in memory.
`semantic-idle-summary-mode' - Show a summary for the code at point.
`semantic-mru-bookmark-mode' - Provide `switch-to-buffer'-like
`global-semanticdb-minor-mode' - Maintain tag database.
`global-semantic-idle-scheduler-mode' - Reparse buffer when idle.
`global-semantic-idle-summary-mode' - Show summary of tag at point.
`global-semantic-idle-completions-mode' - Show completions when idle.
`global-semantic-decoration-mode' - Additional tag decorations.
`global-semantic-highlight-func-mode' - Highlight the current tag.
`global-semantic-stickyfunc-mode' - Show current fun in header line.
`global-semantic-mru-bookmark-mode' - Provide `switch-to-buffer'-like
keybinding for tag names."
:group 'semantic
:type `(set ,@(mapcar (lambda (c) (list 'const c))

8
lisp/cedet/semantic/idle.el
View File

@ -147,12 +147,18 @@ and then schedule other jobs setup with `semantic-idle-scheduler-add'.
If ARG is positive, enable, if it is negative, disable.
If ARG is nil, then toggle."
(interactive "P")
;; When turning off, disable other idle modes.
(when (or (and (numberp arg) (< arg 0))
(and (null arg) global-semantic-idle-scheduler-mode))
(global-semantic-idle-summary-mode -1)
(global-semantic-idle-tag-highlight-mode -1)
(global-semantic-idle-completions-mode -1))
(setq global-semantic-idle-scheduler-mode
(semantic-toggle-minor-mode-globally
'semantic-idle-scheduler-mode arg)))
(defcustom semantic-idle-scheduler-mode-hook nil
"Hook run at the end of function `semantic-idle-scheduler-mode'."
"Hook run at the end of the function `semantic-idle-scheduler-mode'."
:group 'semantic
:type 'hook)