Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
analyze	[ DIR ]	drwxr-xr-x
bovine	[ DIR ]	drwxr-xr-x
decorate	[ DIR ]	drwxr-xr-x
symref	[ DIR ]	drwxr-xr-x
wisent	[ DIR ]	drwxr-xr-x
analyze.elc	28.54 KB	-rw-r--r--
bovine.elc	4.98 KB	-rw-r--r--
chart.elc	4.28 KB	-rw-r--r--
complete.elc	76.43 KB	-rw-r--r--
ctxt.elc	35.96 KB	-rw-r--r--
db-debug.elc	2.75 KB	-rw-r--r--
db-ebrowse.elc	19.95 KB	-rw-r--r--
db-el.elc	13.43 KB	-rw-r--r--
db-file.elc	14.32 KB	-rw-r--r--
db-find.elc	42.67 KB	-rw-r--r--
db-global.elc	9.38 KB	-rw-r--r--
db-javascript.elc	10.97 KB	-rw-r--r--
db-mode.elc	6.7 KB	-rw-r--r--
db-ref.elc	4.96 KB	-rw-r--r--
db-typecache.elc	18.33 KB	-rw-r--r--
db.elc	39.36 KB	-rw-r--r--
debug.elc	17.84 KB	-rw-r--r--
decorate.elc	8.29 KB	-rw-r--r--
dep.elc	7.5 KB	-rw-r--r--
doc.elc	4.14 KB	-rw-r--r--
ede-grammar.elc	9.58 KB	-rw-r--r--
edit.elc	21.04 KB	-rw-r--r--
find.elc	24.37 KB	-rw-r--r--
format.elc	34.91 KB	-rw-r--r--
fw.elc	12.36 KB	-rw-r--r--
grammar-wy.elc	53.64 KB	-rw-r--r--
grammar.elc	78.55 KB	-rw-r--r--
html.elc	7.16 KB	-rw-r--r--
ia-sb.elc	9.44 KB	-rw-r--r--
ia.elc	11.76 KB	-rw-r--r--
idle.elc	60.12 KB	-rw-r--r--
imenu.elc	12.07 KB	-rw-r--r--
java.elc	16.47 KB	-rw-r--r--
lex-spp.elc	34.13 KB	-rw-r--r--
lex.elc	77.22 KB	-rw-r--r--
loaddefs.el	58.17 KB	-rw-r--r--
mru-bookmark.elc	15.46 KB	-rw-r--r--
sb.elc	11.45 KB	-rw-r--r--
scope.elc	25 KB	-rw-r--r--
senator.elc	29.09 KB	-rw-r--r--
sort.elc	18.84 KB	-rw-r--r--
symref.elc	17.35 KB	-rw-r--r--
tag-file.elc	6.45 KB	-rw-r--r--
tag-ls.elc	24.72 KB	-rw-r--r--
tag-write.elc	3.77 KB	-rw-r--r--
tag.elc	54.36 KB	-rw-r--r--
texi.elc	16.99 KB	-rw-r--r--
util-modes.elc	44.17 KB	-rw-r--r--
util.elc	13.24 KB	-rw-r--r--
wisent.elc	7.67 KB	-rw-r--r--

Code Editor : decorate.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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!\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)

${this.title}

Code Editor : decorate.elc