;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require seq m-buffer-macro] 2)
#@1231 Return a list of all `match-data' for MATCH.
MATCH may be of the forms:
BUFFER REGEXP &optional MATCH-OPTIONS
WINDOW REGEXP &optional MATCH-OPTIONS
MATCH-OPTIONS

If BUFFER is given, search this buffer. If WINDOW is given search
the visible window. MATCH-OPTIONS is a plist with any of the
following keys:
:buffer -- the buffer to search
:regexp -- the regexp to search with
:begin -- the start of the region to search -- default point min
:end -- the end of the region to search -- default point max
:post-match -- function called after a match -- default nil
:widen -- if true, widen buffer first -- default nil
:case-fold-search value of `case-fold-search' during search.
If :default accept the current buffer-local value
:numeric -- if true, return integers not markers

If options are expressed in two places, the plist form takes
precedence over positional args. So calling with both a first
position buffer and a :buffer arg will use the second. Likewise,
if a window is given as first arg and :end is given, then
the :end value will be used.

REGEXP should advance point (i.e. not be zero-width) or the
function will loop infinitely. POST-MATCH can be used to avoid
this. The buffer is searched forward.

(fn &rest MATCH)
(defalias 'm-buffer-match #[128 "\300\301\302!\"\207" [apply m-buffer--match-1 m-buffer--normalize-args] 5 (#$ . 161)])
#@672 Return a list of `match-data'.

This is an internal function: please prefer `m-buffer-match'.

BUFFER -- the buffer.
REGEXP -- the regexp.
BEGIN -- the start of the region to search
END -- the end of the region to search
POST-MATCH -- function to run after each match
POST-MATCH is useful for zero-width matches which will otherwise
cause infinite loop. The buffer is searched forward. POST-MATCH
return can also be used to terminate the matching by returning nil.
WIDEN -- call widen first.
CFS -- Non-nil if searches and matches should ignore case.
NUMERIC -- Non-nil if we should return integers not markers.

(fn BUFFER REGEXP BEGIN END POST-MATCH WIDEN CFS NUMERIC)
(defalias 'm-buffer--match-1 #[2056 "rq\210\301 \302\303\"\216\212\214\203 ~\210\304\305\206 d\306=\203& \202' 	\206. eb\210\203a `X\203a \307\305#\203a \203N \310\301 !\202P \301 B\262\2030  \262\2020 \311!)\266\203+\262)\207" [case-fold-search match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] nil t :default re-search-forward m-buffer-marker-to-pos-nil reverse] 16 (#$ . 1519)])
#@134 Manipulate args into a standard form and return as a list.
MATCH-WITH are these args. This is an internal function.

