| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/icomplete.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:22 2024
;;; 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 !\211A\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\2110&\211 1\324=\206\244 .\324=\206\244 \3251!S\2111/GU?\205\322
1+GU\203\273 /1\317O\202\317 1\326W\203\307 /\202\317 \327/1\317OP*Q 2\3302G\331\332\333 !# 343\334 \245\\\334 _ 5\335\322 \"\211 6;\205\373 6G) 7\317\211 8 9\317\211 : ;.\324=\203\3178\202l \203l;\204l7\203. @7\317O\2020 @: A:\322\230\203B\3249\202:8\235\204\330\332:!\3363#\21135W\203f:8B8\202\324;\202\n\203t\n \241\2108\203\2252\3379\205\202\340\341\3428\237\340#;\205\217\343\344\260\202\2732\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)])