;ELC   
;;; compiled by cthomp@willow on Fri Sep  3 14:46:56 1993
;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-cmt.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-get-old-input #[nil "ЉА ВГp!!`W­†ЉЕ€`)ЕЕЕЙКЏ€­„	{.‡" [lisp-defun-begin begin process-mark get-buffer-process pmark nil once end done (byte-code "¬›`dW«–Б €`ГДw€«l`Y«gЖ‰«eД‡" [done forward-sexp end " 	\n" nil once t] 3) ((error (byte-code "АА‡" [nil end] 1)))] 3 "\
Snarf the sexp starting at the nearest previous prompt, or NIL if none."])
(fset 'ilisp-input-filter #[(str) "А	\n\"?­„\nGV‡" [string-match ilisp-filter-regexp str ilisp-filter-length] 3 "\
Don't save anything matching ilisp-filter-regexp or less than
ilisp-filter-length long."])
(fset 'ilisp-error-filter #[(output) "АБВ!\"«‡Д”Д•O‡‡" [string-match ilisp-value ilisp-error-regexp output 0] 3 "\
Keep from OUTPUT only what matches ilisp-error-regexp or everything
if there is no match."])
(fset 'newline-and-indent-lisp #[nil "«ѓБ ‡В`dU«Ґ>« Ж ‰«љЗ ?	\n	\"€Л	!`В“*ЄђЊ>«‡ЉМ )d}€Н ))‡" [ilisp-complete exit-minibuffer nil input major-mode ilisp-modes ilisp-get-old-input ilisp-process comint-send-newline process comint-input-sender process-mark lisp-input-start newline-and-indent] 3 "\
If at the end of the buffer, send the string back to the process
mark with no newline.  Otherwise, insert a newline, then indent.  In
an ilisp buffer the region is narrowed first.  See newline-and-indent
for more information." "*"])
(provide 'ilisp-cmt)