(fn MATCH-WITH)
(defalias 'm-buffer--normalize-args #[257 "\300\301\"\302\303\"@\304\305\"\206 \306!\205 \211\304\307\"\206& \310!\205& \304\311\"\2060 A@\304\312\"\206> \205> \313!\304\314\"\206M \205M \315!\304\316\"\304\317\"\320	\321\"\203g \304	\321\"\202h \322\304\n\323\"\257\207" [seq-take-while #[257 "\300!?\207" [keywordp] 3 "\n\n(fn X)"] seq-drop-while #[257 "\300!?\207" [keywordp] 3 "\n\n(fn X)"] plist-get :buffer bufferp :window windowp :regexp :begin window-start :end window-end :post-match :widen plist-member :case-fold-search :default :numeric] 21 (#$ . 2639)])
#@180 Ensure that we have MATCH data.
If a single arg, assume it is match data and return. If multiple
args, assume they are of the form accepted by
`m-buffer-match'.

(fn &rest MATCH)
(defalias 'm-buffer-ensure-match #[128 "\211G\300U\203\n \211@\207\300GW\203 \301\302\"\207\303\304!\207" [1 apply m-buffer-match error "Invalid arguments"] 4 (#$ . 3391)])
#@73 Given some MATCH-DATA return the buffer for that data.

(fn MATCH-DATA)
(defalias 'm-buffer-buffer-for-match #[257 "\300@@!\207" [marker-buffer] 3 (#$ . 3752)])
#@57 Fetch the Nth group from MATCH-DATA.

(fn N MATCH-DATA)
(defalias 'm-buffer-match-nth-group #[514 "\300\301\302\"\"\207" [seq-map make-closure #[257 "\301\302\300_\"\211@A@D\207" [V0 seq-drop 2] 5 "\n\n(fn M)"]] 6 (#$ . 3920)])
#@274 Return markers to the start of the Nth group in MATCH.
MATCH may be of any form accepted by `m-buffer-ensure-match'. Use
`m-buffer-nil-marker' after the markers have been finished with
or they will slow future use of the buffer until garbage collected.

(fn N &rest MATCH)
(defalias 'm-buffer-match-begin-n #[385 "\300\301\302\"\303\304\"\"\207" [seq-map make-closure #[257 "\301\300_8\207" [V0 2] 3 "\n\n(fn M)"] apply m-buffer-ensure-match] 7 (#$ . 4159)])
#@253 Return positions of the start of the Nth group in MATCH.
MATCH may be of any form accepted by `m-buffer-ensure-match'. If
`match-data' is passed markers will be set to nil after this
function. See `m-buffer-nil-marker' for details.

(fn N &rest MATCH)
(defalias 'm-buffer-match-begin-n-pos #[385 "\300\301\302#!\207" [m-buffer-marker-to-pos-nil apply m-buffer-match-begin-n] 7 (#$ . 4628)])
#@233 Return a list of markers to the start of MATCH.
MATCH may of any form accepted by `m-buffer-ensure-match'. Use
`m-buffer-nil-marker' after the markers have been used or they
will slow future changes to the buffer.

(fn &rest MATCH)
(defalias 'm-buffer-match-begin #[128 "\300\301\302#\207" [apply m-buffer-match-begin-n 0] 5 (#$ . 5028)])
#@246 Return a list of positions at the start of matcher.
MATCH may be of any form accepted by `m-buffer-ensure-match'.
If `match-data' is passed markers will be set to nil after this
function. See `m-buffer-nil-marker' for details.

(fn &rest MATCH)
(defalias 'm-buffer-match-begin-pos #[128 "\300\301\302#\207" [apply m-buffer-match-begin-n-pos 0] 5 (#$ . 5375)])
#@253 Return markers to the end of the match to the Nth group.
MATCH may be of any form accepted by `m-buffer-ensure-match'.
If `match-data' is passed markers will be set to nil after this
function. See `m-buffer-nil-marker' for details.

(fn N &rest MATCH)
(defalias 'm-buffer-match-end-n #[385 "\300\301\302\"\303\304\"\"\207" [seq-map make-closure #[257 "\301\300_T8\207" [V0 2] 3 "\n\n(fn M)"] apply m-buffer-ensure-match] 7 (#$ . 5743)])
#@244 Return positions of the end Nth group of MATCH.
MATCH may be of any form accepted by `m-buffer-ensure-match'.
If `match-data' is passed markers will be set to nil after this
function. See `m-buffer-nil-marker' for details.

(fn N &rest MATCH)
(defalias 'm-buffer-match-end-n-pos #[385 "\300\301\302#!\207" [m-buffer-marker-to-pos-nil apply m-buffer-match-end-n-pos] 7 (#$ . 6190)])
#@254 Return a list of markers to the end of MATCH to regexp in buffer.
MATCH may be of any form accepted by `m-buffer-ensure-match'. Use
`m-buffer-nil-marker' after the markers have been used or they
will slow future changes to the buffer.

(fn &rest MATCH)
(defalias 'm-buffer-match-end #[128 "\300\301\302#\207" [apply m-buffer-match-end-n 0] 5 (#$ . 6581)])
#@246 Return a list of positions to the end of the match.
MATCH may be of any form accepted by `m-buffer-ensure-match'.
If `match-data' is passed markers will be set to nil after this
function. See `m-buffer-nil-marker' for details.

(fn &rest MATCH)
(defalias 'm-buffer-match-end-pos #[128 "\300\301\302\"!\207" [m-buffer-marker-to-pos-nil apply m-buffer-match-end] 5 (#$ . 6945)])
#@133 Return true if M and N are cover the same region.
Matches are equal if they match the same region; subgroups are
ignored.

(fn M N)
(defalias 'm-buffer-match-equal #[514 "@@\232\205 A@A@\232\207" [] 4 (#$ . 7330)])
#@216 Remove from M any match in N.
Matches are equivalent if overall they match the same
area; subgroups are ignored.
See also `m-buffer-match-exact-subtract' which often
runs faster but has some restrictions.

(fn M N)
(defalias 'm-buffer-match-subtract #[514 "\300\301\302\"\"\207" [seq-remove make-closure #[257 "\301\302\303\"\300\"\207" [V0 seq-some make-closure #[257 "\301\300\"\207" [V0 m-buffer-match-equal] 4 "\n\n(fn P)"]] 5 "\n\n(fn O)"]] 6 (#$ . 7557)])
#@112 Remove from M any match in N.
Both M and N must be fully ordered, and any element in N must be
in M.

(fn M N)
(defalias 'm-buffer-match-exact-subtract #[514 "\211\203 \211C\300\301\302\"\"\207\207" [seq-remove make-closure #[257 "\300\242\204 \301\207\302\300\242@\"\203 \300\303\300\242\304\"\240\210\305\207\300\242@@@W\205- \300\303\300\242\304\"\240\210\305\207" [V0 nil m-buffer-match-equal seq-drop 1 t] 5 "\n\n(fn O)"]] 7 (#$ . 8030)])
#@73 Returns true is any of MATCHES contain POSITION.

(fn MATCHES POSITION)
(defalias 'm-buffer-in-match-p #[514 "\300\301\302\"\"\207" [seq-some make-closure #[257 "\211@\300X\205\f \300A@X\207" [V0] 3 "\n\n(fn MATCH)"]] 6 (#$ . 8488)])
#@200 Given LIST, split at markers in PARTITION.

This is the main implementation for `m-buffer-partition-by-marker',
but assumes that partition starts with a very low value (or nil).

(fn LIST PARTITION)
(defalias 'm-buffer--partition-by-marker #[514 "\211\242\243\242\300\301\"\205 \302\"B\303\304\"A\"B\207" [make-closure #[257 "\300?\206 \211\300W\207" [V0] 3 "\n\n(fn N)"] seq-take-while m-buffer--partition-by-marker seq-drop-while] 10 (#$ . 8732)])
#@393 Given LIST of markers, split at markers in PARTITION.
Returns a list of lists. The first element of each list is nil or
the marker from PARTITION. The rest of the elements are those
elements in LIST which are at the same position or later in the
buffer than the element from PARTITION, but before the next
element from PARTITION.

Both LIST and PARTITION must be sorted.

(fn LIST PARTITION)
(defalias 'm-buffer-partition-by-marker #[514 "\300\301B\"\207" [m-buffer--partition-by-marker nil] 6 (#$ . 9203)])
#@256 Takes a (nested) list of MARKERS and nils them all.
Markers slow buffer movement while they are pointing at a
specific location, until they have been garbage collected. Niling
them prevents this. See Info node `(elisp) Overview of Markers'.

(fn MARKERS)
(defalias 'm-buffer-nil-marker #[257 "\300\301\"\207" [seq-map #[257 "\300!\203\n \301!\207\211\302\211\223\207" [seqp m-buffer-nil-marker nil] 4 "\n\n(fn MARKER)"]] 4 (#$ . 9720)])
#@263 Transforms a list of MARKERS to a list of positions.
If the markers are no longer needed, set POSTNIL to true, or call
`m-buffer-nil-marker' manually after use to speed future buffer
movement. Or use `m-buffer-marker-to-pos-nil'.

(fn MARKERS &optional POSTNIL)
(defalias 'm-buffer-marker-to-pos #[513 "\300\301\302\"\"\207" [seq-map make-closure #[257 "\301!\300\203\f \302\211\223\210\207" [V0 marker-position nil] 5 "\n\n(fn MARKER)"]] 6 (#$ . 10167)])
#@110 Transforms a list of MARKERS to a list of positions then nils.
See also `m-buffer-nil-markers'

(fn MARKERS)
(defalias 'm-buffer-marker-to-pos-nil #[257 "\300\301\"\207" [m-buffer-marker-to-pos t] 4 (#$ . 10634)])
#@156 Transforms a tree of markers to equivalent positions.
MARKER-TREE is the tree.
POSTNIL sets markers to nil afterwards.

(fn MARKER-TREE &optional POSTNIL)
(defalias 'm-buffer-marker-tree-to-pos #[513 "\300\301\302\"\"\207" [seq-map make-closure #[257 "\301!\203 \302\300\"\207\303!\300\203 \304\211\223\210\207" [V0 seqp m-buffer-marker-tree-to-pos marker-position nil] 5 "\n\n(fn MARKER)"]] 6 (#$ . 10856)])
#@128 Transforms a tree of markers to equivalent positions.
MARKER-TREE is the tree. Markers are niled afterwards.

(fn MARKER-TREE)
(defalias 'm-buffer-marker-tree-to-pos-nil #[257 "\300\301\"\207" [m-buffer-marker-tree-to-pos t] 4 (#$ . 11280)])
#@153 Return a clone of MARKER-TREE.
The optional argument TYPE specifies the insertion type. See
`copy-marker' for details.

(fn MARKER-TREE &optional TYPE)
(defalias 'm-buffer-marker-clone #[513 "\300\301\302\"\"\207" [seq-map make-closure #[257 "\301!\203 \302\300\"\207\303\300\"\207" [V0 seqp m-buffer-marker-clone copy-marker] 4 "\n\n(fn MARKER)"]] 6 (#$ . 11530)])
#@77 In BUFFER translates a list of POSITIONS to markers.

(fn BUFFER POSITIONS)
(defalias 'm-buffer-pos-to-marker #[514 "\300\301\302\"\"\207" [seq-map make-closure #[257 "\301 \300\223\207" [V0 make-marker] 4 "\n\n(fn POS)"]] 6 (#$ . 11908)])
#@452 Given a list of MATCH-DATA, replace with REPLACEMENT.
If FIXEDCASE do not alter the case of the replacement text.
If LITERAL insert the replacement literally.
SUBEXP should be a number indicating the regexp group to replace.
Returns markers to the start and end of the replacement. These
markers are part of MATCH-DATA, so niling them will percolate backward.

See also `replace-match'.

(fn MATCH-DATA REPLACEMENT &optional FIXEDCASE LITERAL SUBEXP)
(defalias 'm-buffer-replace-match #[1282 "\212\300\301\302%\"\210)\303\206 \304\"\207" [seq-map make-closure #[257 "r\304@!q\210\305 \306\307\"\216\310!\210\311\300\301\302\312\303\206 \313%)\262)\207" [V0 V1 V2 V3 marker-buffer match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] set-match-data replace-match nil 0] 8 "\n\n(fn MATCH)"] m-buffer-match-nth-group 0] 12 (#$ . 12158)])
#@258 Delete all MATCH-DATA.
SUBEXP should be a number indicating the regexp group to delete.
Returns markers to the start and end of the replacement. These
markers are part of MATCH_DATA, so niling them will percolate backward.

(fn MATCH-DATA &optional SUBEXP)
(defalias 'm-buffer-delete-match #[513 "\300\301#\207" [m-buffer-replace-match ""] 6 (#$ . 13048)])
#@93 Return strings for MATCH-DATA optionally of group SUBEXP.

(fn MATCH-DATA &optional SUBEXP)
(defalias 'm-buffer-match-string #[513 "\300\301\302\"\"\207" [seq-map make-closure #[257 "r\301@!q\210\302 \303\304\"\216\305!\210\306\300\206 \307!)\262)\207" [V0 marker-buffer match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] set-match-data match-string 0] 5 "\n\n(fn MATCH)"]] 6 (#$ . 13413)])
#@128 Return strings for MATCH-DATA optionally of group SUBEXP.
Remove all properties from return.

(fn MATCH-DATA &optional SUBEXP)
(defalias 'm-buffer-match-string-no-properties #[513 "\300\301\302\"\"\207" [seq-map substring-no-properties m-buffer-match-string] 7 (#$ . 13849)])
#@34 

(fn FN MATCH &rest MORE-MATCH)
(defalias 'm-buffer-apply-join #[642 "\300\301\"\302\303\"\304\305\306\307\"\"\310\311\312\"\"\203 \313\314!\210\315\316#\"\207" [seq-take-while #[257 "\300!?\207" [keywordp] 3 "\n\n(fn X)"] seq-drop-while #[257 "\300!?\207" [keywordp] 3 "\n\n(fn X)"] seq-map car seq-partition 2 seq-find make-closure #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn KEYWORD)"] error "Match arg contradicts a defined argument." apply append] 12 (#$ . 14133)])
#@162 Return a list of match data to all pages in MATCH.
MATCH is of form BUFFER-OR-WINDOW MATCH-OPTIONS.  See
`m-buffer-match' for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-page #[128 "\301\302\303$\207" [page-delimiter m-buffer-apply-join m-buffer-match :regexp] 6 (#$ . 14636)])
#@172 Return a list of match data to `paragraph-separate' in MATCH.
MATCH is of form BUFFER-OR-WINDOW MATCH-OPTIONS.  See
`m-buffer-match' for futher details.

(fn &rest MATCH)
(defalias 'm-buffer-match-paragraph-separate #[128 "\301\302\303\304\305&\207" [paragraph-separate m-buffer-apply-join m-buffer-match :regexp :post-match m-buffer-post-match-forward-line] 8 (#$ . 14940)])
#@25 Regexp to match a line.
(defvar m-buffer--line-regexp "^.*$" (#$ . 15325))
#@155 Return a list of match data to all lines.
MATCH is of the form BUFFER-OR-WINDOW MATCH-OPTIONS.
See `m-buffer-match for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-line #[128 "\301\302\303\304\305&\207" [m-buffer--line-regexp m-buffer-apply-join m-buffer-match :regexp :post-match m-buffer-post-match-forward-char] 8 (#$ . 15407)])
#@158 Return a list of match data to all line start.
MATCH is of form BUFFER-OR-WINDOW MATCH-OPTIONS.  See
`m-buffer-match' for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-line-start #[128 "\300\301\302\303\304\305&\207" [m-buffer-apply-join m-buffer-match-begin :regexp "^" :post-match m-buffer-post-match-forward-char] 8 (#$ . 15765)])
#@147 Return a list of match to line end.
MATCH is of form BUFFER-OR-WINDOW MATCH-OPTIONS.  See
`m-buffer-match' for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-line-end #[128 "\300\301\302\303\304\305&\207" [m-buffer-apply-join m-buffer-match-begin :regexp "$" :post-match m-buffer-post-match-forward-char] 8 (#$ . 16123)])
#@179 Return the first match to MATCH.
This matches more efficiently than matching all matches and
taking the car. See `m-buffer-match' for further details of
MATCH.

(fn &rest MATCH)
(defalias 'm-buffer-match-first #[128 "\300\301\302\303$\207" [m-buffer-apply-join m-buffer-match :post-match #[0 "\300\207" [nil] 1]] 6 (#$ . 16468)])
#@188 Return a match to the first line of MATCH.
This matches more efficiently than matching all lines and taking
the car.  See `m-buffer-match' for further details of MATCH.

(fn &rest MATCH)
(defalias 'm-buffer-match-first-line #[128 "\301\302\303$\207" [m-buffer--line-regexp m-buffer-apply-join m-buffer-match-first :regexp] 6 (#$ . 16806)])
#@285 Incrementally find matches to REGEXPS in MATCH.
Finds the first match to the first element of regexps, then
starting from the end of this match, the first match to the
second element of regexps and so forth. See `m-buffer-match' for
futher details of MATCH.

(fn REGEXPS &rest MATCH)
(defalias 'm-buffer-match-multi #[385 "\205  \300\301\302@$\303\304\305A\306\307\310	!@##\"\262\207" [m-buffer-apply-join m-buffer-match-first :regexp append apply m-buffer-match-multi plist-put :begin m-buffer-match-end] 13 (#$ . 17155)])
#@155 Return a list of match to sentence end.
MATCH is of the form BUFFER-OR-WINDOW MATCH-OPTIONS.  See
`m-buffer-match' for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-sentence-end #[128 "\300\301\302\303 $\207" [m-buffer-apply-join m-buffer-match-begin :regexp sentence-end] 6 (#$ . 17696)])
#@152 Return a list of match to all words.
MATCH is of the form BUFFER-OR-WINDOW MATCH-OPTIONS.  See
`m-buffer-match' for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-word #[128 "\300\301\302\303$\207" [m-buffer-apply-join m-buffer-match :regexp "\\w+"] 6 (#$ . 18009)])
#@158 Return a list of match to all empty lines.
MATCH is of the form BUFFER-OR-WINDOW MATCH-OPTIONS.  See
`m-buffer-match' for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-empty-line #[128 "\300\301\302\303\304\305&\207" [m-buffer-apply-join m-buffer-match :regexp "^$" :post-match m-buffer-post-match-forward-line] 8 (#$ . 18298)])
#@161 Return a list of match to all non-empty lines.
MATCH is fo the form BUFFER-OR-WINDOW MATCH-OPTIONS. See
`m-buffer-match' for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-non-empty-line #[128 "\300\301\302\303$\207" [m-buffer-apply-join m-buffer-match :regexp "^.+$"] 6 (#$ . 18651)])
#@209 Return match data to all lines with only whitespace characters.
Note empty lines are not included. MATCH is of form
BUFFER-OR-WINDOW MATCH-OPTIONS. See `m-buffer-match' for
further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-whitespace-line #[128 "\300\301\302\303$\207" [m-buffer-apply-join m-buffer-match :regexp "^\\s-+$"] 6 (#$ . 18959)])
#@243 Return match data to all lines with at least one non-whitespace character.
Note empty lines do not contain any non-whitespace lines.
MATCH is of form BUFFER-OR-WINDOW MATCH-OPTIONS. See
`m-buffer-match' for further details.

(fn &rest MATCH)
(defalias 'm-buffer-match-non-whitespace-line #[128 "\300\301\302\"\301\303\"\"\207" [seq-difference apply m-buffer-match-line m-buffer-match-whitespace-line] 6 (#$ . 19319)])
#@59 Attempt to move forward one line, return true if success.
(defalias 'm-buffer-post-match-forward-line #[0 "\300y\301U\207" [nil 0] 2 (#$ . 19745)])
#@62 Attempts to move forward one char.
Returns true if succeeds.
(defalias 'm-buffer-post-match-forward-char #[0 "\3001\n \301u\210\3020\207\301\207" [(error) nil t] 2 (#$ . 19899)])
#@170 Apply FN to MATCH-DATA.
FN should take two args, the start and stop of each region.
MATCH-DATA can be any list of lists with two elements (or more).

(fn FN MATCH-DATA)
(defalias 'm-buffer-on-region #[514 "\300\301#\207" [m-buffer-on-region-nth-group 0] 6 (#$ . 20085)])
#@189 Apply FN to the Nth group of MATCH-DATA.
FN should take two args, the start and stop of each region.
MATCH-DATA can be any list of lists with two elements (or more).

(fn FN N MATCH-DATA)
(defalias 'm-buffer-on-region-nth-group #[771 "\300\301\302\"\303\"\"\207" [seq-map make-closure #[257 "\301\300\"\207" [V0 apply] 4 "\n\n(fn X)"] m-buffer-match-nth-group] 8 (#$ . 20365)])
#@373 Return an overlay for all match to MATCH-DATA.
FRONT-ADVANCE and REAR-ADVANCE controls the borders of the
overlay as defined in `make-overlay'.  Overlays do not scale that
well, so use `m-buffer-propertize-match' if you intend to make
and keep many of these.

See Info node `(elisp) Overlays' for further information.

(fn MATCH-DATA &optional FRONT-ADVANCE REAR-ADVANCE)
(defalias 'm-buffer-overlay-match #[769 "\300!\301\302\303$\"\207" [m-buffer-buffer-for-match m-buffer-on-region make-closure #[514 "\303\302\300\301%\207" [V0 V1 V2 make-overlay] 8 "\n\n(fn BEGINNING END)"]] 10 (#$ . 20754)])
#@248 To MATCH-DATA add PROPERTIES.
See `add-text-property' for details of the format of properties.
Text properties are associated with the text and move with it. See
Info node `(elisp) Text Properties' for further details.

(fn MATCH-DATA PROPERTIES)
(defalias 'm-buffer-add-text-property-match #[514 "\300\301\302\"\"\207" [m-buffer-on-region make-closure #[514 "\301\300#\207" [V0 add-text-properties] 6 "\n\n(fn BEGINNING END)"]] 6 (#$ . 21367)])
#@260 To MATCH-DATA add PROPERTY wth VALUE.
See `put-text-property' for details of the format of properties.
Text properties are associated with the text and move with it. See
Info node `(elisp) Text Properties' for further details.

(fn MATCH-DATA PROPERTY VALUE)
(defalias 'm-buffer-put-text-property-match #[771 "\300\301\302#\"\207" [m-buffer-on-region make-closure #[514 "\302\300\301$\207" [V0 V1 put-text-property] 7 "\n\n(fn BEGINNING END)"]] 8 (#$ . 21824)])
#@203 To MATCH-DATA add FACE to the face property.
This is for use in buffers which do not have function `font-lock-mode'
enabled; otherwise use `m-buffer-overlay-font-lock-face-match'.

(fn MATCH-DATA FACE)
(defalias 'm-buffer-overlay-face-match #[514 "\300\301\302\"\303!\"\207" [seq-map make-closure #[257 "\301\302\300#\207" [V0 overlay-put face] 5 "\n\n(fn OVLY)"] m-buffer-overlay-match] 6 (#$ . 22298)])
#@186 To MATCH-DATA add FACE to the face property.
This is for use in buffers which have variable `font-lock-mode' enabled;
otherwise use `m-buffer-overlay-face-match'.

(fn MATCH-DATA FACE)
(defalias 'm-buffer-overlay-font-lock-face-match #[514 "\300\301\302\"\303!\"\207" [seq-map make-closure #[257 "\301\302\300#\207" [V0 overlay-put face] 5 "\n\n(fn OVLY)"] m-buffer-overlay-match] 6 (#$ . 22713)])
#@184 To MATCH-DATA apply FACE.
This is for use in buffers which do
not have variable `font-lock-mode' enabled; otherwise use
`m-buffer-text-property-font-lock-face'.

(fn MATCH-DATA FACE)
(defalias 'm-buffer-text-property-face #[514 "\300\301#\207" [m-buffer-put-text-property-match face] 6 (#$ . 23121)])
#@167 To MATCH-DATA apply FACE.
This is for use in buffers which have variable `font-lock-mode'
enabled; otherwise use `m-buffer-text-property-face'.

(fn MATCH-DATA FACE)
(defalias 'm-buffer-text-property-font-lock-face #[514 "\300\301#\207" [m-buffer-put-text-property-match font-lock-face] 6 (#$ . 23431)])
(provide 'm-buffer)