;ELC ;;; compiled by jwz@thalidomide on Sat May 21 06:37:25 1994 ;;; from file /th/jwz/emacs19/lisp/eos/eos-common.el ;;; emacs version 19.10 Lucid (beta25). ;;; 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 "MMMM \nȇ" [make-an-observer (macro . #[(op callback) " \n\nDDCE" [let pattern-desc \` category TT_OBSERVE scope TT_SESSION class TT_NOTICE op callback (make-tooltalk-pattern pattern-desc)] 13]) eos::log #[(msg) "!\n!" [fboundp ut-log-text msg] 2] eos::select-sbrowser-screen #[(screen) " !  ! " [eos::sbrowser-screen screen eos::register-sbrowser-patterns eos::log "selected screen for sbrowser" eos::unregister-sbrowser-patterns "unselected screen for sbrowser"] 2] eos::select-debugger-screen #[(screen) " )\n ! \n ! " [eos::ensure-debugger-buffer bury-buffer eos::debugger-screen screen eos::register-debugger-patterns eos::register-visit-file-pattern eos::log "selected screen for debugger" eos::unregister-debugger-patterns eos::unregister-visit-file-pattern "unselected screen for debugger"] 2] nil eos::sbrowser-screen eos::debugger-screen] 2) (fset 'eos::select-screen #[(type) "= ! !!LJ=== ! !!LJ " [type sbrowser live-screen-p eos::sbrowser-screen message "selecting destroyed screen; will ignore" eos::select-sbrowser-screen nil debugger-arrow debugger-stop debugger-visit eos::debugger-screen eos::select-debugger-screen selected-screen] 2 "\ Select a screen; return nil if should skip"]) (fset 'eos::find-line #[(file line type) " ! !?? ! ! ! )" [eos::null-file file selected-screen eos::select-screen type sc select-screen find-file goto-line line] 3 "\ Show FILE at LINE; returns screen or nil if inappropriate"]) (fset 'eos::null-file #[(file) "?" [file ""] 2 "\ returns t if FILE is nil or the empty string"]) (fset 'eos::valid-annotation #[(annotation) " ! !! !!" [annotationp annotation bufferp extent-buffer buffer-name] 3 "\ returns t if ANNOTATION is an annotation and its buffer exists"]) (defvar eos::annotation-list nil "\ list of annotations set") (byte-code "MMMMMMMM!" [eos::add-to-annotation-list #[(ann type) "=! B" [type debugger-stop error "not implemented" ann eos::annotation-list] 2] eos::remove-from-annotation-list #[(ann type) "=! \"" [type debugger-stop error "not implemented" delq ann eos::annotation-list] 3] eos::remove-all-from-annotation-list #[(type) "=!\"lj" [type debugger-stop error "not implemented" mapcar delete-annotation eos::annotation-list nil] 3] eos::add-annotation #[(graphics file line type face uid) " !? #!\n !`# \" \" \" *" [nil x eos::null-file file eos::find-line line type error "No screen to select" t use-left-overflow set-buffer-left-margin-width eos::left-margin-width make-annotation graphics whitespace set-annotation-data uid set-extent-face face eos::add-to-annotation-list] 4] eos::compare-uid #[(extent uid) " ! ! " [annotationp extent annotation-data uid] 2] eos::delete-annotation #[(file line type uid) " !? #!p``\\ %?? ! \")" [nil x eos::null-file file eos::find-line line type error "No screen to select" map-extents eos::compare-uid 1 uid delete-annotation eos::remove-from-annotation-list] 7] eos::make-visible (macro . #[(annotation graphics file line type face) " D FDE D DDD DE EF FE E E\nD" [progn if eos::null-file file nil null eos::find-line line type (error "No screen to select") eos::valid-annotation annotation save-excursion set-buffer extent-buffer delete-annotation setq (setq use-left-overflow t) (set-buffer-left-margin-width eos::left-margin-width) make-annotation graphics (point) 'whitespace set-annotation-data set-extent-face face] 14]) eos::make-invisible (macro . #[(annotation) " D DDD D EF EFD" [progn if eos::valid-annotation annotation save-excursion set-buffer extent-buffer delete-annotation setq nil] 9]) provide eos-common] 2)