;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:43:26 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/icomplete.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/icomplete.el' was compiled for Emacs 19")) (provide (quote icomplete)) #@531 *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 packages. For instance: (add-hook 'icomplete-minibuffer-setup-hook (function (lambda () (make-local-variable 'resize-minibuffer-window-max-height) (setq resize-minibuffer-window-max-height 3)))) will constrain rsz-mini to a maximum minibuffer height of 3 lines when icompletion is occurring. (defvar icomplete-minibuffer-setup-hook nil (#$ . -516)) #@105 Non-nil enables incremental minibuffer completion, once `\[icomplete-mode]' function has set things up. (defvar icomplete-mode t (#$ . 1110)) #@63 Point where minibuffer input ends and completion info begins. (defvar icomplete-eoinput 1 (#$ . 1258)) (make-variable-buffer-local (quote 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 (#$ . 1423)) (add-hook (quote icomplete-pre-command-hook) (quote 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 (#$ . 1768)) (add-hook (quote icomplete-post-command-hook) (quote icomplete-exhibit)) #@108 Activate incremental minibuffer completion for this emacs session, or deactivate with negative prefix arg. (defalias 'icomplete-mode #[(&optional prefix) "„ÁÁYƒÂÄÅÆ\"‡Ç‰‡" [prefix 0 t icomplete-mode add-hook minibuffer-setup-hook icomplete-minibuffer-setup nil] 3 (#$ . 2118) "p"]) #@364 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 mechansm, like file-name and other custom-func completions). (defalias 'icomplete-simple-completing-p #[nil "ÀÁ !…\n?… 9?‡" [window-minibuffer-p selected-window executing-macro minibuffer-completion-table] 2 (#$ . 2416)]) #@122 Run in minibuffer on activation to establish incremental completion. Usually run by inclusion in minibuffer-setup-hook. (defalias 'icomplete-minibuffer-setup #[nil "…(Á …(ÂÃ!ˆÄ !ÅÃÆ\"ˆÂÇ!ˆÄ!ÅÇÈ\"ˆÉÊ!‡" [icomplete-mode icomplete-simple-completing-p make-local-variable pre-command-hook copy-sequence add-hook #[nil "ÀÁ!‡" [run-hooks icomplete-pre-command-hook] 2] post-command-hook #[nil "ÀÁ!‡" [run-hooks icomplete-post-command-hook] 2] run-hooks icomplete-minibuffer-setup-hook] 3 (#$ . 2951)]) #@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 "À …'ÁÂ!ƒ \nƒ \ndVƒd‰‡ \nd|)‡ÄÂ!ˆÅ‰‡" [icomplete-simple-completing-p boundp icomplete-eoinput buffer-undo-list make-local-variable 1] 2 (#$ . 3463)]) #@139 Insert icomplete completions display. Should be run via minibuffer post-command-hook. See `icomplete-mode' and `minibuffer-setup-hook'. (defalias 'icomplete-exhibit #[nil "À ….ed{ÁŠdbˆÄÅ!„ÆÅ!ˆ`dÇV…-ÈÉ \n \f?$!+‡" [icomplete-simple-completing-p t buffer-undo-list contents boundp icomplete-eoinput make-local-variable 1 insert-string icomplete-completions minibuffer-completion-table minibuffer-completion-predicate minibuffer-completion-confirm] 6 (#$ . 3826)]) #@699 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 distingish a single one. The displays for disambiguous 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 #\fƒ Å‚Æ\fƒÇ‚ÈÉÊ \f ‰„1ÐÑ #‚™A„V@G GVƒP@ GÒO Q‚QÓÔP‚™Õ \n #‰GÒÙÚÙÛÜÝ\"\"A\" GV…… GÒO Q\fƒ“ßP‚• R,-‡" [all-completions name candidates predicate require-match "(" "[" ")" "]" "{" "}" close-bracket-prospects open-bracket-prospects close-bracket-determined open-bracket-determined comps format " %sNo matches%s" nil "" " [Matched]" try-completion most most-len most-is-exact apply concat nconc mapcar #[(com) "G Uƒ ÂćÅ ÄOD‡" [com most-len t most-is-exact nil ","] 4] alternatives ","] 8 (#$ . 4307)]) (byte-code "ƒÀ ˆÀ‡" [icomplete-mode] 1)