;ELC ;;; compiled by gsstark@oliver.MIT.EDU on Sun Nov 6 09:03:45 1994 ;;; from file /afs/sipb/contrib/emacs/elisp19/partial-comp.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 "`/afs/sipb/contrib/emacs/elisp19/partial-comp.el' was compiled for Emacs 19")) (defvar PC-meta-flag nil "\ *If nil, TAB does normal Emacs completion and M-TAB does Partial Completion. If t, TAB does Partial Completion and M-TAB does normal completion.") (defvar PC-default-bindings t "\ Set this to nil to suppress the default partial completion key bindings.") (byte-code "z\n#\n#\n#\n#\n#\n#\n#\n###########" [PC-default-bindings define-key minibuffer-local-completion-map " " PC-complete " " PC-complete-word "?" PC-completion-help " " " " " " PC-force-complete-and-exit "\n" "?" minibuffer-local-must-match-map " " PC-complete-and-exit "\n"] 4) (defalias 'PC-complete #[nil " GV HV\f= !" [this-command-keys 1 0 128 PC-meta-flag minibuffer-complete PC-do-completion nil] 2 "\ Like minibuffer-complete, but allows \"b--di\"-style abbreviations. For example, \"M-x b--di\" would match \"byte-recompile-directory\", or any name which consists of three or more words, the first beginning with \"b\" and the third beginning with \"di\". The pattern \"b--d\" is ambiguous for \"byte-recompile-directory\" and \"beginning-of-defun\", so this would produce a list of completions just like when normal Emacs completions are ambiguous. Word-delimiters for the purposes of Partial Completion are \"-\", \".\", and SPC." nil]) (defalias 'PC-complete-word #[nil " GV HV\f= U !!m+!" [this-command-keys 1 0 128 PC-meta-flag last-command-char 32 minibuffer-complete-word self-insert-command PC-do-completion word] 2 "\ Like minibuffer-complete-word, but allows \"b--di\"-style abbreviations. See PC-complete for details." nil]) (defalias 'PC-complete-and-exit #[nil " GV HV\f= " [this-command-keys 1 0 128 PC-meta-flag minibuffer-complete-and-exit PC-do-complete-and-exit] 2 "\ Like minibuffer-complete-and-exit, but allows \"b--di\"-style abbreviations. See PC-complete for details." nil]) (defalias 'PC-force-complete-and-exit #[nil " )" [nil minibuffer-completion-confirm PC-do-complete-and-exit] 1 "\ Like minibuffer-complete-and-exit, but allows \"b--di\"-style abbreviations. See PC-complete for details." nil]) (defalias (quote PC-do-complete-and-exit) #[nil " U\n !% =\" %!)" [buffer-size 0 exit-minibuffer PC-do-completion exit flag complete minibuffer-completion-confirm temp-minibuffer-message " (Confirm)"] 3]) (defalias 'PC-completion-help #[nil " GV HV\f= !" [this-command-keys 1 0 128 PC-meta-flag minibuffer-completion-help PC-do-completion help] 2 "\ Like minibuffer-completion-help, but allows \"b--di\"-style abbreviations. See PC-complete for details." nil]) (byte-code "\"\"\"" [defalias PC-do-completion #[(&optional mode) "\n =  \n  =6 #6ՂW I !\n !M \n\n!   #   H=  O  TOQ  \\ S  H=̂    \\O   \\OQ  \\ )S P  G#  #  O #%   @\" @B A )8=\"'\"'!!)W =12!ƂWAH>$ =234m34#Q9 292@\"2@ B 2A2u  )=?  @\n A  !WƉ;<=>=@AB\"\"=C= D=\n\"=eG\\bC=GWk=CHg=+ubEF!A=CHG>M=CHg=VH!Y>=CTOcCTC dS{ # dSd| >=  # J=KLMN\"!O!,W\n@;VP!VQ QR@P!T@c. " [minibuffer-completion-table table minibuffer-completion-predicate pred read-file-name-internal filename nil dirname buffer-string str basestr regex 0 p poss helpposs completion-ignore-case case-fold-search mode exit PC-is-complete-p complete file-name-nondirectory file-name-directory regexp-quote string-match "[-. ]" 32 "[^-. ]*[-. ]" 12 45 -1 bump "[^-. ]*" 8 "\\`" all-completions compl word PC-word-failed-flag t delete-backward-char 1 PC-do-completion beep temp-minibuffer-message help " (No completions)" " (No match)" (help word) p2 completion-ignored-extensions PC-ignored-extensions "\\(" mapconcat "\\|" "\\)\\'" PC-ignored-regexp " (Complete, but not unique)" skip pt prefix improved try-completion "" mapcar list i PC-chop-word looking-at " " (45 46 32) delete-char #[(x) " \n\"\f\nÕOC" [string-match skip x 0 nil] 3] completion-auto-help " *Completions*" display-completion-list sort string-lessp " (Next char not unique)" " (Sole completion)" erase-buffer substitute-in-file-name] 6] empty-cache PC-ignored-extensions nil PC-word-failed-flag PC-is-complete-p #[(str table pred) "<\f\n\"%!\nĚ%\n\"%\n#?<7!?!A)" [table assoc str vectorp "nil" intern-soft pred lambda res] 4] PC-chop-word #[(new old) " \nT# T# 90 T#9 TO;*" [-1 j i string-match "[-. ]" old new PC-word-failed-flag 0] 4]] 3) (defalias 'temp-minibuffer-message #[(m) "ddb c)!d| ȉ *" [savemax m t inhibit-quit sit-for 2 quit-flag nil 7 unread-command-char] 2 "\ A Lisp version of temp_minibuffer_message from minibuf.c."])