;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:52 2007 ;;; from file /home/cyd/emacs/lisp/icomplete.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`icomplete.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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) #@45 *Length of string displaying the prospects. (custom-declare-variable 'icomplete-prospects-length '80 '(#$ . -763) :type 'integer :group 'icomplete) #@120 *Completions-computation stall, used only with large-number completions - see `icomplete-delay-completions-threshold'. (custom-declare-variable 'icomplete-compute-delay '0.3 '(#$ . -918) :type 'number :group 'icomplete) #@74 *Pending-completions number over which to apply icomplete-compute-delay. (custom-declare-variable 'icomplete-delay-completions-threshold '400 '(#$ . -1144) :type 'integer :group 'icomplete) #@68 *Maximum number of initial chars to apply icomplete compute delay. (custom-declare-variable 'icomplete-max-delay-chars '3 '(#$ . -1340) :type 'integer :group 'icomplete) #@72 *If non-nil, show key bindings as well as completion for sole matches. (custom-declare-variable 'icomplete-show-key-bindings 't '(#$ . -1516) :type 'boolean :group 'icomplete) #@514 *Icomplete-specific customization of minibuffer setup. This hook is run during minibuffer setup iff icomplete will be active. It is intended for use in customizing icomplete for interoperation with other features and packages. For instance: (add-hook 'icomplete-minibuffer-setup-hook (function (lambda () (make-local-variable 'max-mini-window-height) (setq 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 '(#$ . -1699) :type 'hook :group 'icomplete) #@63 Point where minibuffer input ends and completion info begins. (defvar icomplete-eoinput nil (#$ . 2326)) (make-variable-buffer-local 'icomplete-eoinput) #@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 (#$ . 2486)) (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 (#$ . 2817)) (add-hook 'icomplete-post-command-hook 'icomplete-exhibit) #@152 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) "\305!\205-\212\306!\307\310\311\"\212\nq\210\312 )\313 \"\211\205,\314\315\316\317\f\320\"\321#\322Q-\207" [func-name sym buf map keys commandp intern other-buffer nil t current-local-map where-is-internal "<" mapconcat key-description sort #[(x y) "G GW\207" [x y] 2] ", " ">"] 7 (#$ . 3153)]) #@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) #@135 Toggle incremental minibuffer completion for this Emacs session. With a numeric argument, turn Icomplete mode on iff ARG is positive. (defalias 'icomplete-mode #[(&optional arg) "\302=\203 ?\202%\203\303!\304V\202% \204\305\202%\306\307\301\"\210\310\211\2032\311\312\313\"\210\2027\314\312\313\"\210\315\316 \203A\317\202B\320\"\210\321 \203Z\322\301!\210\306\323 \203W\324\202X\325\"\210\326 \210 \207" [arg icomplete-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Icomplete mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4340) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode icomplete-mode nil boundp icomplete-mode-map] 5) #@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\235\207" [executing-kbd-macro minibuffer-completion-table icomplete-with-completion-tables window-minibuffer-p selected-window functionp] 2 (#$ . 5312)]) #@123 Run in minibuffer on activation to establish incremental completion. Usually run by inclusion in `minibuffer-setup-hook'. (defalias 'icomplete-minibuffer-setup #[nil "\205\301 \205\302\303\304\305\306$\210\302\307\310\305\306$\210\311\312!\207" [icomplete-mode icomplete-simple-completing-p add-hook pre-command-hook #[nil "\300\301!\207" [run-hooks icomplete-pre-command-hook] 2] nil t post-command-hook #[nil "\300\301!\207" [run-hooks icomplete-post-command-hook] 2] run-hooks icomplete-minibuffer-setup-hook] 5 (#$ . 5935)]) #@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 "\205 \205 dY\204\304\305 d|\210*\305\211\207" [icomplete-mode icomplete-eoinput deactivate-mark buffer-undo-list t nil] 2 (#$ . 6476)]) #@140 Insert icomplete completions display. Should be run via minibuffer `post-command-hook'. See `icomplete-mode' and `minibuffer-setup-hook'. (defalias 'icomplete-exhibit #[nil "\205M\306 \205M\212db\210`d\307 V\205L\n\205L`\310 Z V\2047\311\f!\2030\fG W\2047\312!\205L\313\314\315\217\316\313\211:\205K@c+)\207" [icomplete-mode icomplete-eoinput buffer-undo-list icomplete-max-delay-chars minibuffer-completion-table icomplete-delay-completions-threshold 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 ?$C)\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 icomplete-compute-delay deactivate-mark text] 4 (#$ . 6829)]) #@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) "<\203\f@\204\f\306\307 \n# \203\310\202\311 \203\"\312\202#\313\211\"\2043\314\315 \f#\202\n\316 \317\320\"\"\"\211#;\203G#\202J\"@\211$G\211% GV\205` $ G\306O\fQ&\321'\306\211()\306*#\322=\203{\306(\202\277\"\203\277'+W\203\277\"@%\306O*\"A\"*\323\230\203\243\322)\202{*(\235\204{*(B(*G'\\\324\\'\202{(\203\342&\325)\205\315\326\327\330\331(\332\"\326#\"\205\334\333\334\260\202&\335,\205\367\336\337$!!\205\367\340$!\211-\203\341-P\202\323)\313R.+\207" [candidates name predicate require-match close-bracket-determined open-bracket-determined nil all-completions "(" "[" ")" "]" format " %sNo matches%s" try-completion mapcar list 0 t "" 1 "{" "," mapconcat identity sort string-lessp ",..." "}" " [Matched" commandp intern-soft icomplete-get-keys "; " comps most-try most most-len determ prospects-len prospects most-is-exact comp icomplete-prospects-length icomplete-show-key-bindings keys] 9 (#$ . 7824)])