ikan Uploader :
Directory : /proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/decorate/
Upload File : |
| Current File : //proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/decorate/mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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 (#$ . 978)])
(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 (#$ . 1230)])
(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 (#$ . 1497)])
(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 (#$ . 1774)])
(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 semantic-overlay-p semantic-overlay-get semantic-decoration] 3 (#$ . 2065)])
(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 semantic-overlay-p semantic-overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco) semantic-overlay-put] 4 (#$ . 2350)])
(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 semantic-overlay-p semantic-overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco)] 3 (#$ . 2809)])
(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 semantic-overlay-p semantic-overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco) semantic-overlay-put] 5 (#$ . 3217)])
(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 semantic-overlay-p semantic-overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco)] 4 (#$ . 3677)])
(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) semantic-overlay-p semantic-overlay-get semantic-decoration (semantic-decoration-p deco) semantic-overlay-put] 5 (#$ . 4071)])
(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 semantic-overlay-p semantic-overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco)] 4 (#$ . 4608)])
(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 semantic-overlay-p semantic-overlay-get semantic-decoration cl--assertion-failed (semantic-decoration-p deco) semantic-overlay-move] 4 (#$ . 5018)])
(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 semantic-overlay-put semantic-decoration t semantic-overlay-p semantic-overlay-get cl--assertion-failed (semantic-decoration-p deco) semantic-overlay-move (semantic-decoration-p deco) value property] 5 (#$ . 5470)])
#@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 semantic-overlay-p semantic-overlay-get semantic-decoration cl--assertion-failed (or (null deco) (semantic-decoration-p deco)) semantic-unhighlight-tag semantic-tag-delete-secondary-overlay] 3 (#$ . 6217)])
#@33 Return decoration found on TAG.
(defalias 'semantic-decorate-tag-decoration #[(tag) "\301\302\"\207" [tag semantic-tag-get-secondary-overlay semantic-decoration] 3 (#$ . 6694)])
#@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 semantic-overlays-in nil semantic-overlay-p semantic-overlay-get semantic-decoration semantic-overlay-delete] 4 (#$ . 6880)])
#@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 (#$ . 7411)])
#@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 (#$ . 7749)])
#@56 Normal hook run to perform pending decoration changes.
(defvar semantic-decorate-pending-decoration-hook nil (#$ . 8410))
(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 (#$ . 8662)])
#@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 (#$ . 9015)])
#@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 '(#$ . 9334) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean)
#@151 Toggle global use of option `semantic-decoration-mode'.
Decoration mode turns on all active decorations as specified
by `semantic-decoration-styles'.
(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 (#$ . 9852) (list (or current-prefix-arg 'toggle))])
#@196 Hook run after entering or leaving `global-semantic-decoration-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar global-semantic-decoration-mode-hook nil (#$ . 10859))
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\303\307\310\311\312\313&\207" [global-semantic-decoration-mode-map 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 (#$ . 11460))
(make-variable-buffer-local 'semantic-decoration-mode)
#@396 Minor mode for decorating tags.
Decorations are specified in `semantic-decoration-styles'.
You can define new decoration styles with
`define-semantic-decoration-style'.
With prefix argument ARG, turn on if positive, otherwise off. 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 (#$ . 11689) (list (or current-prefix-arg 'toggle))])
#@189 Hook run after entering or leaving `semantic-decoration-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar semantic-decoration-mode-hook nil (#$ . 13432))
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\302\306\"\207" [semantic-decoration-mode-map 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 (#$ . 13869)])
#@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 (#$ . 14325)])
#@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 (#$ . 14702)])
#@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 (#$ . 14961) (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 (#$ . 15822))
#@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 (#$ . 15915)])
#@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 (#$ . 16246)])
#@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 (#$ . 16573)]))
(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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-tag-boundary-p nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-tag-boundary-p-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 18745)])
(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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-tag-boundary-highlight nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-tag-boundary-highlight-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 19819)])
(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 (#$ . 21325)])
#@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 semantic-overlay-p semantic-overlay-start 0 nil 1 semantic-tag-boundary-face] 6 (#$ . 21604)])
(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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-decoration-on-private-members-p nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-decoration-on-private-members-p-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 22109)])
(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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-decoration-on-private-members-highlight nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-decoration-on-private-members-highlight-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 23243)])
(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 (#$ . 24890)])
#@43 Return non-nil if TAG has PRIVATE access.
(defalias 'semantic-decoration-on-private-members-p-default #[(tag) "\211A@)\301\235\205 \302!\303=\207" [tag #'variable semantic-tag-protection private] 3 (#$ . 25157)])
(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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-decoration-on-protected-members-p nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-decoration-on-protected-members-p-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 25810)])
(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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-decoration-on-protected-members-highlight nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-decoration-on-protected-members-highlight-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 26956)])
(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\235\205 \302!\303=\207" [tag #'variable semantic-tag-protection protected] 3 (#$ . 28267)])
#@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 (#$ . 28496)])
(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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-decoration-on-includes-p nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-decoration-on-includes-p-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 28837)])
(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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-decoration-on-includes-highlight nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-decoration-on-includes-highlight-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 29982)])
(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)
Kontol Shell Bypass