Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/decorate/mode.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\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\301\312\313&\207" [require semantic semantic/decorate semantic/tag-ls semantic/util-modes custom-declare-variable semantic-decoration-styles nil "List of active decoration styles.\nIt is an alist of (NAME . FLAG) elements, where NAME is a style name\nand FLAG is non-nil if the style is enabled.\nSee also `define-semantic-decoration-style' which will automatically\nadd items to this list." :group :type (repeat (cons (string :tag "Decoration Name") (boolean :tag "Enabled")))] 8)
#@40 Return the STYLE's predicate function.
(defalias 'semantic-decorate-style-predicate #[(style) "\301\302\303\"!\207" [style intern format "%s-p"] 4 (#$ . 976)])
(put 'semantic-decorate-style-predicate 'byte-optimizer 'byte-compile-inline-expand)
#@42 Return the STYLE's highlighter function.
(defalias 'semantic-decorate-style-highlighter #[(style) "\301\302\303\"!\207" [style intern format "%s-highlight"] 4 (#$ . 1228)])
(put 'semantic-decorate-style-highlighter 'byte-optimizer 'byte-compile-inline-expand)
#@40 Return the STYLE's predicate function.
(defalias 'semantic-decorate-style-predicate-default #[(style) "\301\302\303\"!\207" [style intern format "%s-p-default"] 4 (#$ . 1495)])
(put 'semantic-decorate-style-predicate-default 'byte-optimizer 'byte-compile-inline-expand)
#@42 Return the STYLE's highlighter function.
(defalias 'semantic-decorate-style-highlighter-default #[(style) "\301\302\303\"!\207" [style intern format "%s-highlight-default"] 4 (#$ . 1772)])
(put 'semantic-decorate-style-highlighter-default 'byte-optimizer 'byte-compile-inline-expand)
#@47 Return non-nil if OBJECT is a tag decoration.
(defalias 'semantic-decoration-p #[(object) "\301!\205\n \302\303\"\207" [object overlayp overlay-get semantic-decoration] 3 (#$ . 2063)])
(put 'semantic-decoration-p 'byte-optimizer 'byte-compile-inline-expand)
#@59 Set the DECO decoration's PROPERTY to VALUE.
Return DECO.
(defalias 'semantic-decoration-set-property #[(deco property value) "\304 !\205\f \305 \306\")\204 \307\310!\210\311\n #\210\207" [deco object property value overlayp overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco) overlay-put] 4 (#$ . 2329)])
(put 'semantic-decoration-set-property 'byte-optimizer 'byte-compile-inline-expand)
#@46 Return the DECO decoration's PROPERTY value.
(defalias 'semantic-decoration-get-property #[(deco property) "\303 !\205\f \304 \305\")\204 \306\307!\210\304\n\"\207" [deco object property overlayp overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco)] 3 (#$ . 2760)])
(put 'semantic-decoration-get-property 'byte-optimizer 'byte-compile-inline-expand)
#@59 Set the face of the decoration DECO to FACE.
Return DECO.
(defalias 'semantic-decoration-set-face #[(deco face) "\301 \211 \305\f!\205 \306\f\307\")\204 \310\311!\210\312 \n#\210+\207" [deco face value property object overlayp overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco) overlay-put] 5 (#$ . 3149)])
(put 'semantic-decoration-set-face 'byte-optimizer 'byte-compile-inline-expand)
#@41 Return the face of the decoration DECO.
(defalias 'semantic-decoration-face #[(deco) "\303\211\304\n!\205 \305\n\306\")\204 \307\310!\210\305 \"*\207" [deco property object face overlayp overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco)] 4 (#$ . 3581)])
(put 'semantic-decoration-face 'byte-optimizer 'byte-compile-inline-expand)
#@67 Set the priority of the decoration DECO to PRIORITY.
Return DECO.
(defalias 'semantic-decoration-set-priority #[(deco priority) "\305!\204\n \306\307!\210 \300\211 \310\f!\205 \311\f\312\")\204$ \306\313!\210\314 \n#\210 +\207" [priority deco value property object natnump cl--assertion-failed (natnump priority) overlayp overlay-get semantic-decoration (semantic-decoration-p deco) overlay-put] 5 (#$ . 3956)])
(put 'semantic-decoration-set-priority 'byte-optimizer 'byte-compile-inline-expand)
#@45 Return the priority of the decoration DECO.
(defalias 'semantic-decoration-priority #[(deco) "\303\211\304\n!\205 \305\n\306\")\204 \307\310!\210\305 \"*\207" [deco property object priority overlayp overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco)] 4 (#$ . 4465)])
(put 'semantic-decoration-priority 'byte-optimizer 'byte-compile-inline-expand)
#@76 Move the decoration DECO on the region between BEGIN and END.
Return DECO.
(defalias 'semantic-decoration-move #[(deco begin end) "\304 !\205\f \305 \306\")\204 \307\310!\210\311\n #\210\207" [deco object begin end overlayp overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco) move-overlay] 4 (#$ . 4856)])
(put 'semantic-decoration-move 'byte-optimizer 'byte-compile-inline-expand)
#@192 Add a new decoration on TAG on the region between BEGIN and END.
If optional argument FACE is non-nil, set the decoration's face to
FACE.
Return the overlay that makes up the new decoration.
(defalias 'semantic-decorate-tag #[(tag begin end &optional face) "\306!\307 \310\311#\210 \n \211 \312\f!\205 \313\f\310\")\204$ \314\315!\210\316 \n #\210 +\210
\211\305
\211 \312\f!\205E \313\f\310\")\204M \314\317!\210\307 #\210 -\210 )\207" [tag deco begin end object face semantic-tag-create-secondary-overlay overlay-put semantic-decoration t overlayp overlay-get cl--assertion-failed (semantic-decoration-p deco) move-overlay (semantic-decoration-p deco) value property] 5 (#$ . 5280)])
#@97 Remove decorations from TAG.
If optional argument DECO is non-nil, remove only that decoration.
(defalias 'semantic-decorate-clear-tag #[(tag &optional deco) "\203 \303 !\205 \304 \305\")\204 \306\307!\210\310\n!\210\311\n\206# \305\"\207" [deco object tag overlayp overlay-get semantic-decoration cl--assertion-failed (or (null deco) (semantic-decoration-p deco)) semantic-unhighlight-tag semantic-tag-delete-secondary-overlay] 3 (#$ . 5990)])
#@33 Return decoration found on TAG.
(defalias 'semantic-decorate-tag-decoration #[(tag) "\301\302\"\207" [tag semantic-tag-get-secondary-overlay semantic-decoration] 3 (#$ . 6448)])
#@185 Flush decorations found in BUFFER.
BUFFER defaults to the current buffer.
Should be used to flush decorations that might remain in BUFFER, for
example, after tags have been refreshed.
(defalias 'semantic-decorate-flush-decorations #[(&optional buffer) "r\206 pq\210\304ed\"\305\211\2052 \n@\211\306 !\205\" \307 \310\")\203* \311 !\210\nA\211\204 \305+\207" [buffer o --dolist-tail-- object overlays-in nil overlayp overlay-get semantic-decoration delete-overlay] 4 (#$ . 6634)])
#@47 Remove decorations found in tags in TAG-LIST.
(defalias 'semantic-decorate-clear-decorations #[(tag-list) "\303\211\205 \n@\304 !\210\305\306 !!\210\nA\211\204 \303*\207" [tag-list tag --dolist-tail-- nil semantic-decorate-clear-tag semantic-decorate-clear-decorations semantic-tag-components-with-overlays] 4 (#$ . 7128)])
#@105 Add decorations to tags in TAG-LIST.
Also make sure old decorations in the area are completely flushed.
(defalias 'semantic-decorate-add-decorations #[(tag-list) "\306\211\205k \n@\307 !\203 \310 !\210 \306 \211\203\\ \n@\211@ \311\312\313\f\"!)\f@ \311\312\314\f\"!) \fA\203T \315!\203T !\203T \315
!\203T
!\210*\nA\211\204 *\316\317 !!\210\nA\211\204 \306*\207" [tag-list tag --dolist-tail-- semantic-decoration-styles style high nil semantic-decorate-tag-decoration semantic-decorate-clear-tag intern format "%s-p" "%s-highlight" fboundp semantic-decorate-add-decorations semantic-tag-components-with-overlays pred] 6 (#$ . 7466)])
#@56 Normal hook run to perform pending decoration changes.
(defvar semantic-decorate-pending-decoration-hook nil (#$ . 8127))
(semantic-varalias-obsolete 'semantic-decorate-pending-decoration-hooks 'semantic-decorate-pending-decoration-hook "23.2")
#@141 Add a pending decoration change represented by FCN.
Applies only to the current BUFFER.
The setting of FCN will be removed after it is run.
(defalias 'semantic-decorate-add-pending-decoration #[(fcn &optional buffer) "\212\203 q\210\302\303 \304\305$)\207" [buffer fcn add-hook semantic-decorate-pending-decoration-hook nil t] 5 (#$ . 8379)])
#@109 Flush any pending decorations for BUFFER.
Flush functions from `semantic-decorate-pending-decoration-hook'.
(defalias 'semantic-decorate-flush-pending-decorations #[(&optional buffer) "\212\203 q\210\302\301!\210\303\211)\207" [buffer semantic-decorate-pending-decoration-hook run-hooks nil] 2 (#$ . 8732)])
#@314 Non-nil if Global Semantic-Decoration mode is enabled.
See the `global-semantic-decoration-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-decoration-mode'.
(custom-declare-variable 'global-semantic-decoration-mode nil '(#$ . 9051) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean)
#@410 Toggle global use of option `semantic-decoration-mode'.
Decoration mode turns on all active decorations as specified
by `semantic-decoration-styles'.
If called interactively, enable Global Semantic-Decoration 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-decoration-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-decoration-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-decoration-mode 1 -1 run-hooks global-semantic-decoration-mode-hook global-semantic-decoration-mode-on-hook global-semantic-decoration-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Semantic-Decoration mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 9569) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-decoration-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-decoration-mode-map global-semantic-decoration-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-decoration-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-decoration-mode nil boundp custom-declare-variable semantic-decoration-mode-hook "Hook run at the end of function `semantic-decoration-mode'." :group semantic :type hook] 8)
#@117 Non-nil if Semantic-Decoration mode is enabled.
Use the command `semantic-decoration-mode' to change this variable.
(defvar semantic-decoration-mode nil (#$ . 11520))
(make-variable-buffer-local 'semantic-decoration-mode)
#@587 Minor mode for decorating tags.
Decorations are specified in `semantic-decoration-styles'. You
can define new decoration styles with
`define-semantic-decoration-style'.
If called interactively, enable Semantic-Decoration 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-decoration-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203D \312\313!\203\" \204- \314\315\316\317 \"\210\202W \320\321\322\314\323$\210\320\324\325\314\323$\210\326\327\314\330#\210\202W \331\f!\210\332 \210\333\321\322\323#\210\333\324\325\323#\210\334\335\n\203a \336\202b \337\"\210\340\341!\203\207 \306 \203v \306 \232\203\207 \342 \343\344\n\203\202 \345\202\203 \346
#\210))\347 \210\n\207" [#1=#:last-message arg semantic-decoration-mode semantic-new-buffer-fcn-was-run semantic--buffer-cache 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-after-partial-cache-change-hook semantic-decorate-tags-after-partial-reparse t semantic-after-toplevel-cache-change-hook semantic-decorate-tags-after-full-reparse run-with-idle-timer 0.1 #[nil "\301!\207" [semantic--buffer-cache semantic-decorate-add-decorations] 2] semantic-decorate-clear-decorations semantic-decorate-flush-decorations remove-hook run-hooks semantic-decoration-mode-hook semantic-decoration-mode-on-hook semantic-decoration-mode-off-hook called-interactively-p any " in current buffer" message "Semantic-Decoration mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 11749) (list (or current-prefix-arg 'toggle))])
(defvar semantic-decoration-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\306\312\"\207" [semantic-decoration-mode-map semantic-decoration-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-decoration-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-decoration-mode nil boundp semantic-add-minor-mode ""] 6)
#@264 Add decorations after a complete reparse of the current buffer.
TAG-LIST is the list of tags recently parsed.
Flush all existing decorations and call `semantic-decorate-add-decorations' to
add decorations.
Called from `semantic-after-toplevel-cache-change-hook'.
(defalias 'semantic-decorate-tags-after-full-reparse #[(tag-list) "\301 \210\302!\207" [tag-list semantic-decorate-flush-decorations semantic-decorate-add-decorations] 2 (#$ . 14197)])
#@227 Add decorations when new tags are created in the current buffer.
TAG-LIST is the list of newly created tags.
Call `semantic-decorate-add-decorations' to add decorations.
Called from `semantic-after-partial-cache-change-hook'.
(defalias 'semantic-decorate-tags-after-partial-reparse #[(tag-list) "\301!\207" [tag-list semantic-decorate-add-decorations] 2 (#$ . 14653)])
#@103 Return non-nil if STYLE is currently enabled.
Return nil if the style is disabled, or does not exist.
(defalias 'semantic-decoration-style-enabled-p #[(style) "\303 \"\211\205 \nA)\207" [style semantic-decoration-styles pair assoc] 4 (#$ . 15030)])
#@217 Turn on/off the decoration style with NAME.
Decorations are specified in `semantic-decoration-styles'.
With prefix argument ARG, turn on if positive, otherwise off.
Return non-nil if the decoration style is enabled.
(defalias 'semantic-toggle-decoration-style #[(name &optional arg) "\306\307\"\211\310\232?\205X \311 \" \203 \312 !\313V\202 \nA? \n\204* \314\315\"\210\nA\f=\204V \n\f\241\210
\203A \305\316!\210\305\317!\210\320\321!\203V \322\323\n@\f\203S \324\202T \325#\210\f*\207" [name semantic-decoration-styles style arg flag semantic-decoration-mode format "%s" "" assoc prefix-numeric-value 0 error "Unknown decoration style %s" -1 1 called-interactively-p interactive message "Decoration style %s turned %s" "on" "off"] 5 (#$ . 15289) (list (completing-read "Decoration style: " semantic-decoration-styles nil t) current-prefix-arg)])
#@31 Cache of the decoration menu.
(defvar semantic-decoration-menu-cache nil (#$ . 16150))
#@64 Build a menu item for controlling a specific decoration STYLE.
(defalias 'semantic-decoration-build-style-menu #[(style) "\301@\302\303\304\305@DF\306\307\310\311@D&\207" [style vector lambda nil (interactive) semantic-toggle-decoration-style :style toggle :selected semantic-decoration-style-enabled-p] 8 (#$ . 16243)])
#@91 Create a menu listing all the known decorations for toggling.
IGNORE any input arguments.
(defalias 'semantic-build-decoration-mode-menu #[(&rest ignore) "\206\f \302\303\304 !\"\211\207" [semantic-decoration-menu-cache semantic-decoration-styles mapcar semantic-decoration-build-style-menu reverse] 4 (#$ . 16574)])
#@1117 Define a new decoration style with NAME.
DOC is a documentation string describing the decoration style NAME.
It is appended to auto-generated doc strings.
An optional list of FLAGS can also be specified. Flags are:
:enabled <value> - specify the default enabled value for NAME.
:load <value> - specify a feature (as a string) with the rest of
the definition for decoration mode NAME.
This defines two new overload functions respectively called `NAME-p'
and `NAME-highlight', for which you must provide a default
implementation in respectively the functions `NAME-p-default' and
`NAME-highlight-default'. Those functions are passed a tag. `NAME-p'
must return non-nil to indicate that the tag should be decorated by
`NAME-highlight'.
To put primary decorations on a tag `NAME-highlight' must use
functions like `semantic-set-tag-face', `semantic-set-tag-read-only',
etc., found in the semantic-decorate library.
To add other kind of decorations on a tag, `NAME-highlight' must use
`semantic-decorate-tag', and other functions of the semantic
decoration API found in this library.
(defalias 'define-semantic-decoration-style '(macro . #[(name doc &rest flags) "\306\307\310 \"!)\306\307\311 \"!)\306\307\312 \"!)\306\307\313 \"!)\314\n\315\"\2032 \316\n\315\"\2023 \317\314\n\320\"\205> \316\n\320\" $ % &\321\322\323&\324\307\325'#F\323%\326\307\327'#F\330\331\332\333\334!D\fEE\335\336 D\337\340\333$DD\341\333$D\333 D\342BBBE\337\340\333
DD\341\333
D\333 D\343BBBEF\257.\207" [name style flags loadfile defaultenable highlighterdef intern format "%s-p" "%s-highlight" "%s-p-default" "%s-highlight-default" plist-member :enabled plist-get t :load progn (setq semantic-decoration-menu-cache nil) define-overloadable-function (tag) "Return non-nil to decorate TAG with `%s' style.\n%s" (tag) "Decorate TAG with `%s' style.\n%s" add-to-list 'semantic-decoration-styles cons quote symbol-name when stringp unless fboundp autoload ("Return non-nil to decorate TAG.") ("Decorate TAG.") predicatedef highlighter predicate doc] 14 (#$ . 16901)]))
(byte-code "\301\211\207" [semantic-decoration-menu-cache nil] 2)
#@156 Return non-nil to decorate TAG with `semantic-tag-boundary' style.
Place an overline in front of each long tag.
Does not provide overlines for prototypes.
(defalias 'semantic-tag-boundary-p #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-tag-boundary-p nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-tag-boundary-p-default] 13 (#$ . 19073)])
(put 'semantic-tag-boundary-p 'mode-local-overload t)
#@138 Decorate TAG with `semantic-tag-boundary' style.
Place an overline in front of each long tag.
Does not provide overlines for prototypes.
(defalias 'semantic-tag-boundary-highlight #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-tag-boundary-highlight nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-tag-boundary-highlight-default] 13 (#$ . 20185)])
(byte-code "\302\303\304\305#\210\306\305B\211 \235\204 B)\307\310\311\312\313\314%\207" [#:x semantic-decoration-styles put semantic-tag-boundary-highlight mode-local-overload t "semantic-tag-boundary" custom-declare-face semantic-tag-boundary-face ((((class color) (background dark)) (:overline "cyan")) (((class color) (background light)) (:overline "blue"))) "Face used to show long tags in.\nUsed by decoration style: `semantic-tag-boundary'." :group semantic-faces] 7)
#@63 Return non-nil if TAG is a type, or a non-prototype function.
(defalias 'semantic-tag-boundary-p-default #[(tag) "\211A@)\211\303=\204% \304=\205& \305\306\3078)\n\"*?\205& \310)\207" [tag c attribute type function :prototype-flag plist-get 2 t] 4 (#$ . 21728)])
#@48 Highlight the first line of TAG as a boundary.
(defalias 'semantic-tag-boundary-highlight-default #[(tag) "\302\303!!\205P r\303!q\210\304\211\211\3058)\306 !\203% \307 !\202( \310H*\212\211\3058)\306 !\203? \307 !\202B \310H*b\210\311\210\312u\210`)\313$)\207" [tag o bufferp semantic-tag-buffer semantic-decorate-tag 4 overlayp overlay-start 0 nil 1 semantic-tag-boundary-face] 6 (#$ . 22007)])
(byte-code "\301\211\207" [semantic-decoration-menu-cache nil] 2)
#@148 Return non-nil to decorate TAG with `semantic-decoration-on-private-members' style.
Highlight class members that are designated as PRIVATE access.
(defalias 'semantic-decoration-on-private-members-p #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-decoration-on-private-members-p nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-decoration-on-private-members-p-default] 13 (#$ . 22493)])
(put 'semantic-decoration-on-private-members-p 'mode-local-overload t)
#@130 Decorate TAG with `semantic-decoration-on-private-members' style.
Highlight class members that are designated as PRIVATE access.
(defalias 'semantic-decoration-on-private-members-highlight #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-decoration-on-private-members-highlight nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-decoration-on-private-members-highlight-default] 13 (#$ . 23665)])
(byte-code "\302\303\304\305#\210\306\307B\211 \235\204 B)\310\311\312\313\314\315%\207" [#:x semantic-decoration-styles put semantic-decoration-on-private-members-highlight mode-local-overload t "semantic-decoration-on-private-members" nil custom-declare-face semantic-decoration-on-private-members-face ((((class color) (background dark)) (:background "#200000")) (((class color) (background light)) (:background "#8fffff"))) "Face used to show privately scoped tags in.\nUsed by the decoration style: `semantic-decoration-on-private-members'." :group semantic-faces] 7)
#@79 Highlight TAG as designated to have PRIVATE access.
Use a primary decoration.
(defalias 'semantic-decoration-on-private-members-highlight-default #[(tag) "\301\302\"\207" [tag semantic-set-tag-face semantic-decoration-on-private-members-face] 3 (#$ . 25349)])
#@43 Return non-nil if TAG has PRIVATE access.
(defalias 'semantic-decoration-on-private-members-p-default #[(tag) "\211A@)\301>\205 \302!\303=\207" [tag #'variable semantic-tag-protection private] 3 (#$ . 25616)])
(byte-code "\301\302\303\304\305\306%\210\307\211\207" [semantic-decoration-menu-cache custom-declare-face semantic-decoration-on-protected-members-face ((((class color) (background dark)) (:background "#000020")) (((class color) (background light)) (:background "#fffff8"))) "Face used to show protected scoped tags in.\nUsed by the decoration style: `semantic-decoration-on-protected-members'." :group semantic-faces nil] 7)
#@152 Return non-nil to decorate TAG with `semantic-decoration-on-protected-members' style.
Highlight class members that are designated as PROTECTED access.
(defalias 'semantic-decoration-on-protected-members-p #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-decoration-on-protected-members-p nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-decoration-on-protected-members-p-default] 13 (#$ . 26265)])
(put 'semantic-decoration-on-protected-members-p 'mode-local-overload t)
#@134 Decorate TAG with `semantic-decoration-on-protected-members' style.
Highlight class members that are designated as PROTECTED access.
(defalias 'semantic-decoration-on-protected-members-highlight #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-decoration-on-protected-members-highlight nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-decoration-on-protected-members-highlight-default] 13 (#$ . 27449)])
(byte-code "\302\303\304\305#\210\306\307B\211 \235\204 B)\307\207" [#:x semantic-decoration-styles put semantic-decoration-on-protected-members-highlight mode-local-overload t "semantic-decoration-on-protected-members" nil] 5)
#@45 Return non-nil if TAG has PROTECTED access.
(defalias 'semantic-decoration-on-protected-members-p-default #[(tag) "\211A@)\301>\205 \302!\303=\207" [tag #'variable semantic-tag-protection protected] 3 (#$ . 28798)])
#@81 Highlight TAG as designated to have PROTECTED access.
Use a primary decoration.
(defalias 'semantic-decoration-on-protected-members-highlight-default #[(tag) "\301\302\"\207" [tag semantic-set-tag-face semantic-decoration-on-protected-members-face] 3 (#$ . 29024)])
(byte-code "\301\211\207" [semantic-decoration-menu-cache nil] 2)
#@187 Return non-nil to decorate TAG with `semantic-decoration-on-includes' style.
Highlight class members that are includes.
This mode provides a nice context menu on the include statements.
(defalias 'semantic-decoration-on-includes-p #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-decoration-on-includes-p nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-decoration-on-includes-p-default] 13 (#$ . 29365)])
(put 'semantic-decoration-on-includes-p 'mode-local-overload t)
#@169 Decorate TAG with `semantic-decoration-on-includes' style.
Highlight class members that are includes.
This mode provides a nice context menu on the include statements.
(defalias 'semantic-decoration-on-includes-highlight #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-decoration-on-includes-highlight nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-decoration-on-includes-highlight-default] 13 (#$ . 30548)])
(byte-code "\302\303\304\305#\210\306\305B\211 \235\204 B)\307\310!\204! \311\310\312\313#\210\307\314!\204- \311\314\312\315#\210\316\317!\207" [#:x semantic-decoration-styles put semantic-decoration-on-includes-highlight mode-local-overload t "semantic-decoration-on-includes" fboundp semantic-decoration-on-includes-p-default autoload "semantic/decorate/include" "Return non-nil to decorate TAG." semantic-decoration-on-includes-highlight-default "Decorate TAG." provide semantic/decorate/mode] 5)
Mini Shell