;ELC   
;;; compiled by cthomp@willow on Fri Sep  3 14:47:03 1993
;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-xfr.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 'return-ilisp #[nil "Àp!‰¬†ÂÃ!‚£ Ä	!Æ ‰«à`Y«…dbˆª‡bˆcˆ¬ƒÉcˆ\n!«—ËÌ !¬ŠÍÌ Î\"˜¬‡ÏÌ \"ˆ!ˆÒ=«ƒÓÓ	\"ˆÄ	!`Ó“ˆ`Ó“ˆdbªªdU«™Ø¬ƒÉcˆÄ	!`Ó“ˆ	Ú\")ªŒÉcˆŒd}ˆ )*)‡" [get-buffer-process proc error "Current buffer has no process" process-mark pmark ilisp-get-old-input input ilisp-no-newline 10 comint-input-filter ring-empty-p ilisp-get-input-ring ring-ref 0 ilisp-ring-insert comint-input-sentinel ilisp-emacs-version-id fsf-19 nil comint-input-ring-index ilisp-original comint-input-sender comint-last-input-end t comint-send-newline "" indent-line-function] 4 "\
Grab the current expression with comint-get-old-input.  If we have
a complete sexp, send it.  Otherwise, indent appropriately." nil])
(fset 'raw-keys-ilisp #[nil "¬œÁ Ã\nÄ\"ˆÅÆ\"«„Á É\nÊË#ˆ\n)Ì!ˆÍ!‡" [ilisp-raw-map make-keymap map fillarray ilisp-send-char string-match "Lucid" emacs-version ilisp-completion-map define-key "" interactive-keys-ilisp use-local-map message ilisp-raw-message] 4 "\
Start using raw keyboard mode to send each character typed to the
inferior LISP until a key bound to interactive-keys-ilisp is
encountered.  See also io-bridge-ilisp." nil])
(fset 'interactive-keys-ilisp #[nil "À	!ˆÂÃ!‡" [use-local-map ilisp-use-map message "Interactive keyboard mode"] 2 "\
Go back to interactive keyboard interactions in the inferior LISP." nil])
(fset 'ilisp-send-char #[nil "ÀÁÂ\"«”dbˆcˆÄÅ !`Æ“ˆ`Æ“ˆÈÅ ÉÊ\"\"ˆË!‡" [ilisp-value ilisp-raw-echo t last-input-char process-mark ilisp-process nil comint-last-input-end process-send-string make-string 1 message ilisp-raw-message] 5 "\
Send the last typed character to the current inferior LISP echoing
if ilisp-raw-echo is T." nil])
(fset 'ilisp-raw-handler #[(process output) "À ‡" [raw-keys-ilisp] 1 "\
Turn on raw keyboard mode."])
(fset 'ilisp-interactive-handler #[(process output) "À ‡" [interactive-keys-ilisp] 1 "\
Turn on interactive keyboard mode."])
(fset 'io-bridge-ilisp #[nil "ÀÁ!ˆÂ ˆÃÄBB‰‡" [require bridge install-bridge ("1" . ilisp-raw-handler) ("0" . ilisp-interactive-handler) bridge-handlers] 3 "\
Set up so that the inferior LISP can turn on EMACS raw mode by
sending ^[1^] and turn it off by sending ^[0^]." nil])
(fset 'delete-char-or-pop-ilisp #[(arg &optional killflag) "m«ŒÀÁ!ˆÂÃ ÄÅ!\"‡ÆÇ	D\"‡" [message "Pop LISP one level" comint-simple-send ilisp-process ilisp-value comint-fix-error call-interactively delete-char arg killflag] 4 "\
Delete ARG characters, or pop break level if at end of buffer.  
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
Interactively, ARG is the prefix arg, and KILLFLAG is set if
ARG was explicitly specified." "p"])
(provide 'ilisp-xfr)