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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\314\315&	\210\316\317\320\321\322DD\323\324\325\326\327&\210\316\330\320\321\331DD\332\324\333\326\327&\207" [require rfn-eshadow simple cl-lib custom-declare-group icomplete nil "Show completions dynamically in minibuffer." :prefix "icomplete-" :link (info-link "(emacs)Icomplete") :group minibuffer custom-declare-variable icomplete-separator funcall function #[0 "\300\207" [" | "] 1 #1=""] "String used by Icomplete to separate alternatives in the minibuffer." :type string :version "24.4" icomplete-hide-common-prefix #[0 "\300\207" [t] 1 #1#] "When non-nil, hide common prefix from completion candidates.\nWhen nil, show candidates in full." boolean] 10)
#@239 If non-nil, automatically delete superfluous parts of file names.
For example, if the user types ~/ after a long path name,
everything preceding the ~/ is discarded so the interactive
selection process starts again from the user's $HOME.
(defvar icomplete-tidy-shadowed-file-names nil (#$ . 832))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\311\306\315&\210\300\316\302\303\317DD\320\310\321\306\322&\210\323\324\325\326\310\311%\210\323\327\330\331\310\321%\210\323\332\333\334\310\321%\210\300\335\302\303\336DD\337\306\340\310\341&\210\300\342\302\303\343DD\344\306\345%\210\300\346\302\303\347DD\350\306\340%\210\300\351\302\303\352DD\353\306\340%\207" [custom-declare-variable icomplete-show-matches-on-no-input funcall function #[0 "\300\207" [nil] 1 #1=""] "When non-nil, show completions when first prompting for input.\nThis means to show completions even when the current minibuffer contents\nis the same as was the initial input after minibuffer activation.\nThis also means that if you traverse the list of completions with\ncommands like `C-.' and just hit RET without typing any\ncharacters, the match under point will be chosen instead of the\ndefault." :type boolean :version "24.4" icomplete-with-completion-tables #[0 "\300\207" [t] 1 #1#] "Specialized completion tables with which Icomplete should operate.\nIf this is t, Icomplete operates on all tables.\nOtherwise this should be a list of the completion tables (e.g.,\n`internal-complete-buffer') on which Icomplete should operate." (choice (const :tag "All" t) (repeat function)) icomplete-matches-format #[0 "\300\207" ["%s/%s "] 1 #1#] "Format of the current/total number of matches for the prompt prefix." "28.1" (choice (const :tag "No prefix" nil) (string :tag "Prefix format string")) custom-declare-face icomplete-first-match ((t :weight bold)) "Face used by Icomplete for highlighting first match." icomplete-selected-match ((t :inherit highlight)) "Face used by `icomplete-vertical-mode' for the selected candidate." icomplete-section ((t :inherit shadow :slant italic)) "Face used by `icomplete-vertical-mode' for the section title." icomplete-prospects-height #[0 "\300\207" [2] 1 #1#] "Maximum number of lines to use in the minibuffer." integer "26.1" icomplete-compute-delay #[0 "\300\207" [0.15] 1 #1#] "Completions-computation stall, used only with large-number completions.\nSee `icomplete-delay-completions-threshold'." number icomplete-delay-completions-threshold #[0 "\300\207" [400] 1 #1#] "Pending-completions number over which to apply `icomplete-compute-delay'." icomplete-max-delay-chars #[0 "\300\207" [2] 1 #1#] "Maximum number of initial chars to apply `icomplete-compute-delay'."] 8)
#@69 If non-nil, also use Icomplete when completing in non-mini buffers.
(defvar icomplete-in-buffer nil (#$ . 3573))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable icomplete-minibuffer-setup-hook funcall function #[0 "\300\207" [nil] 1 ""] "Icomplete-specific customization of minibuffer setup.\n\nThis hook is run during minibuffer setup if Icomplete is active.\nIt is intended for use in customizing Icomplete for interoperation\nwith other features and packages.  For instance:\n\n  (add-hook \\='icomplete-minibuffer-setup-hook\n	     (lambda () (setq-local max-mini-window-height 3)))\n\nwill constrain Emacs to a maximum minibuffer height of 3 lines when\nicompletion is occurring." :type hook :group icomplete] 8)
#@50 Overlay used to display the list of completions.
(defvar icomplete-overlay (byte-code "\300ee\301\302\211%\207" [make-overlay nil t] 6) (#$ . 4336))
#@137 Initial input in the minibuffer when `icomplete-mode' was activated.
Used to implement the option `icomplete-show-matches-on-no-input'.
(defvar icomplete--initial-input nil (#$ . 4492))
(defalias 'icomplete-post-command-hook #[0 "\301\302 )\207" [non-essential t icomplete-exhibit] 1])
#@52 Keymap used by `icomplete-mode' in the minibuffer.
(defvar icomplete-minibuffer-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\207" [make-sparse-keymap define-key [134217737] icomplete-force-complete [remap minibuffer-complete-and-exit] icomplete-ret [10] icomplete-force-complete-and-exit [67108910] icomplete-forward-completions [67108908] icomplete-backward-completions] 5) (#$ . 4785))
#@32 Exit minibuffer for icomplete.
(defalias 'icomplete-ret #[0 "\203	@\203\303 \n\232\203\304 \207\305 \207" [icomplete-show-matches-on-no-input completion-all-sorted-completions icomplete--initial-input icomplete--field-string icomplete-force-complete-and-exit minibuffer-complete-and-exit] 2 (#$ . 5246) nil])
#@155 Complete the minibuffer with the longest possible match and exit.
Use the first of the matches if there are any displayed, and use
the default otherwise.
(defalias 'icomplete-force-complete-and-exit #[0 "\304 \232\203	\204\n\204\203\305 \207\306 \207" [icomplete--initial-input minibuffer-default icomplete-show-matches-on-no-input completion-all-sorted-completions icomplete--field-string minibuffer-force-complete-and-exit minibuffer-complete-and-exit] 2 (#$ . 5569) nil])
#@36 Complete the icomplete minibuffer.
(defalias 'icomplete-force-complete #[0 "\300\301\211\302#\207" [minibuffer-force-complete nil dont-cycle] 4 (#$ . 6060) nil])
#@60 If non-nil, scroll candidates list instead of rotating it.
(defvar icomplete-scroll nil (#$ . 6228))
#@60 If non-nil, tail of completions list manually scrolled to.
(defvar icomplete--scrolled-completions nil (#$ . 6335))
#@56 If non-nil, reverse tail of completions scrolled past.
(defvar icomplete--scrolled-past nil (#$ . 6457))
#@175 Step forward completions by one entry.
Second entry becomes the first and can be selected with
`icomplete-force-complete-and-exit'.
Return non-nil iff something was stepped.
(defalias 'icomplete-forward-completions #[0 "\303 \304 \305\"\211A:\2057\203 \211
A\262\242	B\211\2022\306
!\306!\211A\262\242AB\241\266\307#\207" [icomplete-scroll icomplete--scrolled-past icomplete--scrolled-completions icomplete--field-beg icomplete--field-end completion-all-sorted-completions last completion--cache-all-sorted-completions] 7 (#$ . 6569) nil])
#@174 Step backward completions by one entry.
Last entry becomes the first and can be selected with
`icomplete-force-complete-and-exit'.
Return non-nil iff something was stepped.
(defalias 'icomplete-backward-completions #[0 "\303 \304 \305\"\306\203 	\203 	\211A\242B\262
\211\202=?\205=\307\310\"\211\262A:\205=\211A@B\262\211
AA\241\311#\210\207" [icomplete-scroll icomplete--scrolled-past icomplete--scrolled-completions icomplete--field-beg icomplete--field-end completion-all-sorted-completions nil last 2 completion--cache-all-sorted-completions] 9 (#$ . 7133) nil])
#@67 Go to first completions entry when `icomplete-scroll' is non-nil.
(defalias 'icomplete-vertical-goto-first #[0 "\204\301\302!\210\303 \205\202\207" [icomplete-scroll error "Only works with `icomplete-scroll'" icomplete-backward-completions] 2 (#$ . 7727) nil])
#@66 Go to last completions entry when `icomplete-scroll' is non-nil.
(defalias 'icomplete-vertical-goto-last #[0 "\204\301\302!\210\303 \205\202\207" [icomplete-scroll error "Only works with `icomplete-scroll'" icomplete-forward-completions] 2 (#$ . 8001) nil])
#@382 Kill line or current completion, like `ido-mode'.
If killing to the end of line make sense, call `kill-line',
otherwise kill the currently selected completion candidate.
Exactly what killing entails is dependent on the things being
completed.  If completing files, it means delete the file.  If
completing buffers it means kill the buffer.  Both actions
require user confirmation.
(defalias 'icomplete-fido-kill #[0 "\302 `
W\203\f\303\304!\207\305 \211@\306 \211\307\267\202&\310\311\"\202*\310\312\"\202*\313\314\"\315\316\211 *\203>\317\320 \302 A#\210\321\316!\207" [icomplete-mode enable-recursive-minibuffers icomplete--field-end call-interactively kill-line completion-all-sorted-completions icomplete--category #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 24 project-file 31 file 31)) make-closure #[0 "\301\302\300\303Q!\205\f\304\300!\207" [V0 yes-or-no-p "Kill buffer " "? " kill-buffer] 4] #[0 "\301\302 !\303\300\"\304\305\306Q!\205\307
!\210\310\207" [V0 file-name-directory icomplete--field-string expand-file-name yes-or-no-p "Delete file " "? " delete-file t] 6] error "Sorry, don't know how to kill things for `%s'" t nil completion--cache-all-sorted-completions icomplete--field-beg message] 9 (#$ . 8273) nil])
#@53 Delete char or maybe call `dired', like `ido-mode'.
(defalias 'icomplete-fido-delete-char #[0 "\300 `
W\204\301 \302=\204\303\304!\207\305\306\307 !!\210\310 \207" [icomplete--field-end icomplete--category file call-interactively delete-char dired file-name-directory icomplete--field-string exit-minibuffer] 4 (#$ . 9575) nil])
#@54 Exit minibuffer or enter directory, like `ido-mode'.
(defalias 'icomplete-fido-ret #[0 "\301 \302=\205\303\304 !@
\205\211\205\305\306!\307!\"\211\2030\310
!\2030
\311\230\2040\312 \207\313 \207" [completion-all-sorted-completions icomplete--category file file-name-directory icomplete--field-string expand-file-name directory-file-name substitute-env-vars file-directory-p "./" icomplete-force-complete icomplete-force-complete-and-exit] 6 (#$ . 9914) nil])
#@307 Attempt to exit minibuffer immediately with current input.
Unless FORCE is non-nil (interactively with a prefix argument),
honor a non-nil REQUIRE-MATCH argument to `completing-read' by
trying to complete as much as possible and disallowing the exit
if that doesn't produce a completion match.

(fn FORCE)
(defalias 'icomplete-fido-exit #[257 "\211\204\203\301 \207\302 \207" [minibuffer--require-match minibuffer-complete-and-exit exit-minibuffer] 2 (#$ . 10392) "P"])
#@57 Delete char before or go up directory, like `ido-mode'.
(defalias 'icomplete-fido-backward-updir #[0 "`Sf\300=\203\"\301 \302=\203\"\212`Sb\210\303\304e\305#\205 `Td|)\207\306\307!\207" [47 icomplete--category file search-backward "/" t call-interactively backward-delete-char] 4 (#$ . 10873) nil])
#@47 Keymap used by `fido-mode' in the minibuffer.
(defvar icomplete-fido-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\301
\316\317#\210\301
\320\315#\210\301
\321\317#\210\301
\322\315#\210\301
\323\317#\210\207" [make-sparse-keymap define-key "" icomplete-fido-kill "" icomplete-fido-delete-char "
" icomplete-fido-ret "" icomplete-fido-backward-updir [134217834] icomplete-fido-exit "" icomplete-forward-completions "" icomplete-backward-completions [right] [left] [67108910] [67108908]] 5) (#$ . 11181))
#@33 Setup `fido-mode''s minibuffer.
(defalias 'icomplete--fido-mode-setup #[0 "\205W\306 \205W\307\310	\311 \"!\210\312\302!\210\313\312\303!\210\313\312\304!\210\314\312\315!\210
??
\312\316!\210\317\312\320!\210\314\312\321!\210\314\312\322!\210\313\312\323!\210\313\312\324!\210\313\211\207" [icomplete-mode icomplete-fido-mode-map icomplete-tidy-shadowed-file-names icomplete-show-matches-on-no-input icomplete-hide-common-prefix icomplete-vertical-mode icomplete-simple-completing-p use-local-map make-composed-keymap current-local-map make-local-variable t nil icomplete-scroll completion-styles (flex) completion-flex-nospace completion-category-defaults completion-ignore-case read-buffer-completion-ignore-case read-file-name-completion-ignore-case] 4 (#$ . 11803)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable fido-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Fido mode is enabled.\nSee the `fido-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `fido-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group icomplete] 12)
#@729 An enhanced `icomplete-mode' that emulates `ido-mode'.

This is a minor mode.  If called interactively, toggle the `Fido mode'
mode.  If the prefix argument is positive, enable the mode, and if it
is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='fido-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

This global minor mode makes minibuffer completion behave
more like `ido-mode' than regular `icomplete-mode'.

(fn &optional ARG)
(defalias 'fido-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B\314\315\316\"\210\314\315\317\"\210	\203V\302\320!\210\311\321\315\316\"\210\321\315\317\"\210\322\323\306\301!\203b\324\202c\325\"\210\326\327!\203\213\330\301!\210\303 \203{\211\303 \232\203\213\331\332\306\301!\203\207\333\202\210\334\335#\210\210\336 \210\306\301!\207" [global-minor-modes fido-mode icomplete-mode current-message set-default toggle default-value 1 nil t boundp delq remove-hook minibuffer-setup-hook icomplete-minibuffer-setup icomplete--fido-mode-setup -1 add-hook run-hooks fido-mode-hook fido-mode-on-hook fido-mode-off-hook called-interactively-p any customize-mark-as-set message "Fido mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 13113) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar fido-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\325\326\327\330\331&\207" [fido-mode-map fido-mode-hook variable-documentation put "Hook run after entering or leaving `fido-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode fido-mode boundp custom-declare-variable icomplete-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Icomplete mode is enabled.\nSee the `icomplete-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `icomplete-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group icomplete] 12)
#@1101 Toggle incremental minibuffer completion (Icomplete mode).

This is a minor mode.  If called interactively, toggle the `Icomplete
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='icomplete-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

When this global minor mode is enabled, typing in the minibuffer
continuously displays a list of possible completions that match
the string you have typed.  See `icomplete-completions' for a
description of how prospective completions are displayed.

For more information, see Info node `(emacs)Icomplete'.
For options you can set, `\[customize-group] icomplete'.

You can use the following key bindings to navigate and select
completions:

\{icomplete-minibuffer-map}

(fn &optional ARG)
(defalias 'icomplete-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B\314\315\316\"\210\314\317\320\"\210	\203X\321\322!\210\n\203S\323\317\320\"\210\323\315\316\"\210\324\325\306\301!\203d\326\202e\327\"\210\330\331!\203\215\332\301!\210\303 \203}\211\303 \232\203\215\333\334\306\301!\203\211\335\202\212\336\337#\210\210\340 \210\306\301!\207" [global-minor-modes icomplete-mode icomplete-in-buffer current-message set-default toggle default-value 1 nil t boundp delq remove-hook minibuffer-setup-hook icomplete-minibuffer-setup completion-in-region-mode-hook icomplete--in-region-setup fido-mode -1 add-hook run-hooks icomplete-mode-hook icomplete-mode-on-hook icomplete-mode-off-hook called-interactively-p any customize-mark-as-set message "Icomplete mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 15781) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar icomplete-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [icomplete-mode-map icomplete-mode-hook variable-documentation put "Hook run after entering or leaving `icomplete-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode icomplete-mode boundp] 6)
(defalias 'icomplete--completion-table #[0 "\302 \203\207\303	8\206\304\305p\306 \302 $\207" [minibuffer-completion-table completion-in-region--data window-minibuffer-p 2 message "In %S (w=%S): %S" selected-window] 5])
(defalias 'icomplete--completion-predicate #[0 "\302 \203\207\303	8\207" [minibuffer-completion-predicate completion-in-region--data window-minibuffer-p 3] 2])
(defalias 'icomplete--field-string #[0 "\301 \203\302 \207\303@A@\"\207" [completion-in-region--data window-minibuffer-p minibuffer-contents buffer-substring-no-properties] 3])
(defalias 'icomplete--field-beg #[0 "\301 \203\302 \207@\207" [completion-in-region--data window-minibuffer-p minibuffer-prompt-end] 1])
(defalias 'icomplete--field-end #[0 "\301 \203d\207A@\207" [completion-in-region--data window-minibuffer-p] 1])
(defalias 'icomplete--category #[0 "\300 \301
!\302\303A\"\207" [icomplete--field-beg completion--field-metadata alist-get category] 5])
#@433 Non-nil if current window is a minibuffer that's doing simple completion.

Conditions are:
   the selected window is a minibuffer,
   and not in the middle of macro execution,
   and the completion table is not a function (which would
       indicate some non-standard, non-simple completion mechanism,
       like file-name and other custom-func completions),
   and `icomplete-with-completion-tables' doesn't restrict completion.
(defalias 'icomplete-simple-completing-p #[0 "?\205\302 \211\205\303
!?\206	\304=\206\211	\235\262
\207" [executing-kbd-macro icomplete-with-completion-tables icomplete--completion-table functionp t] 3 (#$ . 19372)])
#@123 Run in minibuffer on activation to establish incremental completion.
Usually run by inclusion in `minibuffer-setup-hook'.
(defalias 'icomplete-minibuffer-setup #[0 "\205*\305 \205*\306\301!\210\307 \306\302!\210\310\211\311\312\f\313 \"!\210\314\315\316\310\317$\210\320\321!\207" [icomplete-mode icomplete--initial-input completion-show-inline-help icomplete--scrolled-completions icomplete-minibuffer-map icomplete-simple-completing-p make-local-variable icomplete--field-string nil use-local-map make-composed-keymap current-local-map add-hook post-command-hook icomplete-post-command-hook t run-hooks icomplete-minibuffer-setup-hook] 6 (#$ . 20037)])
(defvar icomplete--in-region-buffer nil)
(defalias 'icomplete--in-region-setup #[0 "\203	\203+	p=\204+r	\206pq\210\306\307\n!\210\310\304!\210\311\312\313\314#\210\315\306!\210)\205[\205[\316 \205[p\317\304!\210\306\300
\236
A>\204T\211\320A\"\241\210\210\321\312\313\306\314$\207" [completion-in-region-mode icomplete--in-region-buffer icomplete-overlay icomplete-mode completion-show-inline-help minor-mode-overriding-map-alist nil delete-overlay kill-local-variable remove-hook post-command-hook icomplete-post-command-hook t message icomplete-simple-completing-p make-local-variable make-composed-keymap add-hook icomplete-minibuffer-map] 5])
(defalias 'icomplete--sorted-completions #[0 "\206\255\305 \306 \300\"	\203\"	;\203\"\307 \n\232\203\"\310\311D\2024\2054	?\2054\312 \313=\2054\314C\315\316\315\211:\203\244@\262@!\203M\206\223\315\211\211\211:\203\221A:\203\221A@\262!\203\203\211AA\241\210\317\f\f
B#\262
\315\211\262\202\204\316\203\221A\262\315\262\202R\266\204\211\262?\211\262\203\244A\262\2029
\203\252\207\211\266\207\207" [completion-all-sorted-completions minibuffer-default icomplete--initial-input fido-mode icomplete--scrolled-past icomplete--field-beg icomplete--field-end icomplete--field-string #[257 "
\232\207" [minibuffer-default] 3 "\n\n(fn COMP)"] #[257 "\301\"\207" [minibuffer-default string-prefix-p] 4 "\n\n(fn COMP)"] icomplete--category file #[257 "\211\300\230\207" ["./"] 3 "\n\n(fn COMP)"] nil t completion--cache-all-sorted-completions] 17])
#@61 Keymap used by `icomplete-vertical-mode' in the minibuffer.
(defvar icomplete-vertical-mode-minibuffer-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\303#\210\301
\307\305#\210\301
\310\311#\210\301
\312\313#\210\207" [make-sparse-keymap define-key "" icomplete-forward-completions "" icomplete-backward-completions [down] [up] [134217788] icomplete-vertical-goto-first [134217790] icomplete-vertical-goto-last] 5) (#$ . 22268))
#@69 Setup the minibuffer for vertical display of completion candidates.
(defalias 'icomplete--vertical-minibuffer-setup #[0 "\304\305\306 \"!\210\307\301!\210\310\307\302!\210\311\307\303!\210\310\211\207" [icomplete-vertical-mode-minibuffer-map icomplete-hide-common-prefix icomplete-prospects-height redisplay-adhoc-scroll-in-resize-mini-windows use-local-map make-composed-keymap current-local-map make-local-variable nil 25] 4 (#$ . 22725)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable icomplete-vertical-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Icomplete-Vertical mode is enabled.\nSee the `icomplete-vertical-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `icomplete-vertical-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)
#@902 Toggle vertical candidate display in `icomplete-mode' or `fido-mode'.

This is a minor mode.  If called interactively, toggle the
`Icomplete-Vertical mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='icomplete-vertical-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

If none of these modes are on, turn on `icomplete-mode'.

As many completion candidates as possible are displayed, depending on
the value of `max-mini-window-height', and the way the mini-window is
resized depends on `resize-mini-windows'.

(fn &optional ARG)
(defalias 'icomplete-vertical-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B\314\315\316\"\210	\203N\n\204I\302\307!\210\317\315\316\"\210\320\321\306\301!\203Z\322\202[\323\"\210\324\325!\203\203\326\301!\210\303 \203s\211\303 \232\203\203\327\330\306\301!\203\331\202\200\332\333#\210\210\334 \210\306\301!\207" [global-minor-modes icomplete-vertical-mode icomplete-mode current-message set-default toggle default-value 1 nil t boundp delq remove-hook icomplete-minibuffer-setup-hook icomplete--vertical-minibuffer-setup add-hook run-hooks icomplete-vertical-mode-hook icomplete-vertical-mode-on-hook icomplete-vertical-mode-off-hook called-interactively-p any customize-mark-as-set message "Icomplete-Vertical mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 23721) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar icomplete-vertical-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\325\326\327&	\207" [icomplete-vertical-mode-map icomplete-vertical-mode-hook variable-documentation put "Hook run after entering or leaving `icomplete-vertical-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode icomplete-vertical-mode boundp custom-declare-variable fido-vertical-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Fido-Vertical mode is enabled.\nSee the `fido-vertical-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `fido-vertical-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)
#@739 Toggle vertical candidate display in `fido-mode'.
When turning on, if non-vertical `fido-mode' is off, turn it on.
If it's on, just add the vertical display.

This is a minor mode.  If called interactively, toggle the
`Fido-Vertical mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='fido-vertical-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'fido-vertical-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B\314\315!\210	\203L\n\204H\302\307!\210\314\307!\210\316\317\306\301!\203X\320\202Y\321\"\210\322\323!\203\201\324\301!\210\303 \203q\211\303 \232\203\201\325\326\306\301!\203}\327\202~\330\331#\210\210\332 \210\306\301!\207" [global-minor-modes fido-vertical-mode fido-mode current-message set-default toggle default-value 1 nil t boundp delq icomplete-vertical-mode -1 run-hooks fido-vertical-mode-hook fido-vertical-mode-on-hook fido-vertical-mode-off-hook called-interactively-p any customize-mark-as-set message "Fido-Vertical mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 26660) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar fido-vertical-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [fido-vertical-mode-map fido-vertical-mode-hook variable-documentation put "Hook run after entering or leaving `fido-vertical-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode fido-vertical-mode boundp] 6)
#@139 Insert Icomplete completions display.
Should be run via minibuffer `post-command-hook'.
See `icomplete-mode' and `minibuffer-setup-hook'.
(defalias 'icomplete-exhibit #[0 "\205$
\306 \205$
`\212db\210	\204\307 \n\232?\205!
`\310 ZV\204=\f\204=\311\312 !\2036\312 G
W\204=\313*!\205!
+\203\206\314 \315=\203\206,\203\206\316,!\203\206-\317=\203\206\211\320 U\203\206`\321,!Z\322Y\204|`\322Z\206u`Sf\323=\203\206\324,!\321,!|\210\307 \325.\3261\324\327/\3302\317\330\327
0\331 \206\260\332\312 \333 \334 \205\2571\335=$\262
20=\203\301\3272\335\202\3132\203\312\327\202\313\211)\266\2020)0\202\333\210\3352\336\337!\3353\3274\211;\205
\3405e`p$\210\341\342\343\344\335%\210\3455\3466\205
7\205
8G\211T
\347\f!\\\3507#\266\203#\210\3455\351#+\266\202)\262
\207" [icomplete-mode icomplete-show-matches-on-no-input icomplete--initial-input icomplete-max-delay-chars completion-all-sorted-completions icomplete-delay-completions-threshold icomplete-simple-completing-p icomplete--field-string icomplete--field-beg sequencep icomplete--completion-table sit-for icomplete--category file overlay-buffer self-insert-command icomplete--field-end overlay-end 2 47 overlay-start (selection-request) (quit) nil #1=#:input input-pending-p icomplete-completions icomplete--completion-predicate window-minibuffer-p t eval (ignore nil) move-overlay put-text-property 0 1 cursor overlay-put before-string safe-length format after-string icomplete-compute-delay icomplete-tidy-shadowed-file-names rfn-eshadow-overlay this-command while-no-input-ignore-events inhibit-quit throw-on-input minibuffer--require-match quit-flag buffer-undo-list deactivate-mark icomplete-overlay icomplete-scroll icomplete-matches-format icomplete--scrolled-past] 13 (#$ . 28796)])
#@458 Augment completion strings in PROSPECTS with completion metadata MD.
Return a list of strings (COMP PREFIX SUFFIX SECTION).  PREFIX
and SUFFIX, if non-nil, are obtained from `affixation-function' or
`annotation-function' metadata.  SECTION is obtained from
`group-function'.  Consecutive `equal' sections are avoided.
COMP is the element in PROSPECTS or a transformation also given
by `group-function''s second "transformation" protocol.

(fn MD PROSPECTS)
(defalias 'icomplete--augment #[514 "\302\303\"\206\304\305\"\302\306\"\206\304\307\"	\205\302\310\"\203(!\202:
\2036\311\312\313\"\"\202:\311\314\"
\203\267\315
\315\211\211\211\211\211\211\211:\203\264@\262\211A\262\242\262\211A\262\242\262@\262\316\317\320\n#\262\321\f	\322\"\206{\320#\262	\f	\315\"\211\262\f\232\204\237\fFB\262\202\251EB\262A\262	\315\262
\202H
\237\207\207" [completion-extra-properties completions-group completion-metadata-get affixation-function plist-get :affixation-function annotation-function :annotation-function group-function mapcar make-closure #[257 "\300
!\206\301
\301\302\303G\304\305%\203\202\306\304\307#E\207" [V0 "" text-property-not-all 0 face nil propertize completions-annotations] 10 "\n\n(fn COMP)"] list nil get-text-property 0 icomplete-selected propertize t] 20 (#$ . 30603)])
#@17 

(fn COMPS MD)
(defalias 'icomplete--render-vertical #[514 "\304\211\305\306 \307\"^S	\203f\n\203f\204f\304\304\211\310\304:\203^\262\211A\262\242\262\n@\232\203MB\262\311\312 \313 
#\210\304\262
\304\211\262\202N\310\203^B\262A\262\202
\203d\304\266AS\304\211\305\314\"\315:\203\237\262\211A\262\242\262
S\211\262\315Y\203\237<\203\237\211T\262
A\262\202u\266\204Z\304\211\211S\211\262\315Y\203\362\304\262\203\324\315V\203\324\211A\262\242\211\262\nB\262\nS\262\202\350:\203\350
\211A\262\242\211\262C\244\262\203\362\304\262
\202\246
\262	\266\316@\317\310#\320C#\321\"\304\211\211\211\322\315G\323\320%\210\304\211\211\211\211:\203Z
@\262\211A\262\242\262@\262G\203>

]\202?
\211\262\210G
\203P


]\266\202\202S
\211\266\202A\262\202

\262\n\262\266\304\211\211\211\211\211\315:\203\335
@\262\211A\262\242\262\211A\262\242\262\211A\262\242\262@\262\203\242

\316\324\325#C\244\262\211T\262
\326\315\317	#\203\266
\322\315G\323\320%\210
\327	GZ\330\"	\327\fGZ\330\"	\260C\244\262A\262\202i

\262\n\266\210
GX\203\356
\315\202	G	GV\203\374
\211\202\331
\314\"\nG^\233\262\332\304\n\333:\2032@\262
S\211\262\315Y\2032\211P\262
\211\334P\262
A\262\202\266\203P\207" [icomplete-prospects-height icomplete-scroll icomplete--scrolled-completions icomplete--scrolled-past nil truncate max-mini-window-lines 1 t completion--cache-all-sorted-completions icomplete--field-beg icomplete--field-end 2 0 propertize icomplete-selected append icomplete--augment add-face-text-property icomplete-selected-match face icomplete-section get-text-property make-string 32 ceiling " \n" "" "\n"] 27 (#$ . 31974)])
#@821 Identify prospective candidates for minibuffer completion.

The display is updated with each minibuffer keystroke during
minibuffer completion.

Prospective completion suffixes (if any) are displayed, bracketed by
one of (), [], or {} pairs.  The choice of brackets is as follows:

  (...) - a single prospect is identified and matching is enforced,
  [...] - a single prospect is identified but matching is optional, or
  {...} - multiple prospects, separated by commas, are indicated, and
          further input is required to distinguish a single one.

If there are multiple possibilities, `icomplete-separator' separates them.

The displays for unambiguous matches have ` [Matched]' appended
(whether complete or not), or ` [No matches]', if no eligible
matches exist.

(fn NAME CANDIDATES PREDICATE REQUIRE-MATCH)
(defalias 'icomplete-completions #[1028 "\205	\205\n\205\306\307\n!\310Q\211\203 \311\312#\202!\313\314 !\315 \2030\316\2021\317\2039\320\202:\321:\204G\322\323#\202\362

\203R\324\"\202\362
:\205Z\325!\211A
\203d
\326\241\2101\204oA?\205\225\211\203\211\211\327V\203\211\330G\n%\202\225\330\326G\n%\211:\203\237\211@\202\251\211\203\250@\202\251\331\332
\326\211\326\2112&\333\334!\203\277\335\202\300\336
\337=\206\326\337=\206\326\340!S\211\262GU?\205
GU\203\353\326O\202\377\341\342!\\W\203\371\202\377
\326OPQ\343\342\206

\n\nP!\3423!\341\342!\\\342\344 !$4
\345 \245\\\345 _1\2051
\346\331
\"\211;\205A
\347
\337#\205A
\211G\326\211\211\337=\204W
5\204^
A:\204^
\350P\202\345
\235\203m
P\262\203\260
\211\204\260
\203\203
@\326O\202\206
@\262A\262\342!\3423!\\\\\262W\203\252

B\262\202m
\337\262
\202m
\237\262\203\317
\351\211A\262\242!\352\327G\353\354%\210\211B\262\210\355\356\3573#\205\342
3\fP\360PR\203\360
\241\210\266\216*\207" [minibuffer-completing-file-name icomplete-with-completion-tables completion-ignored-extensions minibuffer-completion-table minibuffer-completion-predicate icomplete-vertical-mode "\\(?:\\`\\.\\./\\|" regexp-opt "\\)\\'" make-closure #[257 "\302\301\"?\205\300?\206\300
!\207" [V0 V1 string-match] 4 "\n\n(fn CAND)"] completion--field-metadata icomplete--field-beg icomplete--sorted-completions "(" "[" ")" "]" format " %sNo matches%s" icomplete--render-vertical last nil 0 completion-try-completion "" compare-strings char-displayable-p 8230 "…" "..." t abs 2 string-width + buffer-string window-width try-completion string-prefix-p " [Matched]" copy-sequence put-text-property face icomplete-first-match "{" mapconcat identity "}" icomplete-hide-common-prefix completion-ignore-case icomplete-separator icomplete-prospects-height icomplete-scroll] 30 (#$ . 33756)])
(provide 'icomplete)