Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/util-modes.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\306\301\313\314\315\316\317\320\321\322&
\210\307\323\324\325\306\301\313\326\315\316\317\320& \207" [require semantic custom-declare-group semantic-modes nil "Minor modes associated with the Semantic architecture." :group custom-declare-variable semantic-update-mode-line t "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 #[(sym val) "\302 \"\210\303 \207" [sym val set-default semantic-mode-line-update] 3] semantic-mode-line-prefix (propertize "S" 'face 'bold) "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 (#$ . 1189))
(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 (#$ . 1414))
#@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 #[nil "\306 \306\211\203 @\307\n@\f\236\f\" A\211\204\n *
\205\242 \306 \306\211\203W @\211@>\204P \310\311\nA@\"\203P \n@\312\313\314\nA@\"PDB A\211\204, *\205\241 \310\311\"\203m \313\314\"\202n \315 \316\317\320\321\322\"B\323PEDC\300\f\236\206\210 \324\211 \f>\206\226 \fB\211\211 A\244\241+)\207" [semantic-minor-modes-format semantic-minor-mode-alist x --dolist-tail-- minor-mode-alist semantic-update-mode-line nil delq string-match "^[ ]*\\(.+\\)" "/" match-string 1 "S" :eval if or mapcar car " " (semantic-minor-modes-format semantic-minor-modes-format) locals semantic-init-hook semantic-mode-line-prefix prefix elem tail] 7 (#$ . 1570)])
#@122 Installed as a minor-mode initializer for Desktop mode.
BUFFER is the buffer to not initialize a Semantic minor mode in.
(defalias 'semantic-desktop-ignore-this-minor-mode #[(buffer) "\300\207" [nil] 1 (#$ . 2425)])
#@408 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.
(defalias 'semantic-add-minor-mode #[(toggle name) " \236\211\203 \n C\241\210\202 D B)\304 \210\305\306!\205& \307\306\310B\"\207" [toggle semantic-minor-mode-alist mm name semantic-mode-line-update boundp desktop-minor-mode-handlers add-to-list semantic-desktop-ignore-this-minor-mode] 5 (#$ . 2648)])
#@311 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.
(defalias 'semantic-toggle-minor-mode-globally #[(mode &optional arg) "\305!\203 \236\204 \n\236\204 \306\307\"\210 \310W\203% \311\312\"\210\2027 \310V\2033 \313\312\"\210\2027 \306\314!\210\315 \210\316 \317\f\320\")\207" [mode minor-mode-alist semantic-minor-mode-alist arg function 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 #[nil " !\207" [mode arg] 2] mode-local-map-file-buffers semantic-active-p] 3 (#$ . 3374)])
#@329 Non-nil if Global Semantic-Highlight-Edits mode is enabled.
See the `global-semantic-highlight-edits-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-semantic-highlight-edits-mode'.
(custom-declare-variable 'global-semantic-highlight-edits-mode nil '(#$ . 4259) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean)
#@326 Toggle global use of option `semantic-highlight-edits-mode'.
If called interactively, enable Global Semantic-Highlight-Edits mode
if ARG is positive, and disable it if ARG is zero or negative. If
called from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
(defalias 'global-semantic-highlight-edits-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-highlight-edits-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-highlight-edits-mode 1 -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] 4 (#$ . 4797) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-highlight-edits-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\210\320\321\322\323\314\324%\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.)" add-minor-mode global-semantic-highlight-edits-mode nil boundp custom-declare-variable semantic-highlight-edits-mode-hook "Hook run at the end of function `semantic-highlight-edits-mode'." :group semantic :type hook 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)
#@171 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.
(defalias 'semantic-highlight-edits-new-change-hook-fcn #[(overlay) "\301\302\303#\207" [overlay overlay-put face semantic-highlight-edits-face] 4 (#$ . 7018)])
#@40 Keymap for highlight-edits minor mode.
(defvar semantic-highlight-edits-mode-map (make-sparse-keymap) (#$ . 7356))
#@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 (#$ . 7478))
(make-variable-buffer-local 'semantic-highlight-edits-mode)
#@684 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.
If called interactively, enable Semantic-Highlight-Edits mode if ARG
is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
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.
(defalias 'semantic-highlight-edits-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\2037 \311\312!\203\" \204- \313\314\315\316 \"\210\202= \317\320\321\313\322$\210\202= \323\320\321\322#\210\324\325\n\203G \326\202H \327\"\210\330\331!\203m \305 \203\\ \305 \232\203m \332 \333\334\n\203h \335\202i \336\f#\210))\337 \210\n\207" [#1=#:last-message arg semantic-highlight-edits-mode semantic-new-buffer-fcn-was-run local current-message toggle prefix-numeric-value 0 featurep semantic nil 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 t 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 " in current buffer" message "Semantic-Highlight-Edits mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 7726) (list (or current-prefix-arg 'toggle))])
(defvar semantic-highlight-edits-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\210\310\306\311\"\210\312\313\307\314\315\316\317\320\321\322\321\323\324\325&
\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.)" add-minor-mode semantic-highlight-edits-mode nil semantic-add-minor-mode "e" custom-declare-variable global-semantic-show-unmatched-syntax-mode "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 :group semantic semantic-modes :type boolean] 14)
#@337 Toggle global use of option `semantic-show-unmatched-syntax-mode'.
If called interactively, enable Global Semantic-Show-Unmatched-Syntax
mode if ARG is positive, and disable it if ARG is zero or negative.
If called from Lisp, also enable the mode if ARG is omitted or nil,
and toggle it if ARG is `toggle'; disable the mode otherwise.
(defalias 'global-semantic-show-unmatched-syntax-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-show-unmatched-syntax-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-show-unmatched-syntax-mode 1 -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] 4 (#$ . 10511) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-show-unmatched-syntax-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\210\320\321\322\323\314\324%\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.)" add-minor-mode global-semantic-show-unmatched-syntax-mode nil boundp custom-declare-variable semantic-show-unmatched-syntax-mode-hook "Hook run at the end of function `semantic-show-unmatched-syntax-mode'." :group semantic :type hook 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)
#@55 Return non-nil if OVERLAY is an unmatched syntax one.
(defalias 'semantic-unmatched-syntax-overlay-p #[(overlay) "\301\302\"\303=\207" [overlay overlay-get semantic unmatched] 3 (#$ . 12852)])
(put 'semantic-unmatched-syntax-overlay-p 'byte-optimizer 'byte-compile-inline-expand)
#@68 Return non-nil if an unmatched syntax overlay was found in buffer.
(defalias 'semantic-showing-unmatched-syntax-p #[nil "\303ed\"\304\211\203! \204! @\305\n\306\")\307= A\211\204 *\207" [found ol overlay overlays-in nil overlay-get semantic unmatched] 4 (#$ . 13139)])
#@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 #[nil "\303ed\"\304\211\203- @\305\n\306\")\307=\203& \310\311 @!\312 @!BBB A\211\204 \237*\207" [ustc ol overlay overlays-in nil overlay-get semantic unmatched thing overlay-start overlay-end] 5 (#$ . 13424)])
#@59 Remove all unmatched syntax overlays between BEG and END.
(defalias 'semantic-clean-unmatched-syntax-in-region #[(beg end) "\304 \"\211\205# \n@\305 \306\")\307=\203 \310\n@!\210\nA\211\204 \311)\207" [beg end ol overlay overlays-in overlay-get semantic unmatched delete-overlay nil] 4 (#$ . 13858)])
#@63 Remove all unmatched syntax overlays found in current buffer.
(defalias 'semantic-clean-unmatched-syntax-in-buffer #[nil "\300ed\"\207" [semantic-clean-unmatched-syntax-in-region] 3 (#$ . 14171)])
(put 'semantic-clean-unmatched-syntax-in-buffer 'byte-optimizer 'byte-compile-inline-expand)
#@62 Clean the area covered by TOKEN of unmatched syntax markers.
(defalias 'semantic-clean-token-of-unmatched-syntax #[(token) "\303\211\304 8)\305\n!\203 \306\n!\202 \n\307H*\211\304 8)\305\n!\203/ \310\n!\2022 \n\311H*\"\207" [token tag o semantic-clean-unmatched-syntax-in-region 4 overlayp overlay-start 0 overlay-end 1] 5 (#$ . 14467)])
(put 'semantic-clean-token-of-unmatched-syntax 'byte-optimizer 'byte-compile-inline-expand)
#@113 Function set into `semantic-unmatched-syntax-hook'.
This will highlight elements in SYNTAX as unmatched syntax.
(defalias 'semantic-show-unmatched-syntax #[(syntax) "\302ed\"\210\205Y \303\205X \304@\211\211A@\247\204\" \211AA\262\202& \211A\262@\262@\211\211A@\247\204; \211AA\262\202? \211A\262A\262\"\305 \306\307#\210\305 \310\311#\210A\211\204 \303)\207" [syntax o semantic-clean-unmatched-syntax-in-region nil make-overlay overlay-put semantic unmatched face semantic-unmatched-syntax-face] 6 (#$ . 14914)])
#@94 Find the next overlay for unmatched syntax after POINT.
Do not search past BOUND if non-nil.
(defalias 'semantic-next-unmatched-syntax #[(point &optional bound) "\212b\210\305\n\203K \n \206 dW\203K \204K \306\n!\211\203 \307\n! \203 <\203 @ \310\f\311\")\312=\203? @ <\203& A\211\202' +\207" [point ol os bound overlay nil next-overlay-change overlays-at overlay-get semantic unmatched] 4 (#$ . 15449)])
#@59 Keymap for command `semantic-show-unmatched-syntax-mode'.
(defvar semantic-show-unmatched-syntax-mode-map (byte-code "\301 \302\303\304#\210)\207" [km make-sparse-keymap define-key ",`" semantic-show-unmatched-syntax-next] 4) (#$ . 15878))
#@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 (#$ . 16129))
(make-variable-buffer-local 'semantic-show-unmatched-syntax-mode)
#@768 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.
If called interactively, enable Semantic-Show-Unmatched-Syntax mode if
ARG is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
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}
(defalias 'semantic-show-unmatched-syntax-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203K \312\313!\203\" \204- \314\315\316\317 \"\210\202\\ \320\321\322\314\323$\210\320\324\325\314\323$\210\f\204\\
\204\\ \322\326 !\210\202\\ \327\321\322\323#\210\327\324\325\323#\210\330ed\"\210\331\332\n\203f \333\202g \334\"\210\335\336!\203\216 \306 \203{ \306 \232\203\216 \337 %\340\341\n\203\210 \342\202\211 \343%#\210))\344 \210\n\207" [#1=#:last-message arg semantic-show-unmatched-syntax-mode semantic-new-buffer-fcn-was-run semantic-unmatched-syntax-cache-check semantic-parse-tree-state current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name add-hook semantic-unmatched-syntax-hook semantic-show-unmatched-syntax t 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 " in current buffer" message "Semantic-Show-Unmatched-Syntax mode %sabled%s" "en" "dis" force-mode-line-update local] 6 (#$ . 16402) (list (or current-prefix-arg 'toggle))])
(defvar semantic-show-unmatched-syntax-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\210\310\306\311\"\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.)" add-minor-mode semantic-show-unmatched-syntax-mode nil semantic-add-minor-mode "u"] 6)
#@58 Move forward to the next occurrence of unmatched syntax.
(defalias 'semantic-show-unmatched-syntax-next #[nil "\301`!\211\205\f \302!b)\207" [o semantic-next-unmatched-syntax overlay-start] 3 (#$ . 19039) nil])
#@335 Non-nil if Global Semantic-Show-Parser-State mode is enabled.
See the `global-semantic-show-parser-state-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-semantic-show-parser-state-mode'.
(custom-declare-variable 'global-semantic-show-parser-state-mode nil '(#$ . 19259) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :type 'boolean)
#@330 Toggle global use of option `semantic-show-parser-state-mode'.
If called interactively, enable Global Semantic-Show-Parser-State mode
if ARG is positive, and disable it if ARG is zero or negative. If
called from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
(defalias 'global-semantic-show-parser-state-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-show-parser-state-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-show-parser-state-mode 1 -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] 4 (#$ . 19783) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-show-parser-state-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\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.)" add-minor-mode global-semantic-show-parser-state-mode nil boundp custom-declare-variable semantic-show-parser-state-mode-hook "Hook run at the end of function `semantic-show-parser-state-mode'." :group semantic :type hook] 8)
#@42 Keymap for show-parser-state minor mode.
(defvar semantic-show-parser-state-mode-map (make-sparse-keymap) (#$ . 21752))
#@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 (#$ . 21879))
(make-variable-buffer-local 'semantic-show-parser-state-mode)
#@897 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.)
If called interactively, enable Semantic-Show-Parser-State mode if ARG
is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
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.
(defalias 'semantic-show-parser-state-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203v \312\313!\203\" \204- \314\315\316\317 \"\210\202\253 \320\f>\2048 \321\f\322\"\323\324\325\314\326$\210\323\327\325\314\326$\210\323\330\325\314\326$\210\323\331\325\314\326$\210\325 \210\323\332\333\314\326$\210\323\334\325\314\326$\210\323\335\333\314\326$\210\323\336\325\314\326$\210\202\253 \337\320\f\"\340\324\325\326#\210\340\327\325\326#\210\340\330\325\326#\210\340\331\325\326#\210\340\332\333\326#\210\340\334\325\326#\210\340\335\333\326#\210\340\336\325\326#\210\341\342\n\203\265 \343\202\266 \344\"\210\345\346!\203\333 \306 \203\312 \306 \232\203\333 \347 \350\351\n\203\326 \352\202\327 \353
#\210))\354 \210\n\207" [#1=#:last-message arg semantic-show-parser-state-mode semantic-new-buffer-fcn-was-run mode-line-modified local current-message toggle prefix-numeric-value 0 featurep semantic nil 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 t 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 delq 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 " in current buffer" message "Semantic-Show-Parser-State mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 22136) (list (or current-prefix-arg 'toggle))])
(defvar semantic-show-parser-state-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\210\310\306\311\"\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.)" add-minor-mode semantic-show-parser-state-mode nil 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 (#$ . 25369))
(make-variable-buffer-local 'semantic-show-parser-state-string)
#@426 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.
(defalias 'semantic-show-parser-state-marker #[(&rest ignore) "\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)) "!" "^" "%" "-"] 2 (#$ . 25602)])
#@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 #[nil "\205 \302\211\207" [semantic-parse-tree-state semantic-show-parser-state-string "@"] 2 (#$ . 26387)])
#@314 Non-nil if Global Semantic-Stickyfunc mode is enabled.
See the `global-semantic-stickyfunc-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-semantic-stickyfunc-mode'.
(custom-declare-variable 'global-semantic-stickyfunc-mode nil '(#$ . 26683) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean)
#@316 Toggle global use of option `semantic-stickyfunc-mode'.
If called interactively, enable Global Semantic-Stickyfunc mode if ARG
is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
(defalias 'global-semantic-stickyfunc-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-stickyfunc-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-stickyfunc-mode 1 -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] 4 (#$ . 27202) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-stickyfunc-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\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.)" add-minor-mode global-semantic-stickyfunc-mode nil boundp custom-declare-variable semantic-stickyfunc-mode-hook "Hook run at the end of function `semantic-stickyfunc-mode'." :group semantic :type hook] 8)
#@35 Keymap for stickyfunc minor mode.
(defvar semantic-stickyfunc-mode-map (byte-code "\301 \302\303\304#\210)\207" [km make-sparse-keymap define-key [header-line down-mouse-1] semantic-stickyfunc-menu] 4) (#$ . 29059))
#@74 Menu used if the user clicks on the header line used by stickyfunc mode.
(defvar semantic-stickyfunc-popup-menu nil (#$ . 29284))
#@17 Stickyfunc Menu
(defvar semantic-stickyfunc-popup-menu nil (#$ . 29420))
(byte-code "\301\302\303\304$\210\305\306\307\310\311\312\313\314&\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 (if window-system (concat (condition-case nil (let ((charwidth (frame-char-width)) (scrollpos (frame-parameter (selected-frame) 'vertical-scroll-bars))) (if (or (eq scrollpos 'left) (eq scrollpos t)) (let ((w (when (boundp 'scroll-bar-width) (symbol-value 'scroll-bar-width)))) (if (not w) (setq w (frame-parameter (selected-frame) 'scroll-bar-width))) (if (not w) (setq w (+ (get 'scroll-bar-width 'x-frame-parameter) 1))) (if (not w) " " (setq w (+ 2 w)) (make-string (/ w charwidth) 32))) #1="")) (error #1#)) (condition-case nil (let* ((f (window-fringes)) (fw (car f)) (numspace (/ fw (frame-char-width)))) (make-string numspace 32)) (error (condition-case nil (if (get 'fringe 'face) " " #1#) (error #1#))))) #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 (#$ . 31597))
#@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))) (#$ . 31713))
#@117 Non-nil if Semantic-Stickyfunc mode is enabled.
Use the command `semantic-stickyfunc-mode' to change this variable.
(defvar semantic-stickyfunc-mode nil (#$ . 31935))
(make-variable-buffer-local 'semantic-stickyfunc-mode)
#@761 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.
If called interactively, enable Semantic-Stickyfunc mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
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.
(defalias 'semantic-stickyfunc-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203O \312\313!\203\" \204* \314\315\316\317 \"\210\320\304!\2046 \314\315\321!\210\322\304p\"\203J \f
=\204J \323\324!\210\f
\202g \f
=\203g \325\304!\210\322\324p\"\203g \325\324!\210\326\327\n\203q \330\202r \331\"\210\332\333!\203\231 \306 \203\206 \306 \232\203\231 \334 \"\335\336\n\203\223 \337\202\224 \340\"#\210))\341 \210\n\207" [#1=#:last-message arg semantic-stickyfunc-mode semantic-new-buffer-fcn-was-run header-line-format semantic-stickyfunc-header-line-format current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name boundp "Sticky Function mode requires Emacs" local-variable-p make-local-variable semantic-stickyfunc-old-hlf kill-local-variable run-hooks semantic-stickyfunc-mode-hook semantic-stickyfunc-mode-on-hook semantic-stickyfunc-mode-off-hook called-interactively-p any " in current buffer" message "Semantic-Stickyfunc mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 32164) (list (or current-prefix-arg 'toggle))])
(defvar semantic-stickyfunc-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\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.)" add-minor-mode semantic-stickyfunc-mode nil] 6)
#@71 List of tag classes which stickyfunc will display in the header line.
(defvar semantic-stickyfunc-sticky-classes '#'type (#$ . 34516))
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [make-variable-buffer-local semantic-stickyfunc-sticky-classes custom-declare-variable semantic-stickyfunc-show-only-functions-p nil "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 #[nil "\303`!\237\211\203 @\211A@)\n\235\204 A\211\204 @)\207" [tags tag semantic-stickyfunc-sticky-classes semantic-find-tag-by-overlay] 3 (#$ . 35074)])
#@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 #[nil "\212\306\307 !b\210o\310y\210\311\210\312 \211\204. \203 \313\202X \n\203& \313\202X \314 \315 {\202X \211\316 8)\317 !\203C \320 !\202F \321H*b\210\322 \211@)\311\323#\210\314 \315 {) \321 \324\325\f
#\203s \326\327\323\211\f\321%\321\225T\202\\ \324\330\f
#\203\206 \326\331\323\211\f\321%\202s \f,\207" [noshow tag semantic-stickyfunc-show-only-functions-p o str start 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 "%%" " " " "] 7 (#$ . 35335)])
#@138 Popup a menu that can help a user understand stickyfunc-mode.
Argument EVENT describes the event that caused this function to be called.
(defalias 'semantic-stickyfunc-menu #[(event) "\304 A@@\305\n\306\"\210\212\307\n!b\210\310\311!\210\312 \"\210)\305!*\207" [startwin event win semantic-stickyfunc-popup-menu selected-window select-window t window-start sit-for 0 popup-menu] 3 (#$ . 36170) "e"])
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312\313\314\313\315\316\317&
\207" [semantic-add-minor-mode semantic-stickyfunc-mode "" custom-declare-variable global-semantic-highlight-func-mode nil "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 :group semantic semantic-modes :type boolean] 14)
#@324 Toggle global use of option `semantic-highlight-func-mode'.
If called interactively, enable Global Semantic-Highlight-Func mode if
ARG is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
(defalias 'global-semantic-highlight-func-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-highlight-func-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-highlight-func-mode 1 -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] 4 (#$ . 37240) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-highlight-func-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\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.)" add-minor-mode global-semantic-highlight-func-mode nil boundp custom-declare-variable semantic-highlight-func-mode-hook "Hook run at the end of function `semantic-highlight-func-mode'." :group semantic :type hook] 8)
#@39 Keymap for highlight-func minor mode.
(defvar semantic-highlight-func-mode-map (byte-code "\301 \302\303\304#\210)\207" [km make-sparse-keymap define-key [mouse-3] semantic-highlight-func-menu] 4) (#$ . 39161))
#@89 Menu used if the user clicks on the header line used by `semantic-highlight-func-mode'.
(defvar semantic-highlight-func-popup-menu nil (#$ . 39381))
#@21 Highlight-Func Menu
(defvar semantic-highlight-func-popup-menu nil (#$ . 39536))
(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]))
#@136 Popup a menu that displays things to do to the current tag.
Argument EVENT describes the event that caused this function to be called.
(defalias 'semantic-highlight-func-menu #[(event) "\304 \305 !\306\n\307\"\210\212\310 !\210\311\312!\210\313 !\210)\306!*\207" [startwin event win semantic-highlight-func-popup-menu selected-window semantic-event-window select-window t mouse-set-point sit-for 0 popup-menu] 3 (#$ . 40541) "e"])
#@53 Overlay used to highlight the tag the cursor is in.
(defvar semantic-highlight-func-ct-overlay nil (#$ . 40981))
(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 (#$ . 41477))
(make-variable-buffer-local 'semantic-highlight-func-mode)
#@850 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.
If called interactively, enable Semantic-Highlight-Func mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
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.
(defalias 'semantic-highlight-func-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\2034 \311\312!\203\" \204* \313\314\315\316 \"\210\317\320\321\313\322$\210\202> \323\320\321\322#\210\321\322!\210\324\325\n\203H \326\202I \327\"\210\330\331!\203n \305 \203] \305 \232\203n \332 \333\334\n\203i \335\202j \336\f#\210))\337 \210\n\207" [#1=#:last-message arg semantic-highlight-func-mode semantic-new-buffer-fcn-was-run local current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name add-hook post-command-hook semantic-highlight-func-highlight-current-tag t 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 " in current buffer" message "Semantic-Highlight-Func mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 41722) (list (or current-prefix-arg 'toggle))])
(defvar semantic-highlight-func-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode semantic-highlight-func-mode nil boundp] 6)
#@213 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.
(defalias 'semantic-highlight-func-highlight-current-tag #[(&optional disable) "\306 \204\223 \203 \307!p=\203\223 \310 \211\204< \311eep\312\313%\314\n\315\312#\210\314\n\316\317#\210\314\n\320 #\210\314\n\321\322#\210\n \203D \f\203T \314\n\301\313#\210\323\neep$\210\202\222 \324\n\301\" =\204\222 \212 \211\325 8) \326
!\203s \327
!\202v
\330H*b\210\331 \211@)\313\312#\210\314\n\301 #\210\323\n\332 \333 #\210)*\313\207" [semantic-highlight-func-ct-overlay tag ol semantic-highlight-func-mode-map disable o 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" move-overlay overlay-get 4 overlayp overlay-start 0 search-forward point-at-bol point-at-eol] 7 (#$ . 44035)])
(byte-code "\300\301\302\"\210\303\304!\207" [semantic-add-minor-mode semantic-highlight-func-mode "" provide semantic/util-modes] 3)
Mini Shell