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



#@35 Default value of `crm-separator'.
(defconst crm-default-separator "[ 	]*,[ 	]*" (#$ . 84))
#@200 Separator regexp used for separating strings in `completing-read-multiple'.
It should be a regexp that does not match the list of completion candidates.
The default value is `crm-default-separator'.
(defvar crm-separator crm-default-separator (#$ . 182))
#@106 Local keymap for minibuffer multiple input with completion.
Analog of `minibuffer-local-completion-map'.
(defvar crm-local-completion-map (byte-code "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\207" [minibuffer-local-completion-map make-sparse-keymap set-keymap-parent define-key [remap minibuffer-complete] crm-complete [remap minibuffer-complete-word] crm-complete-word [remap minibuffer-completion-help] crm-completion-help] 5) (#$ . 444))
#@126 Local keymap for minibuffer multiple input with exact match completion.
Analog of `minibuffer-local-must-match-map' for crm.
(defvar crm-local-must-match-map (byte-code "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\303
\310\311#\210\303
\312\313#\210\207" [minibuffer-local-must-match-map make-sparse-keymap set-keymap-parent define-key [remap minibuffer-complete] crm-complete [remap minibuffer-complete-word] crm-complete-word [remap minibuffer-completion-help] crm-completion-help [remap minibuffer-complete-and-exit] crm-complete-and-exit] 5) (#$ . 922))
#@155 An alist whose elements' cars are strings, or an obarray.
This is a table used for completion by `completing-read-multiple' and its
supporting functions.
(defvar crm-completion-table nil (#$ . 1497))
#@606 Function used by `completing-read-multiple' to compute completion values.
The value of STRING is the string to be completed.

The value of PREDICATE is a function to filter possible matches, or
nil if none.

The value of FLAG is used to specify the type of completion operation.
A value of nil specifies `try-completion'.  A value of t specifies
`all-completions'.  A value of lambda specifies a test for an exact match.

For more information on STRING, PREDICATE, and FLAG, see the Elisp
Reference sections on “Programmed Completion” and “Basic Completion
Functions”.

(fn STRING PREDICATE FLAG)
(defalias 'crm--collection-fn #[771 "\302\303#\203\302\225\262
\202
\304\302O	\305O%\207" [crm-separator crm-completion-table 0 string-match completion-table-with-context nil] 10 (#$ . 1704)])
#@101 Parse the minibuffer to find the current element.
Return the element's boundaries as (START . END).
(defalias 'crm--current-element #[0 "\301 \212\302\303#\203\304\225\202\211)\212\305\306\303#\203 \304\224\202!d)B\207" [crm-separator minibuffer-prompt-end re-search-backward t 0 re-search-forward nil] 6 (#$ . 2524)])
#@95 Run BODY with BEG and END bound to the current element's boundaries.

(fn BEG END &rest BODY)
(defalias 'crm--completion-command '(macro . #[642 "\300\301\302B\303BEBB\207" [let* (crm--boundaries (crm--current-element)) ((car crm--boundaries)) ((cdr crm--boundaries))] 8 (#$ . 2858)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put crm--completion-command lisp-indent-function 2 put edebug-form-spec (sexp sexp body)] 5)
#@75 Display a list of possible completions of the current minibuffer element.
(defalias 'crm-completion-help #[0 "\300 \211@
A\301\"\266\302\207" [crm--current-element minibuffer-completion-help nil] 6 (#$ . 3308) nil])
#@183 Complete the current element.
If no characters can be completed, display a list of possible completions.

Return t if the current element is now a valid match; otherwise return nil.
(defalias 'crm-complete #[0 "\302 \211@
A\303	$\207" [minibuffer-completion-table minibuffer-completion-predicate crm--current-element completion-in-region] 8 (#$ . 3534) nil])
#@121 Complete the current element at most a single word.
Like `minibuffer-complete-word' but for `completing-read-multiple'.
(defalias 'crm-complete-word #[0 "\300 \211@
A\301\"\207" [crm--current-element completion-in-region--single-word] 6 (#$ . 3903) nil])
#@256 If all of the minibuffer elements are valid completions then exit.
All elements in the minibuffer must match.  If there is a mismatch, move point
to the location of mismatch and do not exit.

This function is modeled after `minibuffer-complete-and-exit'.
(defalias 'crm-complete-and-exit #[0 "\301C\302 b\210\211\242\203?\303 \211@
A\304
\301\"\211b\210\305\240\210\306\307\310	\"#\210\211b\210m?\262
\266\203\203?\311!\203?\312\225b\210\202\211\242\205F\313 \207" [crm-separator t minibuffer-prompt-end crm--current-element copy-marker nil completion-complete-and-exit make-closure #[0 "\300\301\240\207" [V0 t] 2] looking-at 0 exit-minibuffer] 11 (#$ . 4167) nil])
#@255 Completion string chooser for `completing-read-multiple'.
This is called from `choose-completion-string-functions'.
It replaces the string that is currently being completed, without
exiting the minibuffer.

(fn CHOICE BUFFER BASE-POSITION &rest IGNORED)
(defalias 'crm--choose-completion-string #[899 "\302\303\304#\210*\302\207" [choose-completion-string-functions completion-no-auto-exit t nil choose-completion-string] 8 (#$ . 4852)])
#@886 Read multiple strings in the minibuffer, with completion.
The arguments are the same as those of `completing-read'.
\<crm-local-completion-map>
Input multiple strings by separating each one with a string that
matches the regexp `crm-separator'.  For example, if the separator
regexp is ",", entering "alice,bob,eve" specifies the strings
"alice", "bob", and "eve".

We refer to contiguous strings of non-separator-characters as
"elements".  In this example there are three elements.

Completion is available on a per-element basis.  For example, if the
contents of the minibuffer are "alice,bob,eve" and point is between
"l" and "i", pressing \[minibuffer-complete] operates on the element "alice".

This function returns a list of the strings that were read,
with empty strings removed.

(fn PROMPT TABLE &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD)
(defalias 'completing-read-multiple #[2050 "\306\216\307\310\311\"\210\312\313=?\205\203\f\202 
\314	\315&\203F\211\316\230\203F:\203C@\202D\262
\317
\313#,\266\202)\207" [minibuffer-completion-table minibuffer-completion-predicate minibuffer-completion-confirm crm-completion-table crm-local-must-match-map crm-local-completion-map #[0 "\300\301\302\"\207" [remove-hook choose-completion-string-functions crm--choose-completion-string] 3] add-hook choose-completion-string-functions crm--choose-completion-string crm--collection-fn t read-from-minibuffer nil "" split-string crm-separator] 17 (#$ . 5302)])
(provide 'crm)