;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 15 22:03:42 1993
;;; from file /gd/gnu/emacs/19.0/lisp/vt100-led.el
;;; emacs version 19.5.19.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(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))