diff options
| author | Chong Yidong | 2009-09-05 23:36:11 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-09-05 23:36:11 +0000 |
| commit | a0690282d217d3ee9ba1f35278e6e07cc0c22ba7 (patch) | |
| tree | 3af86a0e6f3aad6c2bfd50b2e1b030f890493be8 | |
| parent | 8d3647c07305f634630036dac2438e39eb777e92 (diff) | |
| download | emacs-a0690282d217d3ee9ba1f35278e6e07cc0c22ba7.tar.gz emacs-a0690282d217d3ee9ba1f35278e6e07cc0c22ba7.zip | |
lisp/cedet/semantic/util-modes.el: Add local vars for autoloading.
(global-semantic-highlight-edits-mode, semantic-highlight-edits-mode)
(global-semantic-show-unmatched-syntax-mode)
(semantic-show-unmatched-syntax-mode)
(global-semantic-show-parser-state-mode)
(semantic-show-parser-state-mode, global-semantic-stickyfunc-mode)
(semantic-stickyfunc-mode, global-semantic-highlight-func-mode)
(semantic-highlight-func-mode): Autoload.
| -rw-r--r-- | lisp/cedet/semantic/util-modes.el | 27 |
1 files changed, 25 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/util-modes.el b/lisp/cedet/semantic/util-modes.el index 5b4ec6cb857..ef7ec6cc1a9 100644 --- a/lisp/cedet/semantic/util-modes.el +++ b/lisp/cedet/semantic/util-modes.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; util-modes.el --- Semantic minor modes | 1 | ;;; semantic/util-modes.el --- Semantic minor modes |
| 2 | 2 | ||
| 3 | ;;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009 | 3 | ;;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009 |
| 4 | ;;; Free Software Foundation, Inc. | 4 | ;;; Free Software Foundation, Inc. |
| @@ -204,6 +204,7 @@ function used to toggle the mode." | |||
| 204 | ;;;; Minor mode to highlight areas that a user edits. | 204 | ;;;; Minor mode to highlight areas that a user edits. |
| 205 | ;;;; | 205 | ;;;; |
| 206 | 206 | ||
| 207 | ;;;###autoload | ||
| 207 | (defun global-semantic-highlight-edits-mode (&optional arg) | 208 | (defun global-semantic-highlight-edits-mode (&optional arg) |
| 208 | "Toggle global use of option `semantic-highlight-edits-mode'. | 209 | "Toggle global use of option `semantic-highlight-edits-mode'. |
| 209 | If ARG is positive, enable, if it is negative, disable. | 210 | If ARG is positive, enable, if it is negative, disable. |
| @@ -213,6 +214,7 @@ If ARG is nil, then toggle." | |||
| 213 | (semantic-toggle-minor-mode-globally | 214 | (semantic-toggle-minor-mode-globally |
| 214 | 'semantic-highlight-edits-mode arg))) | 215 | 'semantic-highlight-edits-mode arg))) |
| 215 | 216 | ||
| 217 | ;;;###autoload | ||
| 216 | (defcustom global-semantic-highlight-edits-mode nil | 218 | (defcustom global-semantic-highlight-edits-mode nil |
| 217 | "*If non-nil enable global use of variable `semantic-highlight-edits-mode'. | 219 | "*If non-nil enable global use of variable `semantic-highlight-edits-mode'. |
| 218 | When this mode is enabled, changes made to a buffer are highlighted | 220 | When this mode is enabled, changes made to a buffer are highlighted |
| @@ -278,6 +280,7 @@ minor mode is enabled." | |||
| 278 | ) | 280 | ) |
| 279 | semantic-highlight-edits-mode) | 281 | semantic-highlight-edits-mode) |
| 280 | 282 | ||
| 283 | ;;;###autoload | ||
| 281 | (defun semantic-highlight-edits-mode (&optional arg) | 284 | (defun semantic-highlight-edits-mode (&optional arg) |
| 282 | "Minor mode for highlighting changes made in a buffer. | 285 | "Minor mode for highlighting changes made in a buffer. |
| 283 | Changes are tracked by semantic so that the incremental parser can work | 286 | Changes are tracked by semantic so that the incremental parser can work |
| @@ -313,6 +316,8 @@ minor mode is enabled." | |||
| 313 | ;;;; | 316 | ;;;; |
| 314 | ;;;; Minor mode to show unmatched-syntax elements | 317 | ;;;; Minor mode to show unmatched-syntax elements |
| 315 | ;;;; | 318 | ;;;; |
| 319 | |||
| 320 | ;;;###autoload | ||
| 316 | (defun global-semantic-show-unmatched-syntax-mode (&optional arg) | 321 | (defun global-semantic-show-unmatched-syntax-mode (&optional arg) |
| 317 | "Toggle global use of option `semantic-show-unmatched-syntax-mode'. | 322 | "Toggle global use of option `semantic-show-unmatched-syntax-mode'. |
| 318 | If ARG is positive, enable, if it is negative, disable. | 323 | If ARG is positive, enable, if it is negative, disable. |
| @@ -322,6 +327,7 @@ If ARG is nil, then toggle." | |||
| 322 | (semantic-toggle-minor-mode-globally | 327 | (semantic-toggle-minor-mode-globally |
| 323 | 'semantic-show-unmatched-syntax-mode arg))) | 328 | 'semantic-show-unmatched-syntax-mode arg))) |
| 324 | 329 | ||
| 330 | ;;;###autoload | ||
| 325 | (defcustom global-semantic-show-unmatched-syntax-mode nil | 331 | (defcustom global-semantic-show-unmatched-syntax-mode nil |
| 326 | "*If non-nil, enable global use of `semantic-show-unmatched-syntax-mode'. | 332 | "*If non-nil, enable global use of `semantic-show-unmatched-syntax-mode'. |
| 327 | When this mode is enabled, syntax in the current buffer which the | 333 | When this mode is enabled, syntax in the current buffer which the |
| @@ -479,6 +485,7 @@ minor mode is enabled." | |||
| 479 | (semantic-clean-unmatched-syntax-in-buffer)) | 485 | (semantic-clean-unmatched-syntax-in-buffer)) |
| 480 | semantic-show-unmatched-syntax-mode) | 486 | semantic-show-unmatched-syntax-mode) |
| 481 | 487 | ||
| 488 | ;;;###autoload | ||
| 482 | (defun semantic-show-unmatched-syntax-mode (&optional arg) | 489 | (defun semantic-show-unmatched-syntax-mode (&optional arg) |
| 483 | "Minor mode to highlight unmatched lexical syntax tokens. | 490 | "Minor mode to highlight unmatched lexical syntax tokens. |
| 484 | When a parser executes, some elements in the buffer may not match any | 491 | When a parser executes, some elements in the buffer may not match any |
| @@ -525,6 +532,7 @@ minor mode is enabled. | |||
| 525 | ;;;; Minor mode to display the parser state in the modeline. | 532 | ;;;; Minor mode to display the parser state in the modeline. |
| 526 | ;;;; | 533 | ;;;; |
| 527 | 534 | ||
| 535 | ;;;###autoload | ||
| 528 | (defcustom global-semantic-show-parser-state-mode nil | 536 | (defcustom global-semantic-show-parser-state-mode nil |
| 529 | "*If non-nil enable global use of `semantic-show-parser-state-mode'. | 537 | "*If non-nil enable global use of `semantic-show-parser-state-mode'. |
| 530 | When enabled, the current parse state of the current buffer is displayed | 538 | When enabled, the current parse state of the current buffer is displayed |
| @@ -537,6 +545,7 @@ on what is displayed." | |||
| 537 | :set (lambda (sym val) | 545 | :set (lambda (sym val) |
| 538 | (global-semantic-show-parser-state-mode (if val 1 -1)))) | 546 | (global-semantic-show-parser-state-mode (if val 1 -1)))) |
| 539 | 547 | ||
| 548 | ;;;###autoload | ||
| 540 | (defun global-semantic-show-parser-state-mode (&optional arg) | 549 | (defun global-semantic-show-parser-state-mode (&optional arg) |
| 541 | "Toggle global use of option `semantic-show-parser-state-mode'. | 550 | "Toggle global use of option `semantic-show-parser-state-mode'. |
| 542 | If ARG is positive, enable, if it is negative, disable. | 551 | If ARG is positive, enable, if it is negative, disable. |
| @@ -635,6 +644,7 @@ minor mode is enabled." | |||
| 635 | ) | 644 | ) |
| 636 | semantic-show-parser-state-mode) | 645 | semantic-show-parser-state-mode) |
| 637 | 646 | ||
| 647 | ;;;###autoload | ||
| 638 | (defun semantic-show-parser-state-mode (&optional arg) | 648 | (defun semantic-show-parser-state-mode (&optional arg) |
| 639 | "Minor mode for displaying parser cache state in the modeline. | 649 | "Minor mode for displaying parser cache state in the modeline. |
| 640 | The cache can be in one of three states. They are | 650 | The cache can be in one of three states. They are |
| @@ -713,6 +723,7 @@ to indicate a parse in progress." | |||
| 713 | ;;;; Minor mode to make function decls sticky. | 723 | ;;;; Minor mode to make function decls sticky. |
| 714 | ;;;; | 724 | ;;;; |
| 715 | 725 | ||
| 726 | ;;;###autoload | ||
| 716 | (defun global-semantic-stickyfunc-mode (&optional arg) | 727 | (defun global-semantic-stickyfunc-mode (&optional arg) |
| 717 | "Toggle global use of option `semantic-stickyfunc-mode'. | 728 | "Toggle global use of option `semantic-stickyfunc-mode'. |
| 718 | If ARG is positive, enable, if it is negative, disable. | 729 | If ARG is positive, enable, if it is negative, disable. |
| @@ -722,6 +733,7 @@ If ARG is nil, then toggle." | |||
| 722 | (semantic-toggle-minor-mode-globally | 733 | (semantic-toggle-minor-mode-globally |
| 723 | 'semantic-stickyfunc-mode arg))) | 734 | 'semantic-stickyfunc-mode arg))) |
| 724 | 735 | ||
| 736 | ;;;###autoload | ||
| 725 | (defcustom global-semantic-stickyfunc-mode nil | 737 | (defcustom global-semantic-stickyfunc-mode nil |
| 726 | "*If non-nil, enable global use of `semantic-stickyfunc-mode'. | 738 | "*If non-nil, enable global use of `semantic-stickyfunc-mode'. |
| 727 | This minor mode only works for Emacs 21 or later. | 739 | This minor mode only works for Emacs 21 or later. |
| @@ -906,6 +918,7 @@ text for that function in Emacs 21's header line." | |||
| 906 | (kill-local-variable 'semantic-stickyfunc-old-hlf)))) | 918 | (kill-local-variable 'semantic-stickyfunc-old-hlf)))) |
| 907 | semantic-stickyfunc-mode) | 919 | semantic-stickyfunc-mode) |
| 908 | 920 | ||
| 921 | ;;;###autoload | ||
| 909 | (defun semantic-stickyfunc-mode (&optional arg) | 922 | (defun semantic-stickyfunc-mode (&optional arg) |
| 910 | "Minor mode to show the title of a tag in the header line. | 923 | "Minor mode to show the title of a tag in the header line. |
| 911 | Enables/disables making the header line of functions sticky. | 924 | Enables/disables making the header line of functions sticky. |
| @@ -1024,6 +1037,8 @@ Argument EVENT describes the event that caused this function to be called." | |||
| 1024 | 1037 | ||
| 1025 | ;; Highlight the first like of the function we are in if it is different | 1038 | ;; Highlight the first like of the function we are in if it is different |
| 1026 | ;; from the the tag going off the top of the screen. | 1039 | ;; from the the tag going off the top of the screen. |
| 1040 | |||
| 1041 | ;;;###autoload | ||
| 1027 | (defun global-semantic-highlight-func-mode (&optional arg) | 1042 | (defun global-semantic-highlight-func-mode (&optional arg) |
| 1028 | "Toggle global use of option `semantic-highlight-func-mode'. | 1043 | "Toggle global use of option `semantic-highlight-func-mode'. |
| 1029 | If ARG is positive, enable, if it is negative, disable. | 1044 | If ARG is positive, enable, if it is negative, disable. |
| @@ -1033,6 +1048,7 @@ If ARG is nil, then toggle." | |||
| 1033 | (semantic-toggle-minor-mode-globally | 1048 | (semantic-toggle-minor-mode-globally |
| 1034 | 'semantic-highlight-func-mode arg))) | 1049 | 'semantic-highlight-func-mode arg))) |
| 1035 | 1050 | ||
| 1051 | ;;;###autoload | ||
| 1036 | (defcustom global-semantic-highlight-func-mode nil | 1052 | (defcustom global-semantic-highlight-func-mode nil |
| 1037 | "*If non-nil, enable global use of `semantic-highlight-func-mode'. | 1053 | "*If non-nil, enable global use of `semantic-highlight-func-mode'. |
| 1038 | When enabled, the first line of the current tag is highlighted." | 1054 | When enabled, the first line of the current tag is highlighted." |
| @@ -1144,6 +1160,7 @@ current tag declaration." | |||
| 1144 | ) | 1160 | ) |
| 1145 | semantic-highlight-func-mode) | 1161 | semantic-highlight-func-mode) |
| 1146 | 1162 | ||
| 1163 | ;;;###autoload | ||
| 1147 | (defun semantic-highlight-func-mode (&optional arg) | 1164 | (defun semantic-highlight-func-mode (&optional arg) |
| 1148 | "Minor mode to highlight the first line of the current tag. | 1165 | "Minor mode to highlight the first line of the current tag. |
| 1149 | Enables/disables making the header line of functions sticky. | 1166 | Enables/disables making the header line of functions sticky. |
| @@ -1225,4 +1242,10 @@ function was called, move the overlay." | |||
| 1225 | 1242 | ||
| 1226 | (provide 'semantic/util-modes) | 1243 | (provide 'semantic/util-modes) |
| 1227 | 1244 | ||
| 1228 | ;;; semantic-util-modes.el ends here | 1245 | ;; Local variables: |
| 1246 | ;; generated-autoload-file: "loaddefs.el" | ||
| 1247 | ;; generated-autoload-feature: semantic/loaddefs | ||
| 1248 | ;; generated-autoload-load-name: "semantic/util-modes" | ||
| 1249 | ;; End: | ||
| 1250 | |||
| 1251 | ;;; semantic/util-modes.el ends here | ||