;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:45:10 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-kil.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 'status-lisp #[(showp) " q\n!)" [ilisp-buffer comint-current-send showp] 2 "\ Show the message of the current command being executed in the inferior LISP. With a prefix show pending sends as well." "P"]) (fset 'reset-ilisp #[nil "! !\"" [message "Reset LISP to top level" comint-simple-send ilisp-process ilisp-value ilisp-reset] 4 "\ Reset the inferior LISP top level." nil]) (fset 'abort-commands-lisp #[(&optional message) " \"! ! !" [ilisp-value comint-aborting t message "Already aborted commands" beep "Aborted commands" comint-abort-sends ilisp-process] 3 "\ Abort the commands sent to the current ilisp." nil]) (fset 'panic-lisp #[nil "! q!!)!)" [y-or-n-p "Panic reset LISP? " ilisp-buffer comint-setup-ipc t message "LISP is reset, state is unknown" ""] 2 "\ Panic reset for the inferior LISP." nil]) (fset 'interrupt-subjob-ilisp #[nil " =! ! = !r! " [comint-send-queue comint-end-queue y-or-n-p "Abort commands before interrupting top level? " abort-commands-lisp message "Waiting for commands to finish" accept-process-output sit-for 0 "Interrupted top level" comint-interrupt-subjob] 2 "\ Interrupt the current top level command in the inferior LISP." nil]) (provide 'ilisp-kil)