;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Aug 4 20:46:17 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/icomplete.el ;;; emacs version 19.25.92.1. ;;; 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)) (defvar icomplete-inhibit nil "\ *Set this variable to t at any time to inhibit icomplete.") (defvar icomplete-eoinput 1 "\ Point where minibuffer input ends and completion info begins.") (make-variable-buffer-local (quote icomplete-eoinput)) (defalias 'icomplete-prime-session #[nil "ÀÁ\n\"…Ã\nĔĕO!‰ƒ! ÆVƒ!ÇÈÉ\"‚8 ƒ3ÇÊËÌ#ˆÇÍÎÌ#‚8ÏÐ\nÑ#)‡" [string-match "^19\\.\\([0-9]+\\)" emacs-version string-to-int 1 v19-rev 17 add-hook minibuffer-setup-hook icomplete-prime-minibuffer pre-command-hook icomplete-pre-command-hook append post-command-hook icomplete-post-command-hook format "icomplete: non v19 emacs, %s - %s" "try elisp-archive icomplete"] 5 "\ Prep emacs v 19 for more finely-grained minibuffer completion-feedback. You can inhibit icomplete after loading by setting icomplete-inhibit non-nil. Set the var back to nil to re-enable icomplete."]) (defalias 'icomplete-prime-minibuffer #[nil "ÀÁ!ˆÀÂ!ˆÃ !Ã\n!ÄÁÅ\"ˆÄÂÆ\"‡" [make-local-variable pre-command-hook post-command-hook copy-sequence add-hook icomplete-pre-command-hook icomplete-post-command-hook] 3 "\ Prep emacs, v 19.18 or later, for icomplete. (In emacs v19.17 and earlier, and in lemacs, icomplete-prime-session is used, instead to establish global hooks.) Run via `minibuffer-setup-hook', adds icomplete pre- and post-command hooks at the start of each minibuffer."]) (defalias 'icomplete-window-minibuffer-p '(macro . #[nil "À‡" [(window-minibuffer-p (selected-window))] 1 "\ Returns non-nil if current window is a minibuffer window. Trivially equates to '(window-minibuffer-p (selected-window))', with the argument definitely provided for emacsen that require it, eg Lucid."])) (defalias 'icomplete-pre-command-hook #[nil "ÀÁ !…@\n?…@ 9?…@\f?…@ÅÆ!ƒ8ƒ8dVƒ.d‰‡d|)‡ÈÆ!ˆÉ‰‡" [window-minibuffer-p selected-window executing-macro minibuffer-completion-table icomplete-inhibit boundp icomplete-eoinput buffer-undo-list make-local-variable 1] 2 "\ Cleanup completions display before user's new command is dealt with."]) (defalias 'icomplete-post-command-hook #[nil "ÀÁ !…\n?… ?…\f9?… Æ )‡" [window-minibuffer-p selected-window executing-macro icomplete-inhibit minibuffer-completion-table buffer-undo-list icomplete-exhibit] 2 "\ Exhibit completions, leaving bookkeeping so pre- hook can tidy up."]) (defalias 'icomplete-window-setup-hook #[nil "ÀÁ !ƒ ÂÃ!‡ÄÅ!‡" [window-minibuffer-p selected-window message "ic ws doing" sit-for 1] 2 "\ Exhibit completions, leaving bookkeeping so pre- hook can tidy up."]) (defalias 'icomplete-exhibit #[nil "9?….ed{ÁŠdbˆÄÅ!„ÆÅ!ˆ`dÇV…-ÈÉ \n ?$!+‡" [minibuffer-completion-table t buffer-undo-list contents boundp icomplete-eoinput make-local-variable 1 insert-string icomplete-prompt minibuffer-completion-predicate minibuffer-completion-confirm] 6 "\ Insert icomplete completions display."]) (defalias 'icomplete-prompt #[(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 append mapcar #[(com) "G Uƒ ÂćÅ ÄOD‡" [com most-len t most-is-exact nil ","] 4] alternatives ","] 8 "\ 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."]) (icomplete-prime-session)