;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require semantic pulse] 2)
#@107 Specify that TAG should be highlighted.
Optional FACE specifies the face to use.

(fn TAG &optional FACE)
(defalias 'semantic-highlight-tag #[513 "
\300
8\262
\301
\302\303\304\"\303\302\"B#\210\301
\304\206\305#\207" [4 overlay-put old-face overlay-get face semantic-tag-highlight-face] 10 (#$ . 153)])
#@57 Unhighlight TAG, restoring its previous face.

(fn TAG)
(defalias 'semantic-unhighlight-tag #[257 "\211\300
8\262
\301
\302\303\304\"@#\210\301
\304\303\304\"A#\207" [4 overlay-put face overlay-get old-face] 8 (#$ . 468)])
#@161 Highlight the first line of TAG, unhighlighting before next command.
Optional argument FACE specifies the face to do the highlighting.

(fn TAG &optional FACE)
(defalias 'semantic-momentary-highlight-one-tag-line #[513 "\212\300!\210\301`!)\207" [semantic-go-to-tag pulse-momentary-highlight-one-line] 4 (#$ . 700)])
#@206 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.

(fn TAG &optional FACE)
(defalias 'semantic-momentary-highlight-tag #[513 "\300!\205\301\302
8\262
!\204\303\"\207\304\302
8\262
\"\207" [semantic-tag-with-position-p overlayp 4 semantic-momentary-highlight-one-tag-line pulse-momentary-highlight-overlay] 6 (#$ . 1025)])
#@62 Specify that TAG should use FACE for display.

(fn TAG FACE)
(defalias 'semantic-set-tag-face #[514 "\300\301
8\262
\302#\207" [overlay-put 4 face] 6 (#$ . 1493)])
#@120 Enable the text in TAG to be made invisible.
If VISIBLE is non-nil, make the text visible.

(fn TAG &optional VISIBLE)
(defalias 'semantic-set-tag-invisible #[513 "\300\301
8\262
\302?#\207" [overlay-put 4 invisible] 6 (#$ . 1666)])
#@47 Return non-nil if TAG is invisible.

(fn TAG)
(defalias 'semantic-tag-invisible-p #[257 "\300
\301
8\262
\302\"\207" [overlay-get 4 invisible] 5 (#$ . 1907)])
#@212 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.

(fn OVERLAY AFTER START END &optional LEN)
(defalias 'semantic-overlay-signal-read-only #[1284 "?\205\300!W\204\301!V\205\302\303!\207" [overlay-start overlay-end error "This text is read only"] 7 (#$ . 2073)])
#@168 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.

(fn TAG &optional WRITABLE)
(defalias 'semantic-set-tag-read-only #[513 "
\300
8\262

?\205\f\301\302\303#\210\302\304#\210\302\305#\207" [4 (overlay-signal-read-only) overlay-put modification-hooks insert-in-front-hooks insert-behind-hooks] 8 (#$ . 2470)])
#@66 Return non-nil if the current TAG is marked read only.

(fn TAG)
(defalias 'semantic-tag-read-only-p #[257 "\211\300
8\262
\301\302\303\">\207" [4 semantic-overlay-signal-read-only overlay-get modification-hooks] 6 (#$ . 2880)])
#@62 Return a list of secondary overlays active on TAG.

(fn TAG)
(defalias 'semantic-tag-secondary-overlays #[257 "\211\300\301\302
8\262
\"\207" [secondary-overlays plist-get 3] 7 (#$ . 3116)])
#@339 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.

(fn TAG &optional LINK-HOOK)
(defalias 'semantic-tag-create-secondary-overlay #[513 "
\300
8\262
\205~
\211\300
8\262
\301
!\203\302
!\266\202\202#\211\303H\266\202\211\300
8\262
\301
!\2038\304
!\266\202\202=\211\305H\266\202\306\307!\310$\311!\312\313B#\210\314\315\310#\210\314\316#\210\317\320\321#\210\317\322\323#\210\317\324\325#\210\326#\210
\266\204\207" [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 link-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] 11 (#$ . 3316)])
#@140 Return secondary overlays from TAG with PROPERTY.
PROPERTY is a symbol and all overlays with that symbol are returned..

(fn TAG PROPERTY)
(defalias 'semantic-tag-get-secondary-overlay #[514 "\300!\301
\203\302@\"\203
@
B\262

A\262\202\207" [semantic-tag-secondary-overlays nil overlay-get] 7 (#$ . 4452)])
#@222 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.

(fn TAG OVERLAY-OR-PROPERTY)
(defalias 'semantic-tag-delete-secondary-overlay #[514 "\211\300!\203
C\262
\202\301\"\262
\300
@!\2054\302\303\304@\305!\"#\210\306
@!\210\211A\262
\202\207" [overlayp semantic-tag-get-secondary-overlay semantic--tag-put-property secondary-overlays delete semantic-tag-secondary-overlays delete-overlay] 10 (#$ . 4777)])
#@145 Unlink secondary overlays from TAG which is a copy.
This means we don't destroy the overlays, only remove reference
from them in TAG.

(fn TAG)
(defalias 'semantic--tag-unlink-copy-secondary-overlays #[257 "\300
!\211\203 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211A\262
\202\310\311\312#\207" [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] 6 (#$ . 5341)])
#@47 Unlink secondary overlays from TAG.

(fn TAG)
(defalias 'semantic--tag-unlink-secondary-overlays #[257 "\300
!\301
\203:\302@\303\"\203\302@\303\"
B\262
\202.\304\305\306#\210\304\307\310#\210\304\311\312#\210\313@!\210
A\262\202\314\315\237#\207" [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] 7 (#$ . 5947)])
#@47 Unlink secondary overlays from TAG.

(fn TAG)
(defalias 'semantic--tag-link-secondary-overlays #[257 "\300
!\301\302\303#\210\211\205\304@\"\210\211A\262
\202	\207" [semantic-tag-secondary-overlays semantic--tag-put-property secondary-overlays nil semantic-tag-create-secondary-overlay] 6 (#$ . 6549)])
#@189 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.

(fn TAG &optional FOLDED)
(defalias 'semantic-set-tag-folded #[513 "\301!
\204\211\205{\302\303\"\207\211?\205{\304!\262
\305
\303\306#\210\212\211\307
8\262
\310
!\2036\311
!\266\202\202;\211\312H\266\202b\210\313\210\314
`\211\307
8\262
\310
!\203X\315
!\266\202\202]\211\316H\266\202#\210)\306=\204l\317\236\204p\320\321!\210\305
\322\317#\210\305
\323\324#\207" [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 semantic-fold add-to-invisibility-spec (semantic-fold . t) invisible isearch-open-invisible semantic-set-tag-folded-isearch] 10 (#$ . 6865)])
#@109 Called by isearch if it discovers text in the folded region.
OVERLAY is passed in by isearch.

(fn OVERLAY)
(defalias 'semantic-set-tag-folded-isearch #[257 "\300\301 \302\"\207" [semantic-set-tag-folded semantic-current-tag nil] 4 (#$ . 7772)])
#@47 Non-nil if TAG is currently folded.

(fn TAG)
(defalias 'semantic-tag-folded-p #[257 "\300
\301\"\207" [semantic-tag-get-secondary-overlay semantic-folded] 4 (#$ . 8024)])
(provide 'semantic/decorate)