;ELC   
;;; compiled by cthomp@willow on Fri Sep  3 14:45:24 1993
;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-hnd.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-handler #[(error-p wait-p message output prompt) "«‘	«Œ	¬…Æ!ˆÈ‡„Ò É!‰ƒÒ \n¬ˆËÌ\"ƒÒ Í \n«‡!ª‚\n«ŒÑ ¬ˆÒÓÔ#ª†ÒÕÖ#ÚU«–ÁÛ!ˆ«ˆÜ !ˆªƒÝ ˆÞª×Šßà!qˆ«„ed|ˆdbˆ	cˆácˆcˆâcˆ)«ƒÈãU«ŠÁä!ˆå ˆÞª¡æU«–ç(‰‰	ÌÌ°!ˆÁé!ˆÈª…Áê!ˆÞ,‡Þ‡" [lisp-no-popper message ilisp-last-message prompt ilisp-last-prompt wait-p lisp-display-output output nil comint-remove-whitespace error-p string-match "\n" popper-output-buffer buffer ilisp-error-filter out comint-interrupted comint-handle-error "SPC-scroll, I-ignore, K-keep, A-abort sends and keep or B-break: " (105 107 97 98) "SPC-scroll, I-ignore, K-keep or A-abort sends and keep: " (105 107 97) key comint-queue-emptied clear 105 "Ignore message" ilisp-temp-buffer-show-function popper-bury-output t get-buffer-create "*Errors*" 10 "\n\n" 97 "Abort pending commands and keep in *Errors*" comint-abort-sends 98 comint-insert comment-start "Preserve break" "Keep error in *Errors* and continue"] 9 "\
Given ERROR-P, WAIT-P, MESSAGE, OUTPUT and PROMPT, show the message
and output if there is an error or the output is multiple lines and
let the user decide what to do."])
(fset 'ilisp-abort-handler #[nil "ÀÀÀ«‘@>¬…@BA‰¬o¤‰)‡" [nil ilisp-initializing ilisp-load-files add ilisp-pending-changes lisp-changes] 3 "\
Handle when the user aborts commands."])
(provide 'ilisp-hnd)