Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/emacs-lisp/text-property-search.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.

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


#@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\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 (#$ . 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\nb\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\nSb\210\303\304`\"#\204\nb\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)