;ELC   
;;; compiled by jwz@thalidomide on Wed Feb 16 20:20:06 1994
;;; from file /th/jwz/emacs19/lisp/eos/eos-editor.el
;;; emacs version 19.10 Lucid (beta4).
;;; bytecomp version 2.22; 22-dec-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."))

(require 'eos-common)
(fset 'eos::editor-startup #[nil "À Â Ä ‡" [eos::create-visit-file-pattern eos::visit-file-pattern eos::create-get-src-line-pattern eos::get-src-line-pattern eos::register-get-src-line-pattern] 1 "\
Actions to do at startup time for eos-editor"])
(fset 'eos::visit-file-callback #[(msg pat) "À	ÂÃ#ÅÀ	ÆÇ#!ÉÊ#¬„ËÌ!ˆÍ	!*‡" [get-tooltalk-message-attribute msg arg_val 1 filename read arg_ival 2 lineno-dot eos::find-line debugger-visit message "No screen to select" return-tooltalk-message] 5 "\
A callback for a SPRO_Visit_File message"])
(fset 'eos::create-visit-file-pattern #[nil "ÀÂ	!)‡" [(category TT_HANDLE scope TT_SESSION class TT_REQUEST op "SPRO_Visit_File" callback eos::visit-file-callback) pattern-desc make-tooltalk-pattern] 3 "\
Create Visit File pattern"])
(fset 'eos::register-visit-file-pattern #[nil "À	!‡" [register-tooltalk-pattern eos::visit-file-pattern] 2 "\
Register Visit File pattern"])
(fset 'eos::unregister-visit-file-pattern #[nil "À	!‡" [unregister-tooltalk-pattern eos::visit-file-pattern] 2 "\
Unregister Visit File pattern"])
(fset 'eos::line-at #[(pos) "Œ~ˆŠbˆÁyˆÂÃ`\"T*‡" [pos 0 count-lines 1] 3 "\
At what line is POS"])
(fset 'eos::get-src-line-callback #[(msg pat) "À ÂÃÄ`!\"Æ	ÈÉ$ˆÆÈÊ$ˆË!*‡" [buffer-file-name filename format "%d" eos::line-at lineno set-tooltalk-message-attribute msg arg_val 1 2 return-tooltalk-message] 5 "\
A callback for a SPRO_Get_Src_Line message"])
(fset 'eos::create-get-src-line-pattern #[nil "ÀÂ	!)‡" [(category TT_HANDLE scope TT_SESSION class TT_REQUEST op "SPRO_Get_Src_Line" callback eos::get-src-line-callback) pattern-desc make-tooltalk-pattern] 3 "\
Create a pattern to get filename and lineno"])
(fset 'eos::register-get-src-line-pattern #[nil "À	!‡" [register-tooltalk-pattern eos::get-src-line-pattern] 2 "\
Register Get Src Line pattern"])
(fset 'eos::unregister-get-src-line-pattern #[nil "À	!‡" [unregister-tooltalk-pattern eos::get-src-line-pattern] 2 "\
Unregister Get Src Line pattern"])