;ELC   
;;; compiled by jwz@thalidomide on Sat May  7 03:20:24 1994
;;; from file /th/jwz/emacs19/lisp/tooltalk/tooltalk-init.el
;;; emacs version 19.10 Lucid (beta21).
;;; bytecomp version 2.24; 26-Apr-94.
;;; 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."))

(byte-code "АБ!¬‚ВАГ!¬‚ДАЕ!¬‚ЖАЗ!¬ѓИАЙ!¬ѓК	ЛМM€НОM€ПРM€СТM‡" [boundp tooltalk-eval-pattern (category TT_HANDLE scope TT_SESSION op "emacs-eval" callback tooltalk-eval-handler) tooltalk-load-file-pattern (category TT_HANDLE scope TT_SESSION op "emacs-load-file" callback tooltalk-load-file-handler) tooltalk-make-client-screen-pattern (category TT_HANDLE scope TT_SESSION op "emacs-make-client-screen" callback tooltalk-make-client-screen-handler) tooltalk-status-pattern (category TT_HANDLE scope TT_SESSION op "emacs-status" callback tooltalk-status-handler) initial-tooltalk-patterns nil dispatch-initial-tooltalk-message #[(m) "АБ\nГ\"!­Є@ИЖ\"=«–ИЙ\"‰	«‡	\n\"€К)ЄѓA)ЄS*‡" [intern get-tooltalk-message-attribute m op initial-tooltalk-patterns patterns opsym p tooltalk-pattern-prop-get callback nil] 5] make-initial-tooltalk-pattern #[(args) "А	>AВ	>A‰:«›:«—ЕЖ@!В@FИЙ	ЗD\"!)ЄѓИ	!*‡" [op args callback cbcdr opcdr opsym intern plist make-tooltalk-pattern append] 6] register-initial-tooltalk-patterns #[nil "АБАВF\"‰\"€ИЙК\"‡" [mapcar register-tooltalk-pattern make-initial-tooltalk-pattern tooltalk-eval-pattern tooltalk-load-file-pattern tooltalk-make-client-screen-pattern tooltalk-status-pattern initial-tooltalk-patterns add-hook tooltalk-unprocessed-message-hook dispatch-initial-tooltalk-message] 8] unregister-initial-tooltalk-patterns #[nil "АБ\n\"€ГДЕЖ\"‡" [mapcar destroy-tooltalk-pattern initial-tooltalk-patterns nil remove-hook tooltalk-unprocessed-message-hook dispatch-initial-tooltalk-message] 3]] 2)
(fset 'tooltalk:prin1-to-string #[(form) "А	!Г‰ЖЗ\n\"‰«’ИЙК\nЛO$\nTГOЄf¬ѓ\nЄ‹ИЙ\n#ИМџ\"+‡" [prin1-to-string form string nil index parts string-match " " apply list "\\000" 0 concat] 6 "\
Like prin1-to-string except: if the string contains embedded nulls (unlikely
but possible) then replace each one with \"\\000\"."])
(fset 'tooltalk::prin1-to-string-carefully 'tooltalk:prin1-to-string)
(fset 'tooltalk:read-from-string #[(str) "А	!‰A	GW«…ГД	\"€\n@)‡" [read-from-string str res error "Parse of input string ended prematurely."] 4 "\
Like read-from-string except: an error is signalled if the entire 
string can't be parsed."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM‡" [tooltalk::eval-string #[(str) "АБ\n!@!Д!)‡" [eval read-from-string str result tooltalk:prin1-to-string] 3] tooltalk-eval-handler #[(msg pat) "А	ВГ#ДЕЙЋ\n«ЊЛ!Д‰Є„МНОЏ,‡" [get-tooltalk-message-attribute msg arg_val 0 nil t failp result-str str ((byte-code "«ѓБЄЃВ®ЃДЗЙК$€Л\"€*Б‡" [failp fail reply result-str "(debugger exit)" reply-value reply-type set-tooltalk-message-attribute msg arg_val 0 return-tooltalk-message] 5)) debug-on-error tooltalk::eval-string error-info (byte-code "А	!Г‰‡" [tooltalk::eval-string str result-str nil failp] 2) ((error (byte-code "А	!‰Д‰)‡" [tooltalk:prin1-to-string error-info error-str result-str t failp] 3)))] 4] tooltalk-make-client-screen-handler #[(m p) "А	В\"‰ДU¬‹ЕЖ	З#€И	Й\"€)А	КЛ#А	НО#МBCС\"ЕУ!	КФ$€И	Х\",‡" [get-tooltalk-message-attribute m args_count nargs 3 set-tooltalk-message-attribute "wrong number of arguments" status_string return-tooltalk-message fail arg_val 0 name arg_ival 1 window args x-create-screen screen screen-name 2 reply] 6] tooltalk-load-file-handler #[(m p) "А	В\"ДЕЖЏ)‡" [get-tooltalk-message-attribute m file path error-info (byte-code "А	!€ВД\"‡" [load-file path return-tooltalk-message m reply] 3) ((error (byte-code "А	!Г\nЕ#€ЖЗ\")‡" [tooltalk:prin1-to-string error-info error-string set-tooltalk-message-attribute m status_string return-tooltalk-message fail] 4)))] 3] tooltalk-status-handler #[(m p) "А	В\"‡" [return-tooltalk-message m reply] 3]] 2)
(fset 'command-line-do-tooltalk #[(arg) "А «ѓБ ‡В €ГД!‡" [tooltalk-open-connection register-initial-tooltalk-patterns beep message "Warning: unable to connect to a ToolTalk server."] 2 "\
Connect to the ToolTalk server."])
(byte-code "А	В\"А‡" [append command-switch-alist (("-tooltalk" . command-line-do-tooltalk))] 3)