;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul 6 00:22:49 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/vt100-led.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; 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")) (defvar led-state (make-vector 5 nil) "\ The internal state of the LEDs. Choices are nil, t, `flash. Element 0 is not used.") (defalias 'led-flash #[(l) " ÂIˆÃ ‡" [led-state l flash led-update] 3 "\ Flash LED l."]) (defalias 'led-off #[(&optional l) "ƒ Â!ÃIˆ‚Ä Ã\"ˆÅ ‡" [l led-state prefix-numeric-value nil fillarray led-update] 3 "\ Turn off vt100 led number L. With no argument, turn them all off." "P"]) (defalias 'led-on #[(l) " ÂIˆÃ ‡" [led-state l t led-update] 3 "\ Turn on LED l."]) (defalias 'led-update #[nil "ÀÁ ÆU„6 H‰É=ƒ\" ÊË !Q‚.ƒ. ÊË !Q) T‰‚ Ì ÍRÎ !+‡" ["[?0" "[0" 1 l o f 5 led-state s flash ";" int-to-string "q" "t" send-string-to-terminal] 5 "\ Update the terminal's LEDs to reflect the internal state."]) (provide (quote vt100-led))