;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\306\301\315\316\317\320\321\322\323\324&
\210\307\325\311\312\326DD\327\306\301\315\330\317\320\321\322&\207" [require semantic custom-declare-group semantic-modes nil "Minor modes associated with the Semantic architecture." :group custom-declare-variable semantic-update-mode-line funcall function #[0 "\300\207" [t] 1 #1=""] "If non-nil, show enabled minor modes in the mode line.\nOnly minor modes that are not turned on globally are shown in the mode\nline." :type boolean :require semantic/util-modes :initialize custom-initialize-default :set #[514 "\300\"\210\301 \207" [set-default semantic-mode-line-update] 5 "\n\n(fn SYM VAL)"] semantic-mode-line-prefix #[0 "\300\301\302\303#\207" [propertize "S" face bold] 4 #1#] "Prefix added to minor mode indicators in the mode line." string] 14)
#@108 Mode line format showing Semantic minor modes which are locally enabled.
It is displayed in the mode line.
(defvar semantic-minor-modes-format nil (#$ . 966))
(put 'semantic-minor-modes-format 'risky-local-variable t)
#@99 Alist saying how to show Semantic minor modes in the mode line.
Like variable `minor-mode-alist'.
(defvar semantic-minor-mode-alist nil (#$ . 1190))
#@120 Update mode line format of Semantic minor modes.
Only minor modes that are locally enabled are shown in the mode line.
(defalias 'semantic-mode-line-update #[0 "\306	\211\203\211@\307
@\n\236\n\"
A\266\202\202\210\205\215\306	\211\203K\211@\211@\f>\204D\310\311A@\"\203D\211@\312\313\314A@\"PDB\262
A\266\202\202\210\211\205\213\310\311
\"\203^\313\314
\"\202_\315\316\317\320\321\322\"B\323PEDC\300\n\236\206v\324\211\n>\206\201\211\nB\211\211A\244\241\266\202\262
\262
\207" [semantic-minor-modes-format semantic-minor-mode-alist minor-mode-alist semantic-update-mode-line semantic-init-hook semantic-mode-line-prefix nil delq string-match "^[ ]*\\(.+\\)" "/" match-string 1 "S" :eval if or mapcar car " " (semantic-minor-modes-format semantic-minor-modes-format)] 8 (#$ . 1346)])
#@135 Installed as a minor-mode initializer for Desktop mode.
BUFFER is the buffer to not initialize a Semantic minor mode in.

(fn BUFFER)
(defalias 'semantic-desktop-ignore-this-minor-mode #[257 "\300\207" [nil] 2 (#$ . 2165)])
#@426 Register a new Semantic minor mode.
TOGGLE is a symbol which is the name of a buffer-local variable that
is toggled on or off to say whether the minor mode is active or not.
It is also an interactive function to toggle the mode.

NAME specifies what will appear in the mode line when the minor mode
is active.  NAME should be either a string starting with a space, or a
symbol whose value is such a string.

(fn TOGGLE NAME)
(defalias 'semantic-add-minor-mode #[514 "
\236\211\203\211C\241\266\202DB\210\301 \210\302\303!\205&\304\303\305B\"\207" [semantic-minor-mode-alist semantic-mode-line-update boundp desktop-minor-mode-handlers add-to-list semantic-desktop-ignore-this-minor-mode] 6 (#$ . 2396)])
#@336 Toggle minor mode MODE in every Semantic enabled buffer.
Return non-nil if MODE is turned on in every Semantic enabled buffer.
If ARG is positive, enable, if it is negative, disable.
MODE must be a valid minor mode defined in `minor-mode-alist' and must be
too an interactive function used to toggle the mode.

(fn MODE &optional ARG)
(defalias 'semantic-toggle-minor-mode-globally #[513 "\302!\203
\236\204
	\236\204\303\304\"\210\211\305W\203%\306\307\"\210\2027\211\305V\2033\310\307\"\210\2027\303\311!\210\312 \210\313\314#\315
\316\"\207" [minor-mode-alist semantic-minor-mode-alist fboundp error "Semantic minor mode %s not found" 0 remove-hook semantic-init-hook add-hook "semantic-toggle-minor-mode-globally: arg should be -1 or 1" semantic-mode-line-update make-closure #[0 "\300\301!\207" [V0 V1] 2] mode-local-map-file-buffers semantic-active-p] 6 (#$ . 3120)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\314\316&
\207" [custom-declare-variable global-semantic-highlight-edits-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Semantic-Highlight-Edits mode is enabled.\nSee the `global-semantic-highlight-edits-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semantic-highlight-edits-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group semantic semantic-modes] 14)
#@678 Toggle global use of option `semantic-highlight-edits-mode'.

This is a minor mode.  If called interactively, toggle the `Global
Semantic-Highlight-Edits mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='global-semantic-highlight-edits-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'global-semantic-highlight-edits-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B\313\314	\203B\306\202C\315\"\210\316\317\305\301!\203Q\320\202R\321\"\210\322\323!\203z\324\301!\210\302 \203j\211\302 \232\203z\325\326\305\301!\203v\327\202w\330\331#\210\210\332 \210\305\301!\207" [global-minor-modes global-semantic-highlight-edits-mode current-message set-default toggle default-value 1 nil t boundp delq semantic-toggle-minor-mode-globally semantic-highlight-edits-mode -1 run-hooks global-semantic-highlight-edits-mode-hook global-semantic-highlight-edits-mode-on-hook global-semantic-highlight-edits-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Semantic-Highlight-Edits mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 4660) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-semantic-highlight-edits-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\306&\210\325\326\327\330\322\331%\207" [global-semantic-highlight-edits-mode-map global-semantic-highlight-edits-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-highlight-edits-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-semantic-highlight-edits-mode boundp custom-declare-variable semantic-highlight-edits-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run at the end of function `semantic-highlight-edits-mode'." :group semantic :type custom-declare-face semantic-highlight-edits-face ((((class color) (background dark)) (:background "gray20")) (((class color) (background light)) (:background "gray90"))) "Face used to show dirty tokens in `semantic-highlight-edits-mode'." semantic-faces] 8)
#@185 Function set into `semantic-edits-new-change-hook'.
Argument OVERLAY is the overlay created to mark the change.
This function will set the face property on this overlay.

(fn OVERLAY)
(defalias 'semantic-highlight-edits-new-change-hook-fcn #[257 "\300
\301\302#\207" [overlay-put face semantic-highlight-edits-face] 5 (#$ . 7463)])
#@40 Keymap for highlight-edits minor mode.
(defvar semantic-highlight-edits-mode-map (make-sparse-keymap) (#$ . 7801))
#@127 Non-nil if Semantic-Highlight-Edits mode is enabled.
Use the command `semantic-highlight-edits-mode' to change this
variable.
(defvar semantic-highlight-edits-mode nil (#$ . 7923))
(make-variable-buffer-local 'semantic-highlight-edits-mode)
#@1010 Minor mode for highlighting changes made in a buffer.
Changes are tracked by semantic so that the incremental parser can work
properly.
This mode will highlight those changes as they are made, and clear them
when the incremental parser accounts for those edits.

This is a minor mode.  If called interactively, toggle the
`Semantic-Highlight-Edits mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `semantic-highlight-edits-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

The minor mode can be turned on only if semantic feature is
available and the current buffer was set up for parsing.  Return
non-nil if the minor mode is enabled.

(fn &optional ARG)
(defalias 'semantic-highlight-edits-mode #[256 "\303 
\304=\203
?\202
\247\203
\305W\203\306\202\307\310\301!\2031\311\300	\"\2031\300	B\203T\312\313!\203?\n\204J\306\314\315\316 \"\210\202Z\317\320\321\306\307$\210\202Z\322\320\321\307#\210\323\324\203d\325\202e\326\"\210\327\330!\203\207\303 \203y\211\303 \232\203\207\331\332\203\203\333\202\204\334\335#\210\210\336 \210\207" [semantic-highlight-edits-mode local-minor-modes semantic-new-buffer-fcn-was-run current-message toggle 1 nil t boundp delq featurep semantic error "Buffer %s was not set up for parsing" buffer-name add-hook semantic-edits-new-change-functions semantic-highlight-edits-new-change-hook-fcn remove-hook run-hooks semantic-highlight-edits-mode-hook semantic-highlight-edits-mode-on-hook semantic-highlight-edits-mode-off-hook called-interactively-p any message "Semantic-Highlight-Edits mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 8172) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar semantic-highlight-edits-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\310\211%\210\313\312\314\"\210\315\316\317\320\321DD\322\323\324\325\326\327\330\331\332\331\333&
\207" [semantic-highlight-edits-mode-map semantic-highlight-edits-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-highlight-edits-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode semantic-highlight-edits-mode semantic-add-minor-mode "e" custom-declare-variable global-semantic-show-unmatched-syntax-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Semantic-Show-Unmatched-Syntax mode is enabled.\nSee the `global-semantic-show-unmatched-syntax-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semantic-show-unmatched-syntax-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group semantic semantic-modes] 14)
#@696 Toggle global use of option `semantic-show-unmatched-syntax-mode'.

This is a minor mode.  If called interactively, toggle the `Global
Semantic-Show-Unmatched-Syntax mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value
\='global-semantic-show-unmatched-syntax-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'global-semantic-show-unmatched-syntax-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B\313\314	\203B\306\202C\315\"\210\316\317\305\301!\203Q\320\202R\321\"\210\322\323!\203z\324\301!\210\302 \203j\211\302 \232\203z\325\326\305\301!\203v\327\202w\330\331#\210\210\332 \210\305\301!\207" [global-minor-modes global-semantic-show-unmatched-syntax-mode current-message set-default toggle default-value 1 nil t boundp delq semantic-toggle-minor-mode-globally semantic-show-unmatched-syntax-mode -1 run-hooks global-semantic-show-unmatched-syntax-mode-hook global-semantic-show-unmatched-syntax-mode-on-hook global-semantic-show-unmatched-syntax-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Semantic-Show-Unmatched-Syntax mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 11509) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-semantic-show-unmatched-syntax-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\306&\210\325\326\327\330\322\331%\207" [global-semantic-show-unmatched-syntax-mode-map global-semantic-show-unmatched-syntax-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-show-unmatched-syntax-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-semantic-show-unmatched-syntax-mode boundp custom-declare-variable semantic-show-unmatched-syntax-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run at the end of function `semantic-show-unmatched-syntax-mode'." :group semantic :type custom-declare-face semantic-unmatched-syntax-face ((((class color) (background dark)) (:underline "red")) (((class color) (background light)) (:underline "red"))) "Face used to show unmatched syntax in.\nThe face is used in `semantic-show-unmatched-syntax-mode'." semantic-faces] 8)
#@69 Return non-nil if OVERLAY is an unmatched syntax one.

(fn OVERLAY)
(defalias 'semantic-unmatched-syntax-overlay-p #[257 "\300
\301\"\302=\207" [overlay-get semantic unmatched] 4 (#$ . 14439)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-unmatched-syntax-overlay-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@68 Return non-nil if an unmatched syntax overlay was found in buffer.
(defalias 'semantic-showing-unmatched-syntax-p #[0 "\300ed\"\301
\203 \211\204 
@\302
\303\"\304=\262
\262

A\262\202\207" [overlays-in nil overlay-get semantic unmatched] 6 (#$ . 14800)])
#@157 Fetch a list of unmatched lexical tokens from the current buffer.
Uses the overlays which have accurate bounds, and rebuilds what was
originally passed in.
(defalias 'semantic-show-unmatched-lex-tokens-fetch #[0 "\300ed\"\301
\203,
@\302
\303\"\304=\262
\203%\305\306@!\307@!BB
B\262

A\262\202\211\237\207" [overlays-in nil overlay-get semantic unmatched thing overlay-start overlay-end] 6 (#$ . 15068)])
#@73 Remove all unmatched syntax overlays between BEG and END.

(fn BEG END)
(defalias 'semantic-clean-unmatched-syntax-in-region #[514 "\300\"\211\205!\211@\301
\302\"\303=\262
\203\304
@!\210\211A\262
\202\207" [overlays-in overlay-get semantic unmatched delete-overlay] 7 (#$ . 15487)])
#@63 Remove all unmatched syntax overlays found in current buffer.
(defalias 'semantic-clean-unmatched-syntax-in-buffer #[0 "\300ed\"\207" [semantic-clean-unmatched-syntax-in-region] 3 (#$ . 15785)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-clean-unmatched-syntax-in-buffer speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@74 Clean the area covered by TOKEN of unmatched syntax markers.

(fn TOKEN)
(defalias 'semantic-clean-token-of-unmatched-syntax #[257 "\300
\211\301
8\262
\302
!\203\303
!\266\202\202\211\304H\266\202\211\301
8\262
\302
!\2030\305
!\266\202\2025\211\306H\266\202\"\207" [semantic-clean-unmatched-syntax-in-region 4 overlayp overlay-start 0 overlay-end 1] 7 (#$ . 16153)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-clean-token-of-unmatched-syntax speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@126 Function set into `semantic-unmatched-syntax-hook'.
This will highlight elements in SYNTAX as unmatched syntax.

(fn SYNTAX)
(defalias 'semantic-show-unmatched-syntax #[257 "\300ed\"\210\211\205Y\301
\205W\302@\211\211A@\247\204!\211AA\262
\202%\211A\262
@\262
@\211\211A@\247\204:\211AA\262
\202>\211A\262
A\262
\"\262
\303
\304\305#\210\303
\306\307#\210
A\262\202\n\262
\207" [semantic-clean-unmatched-syntax-in-region nil make-overlay overlay-put semantic unmatched face semantic-unmatched-syntax-face] 7 (#$ . 16702)])
#@122 Find the next overlay for unmatched syntax after POINT.
Do not search past BOUND if non-nil.

(fn POINT &optional BOUND)
(defalias 'semantic-next-unmatched-syntax #[513 "\212
b\210
\300
\203L
\206dW\203L\211\204L\301!\262
\203\302!\262
\211\203\211<\203\211@\303
\304\"\305=\262
\203@\211@\262
\211<\203&\211A\262
\202&\262
)\207" [nil next-overlay-change overlays-at overlay-get semantic unmatched] 8 (#$ . 17243)])
#@59 Keymap for command `semantic-show-unmatched-syntax-mode'.
(defvar semantic-show-unmatched-syntax-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key ",`" semantic-show-unmatched-syntax-next] 5) (#$ . 17684))
#@139 Non-nil if Semantic-Show-Unmatched-Syntax mode is enabled.
Use the command `semantic-show-unmatched-syntax-mode' to change this
variable.
(defvar semantic-show-unmatched-syntax-mode nil (#$ . 17929))
(make-variable-buffer-local 'semantic-show-unmatched-syntax-mode)
#@1100 Minor mode to highlight unmatched lexical syntax tokens.
When a parser executes, some elements in the buffer may not match any
parser rules.  These text characters are considered unmatched syntax.
Often time, the display of unmatched syntax can expose coding
problems before the compiler is run.

This is a minor mode.  If called interactively, toggle the
`Semantic-Show-Unmatched-Syntax mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `semantic-show-unmatched-syntax-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

The minor mode can be turned on only if semantic feature is
available and the current buffer was set up for parsing.  Return
non-nil if the minor mode is enabled.

\{semantic-show-unmatched-syntax-mode-map}

(fn &optional ARG)
(defalias 'semantic-show-unmatched-syntax-mode #[256 "\305 
\306=\203
?\202
\247\203
\307W\203\310\202\311\312\301!\2031\313\300	\"\2031\300	B\203h\314\315!\203?\n\204J\310\316\317\320 \"\210\202y\321\322\323\310\311$\210\321\324\325\310\311$\210\204y\f\204y\323\326 !\210\202y\327\322\323\311#\210\327\324\325\311#\210\330ed\"\210\331\332\203\203\333\202\204\334\"\210\335\336!\203\246\305 \203\230\211\305 \232\203\246\337\340\203\242\341\202\243\342\343#\210\210\344 \210\207" [semantic-show-unmatched-syntax-mode local-minor-modes semantic-new-buffer-fcn-was-run semantic-unmatched-syntax-cache-check semantic-parse-tree-state current-message toggle 1 nil t boundp delq featurep semantic error "Buffer %s was not set up for parsing" buffer-name add-hook semantic-unmatched-syntax-hook semantic-show-unmatched-syntax semantic-pre-clean-token-hooks semantic-clean-token-of-unmatched-syntax semantic-unmatched-syntax-tokens remove-hook semantic-clean-unmatched-syntax-in-region run-hooks semantic-show-unmatched-syntax-mode-hook semantic-show-unmatched-syntax-mode-on-hook semantic-show-unmatched-syntax-mode-off-hook called-interactively-p any message "Semantic-Show-Unmatched-Syntax mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 18203) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar semantic-show-unmatched-syntax-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\310\211%\210\313\312\314\"\207" [semantic-show-unmatched-syntax-mode-map semantic-show-unmatched-syntax-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-show-unmatched-syntax-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode semantic-show-unmatched-syntax-mode semantic-add-minor-mode "u"] 6)
#@58 Move forward to the next occurrence of unmatched syntax.
(defalias 'semantic-show-unmatched-syntax-next #[0 "\300`!\211\205\301
!b\207" [semantic-next-unmatched-syntax overlay-start] 3 (#$ . 21337) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable global-semantic-show-parser-state-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Semantic-Show-Parser-State mode is enabled.\nSee the `global-semantic-show-parser-state-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semantic-show-parser-state-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group semantic] 12)
#@684 Toggle global use of option `semantic-show-parser-state-mode'.

This is a minor mode.  If called interactively, toggle the `Global
Semantic-Show-Parser-State mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='global-semantic-show-parser-state-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'global-semantic-show-parser-state-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B\313\314	\203B\306\202C\315\"\210\316\317\305\301!\203Q\320\202R\321\"\210\322\323!\203z\324\301!\210\302 \203j\211\302 \232\203z\325\326\305\301!\203v\327\202w\330\331#\210\210\332 \210\305\301!\207" [global-minor-modes global-semantic-show-parser-state-mode current-message set-default toggle default-value 1 nil t boundp delq semantic-toggle-minor-mode-globally semantic-show-parser-state-mode -1 run-hooks global-semantic-show-parser-state-mode-hook global-semantic-show-parser-state-mode-on-hook global-semantic-show-parser-state-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Semantic-Show-Parser-State mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 22177) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-semantic-show-parser-state-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\306&\207" [global-semantic-show-parser-state-mode-map global-semantic-show-parser-state-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-show-parser-state-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-semantic-show-parser-state-mode boundp custom-declare-variable semantic-show-parser-state-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run at the end of function `semantic-show-parser-state-mode'." :group semantic :type] 8)
#@42 Keymap for show-parser-state minor mode.
(defvar semantic-show-parser-state-mode-map (make-sparse-keymap) (#$ . 24730))
#@131 Non-nil if Semantic-Show-Parser-State mode is enabled.
Use the command `semantic-show-parser-state-mode' to change this
variable.
(defvar semantic-show-parser-state-mode nil (#$ . 24857))
(make-variable-buffer-local 'semantic-show-parser-state-mode)
#@1225 Minor mode for displaying parser cache state in the modeline.
The cache can be in one of three states.  They are
Up to date, Partial reparse needed, and Full reparse needed.
The state is indicated in the modeline with the following characters:
 `-'  ->  The cache is up to date.
 `!'  ->  The cache requires a full update.
 `~'  ->  The cache needs to be incrementally parsed.
 `%'  ->  The cache is not currently parsable.
 `@'  ->  Auto-parse in progress (not set here.)

This is a minor mode.  If called interactively, toggle the
`Semantic-Show-Parser-State mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `semantic-show-parser-state-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

The minor mode can be turned on only if semantic feature is
available and the current buffer was set up for parsing.  Return
non-nil if the minor mode is enabled.

(fn &optional ARG)
(defalias 'semantic-show-parser-state-mode #[256 "\304 
\305=\203
?\202
\247\203
\306W\203\307\202\310\311\301!\2031\312\300	\"\2031\300	B\203\223\313\314!\203?\n\204J\307\315\316\317 \"\210\202\310\320>\204U\321\322\"\323\324\325\307\310$\210\323\326\325\307\310$\210\323\327\325\307\310$\210\323\330\325\307\310$\210\325 \210\323\331\332\307\310$\210\323\333\325\307\310$\210\323\334\332\307\310$\210\323\335\325\307\310$\210\202\310\312\320\"\336\324\325\310#\210\336\326\325\310#\210\336\327\325\310#\210\336\330\325\310#\210\336\331\332\310#\210\336\333\325\310#\210\336\334\332\310#\210\336\335\325\310#\210\337\340\203\322\341\202\323\342\"\210\343\344!\203\365\304 \203\347\211\304 \232\203\365\345\346\203\361\347\202\362\350\351#\210\210\352 \210\207" [semantic-show-parser-state-mode local-minor-modes semantic-new-buffer-fcn-was-run mode-line-modified current-message toggle 1 nil t boundp delq featurep semantic error "Buffer %s was not set up for parsing" buffer-name semantic-show-parser-state-string append (semantic-show-parser-state-string) add-hook semantic-edits-new-change-functions semantic-show-parser-state-marker semantic-edits-incremental-reparse-failed-hook semantic-after-partial-cache-change-hook semantic-after-toplevel-cache-change-hook semantic-before-auto-parse-hooks semantic-show-parser-state-auto-marker semantic-after-auto-parse-hooks semantic-before-idle-scheduler-reparse-hook semantic-after-idle-scheduler-reparse-hook remove-hook run-hooks semantic-show-parser-state-mode-hook semantic-show-parser-state-mode-on-hook semantic-show-parser-state-mode-off-hook called-interactively-p any message "Semantic-Show-Parser-State mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 25115) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar semantic-show-parser-state-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\310\211%\210\313\312\314\"\207" [semantic-show-parser-state-mode-map semantic-show-parser-state-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-show-parser-state-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode semantic-show-parser-state-mode semantic-add-minor-mode ""] 6)
#@103 String showing the parser state for this buffer.
See `semantic-show-parser-state-marker' for details.
(defvar semantic-show-parser-state-string nil (#$ . 28833))
(make-variable-buffer-local 'semantic-show-parser-state-string)
#@445 Set `semantic-show-parser-state-string' to indicate parser state.
This marker is one of the following:
 `-'  ->  The cache is up to date.
 `!'  ->  The cache requires a full update.
 `~'  ->  The cache needs to be incrementally parsed.
 `%'  ->  The cache is not currently parsable.
 `@'  ->  Auto-parse in progress (not set here.)
Arguments IGNORE are ignored, and accepted so this can be used as a hook
in many situations.

(fn &rest IGNORE)
(defalias 'semantic-show-parser-state-marker #[128 "\302\267\202\303\202\304\202\305\202\306\211\207" [semantic-parse-tree-state semantic-show-parser-state-string #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (needs-rebuild 6 needs-update 10 unparseable 14)) "!" "^" "%" "-"] 3 (#$ . 29066)])
#@128 Hook function run before an autoparse.
Set up `semantic-show-parser-state-marker' to show `@'
to indicate a parse in progress.
(defalias 'semantic-show-parser-state-auto-marker #[0 "\205\302\211\207" [semantic-parse-tree-state semantic-show-parser-state-string "@"] 2 (#$ . 29859)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\314\316&
\207" [custom-declare-variable global-semantic-stickyfunc-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Semantic-Stickyfunc mode is enabled.\nSee the `global-semantic-stickyfunc-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semantic-stickyfunc-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group semantic semantic-modes] 14)
#@663 Toggle global use of option `semantic-stickyfunc-mode'.

This is a minor mode.  If called interactively, toggle the `Global
Semantic-Stickyfunc mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='global-semantic-stickyfunc-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'global-semantic-stickyfunc-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B\313\314	\203B\306\202C\315\"\210\316\317\305\301!\203Q\320\202R\321\"\210\322\323!\203z\324\301!\210\302 \203j\211\302 \232\203z\325\326\305\301!\203v\327\202w\330\331#\210\210\332 \210\305\301!\207" [global-minor-modes global-semantic-stickyfunc-mode current-message set-default toggle default-value 1 nil t boundp delq semantic-toggle-minor-mode-globally semantic-stickyfunc-mode -1 run-hooks global-semantic-stickyfunc-mode-hook global-semantic-stickyfunc-mode-on-hook global-semantic-stickyfunc-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Semantic-Stickyfunc mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 30775) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-semantic-stickyfunc-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\306&\207" [global-semantic-stickyfunc-mode-map global-semantic-stickyfunc-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-stickyfunc-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-semantic-stickyfunc-mode boundp custom-declare-variable semantic-stickyfunc-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run at the end of function `semantic-stickyfunc-mode'." :group semantic :type] 8)
#@35 Keymap for stickyfunc minor mode.
(defvar semantic-stickyfunc-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key [header-line down-mouse-1] semantic-stickyfunc-menu] 5) (#$ . 33209))
#@74 Menu used if the user clicks on the header line used by stickyfunc mode.
(defvar semantic-stickyfunc-popup-menu nil (#$ . 33428))
#@18 Stickyfunc Menu.
(defvar semantic-stickyfunc-popup-menu nil (#$ . 33564))
(byte-code "\301\302\303\304$\210\305\306\307\310\311DD\312\313\314\315\316&\207" [semantic-stickyfunc-mode-map easy-menu-do-define semantic-stickyfunc-popup-menu "Stickyfunc Menu." ("Stickyfunc Mode" :visible (progn nil) ["Copy Headerline Tag" senator-copy-tag :active (semantic-current-tag) :help "Copy the current tag to the tag ring"] ["Kill Headerline Tag" senator-kill-tag :active (semantic-current-tag) :help "Kill tag text to the kill ring, and copy the tag to the tag ring"] ["Copy Headerline Tag to Register" senator-copy-tag-to-register :active (semantic-current-tag) :help "Copy the current tag to a register"] ["Narrow To Headerline Tag" senator-narrow-to-defun :active (semantic-current-tag) :help "Narrow to the bounds of the current tag"] ["Fold Headerline Tag" senator-fold-tag-toggle :active (semantic-current-tag) :style toggle :selected (let ((tag (semantic-current-tag))) (and tag (semantic-tag-folded-p tag))) :help "Fold the current tag to one line"] "---" ["About This Header Line" (lambda nil (interactive) (describe-function 'semantic-stickyfunc-mode)) t]) custom-declare-variable semantic-stickyfunc-indent-string funcall function #[0 "\203\211\3011Y\302 \303\304 \305\"\211\306=\204\211\307=\203R\310\311!\205#\311J\211\204.\303\304 \311\"\262
\211\2048\311\312NT\262
\211\204@\313\202K\314
\\\262
\315
\245\316\"\262
\266\202\202U\266\3170\202[\210\317\3201q\321 \211@\211\302 \245\315
\316\"\266\2030\202\207\210\3221\205\323\324N\203\200\325\202\201\3170\202\207\210\317P\207\317\207" [window-system (error) frame-char-width frame-parameter selected-frame vertical-scroll-bars left t boundp scroll-bar-width x-frame-parameter "  " 2 make-string 32 #1="" (error) window-fringes (error) fringe face " "] 7 #1#] "String used to indent the stickyfunc header.\nCustomize this string to match the space used by scrollbars and\nfringe so it does not appear that the code is moving left/right\nwhen it lands in the sticky line." :group semantic :type string] 8)
#@57 Value of the header line when entering stickyfunc mode.
(defvar semantic-stickyfunc-old-hlf nil (#$ . 35652))
#@49 The header line format used by stickyfunc mode.
(defconst semantic-stickyfunc-header-line-format '(:eval (list (propertize " " 'display '((space :align-to 0))) (semantic-stickyfunc-fetch-stickyline))) (#$ . 35768))
#@117 Non-nil if Semantic-Stickyfunc mode is enabled.
Use the command `semantic-stickyfunc-mode' to change this variable.
(defvar semantic-stickyfunc-mode nil (#$ . 35990))
(make-variable-buffer-local 'semantic-stickyfunc-mode)
#@1082 Minor mode to show the title of a tag in the header line.
Enables/disables making the header line of functions sticky.
A function (or other tag class specified by
`semantic-stickyfunc-sticky-classes') has a header line, meaning the
first line which describes the rest of the construct.  This first
line is what is displayed in the header line.

This is a minor mode.  If called interactively, toggle the
`Semantic-Stickyfunc mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `semantic-stickyfunc-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

The minor mode can be turned on only if semantic feature is
available and the current buffer was set up for parsing.  Return
non-nil if the minor mode is enabled.

(fn &optional ARG)
(defalias 'semantic-stickyfunc-mode #[256 "\306 
\307=\203
?\202
\247\203
\310W\203\311\202\312\313\301!\2031\314\300	\"\2031\300	B\203_\315\316!\203?\n\204G\311\317\320\321 \"\210\322\303p\"\203Z\f=\204Z\323\305!\210\f\202v\f=\203v\324\303!\210\322\305p\"\203v
\324\305!\210\325\326\203\200\327\202\201\330\"\210\331\332!\203\243\306 \203\225\211\306 \232\203\243\333\334\203\237\335\202\240\336\337#\210\210\340 \210\207" [semantic-stickyfunc-mode local-minor-modes semantic-new-buffer-fcn-was-run header-line-format semantic-stickyfunc-header-line-format semantic-stickyfunc-old-hlf current-message toggle 1 nil t boundp delq featurep semantic error "Buffer %s was not set up for parsing" buffer-name local-variable-p make-local-variable kill-local-variable run-hooks semantic-stickyfunc-mode-hook semantic-stickyfunc-mode-on-hook semantic-stickyfunc-mode-off-hook called-interactively-p any message "Semantic-Stickyfunc mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 36220) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar semantic-stickyfunc-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\310\211%\207" [semantic-stickyfunc-mode-map semantic-stickyfunc-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-stickyfunc-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode semantic-stickyfunc-mode] 6)
#@71 List of tag classes which stickyfunc will display in the header line.
(defvar semantic-stickyfunc-sticky-classes '#'type (#$ . 38979))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [make-variable-buffer-local semantic-stickyfunc-sticky-classes custom-declare-variable semantic-stickyfunc-show-only-functions-p funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil means don't show lines that aren't part of a tag.\nIf this is nil, then comments or other text between tags that is\n1 line above the top of the current window will be shown." :group semantic :type boolean] 8)
#@47 Return the tag to stick at the current point.
(defalias 'semantic-stickyfunc-tag-to-stick #[0 "\301`!\237\211\203\211@\211A@\262
\235\204\211A\262
\202\211@\207" [semantic-stickyfunc-sticky-classes semantic-find-tag-by-overlay] 3 (#$ . 39587)])
#@177 Make the function at the top of the current window sticky.
Capture its function declaration, and place it in the header line.
If there is no function, disable the header line.
(defalias 'semantic-stickyfunc-fetch-stickyline #[0 "\212\301\302 !b\210o\303y\210\304\210\305 \211\204,
\203\306\202W\203$\306\202W\307 \310 {\202W\211\211\311
8\262
\312
!\203A\313
!\266\202\202F\211\314H\266\202b\210\315
\211@\262
\304\316#\210\307 \310 {\262
\314\317\320#\203s\321\322\316\211\314%\262\314\225T\262
\202Z\317\323#\203\207\321\324\316\211\314%\262\202s
\266\203)\207" [semantic-stickyfunc-show-only-functions-p window-start selected-window -1 nil semantic-stickyfunc-tag-to-stick "" point-at-bol point-at-eol 4 overlayp overlay-start 0 search-forward t string-match "%" replace-match "%%" "	" "        "] 9 (#$ . 39846)])
#@150 Popup a menu that can help a user understand stickyfunc-mode.
Argument EVENT describes the event that caused this function to be called.

(fn EVENT)
(defalias 'semantic-stickyfunc-menu #[257 "\301 
A@@\302
\303\"\210\212\304
!b\210\305\306!\210\307\"\210)\302!\207" [semantic-stickyfunc-popup-menu selected-window select-window t window-start sit-for 0 popup-menu] 6 (#$ . 40694) "e"])
(byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314\315\316\317\320\317\321&
\207" [semantic-add-minor-mode semantic-stickyfunc-mode #1="" custom-declare-variable global-semantic-highlight-func-mode funcall function #[0 "\300\207" [nil] 1 #1#] "Non-nil if Global Semantic-Highlight-Func mode is enabled.\nSee the `global-semantic-highlight-func-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semantic-highlight-func-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group semantic semantic-modes] 14)
#@675 Toggle global use of option `semantic-highlight-func-mode'.

This is a minor mode.  If called interactively, toggle the `Global
Semantic-Highlight-Func mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='global-semantic-highlight-func-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'global-semantic-highlight-func-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B\313\314	\203B\306\202C\315\"\210\316\317\305\301!\203Q\320\202R\321\"\210\322\323!\203z\324\301!\210\302 \203j\211\302 \232\203z\325\326\305\301!\203v\327\202w\330\331#\210\210\332 \210\305\301!\207" [global-minor-modes global-semantic-highlight-func-mode current-message set-default toggle default-value 1 nil t boundp delq semantic-toggle-minor-mode-globally semantic-highlight-func-mode -1 run-hooks global-semantic-highlight-func-mode-hook global-semantic-highlight-func-mode-on-hook global-semantic-highlight-func-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Semantic-Highlight-Func mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 41802) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-semantic-highlight-func-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\306&\207" [global-semantic-highlight-func-mode-map global-semantic-highlight-func-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-highlight-func-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-semantic-highlight-func-mode boundp custom-declare-variable semantic-highlight-func-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run at the end of function `semantic-highlight-func-mode'." :group semantic :type] 8)
#@39 Keymap for highlight-func minor mode.
(defvar semantic-highlight-func-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key [mouse-3] semantic-highlight-func-menu] 5) (#$ . 44304))
#@90 Menu used if the user clicks on the header line.
Used by `semantic-highlight-func-mode'.
(defvar semantic-highlight-func-popup-menu nil (#$ . 44518))
#@22 Highlight-Func Menu.
(defvar semantic-highlight-func-popup-menu nil (#$ . 44674))
(easy-menu-do-define 'semantic-highlight-func-popup-menu semantic-highlight-func-mode-map "Highlight-Func Menu." '("Highlight-Func Mode" :visible (progn nil) ["Copy Tag" senator-copy-tag :active (semantic-current-tag) :help "Copy the current tag to the tag ring"] ["Kill Tag" senator-kill-tag :active (semantic-current-tag) :help "Kill tag text to the kill ring, and copy the tag to the tag ring"] ["Copy Tag to Register" senator-copy-tag-to-register :active (semantic-current-tag) :help "Copy the current tag to a register"] ["Narrow To Tag" senator-narrow-to-defun :active (semantic-current-tag) :help "Narrow to the bounds of the current tag"] ["Fold Tag" senator-fold-tag-toggle :active (semantic-current-tag) :style toggle :selected (let ((tag (semantic-stickyfunc-tag-to-stick))) (and tag (semantic-tag-folded-p tag))) :help "Fold the current tag to one line"] "---" ["About This Tag" semantic-describe-tag t]))
#@148 Popup a menu that displays things to do to the current tag.
Argument EVENT describes the event that caused this function to be called.

(fn EVENT)
(defalias 'semantic-highlight-func-menu #[257 "\301 \302!\303
\304\"\210\212\305!\210\306\307!\210\310!\210)\303!\207" [semantic-highlight-func-popup-menu selected-window semantic-event-window select-window t mouse-set-point sit-for 0 popup-menu] 6 (#$ . 45681) "e"])
#@53 Overlay used to highlight the tag the cursor is in.
(defvar semantic-highlight-func-ct-overlay nil (#$ . 46106))
(byte-code "\300\301!\210\302\303\304\305\306\307%\207" [make-variable-buffer-local semantic-highlight-func-ct-overlay custom-declare-face semantic-highlight-func-current-tag-face ((((class color) (background dark)) (:background "gray20")) (((class color) (background light)) (:background "gray90"))) "Face used to show the top of current function." :group semantic-faces] 6)
#@125 Non-nil if Semantic-Highlight-Func mode is enabled.
Use the command `semantic-highlight-func-mode' to change this
variable.
(defvar semantic-highlight-func-mode nil (#$ . 46602))
(make-variable-buffer-local 'semantic-highlight-func-mode)
#@1175 Minor mode to highlight the first line of the current tag.
Enables/disables making the current function's first line light up.
A function (or other tag class specified by
`semantic-stickyfunc-sticky-classes') is highlighted, meaning the
first line which describes the rest of the construct.

This is a minor mode.  If called interactively, toggle the
`Semantic-Highlight-Func mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `semantic-highlight-func-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

See `semantic-stickyfunc-mode' for putting a function in the
header line.  This mode recycles the stickyfunc configuration
classes list.

The minor mode can be turned on only if semantic feature is
available and the current buffer was set up for parsing.  Return
non-nil if the minor mode is enabled.

(fn &optional ARG)
(defalias 'semantic-highlight-func-mode #[256 "\303 
\304=\203
?\202
\247\203
\305W\203\306\202\307\310\301!\2031\311\300	\"\2031\300	B\203Q\312\313!\203?\n\204G\306\314\315\316 \"\210\317\320\321\306\307$\210\202[\322\320\321\307#\210\321\307!\210\323\324\203e\325\202f\326\"\210\327\330!\203\210\303 \203z\211\303 \232\203\210\331\332\203\204\333\202\205\334\335#\210\210\336 \210\207" [semantic-highlight-func-mode local-minor-modes semantic-new-buffer-fcn-was-run current-message toggle 1 nil t boundp delq featurep semantic error "Buffer %s was not set up for parsing" buffer-name add-hook post-command-hook semantic-highlight-func-highlight-current-tag remove-hook run-hooks semantic-highlight-func-mode-hook semantic-highlight-func-mode-on-hook semantic-highlight-func-mode-off-hook called-interactively-p any message "Semantic-Highlight-Func mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 46848) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar semantic-highlight-func-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [semantic-highlight-func-mode-map semantic-highlight-func-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-highlight-func-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode semantic-highlight-func-mode boundp] 6)
#@237 Highlight the current tag under point.
Optional argument DISABLE will turn off any active highlight.
If the current tag for this buffer is different from the last time this
function was called, move the overlay.

(fn &optional DISABLE)
(defalias 'semantic-highlight-func-highlight-current-tag #[256 "\302 \204\225\203\303!p=\203\225\304 \211\204;\305eep\306\307%\262
\310
\311\306#\210\310
\312\313#\210\310
\314	#\210\310
\315\316#\210\211
\203C\203T\310
\317\307#\210\320
eep$\266\202\225\321
\317\"=\204\223\212
\211\322
8\262
\323
!\203s\324
!\266\202\202x\211\325H\266\202b\210\326\211@\262
\307\306#\210\310
\317#\210\320
\327 \330 #\210)\266\307\207" [semantic-highlight-func-ct-overlay semantic-highlight-func-mode-map minibufferp overlay-buffer semantic-stickyfunc-tag-to-stick make-overlay t nil overlay-put highlight-func face semantic-highlight-func-current-tag-face keymap help-echo "Current Function : mouse-3 - Context menu" tag move-overlay overlay-get 4 overlayp overlay-start 0 search-forward point-at-bol point-at-eol] 9 (#$ . 49659)])
(byte-code "\300\301\302\"\210\303\304!\207" [semantic-add-minor-mode semantic-highlight-func-mode "" provide semantic/util-modes] 3)