;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:42:55 1993 ;;; from file /era/era-working/editor/lisp/ilisp/ilisp-prc.el ;;; emacs version 19.8 (beta12) Lucid. ;;; bytecomp version 2.18; 28-aug-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-process #[nil " !" [get-buffer-process ilisp-buffer] 2 "\ Return the current ILISP process."]) (fset 'ilisp-buffer #[nil " >p\n\n!\n\nGSO#@@\"!\n!)" [major-mode ilisp-modes ilisp-buffer get-buffer lisp-del 1 ilisp-buffers #[(s1 s2) " @" [s1 s2] 2] format "*%s*" buffer error "You must start an inferior LISP with run-ilisp."] 6 "\ Return the current ILISP buffer."]) (fset 'select-ilisp #[nil " GSO\"$ GU? \")" [completing-read ilisp-buffer format "Buffer [%s]: " 1 "Buffer: " ilisp-buffers nil t new 0 "*%s*"] 7 "\ Select the current ILISP buffer." nil]) (provide 'ilisp-prc)