;ELC   
;;; compiled by cthomp@willow on Fri Sep  3 14:44:58 1993
;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-rng.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 'match-ring #[(ring regexp start) "АБ\n!‰W«ђЕЗ\n\"\"¬†T‰ЄlU?­Ѓ*‡" [0 ring-length ring len n string-match regexp ring-ref] 6 "\
Return the index in RING of REGEXP starting at START."])
(fset 'lisp-match-ring #[(regexp string &optional no-insert) "­†БВ Г#‰«ІЕ €`ЗВ \"c€ЉG\\b€ЙКw€`)Л!€М!€Н)РЄ‘­Ќ?­€Е €c€Р)‡" [regexp match-ring ilisp-get-input-ring 0 n comint-kill-input point ring-ref string "^ 	\n)" nil push-mark set-ilisp-input-ring-index comint-previous-similar-input this-command comint-last-similar-string t no-insert] 5 "\
Match REGEXP in the input-ring of the current buffer and set the
ring variables to look like comint-previous-similar-input if found.
If not found insert STRING, unless NO-INSERT."])
(provide 'ilisp-rng)