%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/icomplete.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \210\314\315\316\317\320DD\321\322\323\324\325&\210\314\326\316\317\327DD\330\322\331\324\325&\207" [require rfn-eshadow 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 #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] "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 (#$ . 1113)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\311\306\315&\210\316\317\320\321\310\311%\210\300\322\302\303\323DD\324\306\325\310\326&\210\300\327\302\303\330DD\331\306\332%\210\300\333\302\303\334DD\335\306\325%\210\300\336\302\303\337DD\340\306\325%\207" [custom-declare-variable icomplete-show-matches-on-no-input funcall function #[0 "\300\207" [nil] 1] "When non-nil, show completions when first prompting for input." :type boolean :version "24.4" icomplete-with-completion-tables #[0 "\300\207" [t] 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)) custom-declare-face icomplete-first-match ((t :weight bold)) "Face used by Icomplete for highlighting first match." icomplete-prospects-height #[0 "\300\207" [2] 1] "Maximum number of lines to use in the minibuffer." integer "26.1" icomplete-compute-delay #[0 "\300\207" [0.3] 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] "Pending-completions number over which to apply `icomplete-compute-delay'." icomplete-max-delay-chars #[0 "\300\207" [3] 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 (#$ . 2934)) (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) (#$ . 3694)) (defalias 'icomplete-pre-command-hook #[0 "\301\302 )\207" [non-essential t icomplete-tidy] 1]) (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\211\207" [make-sparse-keymap define-key [134217737] icomplete-force-complete [10] icomplete-force-complete-and-exit [67108910] icomplete-forward-completions [67108908] icomplete-backward-completions] 5) (#$ . 4047)) #@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 "\303 \304 V\204 \204 \204 \n\203 \305 \207\306 \207" [minibuffer-default icomplete-show-matches-on-no-input completion-all-sorted-completions icomplete--field-end icomplete--field-beg minibuffer-force-complete-and-exit minibuffer-complete-and-exit] 2 (#$ . 4444) nil]) #@36 Complete the icomplete minibuffer. (defalias 'icomplete-force-complete #[0 "\300\301\211\302#\207" [minibuffer-force-complete nil dont-cycle] 4 (#$ . 4929) 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 #[0 "\300 \301 \302\"\303!\205 \211@AB\241\210\304A#\207" [icomplete--field-beg icomplete--field-end completion-all-sorted-completions last completion--cache-all-sorted-completions] 8 (#$ . 5098) 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 #[0 "\300 \301 \302\"\303\304\"\211A\211:\205# A\241\210\211@B\262\305#\207" [icomplete--field-beg icomplete--field-end completion-all-sorted-completions last 2 completion--cache-all-sorted-completions] 9 (#$ . 5490) 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 \303\304!\202S \305 \211@\306 \211\307\267\2028 \310\311\312\313\314!\315\"\316$\2029 \310\311\317\313\314!\320\"\321$\2029 \322\262\323\322\211 *\203N \324\325 \302 A#\210\326\322!\266\203\207" [icomplete-mode enable-recursive-minibuffers icomplete--field-end call-interactively kill-line completion-all-sorted-completions icomplete--category #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 26 file 41)) make-byte-code 0 "\301\302\300\303Q!\205\f \304\300!\207" vconcat vector [yes-or-no-p "Kill buffer " "? " kill-buffer] 4 "\301\302 !\303\300\"\304\305\306Q!\205 \307!\210\310\207" [file-name-directory icomplete--field-string expand-file-name yes-or-no-p "Delete file " "? " delete-file t] 6 nil t completion--cache-all-sorted-completions icomplete--field-beg message] 10 (#$ . 5903) 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!\202 \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 (#$ . 7191) 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!\"\211\2030 \307!\2030 \310\230\2040 \311 \2022 \312 \207" [completion-all-sorted-completions icomplete--category file file-name-directory icomplete--field-string expand-file-name directory-file-name file-directory-p "./" icomplete-force-complete icomplete-force-complete-and-exit] 5 (#$ . 7532) nil]) #@308 Attempt to exit minibuffer immediately with current input. Unless FORCE is non-nil (interactively with a prefix argument), honour 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 (#$ . 7987) "P"]) #@57 Delete char before or go up directory, like `ido-mode'. (defalias 'icomplete-fido-backward-updir #[0 "`Sf\300=\203\"