Current File : //proc/self/root/kunden/usr/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)