;ELC ;;; compiled by jwz@thalidomide on Thu Feb 24 17:33:21 1994 ;;; from file /th/jwz/emacs19/lisp/eos/eos-browser.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::browser-startup #[nil "! \"!!\"  !  \"" [make-face sbrowse-arrow-face set-face-foreground eos::sbrowse-arrow-color set-face-background face-background get-face default eos::create-sbrowser-patterns sbrowser-pattern-list make-pixmap "sbrowse-arrow.xbm" sbrowse-arrow set-pixmap-contributes-to-line-height nil] 5 "\ Actions to do at startup for eos-browser.el"]) (byte-code "MMM" [nil current-match eos::spro_sbeng_current_element #[(msg pat) " # #! ! #!!!q)!!`#\"\" !*" [get-tooltalk-message-attribute msg arg_val 1 filename read arg_ival 2 lineno eos::null-file eos::find-line sbrowser error "No screen to select" eos::valid-annotation current-match extent-buffer delete-annotation nil t use-left-overflow set-buffer-left-margin-width eos::left-margin-width make-annotation sbrowse-arrow whitespace set-annotation-data set-extent-face sbrowse-arrow-face return-tooltalk-message] 5] eos::spro_sbeng_start #[(msg pat) " ! !q) !!" [eos::valid-annotation current-match extent-buffer delete-annotation nil return-tooltalk-message msg] 2] eos::spro_sbeng_quit #[(msg pat) " ! !q) !!" [eos::valid-annotation current-match extent-buffer delete-annotation nil return-tooltalk-message msg] 2]] 2) (fset 'eos::create-sbrowser-patterns #[nil " !) !) !)E" [(category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SBENG_CURRENT_ELEMENT" callback 'eos::spro_sbeng_current_element) pattern-desc make-tooltalk-pattern (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SBENG_START" callback 'eos::spro_sbeng_start) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SBENG_QUIT" callback 'eos::spro_sbeng_quit)] 4 "\ returns list of patterns"]) (fset 'eos::register-sbrowser-patterns #[nil "\n\"" [mapcar register-tooltalk-pattern sbrowser-pattern-list] 3 "\ register all sbrowser patterns"]) (fset 'eos::unregister-sbrowser-patterns #[nil "\n\"" [mapcar unregister-tooltalk-pattern sbrowser-pattern-list] 3 "\ unregister all sbrowser patterns"])