ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/icomplete.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-declare-group 'icomplete nil "Show completions dynamically in minibuffer." :prefix "icomplete-" :link '(info-link "(emacs)Icomplete") :group 'minibuffer)
(defvar icomplete-prospects-length 80)
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\210\304\314\315\316\310\317\312\313&\210\304\320\321\322\310\317\312\313&\210\304\323\315\324\312\313\310\325&\210\326\327\330\331\312\313%\210\304\302\332\333\310\334\312\303&\210\304\335\336\337\310\340%\210\304\341\342\343\310\334%\210\304\344\345\346\310\334%\207" [make-obsolete-variable icomplete-prospects-length icomplete-prospects-height "23.1" custom-declare-variable icomplete-separator " | " "String used by Icomplete to separate alternatives in the minibuffer." :type string :version "24.4" icomplete-hide-common-prefix t "When non-nil, hide common prefix from completion candidates.\nWhen nil, show candidates in full." boolean icomplete-show-matches-on-no-input nil "When non-nil, show completions when first prompting for input." icomplete-with-completion-tables "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)) custom-declare-face icomplete-first-match ((t :weight bold)) "Face used by Icomplete for highlighting first match." (+ 1 (/ (+ icomplete-prospects-length 20) (window-width))) "Maximum number of lines to use in the minibuffer." integer 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'."] 8)
#@69 If non-nil, also use Icomplete when completing in non-mini buffers.
(defvar icomplete-in-buffer nil (#$ . 2367))
#@437 Icomplete-specific customization of minibuffer setup.
This hook is run during minibuffer setup if Icomplete is active.
It is intended for use in customizing Icomplete for interoperation
with other features and packages. For instance:
(add-hook \='icomplete-minibuffer-setup-hook
(lambda () (setq-local max-mini-window-height 3)))
will constrain Emacs to a maximum minibuffer height of 3 lines when
icompletion is occurring.
(custom-declare-variable 'icomplete-minibuffer-setup-hook nil '(#$ . 2487) :type 'hook :group 'icomplete)
#@50 Overlay used to display the list of completions.
(defvar icomplete-overlay (byte-code "\300ee\301\302\211%\207" [make-overlay nil t] 6) (#$ . 3035))
(defalias 'icomplete-pre-command-hook #[nil "\301\302 )\207" [non-essential t icomplete-tidy] 1])
(defalias 'icomplete-post-command-hook #[nil "\301\302 )\207" [non-essential t icomplete-exhibit] 1])
#@52 Keymap used by `icomplete-mode' in the minibuffer.
(defvar icomplete-minibuffer-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210)\207" [map make-sparse-keymap define-key [134217737] minibuffer-force-complete [10] icomplete-force-complete-and-exit [67108910] icomplete-forward-completions [67108908] icomplete-backward-completions] 4) (#$ . 3392))
#@123 Complete the minibuffer and exit.
Use the first of the matches if there are any displayed, and use
the default otherwise.
(defalias 'icomplete-force-complete-and-exit #[nil "\204\f \301 \302 V\203 \303 \207\304 \207" [icomplete-show-matches-on-no-input icomplete--field-end icomplete--field-beg minibuffer-force-complete-and-exit minibuffer-complete-and-exit] 2 (#$ . 3793) nil])
#@133 Step forward completions by one entry.
Second entry becomes the first and can be selected with
`icomplete-force-complete-and-exit'.
(defalias 'icomplete-forward-completions #[nil "\304 \305 \306 \"\303\n!\n\205! \n@ AB\241\210\307 \nA#,\207" [beg end comps last icomplete--field-beg icomplete--field-end completion-all-sorted-completions completion--cache-all-sorted-completions] 4 (#$ . 4182) nil])
#@132 Step backward completions by one entry.
Last entry becomes the first and can be selected with
`icomplete-force-complete-and-exit'.
(defalias 'icomplete-backward-completions #[nil "\305 \306 \307 \"\304\n\310\"\211A\211 :\205' \fA\241\210\f@\nB\311 \n#-\207" [beg end comps last-but-one last icomplete--field-beg icomplete--field-end completion-all-sorted-completions 2 completion--cache-all-sorted-completions] 5 (#$ . 4596) nil])
#@263 Non-nil if Icomplete mode is enabled.
See the `icomplete-mode' command
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 '(#$ . 5042) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'icomplete :type 'boolean)
#@689 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.
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}
(defalias 'icomplete-mode #[(&optional arg) "\305 \306\302 \307=\203 \310\302!?\202 \311 !\312V\"\210\313\314\315\"\210\313\316\317\"\210\n\2035 \2030 \320\316\317\"\210\320\314\315\"\210\321\322\310\302!\203A \323\202B \324\"\210\325\326!\203m \327\302!\210\305 \203Z \305 \232\203m \330 \331\332\310\302!\203h \333\202i \334\f#\210))\335 \210\310\302!\207" [#1=#:last-message arg icomplete-mode icomplete-in-buffer local current-message set-default toggle default-value prefix-numeric-value 0 remove-hook minibuffer-setup-hook icomplete-minibuffer-setup completion-in-region-mode-hook icomplete--in-region-setup 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] 4 (#$ . 5470) (list (or current-prefix-arg 'toggle))])
#@179 Hook run after entering or leaving `icomplete-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar icomplete-mode-hook nil (#$ . 7047))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [icomplete-mode-map add-minor-mode icomplete-mode nil boundp] 6)
(defalias 'icomplete--completion-table #[nil "\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 #[nil "\302 \203 \207\303 8\207" [minibuffer-completion-predicate completion-in-region--data window-minibuffer-p 3] 2])
(defalias 'icomplete--field-string #[nil "\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 #[nil "\301 \203 \302 \207@\207" [completion-in-region--data window-minibuffer-p minibuffer-prompt-end] 1])
(defalias 'icomplete--field-end #[nil "\301 \203 d\207A@\207" [completion-in-region--data window-minibuffer-p] 1])
#@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 #[nil "?\205 \303 \211\205 \304 !?\206 \n\305=\206 \n\235)\207" [executing-kbd-macro table icomplete-with-completion-tables icomplete--completion-table functionp t] 3 (#$ . 8231)])
#@123 Run in minibuffer on activation to establish incremental completion.
Usually run by inclusion in `minibuffer-setup-hook'.
(defalias 'icomplete-minibuffer-setup #[nil "\205/ \304 \205/ \305\301!\210\306\307\310\n\311 \"!\210\312\313\314\306\315$\210\312\316\317\306\315$\210\320\321!\210 \205/ \322 \207" [icomplete-mode completion-show-inline-help icomplete-minibuffer-map icomplete-show-matches-on-no-input icomplete-simple-completing-p make-local-variable nil use-local-map make-composed-keymap current-local-map add-hook pre-command-hook icomplete-pre-command-hook t post-command-hook icomplete-post-command-hook run-hooks icomplete-minibuffer-setup-hook icomplete-exhibit] 5 (#$ . 8899)])
(defvar icomplete--in-region-buffer nil)
(defalias 'icomplete--in-region-setup #[nil "\203 \2031 p=\2041 r \206 pq\210\306\307\n!\210\310\304!\210\311\312\313\314#\210\311\315\316\314#\210\317\306!\210)\205m \205m \320 \205m p\321\304!\210\306\300
\236 A>\204_ \322A\"\241\210)\323\312\313\306\314$\210\323\315\316\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 pre-command-hook icomplete-pre-command-hook t post-command-hook icomplete-post-command-hook message icomplete-simple-completing-p make-local-variable make-composed-keymap add-hook tem icomplete-minibuffer-map] 5])
#@167 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 (#$ . 10364)])
#@139 Insert Icomplete completions display.
Should be run via minibuffer `post-command-hook'.
See `icomplete-mode' and `minibuffer-setup-hook'.
(defalias 'icomplete-exhibit #[nil "\205\230 \306 \205\230 \212db\210 \204 \307 \310 V\205\227 `\310 Z\nV\204; \204; \311\312 !\2035 \312 G\fW\204; \313
!\205\227 \314 \3151i \316 \3172d \317 \320 \206b \321 \312 \322 \323 \205a !?$)0)0\202p \210\324\"\325\326! #\324 $\316 %#;\205\226 \327&``p$\210\330\331\332\333\324#%\210\334&\335##,)\207" [icomplete-mode icomplete-show-matches-on-no-input icomplete-max-delay-chars completion-all-sorted-completions icomplete-delay-completions-threshold icomplete-compute-delay icomplete-simple-completing-p icomplete--field-end icomplete--field-beg sequencep icomplete--completion-table sit-for icomplete--field-string (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 after-string field-string inhibit-quit throw-on-input minibuffer-completion-confirm quit-flag text buffer-undo-list deactivate-mark icomplete-overlay] 6 (#$ . 10634)])
#@775 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.
(defalias 'icomplete-completions #[(name candidates predicate require-match) "\n\306\307 ! \310\307 \311 \"\211 :\205 \312
!\211 \nA ,-\203' \313\202( \314 .-\2033 \315\2024 \316 /
:\204E \317\320./#\202\n\203O \n\321\241\210,\203h ,\322V\203h \3230\n0G\f%\202r \3230
\3210G\f%\211 1:\203 1@\202\212 1\203\211
@\202\212 \324 2\3250\321\2112\321\2113& 4\326\327!\203\245 \330\202\246 \331 54\332=\206\302 1\332=\206\302 \3334!S\21142GU?\205\367 .40GU\203\332 24\321O\202\364 4\334\3355!\\W\203\353 2\202\364 524\321OP/Q 6\336\3356\206./P!\3357!\334\3355!\\\335\337 !$ 898\340 \245\\\340 _ :;\205-\341\324
\"\211 <;\205A\342<2\332#\205A<G =\321\211 > ?\321 @1\332=\204Y
A:\204_\321>\202\2610
\235\203n.\324/Q6
\203\261@\204\261=\203\205
@=\321O\202\207
@?
A\336\335?!\3357!8#\2118:W\203\253?>B>\202n\332@\202n>\237\211>\203\330\343>\211A>\242! A\344\322AG\345\346A%\210A>B>)\n\203\343\n,\241\210>\2036\347\350\351>7#@\205\37475P\352\260\2026\353P.\f.\207" [candidates minibuffer-completion-table predicate minibuffer-completion-predicate md comps completion--field-metadata icomplete--field-beg completion-all-sorted-completions icomplete--field-end last "(" "[" ")" "]" format " %sNo matches%s" 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 copy-sequence put-text-property face icomplete-first-match "{" mapconcat identity "}" " [Matched]" base-size require-match open-bracket close-bracket name most-try most completion-ignore-case compare ellipsis determ icomplete-separator prospects-len icomplete-prospects-height prospects-max icomplete-hide-common-prefix prefix prefix-len prospects comp limit first] 9 (#$ . 11807)])
(provide 'icomplete)
Kontol Shell Bypass