Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
advice.elc	54 KB	-rw-r--r--
autoload.elc	28.25 KB	-rw-r--r--
avl-tree.elc	27.45 KB	-rw-r--r--
backquote.elc	4.68 KB	-rw-r--r--
backtrace.elc	40.98 KB	-rw-r--r--
benchmark.elc	3.74 KB	-rw-r--r--
bindat.elc	10.73 KB	-rw-r--r--
byte-opt.elc	39.59 KB	-rw-r--r--
byte-run.elc	17.44 KB	-rw-r--r--
bytecomp.elc	154.17 KB	-rw-r--r--
cconv.elc	20.71 KB	-rw-r--r--
chart.elc	25.98 KB	-rw-r--r--
check-declare.elc	9.01 KB	-rw-r--r--
checkdoc.elc	74.78 KB	-rw-r--r--
cl-extra.elc	29.37 KB	-rw-r--r--
cl-generic.elc	59.25 KB	-rw-r--r--
cl-indent.elc	18.03 KB	-rw-r--r--
cl-lib.elc	31.72 KB	-rw-r--r--
cl-loaddefs.el	45.79 KB	-rw-r--r--
cl-macs.elc	90.7 KB	-rw-r--r--
cl-preloaded.elc	27.28 KB	-rw-r--r--
cl-print.elc	14.77 KB	-rw-r--r--
cl-seq.elc	38.35 KB	-rw-r--r--
copyright.elc	10.17 KB	-rw-r--r--
crm.elc	7.62 KB	-rw-r--r--
cursor-sensor.elc	6.74 KB	-rw-r--r--
debug.elc	36.42 KB	-rw-r--r--
derived.elc	11.88 KB	-rw-r--r--
disass.elc	6.11 KB	-rw-r--r--
easy-mmode.elc	19.78 KB	-rw-r--r--
easymenu.elc	19.88 KB	-rw-r--r--
edebug.elc	123.13 KB	-rw-r--r--
eieio-base.elc	17.17 KB	-rw-r--r--
eieio-compat.elc	8.41 KB	-rw-r--r--
eieio-core.elc	36.91 KB	-rw-r--r--
eieio-custom.elc	15.8 KB	-rw-r--r--
eieio-datadebug.elc	3.17 KB	-rw-r--r--
eieio-loaddefs.el	3.96 KB	-rw-r--r--
eieio-opt.elc	9.32 KB	-rw-r--r--
eieio-speedbar.elc	13.13 KB	-rw-r--r--
eieio.elc	33.03 KB	-rw-r--r--
eldoc.elc	19.14 KB	-rw-r--r--
elint.elc	30.6 KB	-rw-r--r--
elp.elc	12.68 KB	-rw-r--r--
ert-x.elc	11.48 KB	-rw-r--r--
ert.elc	177.96 KB	-rw-r--r--
ewoc.elc	25.26 KB	-rw-r--r--
faceup.elc	16.97 KB	-rw-r--r--
find-func.elc	21.61 KB	-rw-r--r--
float-sup.elc	1.21 KB	-rw-r--r--
generator.elc	27.42 KB	-rw-r--r--
generic.elc	7.18 KB	-rw-r--r--
gv.elc	22.69 KB	-rw-r--r--
helper.elc	3.96 KB	-rw-r--r--
inline.elc	8.37 KB	-rw-r--r--
let-alist.elc	3.04 KB	-rw-r--r--
lisp-mnt.elc	22.59 KB	-rw-r--r--
lisp-mode.elc	38.03 KB	-rw-r--r--
lisp.elc	21.44 KB	-rw-r--r--
macroexp.elc	18.01 KB	-rw-r--r--
map-ynp.elc	10.54 KB	-rw-r--r--
map.elc	18.25 KB	-rw-r--r--
nadvice.elc	17.65 KB	-rw-r--r--
package-x.elc	9.06 KB	-rw-r--r--
package.elc	146.54 KB	-rw-r--r--
pcase.elc	23.11 KB	-rw-r--r--
pp.elc	5.5 KB	-rw-r--r--
radix-tree.elc	5.88 KB	-rw-r--r--
re-builder.elc	25.78 KB	-rw-r--r--
regexp-opt.elc	6.3 KB	-rw-r--r--
regi.elc	6 KB	-rw-r--r--
ring.elc	6.32 KB	-rw-r--r--
rmc.elc	4.79 KB	-rw-r--r--
rx.elc	40.69 KB	-rw-r--r--
seq.elc	23.64 KB	-rw-r--r--
shadow.elc	9.34 KB	-rw-r--r--
smie.elc	48.84 KB	-rw-r--r--
subr-x.elc	11.17 KB	-rw-r--r--
syntax.elc	26.13 KB	-rw-r--r--
tabulated-list.elc	26.57 KB	-rw-r--r--
tcover-ses.elc	14.29 KB	-rw-r--r--
tcover-unsafep.elc	3.87 KB	-rw-r--r--
testcover.elc	23.03 KB	-rw-r--r--
text-property-search.elc	8.13 KB	-rw-r--r--
thunk.elc	3.06 KB	-rw-r--r--
timer-list.elc	4.3 KB	-rw-r--r--
timer.elc	21.65 KB	-rw-r--r--
tq.elc	3.99 KB	-rw-r--r--
trace.elc	7.27 KB	-rw-r--r--
unsafep.elc	4.45 KB	-rw-r--r--
warnings.elc	9.75 KB	-rw-r--r--

