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



#@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 (#$ . 84)])
(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 (#$ . 416)])
(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 (#$ . 689)])
(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 (#$ . 1107)])
(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 (#$ . 1454)])
(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 (#$ . 1843)])
(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 (#$ . 2172)])
(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 (#$ . 2571)])
(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 (#$ . 2955)])
(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 (#$ . 3632)])
(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)
#@1565 Search for the next region of text where PREDICATE is true.
PREDICATE is used to decide whether a value of PROPERTY should be
considered as matching 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.

Two special values of PREDICATE can also be used:
If PREDICATE is t, that means a value must `equal' VALUE to be
considered a match.
If PREDICATE is nil (which is the default value), a value will
match if is not `equal' to VALUE.  Furthermore, a nil PREDICATE
means that the match region is ended if the value changes.  For
instance, this means that if you loop with

  (while (setq prop (text-property-search-forward 'face))
    ...)

you will get all distinct regions with non-nil `face' values in
the buffer, and the `prop' object will have the details about the
match.  See the manual for more details and examples about how
VALUE and PREDICATE interact.

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.

If no matches can be found, return nil and don't move point.
If found, move point to the 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.

(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\2048b\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 (#$ . 4366) (byte-code "\301\302\"\211G\303V\205\304
\"\262
C\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 (#$ . 6474)])
#@270 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, place point at the start of the region.

(fn PROPERTY &optional VALUE PREDICATE NOT-CURRENT)
(defalias 'text-property-search-backward #[1025 "o\203\300\207\301\302`S\"#\203:`\303`S$\2039\302`\"\302\"\232\2039\304#\207\207`\300\211\305u\210
\204\214\306`\"\262
\211\204Xb\210\307\262\202@\211Sb\210\301\302`\n\"#\203x\303`$\262\202@\306`\"\262
\211\204@b\210\307\262\202@
\307=?\205\224
\207" [nil text-property--match-p get-text-property text-property--find-end-backward text-property-search-backward -1 previous-single-property-change t] 12 (#$ . 6902) (byte-code "\301\302\"\211G\303V\205\304
\"\262
C\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 (#$ . 7816)])
#@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 (#$ . 8256)])
(provide 'text-property-search)