;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:00 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/crm.el
;;; in Emacs version 24.3.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.

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


#@51 Default separator for `completing-read-multiple'.
(defconst crm-default-separator "," (#$ . 557))
#@273 Separator used for separating strings in `completing-read-multiple'.
It should be a single character string that doesn't appear in the list of
completion candidates.  Modify this value to make `completing-read-multiple'
use a separator other than `crm-default-separator'.
(defvar crm-separator crm-default-separator (#$ . 662))
#@106 Local keymap for minibuffer multiple input with completion.
Analog of `minibuffer-local-completion-map'.
(defvar crm-local-completion-map (byte-code "\302 \303	\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210)\207" [map 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] 4) (#$ . 997))
#@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 "\302 \303	\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210)\207" [map 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] 4) (#$ . 1482))
#@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 (#$ . 2065))
#@570 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'.
(defalias 'crm--collection-fn #[(string predicate flag) "\306\307	\n#\203\306\225\202\310\n\306O\n\311O\f
%)\207" [beg crm-separator string crm-completion-table predicate flag 0 string-match completion-table-with-context nil] 6 (#$ . 2272)])
#@124 Parse the minibuffer to find the current element.
Place an overlay on the element, with a `field' property, and return it.
(defalias 'crm--select-current-element #[nil "\305 \212\306	\307#\203\310\225\202)\212\311	\312\307#\203\"\310\224\202#d)\313\n\312\211\307%\314\f\315\316\317!#\210\f,\207" [bob crm-separator start end ol minibuffer-prompt-end re-search-backward t 0 re-search-forward nil make-overlay overlay-put field make-symbol "crm"] 6 (#$ . 3100)])
#@75 Display a list of possible completions of the current minibuffer element.
(defalias 'crm-completion-help #[nil "\301 \302\216\303 \210*\304\207" [ol crm--select-current-element ((delete-overlay ol)) minibuffer-completion-help nil] 1 (#$ . 3580) 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 #[nil "\301 \302\216\303 *\207" [ol crm--select-current-element ((delete-overlay ol)) minibuffer-complete] 1 (#$ . 3839) nil])
#@121 Complete the current element at most a single word.
Like `minibuffer-complete-word' but for `completing-read-multiple'.
(defalias 'crm-complete-word #[nil "\301 \302\216\303 *\207" [ol crm--select-current-element ((delete-overlay ol)) minibuffer-complete-word] 1 (#$ . 4180) 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 #[nil "\302\303 b\210\203$\304 \305	!b\210\306\216\307\310\215\210)m)\204$\311u\210\202\205*\312 )\207" [doexit ol t minibuffer-prompt-end crm--select-current-element overlay-end ((byte-code "\301!b\210\302!\207" [ol overlay-end delete-overlay] 2)) exit (byte-code "\301 \210\302\211\207" [doexit minibuffer-complete-and-exit nil] 2) 1 exit-minibuffer] 2 (#$ . 4469) nil])
#@207 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.
(defalias 'crm--choose-completion-string #[(choice buffer base-position &rest ignored) "\305\306\307\n\f#\210*\305\207" [choose-completion-string-functions completion-no-auto-exit choice buffer base-position t nil choose-completion-string] 4 (#$ . 5149)])
#@1176 Read multiple strings in the minibuffer, with completion.
By using this functionality, a user may specify multiple strings at a
single prompt, optionally using completion.

Multiple strings are specified by separating each of the strings with
a prespecified separator character.  For example, if the separator
character is a comma, the strings 'alice', 'bob', and 'eve' would be
specified as 'alice,bob,eve'.

The default value for the separator character is the value of
`crm-default-separator' (comma).  The separator character may be
changed by modifying the value of `crm-separator'.

Contiguous strings of non-separator-characters are referred to as
'elements'.  In the aforementioned example, the elements are: 'alice',
'bob', and 'eve'.

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 TAB operates on the element 'alice'.

The return value of this function is a list of the read strings.

See the documentation for `completing-read' for details on the arguments:
PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HIST, DEF, and
INHERIT-INPUT-METHOD.
(defalias 'completing-read-multiple #[(prompt table &optional predicate require-match initial-input hist def inherit-input-method) "\306\216\307\310\311\"\210\312	\313=?\205
\203 \202\"\314\315&\203F\316\230\203F\317\".\207" [minibuffer-completion-table predicate minibuffer-completion-predicate require-match minibuffer-completion-confirm table ((byte-code "\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-completion-table crm-local-must-match-map crm-local-completion-map map prompt initial-input hist def inherit-input-method input crm-separator] 8 (#$ . 5622)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\210\300\310\311\303#\210\304\310\311\305#\210\312\313!\207" [defalias crm-minibuffer-complete crm-complete nil make-obsolete "23.1" crm-minibuffer-completion-help crm-completion-help crm-minibuffer-complete-and-exit crm-complete-and-exit provide crm] 4)