;ELC   
;;; compiled by rms@churchy.gnu.ai.mit.edu on Thu Apr 20 22:08:59 1995
;;; from file /gd/gnu/emacs/19.0/lisp/term/vt100-led.el
;;; emacs version 19.28.90.4.
;;; 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 "`/gd/gnu/emacs/19.0/lisp/term/vt100-led.el' was compiled for Emacs 19"))


#@85 The internal state of the LEDs.  Choices are nil, t, `flash.
Element 0 is not used.
(defvar led-state (make-vector 5 nil) (#$ . 499))
#@14 Flash LED l.
(defalias 'led-flash #[(l) "	ÂIˆÃ ‡" [led-state l flash led-update] 3 (#$ . 639)])
#@68 Turn off vt100 led number L.  With no argument, turn them all off.
(defalias 'led-off #[(&optional l) "ƒ 	Â!ÃIˆ‚ Ä	Ã\"ˆÅ ‡" [l led-state prefix-numeric-value nil fillarray led-update] 3 (#$ . 742) "P"])
#@16 Turn on LED l.
(defalias 'led-on #[(l) "	ÂIˆÃ ‡" [led-state l t led-update] 3 (#$ . 955)])
#@59 Update the terminal's LEDs to reflect the internal state.
(defalias 'led-update #[nil "ÀÁÂÆU„6 H‰É=ƒ\" ÊË!Q‚. ƒ. \fÊË!Q)T‰‚ \fÌÍRÎ\f!+‡" ["[?0" "[0" 1 l o f 5 led-state s flash ";" int-to-string "q" "t" send-string-to-terminal] 5 (#$ . 1053)])
(provide (quote vt100-led))