;ELC   
;;; compiled by cthomp@willow on Fri Sep  3 14:42:31 1993
;;; from file /era/era-working/editor/lisp/ilisp/compat.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."))

(defconst ilisp-emacs-version-id (byte-code "ÀÁ\n\"«ŠÀÃ\n\"«‚Ä‡Å‡ÀÆ\n\"«‚Ç‡È‡" [string-match "Lucid" emacs-version "^19.[0-7][^0-9]" lucid-19 lucid-19-new "^19" fsf-19 fsf-18] 3) "\
What version of emacs we are running. Set in compat.el")
(byte-code "Á=«„ÂÃMˆÄÅ\"«„ÇÈMˆÁ‡" [ilisp-emacs-version-id fsf-18 add-hook #[(hook function) "Á!«¦J‰«Ž\n:«†\n@Ã=«„\nÄBÅ\n\"¬‡Ç\nC\"\n)ªƒCL‡" [hook boundp value lambda nil comint-mem function append] 5 "Arguments are HOOK and FUNCTION. Add FUNCTION to HOOK's list.\nFUNCTION is not added if it's already on the list."] string-match "2.03" comint-version comint-mem member] 3)
(fset 'ilisp-get-input-ring #[nil "Á=«ƒÂ ‡Ã=¬…Ä=«‚‡‡" [ilisp-emacs-version-id lucid-19 get-input-ring fsf-19 lucid-19-new comint-input-ring input-ring] 2 "\
Use instead of get-input-ring coming-input-ring or input-ring."])
(byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉMˆÊËMˆÌÍMˆÎÏMˆÐÑ!‡" [ilisp-ring-insert #[(ring input) "Á=«…Â\"‡Å\"‡" [ilisp-emacs-version-id lucid-19 ring-insert-new ring input ring-insert] 3] ilisp-temp-buffer-show-function-symbol #[nil "Á=«‚Â‡Ã‡" [ilisp-emacs-version-id fsf-18 temp-buffer-show-hook temp-buffer-show-function] 2] set-ilisp-temp-buffer-show-function #[(val) "Á=«„\n‰‡\n‰‡" [ilisp-emacs-version-id fsf-18 val temp-buffer-show-hook temp-buffer-show-function] 2] ilisp-temp-buffer-show-function #[nil "Á=«‚\n‡‡" [ilisp-emacs-version-id fsf-18 temp-buffer-show-hook temp-buffer-show-function] 2] ilisp-input-ring-index #[nil "Á=¬…Â=«‚‡‡" [ilisp-emacs-version-id fsf-19 lucid-19-new comint-input-ring-index input-ring-index] 2] set-ilisp-input-ring-index #[(n) "Á=¬…Â=«„‰‡‰‡" [ilisp-emacs-version-id fsf-19 lucid-19-new n comint-input-ring-index input-ring-index] 2] ilisp-input-ring-size #[nil "Á=¬…Â=«‚‡‡" [ilisp-emacs-version-id fsf-19 lucid-19-new comint-input-ring-size input-ring-size] 2] set-ilisp-input-ring-size #[(n) "Á=¬…Â=«„‰‡‰‡" [ilisp-emacs-version-id fsf-19 lucid-19-new n comint-input-ring-size input-ring-size] 2] provide compat] 2)