aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2009-09-05 23:36:11 +0000
committerChong Yidong2009-09-05 23:36:11 +0000
commita0690282d217d3ee9ba1f35278e6e07cc0c22ba7 (patch)
tree3af86a0e6f3aad6c2bfd50b2e1b030f890493be8
parent8d3647c07305f634630036dac2438e39eb777e92 (diff)
downloademacs-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.el27
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'.
209If ARG is positive, enable, if it is negative, disable. 210If 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'.
218When this mode is enabled, changes made to a buffer are highlighted 220When 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.
283Changes are tracked by semantic so that the incremental parser can work 286Changes 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'.
318If ARG is positive, enable, if it is negative, disable. 323If 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'.
327When this mode is enabled, syntax in the current buffer which the 333When 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.
484When a parser executes, some elements in the buffer may not match any 491When 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'.
530When enabled, the current parse state of the current buffer is displayed 538When 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'.
542If ARG is positive, enable, if it is negative, disable. 551If 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.
640The cache can be in one of three states. They are 650The 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'.
718If ARG is positive, enable, if it is negative, disable. 729If 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'.
727This minor mode only works for Emacs 21 or later. 739This 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.
911Enables/disables making the header line of functions sticky. 924Enables/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'.
1029If ARG is positive, enable, if it is negative, disable. 1044If 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'.
1038When enabled, the first line of the current tag is highlighted." 1054When 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.
1149Enables/disables making the header line of functions sticky. 1166Enables/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