;;; compiled by mycroft@hal on Tue Sep 22 05:25:26 1992
;;; from file /src/emacs-19.0/lisp/vt100-led.el
;;; emacs version 19.0.426.
;;; 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.")
(fset 'led-flash (make-byte-code (quote (l)) "	ÂIˆÃ ‡" [led-state l flash led-update] 3 "\
Flash LED l."))
(fset 'led-off (make-byte-code (quote (&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"))
(fset 'led-on (make-byte-code (quote (l)) "	ÂIˆÃ ‡" [led-state l t led-update] 3 "\
Turn on LED l."))
(fset 'led-update (make-byte-code (quote 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))