Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/decorate.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!\207" [require semantic pulse] 2)
#@82 Specify that TAG should be highlighted.
Optional FACE specifies the face to use.
(defalias 'semantic-highlight-tag #[(tag &optional face) "\3038)\304 \305\306 \302\"\306 \305\"B#\210\304 \302\n\206 \307#)\207" [tag o face 4 overlay-put old-face overlay-get semantic-tag-highlight-face] 7 (#$ . 476)])
#@47 Unhighlight TAG, restoring its previous face.
(defalias 'semantic-unhighlight-tag #[(tag) "\3028)\303 \304\305 \306\"@#\210\303 \306\305 \306\"A#)\207" [tag o 4 overlay-put face overlay-get old-face] 6 (#$ . 788)])
#@136 Highlight the first line of TAG, unhighlighting before next command.
Optional argument FACE specifies the face to do the highlighting.
(defalias 'semantic-momentary-highlight-one-tag-line #[(tag &optional face) "\212\301!\210\302`!)\207" [tag semantic-go-to-tag pulse-momentary-highlight-one-line] 2 (#$ . 1014)])
#@181 Highlight TAG, removing highlighting when the user hits a key.
Optional argument FACE is the face to use for highlighting.
If FACE is not specified, then `highlight' will be used.
(defalias 'semantic-momentary-highlight-tag #[(tag &optional face) "\302!\205 \303\3048)!\204 \305 \"\207\306\3048) \"\207" [tag face semantic-tag-with-position-p overlayp 4 semantic-momentary-highlight-one-tag-line pulse-momentary-highlight-overlay] 3 (#$ . 1336)])
#@47 Specify that TAG should use FACE for display.
(defalias 'semantic-set-tag-face #[(tag face) "\302\3038)\301 #\207" [tag face overlay-put 4] 4 (#$ . 1799)])
#@92 Enable the text in TAG to be made invisible.
If VISIBLE is non-nil, make the text visible.
(defalias 'semantic-set-tag-invisible #[(tag &optional visible) "\302\3038)\304 ?#\207" [tag visible overlay-put 4 invisible] 4 (#$ . 1964)])
#@37 Return non-nil if TAG is invisible.
(defalias 'semantic-tag-invisible-p #[(tag) "\301\3028)\303\"\207" [tag overlay-get 4 invisible] 3 (#$ . 2206)])
#@168 Hook used in modification hooks to prevent modification.
Allows deletion of the entire text.
Argument OVERLAY, AFTER, START, END, and LEN are passed in by the system.
(defalias 'semantic-overlay-signal-read-only #[(overlay after start end &optional len) "?\205 \304 !\nW\204 \305 ! V\205 \306\307!\207" [after overlay start end overlay-start overlay-end error "This text is read only"] 2 (#$ . 2365)])
#@139 Enable the text in TAG to be made read-only.
Optional argument WRITABLE should be non-nil to make the text writable
instead of read-only.
(defalias 'semantic-set-tag-read-only #[(tag &optional writable) "\3048) ?\205\f \305\306 \307\n#\210\306 \310\n#\210\306 \311\n#*\207" [tag writable hook o 4 (overlay-signal-read-only) overlay-put modification-hooks insert-in-front-hooks insert-behind-hooks] 4 (#$ . 2778)])
#@56 Return non-nil if the current TAG is marked read only.
(defalias 'semantic-tag-read-only-p #[(tag) "\3028)\303\304 \305\">)\207" [tag o 4 semantic-overlay-signal-read-only overlay-get modification-hooks] 4 (#$ . 3203)])
#@52 Return a list of secondary overlays active on TAG.
(defalias 'semantic-tag-secondary-overlays #[(tag) "\302\303\3048) \"*\207" [tag property secondary-overlays plist-get 3] 3 (#$ . 3433)])
#@309 Create a secondary overlay for TAG.
Returns an overlay. The overlay is also saved in TAG.
LINK-HOOK is a function called whenever TAG is to be linked into
a buffer. It should take TAG and OVERLAY as arguments.
The LINK-HOOK should be used to position and set properties on the
generated secondary overlay.
(defalias 'semantic-tag-create-secondary-overlay #[(tag &optional link-hook) "\3068)\205x \211\3068)\307 !\203 \310 !\202! \311H*\211\3068)\307 !\2038 \312 !\202; \313H*\314\n \315!\316$\317! \320\321 \fB#\210\322 \323\316#\210\322 \324
#\210\325\305\326#\210\325\327\330#\210\325\331\332#\210\333
#\210 ,\207" [tag o os oe attr link-hook 4 overlayp overlay-start 0 overlay-end 1 make-overlay semantic-tag-buffer t semantic-tag-secondary-overlays semantic--tag-put-property secondary-overlays overlay-put semantic-secondary semantic-link-hook semantic-tag-add-hook semantic--tag-link-secondary-overlays unlink-hook semantic--tag-unlink-secondary-overlays unlink-copy-hook semantic--tag-unlink-copy-secondary-overlays run-hook-with-args] 6 (#$ . 3635)])
#@121 Return secondary overlays from TAG with PROPERTY.
PROPERTY is a symbol and all overlays with that symbol are returned..
(defalias 'semantic-tag-get-secondary-overlay #[(tag property) "\304!\305 \203 \306 @ \"\203 @\nB A\211\204\n \n*\207" [tag olsearch o property semantic-tag-secondary-overlays nil overlay-get] 4 (#$ . 4730)])
#@192 Delete from TAG the secondary overlay OVERLAY-OR-PROPERTY.
If OVERLAY-OR-PROPERTY is an overlay, delete that overlay.
If OVERLAY-OR-PROPERTY is a symbol, find the overlay with that property.
(defalias 'semantic-tag-delete-secondary-overlay #[(tag overlay-or-property) "\303 !\203 C\202 \304\n\"\303 @!\2051 \305\n\306\307 @\310\n!\"#\210\311 @!\210 A\202 )\207" [overlay-or-property o tag overlayp semantic-tag-get-secondary-overlay semantic--tag-put-property secondary-overlays delete semantic-tag-secondary-overlays delete-overlay] 7 (#$ . 5074)])
#@135 Unlink secondary overlays from TAG which is a copy.
This means we don't destroy the overlays, only remove reference
from them in TAG.
(defalias 'semantic--tag-unlink-copy-secondary-overlays #[(tag) "\302!\211\203! \303\304\305#\210\303\306\307#\210\303\310\311#\210 A\211\204 \312\313\314#)\207" [tag ol semantic-tag-secondary-overlays semantic-tag-remove-hook link-hook semantic--tag-link-secondary-overlays unlink-hook semantic--tag-unlink-secondary-overlays unlink-copy-hook semantic--tag-unlink-copy-secondary-overlays semantic--tag-put-property secondary-overlays nil] 5 (#$ . 5641)])
#@37 Unlink secondary overlays from TAG.
(defalias 'semantic--tag-unlink-secondary-overlays #[(tag) "\303!\304\211\203; \305\n@\306\"\203 \305\n@\306\" B\202/ \307\310\311#\210\307\312\313#\210\307\314\315#\210\316\n@!\210\nA\211\204\n \317\320 \237#*\207" [tag nl ol semantic-tag-secondary-overlays nil overlay-get semantic-link-hook semantic-tag-remove-hook link-hook semantic--tag-link-secondary-overlays unlink-hook semantic--tag-unlink-secondary-overlays unlink-copy-hook semantic--tag-unlink-copy-secondary-overlays delete-overlay semantic--tag-put-property secondary-overlays] 5 (#$ . 6245)])
#@37 Unlink secondary overlays from TAG.
(defalias 'semantic--tag-link-secondary-overlays #[(tag) "\302!\303\304\305#\210 \205 \306 @\"\210 A\211\204 \305)\207" [tag ol semantic-tag-secondary-overlays semantic--tag-put-property secondary-overlays nil semantic-tag-create-secondary-overlay] 5 (#$ . 6856)])
#@162 Fold TAG, such that only the first line of text is shown.
Optional argument FOLDED should be non-nil to fold the tag.
nil implies the tag should be fully shown.
(defalias 'semantic-set-tag-folded #[(tag &optional folded) "\304!\n\204 \205| \305\306\"\202| ?\205| \307!\310 \306\311#\210\212\211\3128)\313 !\2038 \314 !\202; \315H*b\210\316\210\317 `\211\3128)\313 !\203Y \320 !\202\\ \321H*#\210) \311=\204m \322\323 \"\204q \324\325!\210\310 \326\323#\210\310 \327\330#)\207" [tag o folded buffer-invisibility-spec semantic-tag-folded-p semantic-tag-delete-secondary-overlay semantic-folded semantic-tag-create-secondary-overlay overlay-put t 4 overlayp overlay-start 0 nil move-overlay overlay-end 1 assoc semantic-fold add-to-invisibility-spec (semantic-fold . t) invisible isearch-open-invisible semantic-set-tag-folded-isearch] 6 (#$ . 7171)])
#@95 Called by isearch if it discovers text in the folded region.
OVERLAY is passed in by isearch.
(defalias 'semantic-set-tag-folded-isearch #[(overlay) "\300\301 \302\"\207" [semantic-set-tag-folded semantic-current-tag nil] 3 (#$ . 8047)])
#@37 Non-nil if TAG is currently folded.
(defalias 'semantic-tag-folded-p #[(tag) "\301\302\"\207" [tag semantic-tag-get-secondary-overlay semantic-folded] 3 (#$ . 8291)])
(provide 'semantic/decorate)
Mini Shell