Code Editor : text-property-search.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@69 compiler-macro for inlining `prop-match-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'prop-match-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block prop-match-p (and (memq (type-of cl-x) cl-struct-prop-match-tags) t)) nil] 9 (#$ . 408)])
(put 'prop-match-p 'compiler-macro 'prop-match-p--cmacro)
#@13

(fn CL-X)
(defalias 'prop-match-p #[257 "\301!>\205	�\302\207" [cl-struct-prop-match-tags type-of t] 3 (#$ . 741)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put prop-match-p side-effect-free error-free put prop-match cl-deftype-satisfies] 5)
#@77 compiler-macro for inlining `prop-match-beginning'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'prop-match-beginning--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block prop-match-beginning (progn (or (prop-match-p cl-x) (signal 'wrong-type-argument (list 'prop-match cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1014)])
(put 'prop-match-beginning 'compiler-macro 'prop-match-beginning--cmacro)
#@65 Access slot "beginning" of `prop-match' struct CL-X.

(fn CL-X)
(defalias 'prop-match-beginning #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-prop-match-tags type-of signal wrong-type-argument prop-match 1] 5 (#$ . 1433)])
(byte-code "\300\301\302\303#\300\207" [function-put prop-match-beginning side-effect-free t] 4)
#@71 compiler-macro for inlining `prop-match-end'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'prop-match-end--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block prop-match-end (progn (or (prop-match-p cl-x) (signal 'wrong-type-argument (list 'prop-match cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1780)])
(put 'prop-match-end 'compiler-macro 'prop-match-end--cmacro)
#@59 Access slot "end" of `prop-match' struct CL-X.

(fn CL-X)
(defalias 'prop-match-end #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-prop-match-tags type-of signal wrong-type-argument prop-match 2] 5 (#$ . 2169)])
(byte-code "\300\301\302\303#\300\207" [function-put prop-match-end side-effect-free t] 4)
#@73 compiler-macro for inlining `prop-match-value'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'prop-match-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block prop-match-value (progn (or (prop-match-p cl-x) (signal 'wrong-type-argument (list 'prop-match cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2498)])
(put 'prop-match-value 'compiler-macro 'prop-match-value--cmacro)
#@61 Access slot "value" of `prop-match' struct CL-X.

(fn CL-X)
(defalias 'prop-match-value #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-prop-match-tags type-of signal wrong-type-argument prop-match 3] 5 (#$ . 2897)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put prop-match-value side-effect-free t defalias copy-prop-match copy-sequence] 4)
#@98 compiler-macro for inlining `make-prop-match'.

(fn CL-WHOLE &cl-quote &key BEGINNING END VALUE)
(defalias 'make-prop-match--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=�\211@\304>\203&�\211AA\262\202�\305>A@\2034�\306\262\202�\307\310@\"\210\202�\210\311\312\313\306\306&\207" [plist-member :beginning :end :value (:beginning :end :value :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:beginning :end :value)" cl--defsubst-expand (beginning end value) (cl-block make-prop-match (record 'prop-match beginning end value))] 14 (#$ . 3281)])
(put 'make-prop-match 'compiler-macro 'make-prop-match--cmacro)
#@78 Constructor for objects of type `prop-match'.

(fn &key BEGINNING END VALUE)
(defalias 'make-prop-match #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=�\211@\304>\203&�\211AA\262\202�\305>A@\2034�\306\262\202�\307\310@\"\210\202�\210\311\312$\207" [plist-member :beginning :end :value (:beginning :end :value :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:beginning :end :value)" record prop-match] 9 (#$ . 3958)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-prop-match side-effect-free t cl-struct-define prop-match nil cl-structure-object record ((cl-tag-slot) (beginning) (end) (value)) cl-struct-prop-match-tags] 11)
#@1061 Search for the next region of text whose PROPERTY matches VALUE.

If not found, return nil and don't move point.
If found, move point to end of the region and return a `prop-match'
object describing the match.  To access the details of the match,
use `prop-match-beginning' and `prop-match-end' for the buffer
positions that limit the region, and `prop-match-value' for the
value of PROPERTY in the region.

PREDICATE is used to decide whether a value of PROPERTY should be
considered as matching VALUE.
If PREDICATE is t, that means a value must `equal' VALUE to be
considered a match.
If PREDICATE is nil, a value will match if it is non-nil and
is NOT `equal' to VALUE.
If PREDICATE is a function, it will be called with two arguments:
VALUE and the value of PROPERTY.  The function should return
non-nil if these two values are to be considered a match.

If NOT-CURRENT is non-nil, the function will search for the first
region that doesn't include point and has a value of PROPERTY
that matches VALUE.

(fn PROPERTY &optional VALUE PREDICATE NOT-CURRENT)
(defalias 'text-property-search-forward #[1025 "m\203�\300\207\301\302`\"#\203�\211\204�\303`$\207`\300\211\204k�\304`\"\262\211\2048�b\210\305\262\202 �\211b\210\301\302`\n\"#\203W�\303`$\262\202 �\304`\"\262\211\204 �b\210\305\262\202 �\305=?\205s�\207" [nil text-property--match-p get-text-property text-property--find-end-forward next-single-property-change t] 12 (#$ . 4692) (byte-code "\301\302\"\211G\303V\205�\304\"\262C\207" [obarray completing-read "Search for property: " 0 intern] 4)])
#@39

(fn START PROPERTY VALUE PREDICATE)
(defalias 'text-property--find-end-forward #[1028 "\300\203>�\204>�\300\211\204:�\301`\"\262\204%�db\210`\262\302\262\202\n�b\210\303\304`\"#\204\n�\302\262\202\n�\210\202I�\301`\300d$\262\211b\210\305\306\307\310\304\"&\207" [nil next-single-property-change t text-property--match-p get-text-property make-prop-match :beginning :end :value] 14 (#$ . 6296)])
#@260 Search for the previous region of text whose PROPERTY matches VALUE.

Like `text-property-search-forward', which see, but searches backward,
and if a matching region is found, moves point to its beginning.

(fn PROPERTY &optional VALUE PREDICATE NOT-CURRENT)
(defalias 'text-property-search-backward #[1025 "o\203�\300\207\301\302`S\"#\203�\211\204�\303`S$\207`\300\211\304u\210\204q�\305`\"\262\211\204=�b\210\306\262\202%�\211Sb\210\301\302`\n\"#\203]�\303`$\262\202%�\305`\"\262\211\204%�b\210\306\262\202%�\306=?\205y�\207" [nil text-property--match-p get-text-property text-property--find-end-backward -1 previous-single-property-change t] 12 (#$ . 6724) (byte-code "\301\302\"\211G\303V\205�\304\"\262C\207" [obarray completing-read "Search for property: " 0 intern] 4)])
#@39

(fn START PROPERTY VALUE PREDICATE)
(defalias 'text-property--find-end-backward #[1028 "\300\203B�\204B�\300\211\204>�\301`\"\262\204%�eb\210`\262\302\262\202\n�Sb\210\303\304`\"#\204\n�b\210\302\262\202\n�\210\202M�\301`\300e$\262\211b\210\305\306\307T\310\304\"&\207" [nil previous-single-property-change t text-property--match-p get-text-property make-prop-match :beginning :end :value] 14 (#$ . 7548)])
#@35

(fn VALUE PROP-VALUE PREDICATE)
(defalias 'text-property--match-p #[771 "\211\300\267\202�\301\262\202�\302\262\211\"\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 6 nil 12)) equal #[514 "\232?\207" [] 4 "\n\n(fn VAL P-VAL)"]] 6 (#$ . 7988)])
(provide 'text-property-search)

${this.title}

Code Editor : text-property-search.elc