;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:43:51 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-inp.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 'lisp-at-start #[nil "`y `U*" [point 0 comint-skip-prompt] 2 "\ Return the point if you are at the start of an input expression in an inferior Lisp."]) (fset 'lisp-input-start #[nil "p!!`\nY\nb e# `)" [process-mark get-buffer-process pmark nil re-search-backward comint-prompt-regexp stay comint-skip-prompt] 4 "\ Go to the start of the input region."]) (provide 'ilisp-inp)