;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:49:35 1994 ;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-cmp.el ;;; emacs version 19.10 Lucid (beta8). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (fset 'ilisp-display-choices #[(symbol choices) " !\"\"!" [" *Completions*" display-completion-list sort all-completions lisp-symbol-name symbol choices string-lessp] 6 "\ Display the possible choices for SYMBOL in alist CHOICES."]) (fset 'ilisp-can-complete #[(symbol function-p) "!\n!!\n!!\n!\"=" [ilisp-original lisp-symbol-package symbol lisp-symbol-delimiter lisp-prefix-p lisp-symbol-name function-p ilisp-original-function-p] 4 "\ Return T if ilisp completion can complete SYMBOL from the current table."]) (fset 'ilisp-complete #[(symbol &optional function-p) "! ! ! !ɘ\n& ? !Q#\"! !\"!=? )" [ilisp-send format ilisp-value ilisp-complete-command lisp-symbol-name symbol lisp-symbol-package function-p lisp-symbol-delimiter ":" ilisp-prefix-match ilisp-complete "Complete " "function " lisp-buffer-symbol complete choices comint-errorp t lisp-display-output error "Error completing %s" read NIL ilisp-original ilisp-original-function-p ilisp-original-table] 9 "\ Return a list of the possible completions for symbol from the inferior LISP. If FUNCTION-P is T, only symbols with function bindings will be considered. If no package is specified the buffer package will be used."]) (fset 'ilisp-completion-table #[(symbol function-p) " \n\" \n\"" [ilisp-can-complete symbol function-p ilisp-original-table ilisp-complete] 3 "\ Return the completion table for SYMBOL trying to use the current one. If FUNCTION-P is T, only symbols with function cells will be returned."]) (fset 'ilisp-restore-prefix #[nil "ebc)" [ilisp-mini-prefix nil] 2 "\ Restore the prefix from ilisp-mini-prefix at the start of the minibuffer."]) (fset 'ilisp-current-choice #[nil "f= @ \"*xe`{ e`|)?̉ʉ " [ilisp-table 1 40 lisp-previous-symbol symbol-info symbol ilisp-completion-table ilisp-completion-function-p minibuffer-completion-table "^: (" nil ilisp-mini-prefix ((" ")) minibuffer-completion-predicate] 4 "\ Set up the minibuffer completion table for the current symbol. If there is a paren at the start of the minibuffer, or there is not an ilisp-table, this will be from the inferior LISP. Otherwise, it will be the ilisp-table."]) (byte-code "! \"" [boundp ilisp-completion-help lookup-key minibuffer-local-must-match-map "?"] 3) (fset 'ilisp-completion-help #[nil " " [ilisp-current-choice ilisp-completion-help ilisp-restore-prefix] 1 "\ Inferior LISP minibuffer completion help." nil]) (byte-code "! \"" [boundp ilisp-completion lookup-key minibuffer-local-must-match-map " "] 3) (fset 'ilisp-completion #[nil " " [ilisp-current-choice ilisp-completion ilisp-restore-prefix] 1 "\ Inferior LISP minibuffer complete." nil]) (byte-code "! \"" [boundp ilisp-completion-word lookup-key minibuffer-local-must-match-map " "] 3) (fset 'ilisp-completion-word #[nil "f=c " [1 40 " " ilisp-current-choice ilisp-completion-word ilisp-restore-prefix] 2 "\ Inferior LISP minibuffer complete word." nil]) (fset 'ilisp-completion-paren #[nil " =f= c " [ilisp-paren last-input-char 40 1 beep] 2 "\ Only allow a paren if ilisp-paren is T." nil]) (byte-code "! \"" [boundp ilisp-completion-exit lookup-key minibuffer-local-must-match-map "\n"] 3) (fset 'ilisp-completion-exit #[nil "f=! edU ǎ )" [1 40 find-unbalanced-lisp nil exit-minibuffer ilisp-no-complete ilisp-current-choice ((ilisp-restore-prefix)) ilisp-completion-exit] 2 "\ Inferior LISP completion complete and exit." nil]) (fset 'ilisp-completer #[(symbol function-p) " ! \"\n \"= F\n \n \"F ! !# \"F)? \n !$ ! !@# ! !A@#AA)BB+" [lisp-symbol-name symbol name ilisp-completion-table function-p table try-completion choice t nil all-completions lisp-symbol lisp-symbol-package lisp-symbol-delimiter ilisp-prefix-match completer regexp-quote completer-words matches] 7 "\ Complete SYMBOL from the inferior LISP using only function symbols if FUNCTION-P is T. Return (SYMBOL LCS-SYMBOL CHOICES UNIQUEP)."]) (fset 'ilisp-completion-map #[nil "!  \" !############" [ilisp-completion-map fboundp set-keymap-parent make-sparse-keymap lisp-mode-map copy-keymap define-key " " ilisp-completion-word " " ilisp-completion "?" ilisp-completion-help "" "\n" ilisp-completion-exit " " "" abort-recursive-edit "(" ilisp-completion-paren ")" "'" nil "#" "\""] 4 "\ Set up the ilisp-completion-map from lisp-mode-map for the ilisp readers and return it."]) (fset 'ilisp-read #[(prompt &optional initial-contents) "  #," [t lisp-buffer-package ilisp-completion-package ilisp-no-complete ilisp-paren ilisp-complete read-from-minibuffer prompt initial-contents ilisp-completion-map] 4 "\ PROMPT in the minibuffer with optional INITIAL-CONTENTS and return the result. Completion of symbols though the inferior LISP is allowed."]) (defvar lisp-program-map nil "\ Minibuffer map for reading a program and arguments.") (fset 'lisp-read-program #[(prompt &optional initial) "!  \" !### #" [lisp-program-map fboundp set-keymap-parent make-sparse-keymap minibuffer-local-map copy-keymap define-key "" comint-dynamic-complete " " "?" comint-dynamic-list-completions read-from-minibuffer prompt initial] 4 "\ Read a program with PROMPT and INITIAL. TAB or Esc-TAB will complete filenames."]) (fset 'ilisp-read-symbol #[(prompt &optional default function-p no-complete) "\n  # ͚ !-" [t ilisp-complete no-complete ilisp-no-complete lisp-buffer-package ilisp-completion-package function-p ilisp-completion-function-p read-from-minibuffer prompt nil ilisp-completion-map string "" default lisp-string-to-symbol] 5 "\ PROMPT in the minibuffer with optional DEFAULT and return a symbol from the inferior LISP. If FUNCTION-P is T, only symbols with function values will be returned. If NO-COMPLETE is T, then uncompleted symbols will be allowed."]) (fset 'ilisp-completing-read #[(prompt table &optional default) "\n \n@@ɜUAj*  #И-" [t ilisp-complete table ilisp-table lisp-buffer-package ilisp-completion-package nil done entry 0 40 ilisp-paren read-from-minibuffer prompt ilisp-completion-map string "" default] 5 "\ Read with PROMPT from an alist of TABLE. No input returns DEFAULT. Symbols are from table, other specs are in parentheses."]) (autoload 'complete "completion" "\ Complete previous symbol." t) (fset 'complete-lisp #[(mode) " !W x`fU) \n@  !  ?\nA@\"@!A@!AA@AAA@x!&.!)" [prefix-numeric-value mode 0 completer-undo "^ \n" nil 34 filep comint-dynamic-complete lisp-previous-symbol symbol-info symbol lisp-symbol-name name ilisp-completer choice lisp-buffer-symbol match lcs choices unique " \n" completer-goto ilisp-value ilisp-symbol-delimiters completer-words message "Completed"] 8 "\ Complete the current symbol using information from the current ILISP buffer. If in a string, complete as a filename. If called with a positive prefix force all symbols to be considered. If called with a negative prefix, undo the last completion. Partial completion is allowed unless ilisp-prefix-match is T. If a symbol starts after a left paren or #', then only function symbols will be considered. Package specifications are also allowed and the distinction between internal and exported symbols is considered." "P"]) (provide 'ilisp-cmp)