WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp
Viewing File: /usr/share/emacs/24.3/lisp/icomplete.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:48:21 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/icomplete.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.

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


(byte-code "\300\301!\210\302\301\303\304\305\306\307\310&\207" [provide icomplete custom-declare-group nil "Show completions dynamically in minibuffer." :prefix "icomplete-" :group minibuffer] 8)
(defvar icomplete-prospects-length 80)
(byte-code "\300\301\302\303#\210\304\302\305\306\307\310\311\312\313\303&	\210\304\314\315\316\307\317\311\312&\210\304\320\321\322\307\310\311\312&\210\304\323\324\325\307\310\311\312&\210\304\326\327\330\307\331\311\312&\210\304\332\333\334\307\335\311\312&\207" [make-obsolete-variable icomplete-prospects-length icomplete-prospects-height "23.1" custom-declare-variable (+ 1 (/ (+ icomplete-prospects-length 20) (window-width))) "Maximum number of lines to use in the minibuffer." :type integer :group icomplete :version icomplete-compute-delay 0.3 "Completions-computation stall, used only with large-number completions.\nSee `icomplete-delay-completions-threshold'." number icomplete-delay-completions-threshold 400 "Pending-completions number over which to apply `icomplete-compute-delay'." icomplete-max-delay-chars 3 "Maximum number of initial chars to apply icomplete compute delay." icomplete-show-key-bindings t "If non-nil, show key bindings as well as completion for sole matches." boolean icomplete-minibuffer-setup-hook nil "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	    (function\n	     (lambda ()\n	       (make-local-variable 'max-mini-window-height)\n	       (setq max-mini-window-height 3))))\n\nwill constrain Emacs to a maximum minibuffer height of 3 lines when\nicompletion is occurring." hook] 10)
#@50 Overlay used to display the list of completions.
(defvar icomplete-overlay (byte-code "\300ee\301\302\211%\207" [make-overlay nil t] 6) (#$ . 2366))
#@218 Incremental-minibuffer-completion pre-command-hook.

Is run in minibuffer before user input when `icomplete-mode' is non-nil.
Use `icomplete-mode' function to set it up properly for incremental
minibuffer completion.
(defvar icomplete-pre-command-hook nil (#$ . 2522))
(add-hook 'icomplete-pre-command-hook 'icomplete-tidy)
#@218 Incremental-minibuffer-completion post-command-hook.

Is run in minibuffer after user input when `icomplete-mode' is non-nil.
Use `icomplete-mode' function to set it up properly for incremental
minibuffer completion.
(defvar icomplete-post-command-hook nil (#$ . 2853))
(add-hook 'icomplete-post-command-hook 'icomplete-exhibit)
#@150 Return strings naming keys bound to FUNC-NAME, or nil if none.
Examines the prior, not current, buffer, presuming that current buffer
is minibuffer.
(defalias 'icomplete-get-keys #[(func-name) "\304!\205)\212\305!\306\307\310\"r\nq\210\311	!)\211\205(\312\313\314\315\316\"\317#\320Q,\207" [func-name sym buf keys commandp intern other-buffer nil t where-is-internal "<" mapconcat key-description sort #[(x y) "G	GW\207" [x y] 2] ", " ">"] 7 (#$ . 3189)])
#@162 Specialized completion tables with which icomplete should operate.

Icomplete does not operate with any specialized completion tables
except those on this list.
(defvar icomplete-with-completion-tables '(internal-complete-buffer) (#$ . 3661))
#@263 Non-nil if Icomplete mode is enabled.
See the command `icomplete-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `icomplete-mode'.
(custom-declare-variable 'icomplete-mode nil '(#$ . 3911) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'icomplete :type 'boolean)
#@220 Toggle incremental minibuffer completion (Icomplete mode).
With a prefix argument ARG, enable Icomplete mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.
(defalias 'icomplete-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203 \307\310\311\"\210\202%\312\310\311\"\210\313\314\n\203/\315\2020\316\"\210\317\320!\203U\321\302!\210\303 \203H\303 \232\203U\322\323\n\203R\324\202S\325\"\210)\326 \210\n\207" [#1=#:last-message arg icomplete-mode current-message toggle prefix-numeric-value 0 add-hook minibuffer-setup-hook icomplete-minibuffer-setup remove-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" "en" "dis" force-mode-line-update] 4 (#$ . 4339) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [icomplete-mode-map add-minor-mode icomplete-mode nil boundp] 6)
#@367 Non-nil if current window is minibuffer that's doing simple completion.

Conditions are:
   the selected window is a minibuffer,
   and not in the middle of macro execution,
   and `minibuffer-completion-table' is not a symbol (which would
       indicate some non-standard, non-simple completion mechanism,
       like file-name and other custom-func completions).
(defalias 'icomplete-simple-completing-p #[nil "\303\304 !\205 ?\205 	\205 \305	!?\206 \n\306=\206 	\n\235\207" [executing-kbd-macro minibuffer-completion-table icomplete-with-completion-tables window-minibuffer-p selected-window functionp t] 2 (#$ . 5370)])
#@123 Run in minibuffer on activation to establish incremental completion.
Usually run by inclusion in `minibuffer-setup-hook'.
(defalias 'icomplete-minibuffer-setup #[nil "\205 \302 \205 \303\301!\210\304\305\306\307\304\310$\210\305\311\312\304\310$\210\313\314!\207" [icomplete-mode completion-show-inline-help icomplete-simple-completing-p make-local-variable nil add-hook pre-command-hook #[nil "\301\302\303!)\207" [non-essential t run-hooks icomplete-pre-command-hook] 2] t post-command-hook #[nil "\301\302\303!)\207" [non-essential t run-hooks icomplete-post-command-hook] 2] run-hooks icomplete-minibuffer-setup-hook] 5 (#$ . 6008)])
#@168 Remove completions display (if any) prior to new user input.
Should be run in on the minibuffer `pre-command-hook'.  See `icomplete-mode'
and `minibuffer-setup-hook'.
(defalias 'icomplete-tidy #[nil "\301!\207" [icomplete-overlay delete-overlay] 2 (#$ . 6659)])
#@140 Insert icomplete completions display.
Should be run via minibuffer `post-command-hook'.  See `icomplete-mode'
and `minibuffer-setup-hook'.
(defalias 'icomplete-exhibit #[nil "\205^\306 \205^\212db\210d\307 V\205]	\205]`\310 Z\nV\2044\311!\203.G\fW\2044\312
!\205]\313\314\315\217\316\313\211;\205\\\317``p$\210\320\321\322\323\316%\210\324\325#+)\207" [icomplete-mode buffer-undo-list icomplete-max-delay-chars minibuffer-completion-table icomplete-delay-completions-threshold icomplete-compute-delay icomplete-simple-completing-p minibuffer-prompt-end field-beginning sequencep sit-for nil (byte-code "\301\302\303\215)\207" [inhibit-quit nil #1=#:input (byte-code "\304\305 \206\306\307 	\n?$)\207" [throw-on-input minibuffer-completion-table minibuffer-completion-predicate minibuffer-completion-confirm #1# input-pending-p icomplete-completions field-string] 5)] 2) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2))) t move-overlay put-text-property 0 1 cursor overlay-put after-string deactivate-mark text icomplete-overlay] 7 (#$ . 6929)])
#@784 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.

The displays for unambiguous matches have ` [Matched]' appended
(whether complete or not), or ` [No matches]', if no eligible
matches exist.  (Keybindings for uniquely matched commands
are exhibited within the square braces.)
(defalias 'icomplete-completions #[(name candidates predicate require-match) "\306\307 !\310 \211:\205\302	!\211A\f\203\311\202\312\f\203&\313\202'\314*	:\2047\315\316
*#\202\275\n\203?\n\317\241\210\203X\320V\203X\321+,-+G%\202b\321+	\317+G%\211.:\203o.@\202z.\203y	@\202z\322/\323+\317\211/\317\2110&\2111\324=\206\244.\324=\206\244\3251!S\2111/GU?\205\322
1+GU\203\273/1\317O\202\3171\326W\203\307/\202\317\327/1\317OP*Q2\3302G\331\332\333 !#343\334 \245\\\334 _5\335\322	\"\2116;\205\3736G)7\317\21189\317\211:;.\324=\203\3178\202l	\203l;\204l7\203.	@7\317O\2020	@:	A:\322\230\203B\3249\202:8\235\204\330\332:!\3363#\21135W\203f:8B8\202\324;\202\n\203t\n\241\2108\203\2252\3379\205\202\340\341\3428\237\340#;\205\217\343\344\260\202\2732\345<\205\252\346\347/!!\205\252\350/!\211=\203\267\351=P\202\270\322)\314R..\207" [md comps last base-size require-match open-bracket completion--field-metadata field-beginning completion-all-sorted-completions "(" "[" ")" "]" format " %sNo matches%s" nil 0 completion-try-completion "" compare-strings t abs 5 "..." + 6 string-width buffer-string window-width try-completion 1 "{" "," mapconcat identity ",..." "}" " [Matched" commandp intern-soft icomplete-get-keys "; " close-bracket name candidates predicate most-try most completion-ignore-case compare determ prospects-len icomplete-prospects-height prospects-max comps-prefix prefix-len prospects most-is-exact comp limit icomplete-show-key-bindings keys] 9 (#$ . 8037)])
F1l3 Manager
