;ELC   
;;; compiled by erik@naggum.no on Sun Jan 14 07:30:37 1996
;;; from file /gd/gnu/emacs/19.0/lisp/vt100-led.el
;;; emacs version 19.30.70.6.
;;; 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.29")))
    (error "`vt100-led.el' was compiled for Emacs 19.29 or later"))


#@85 The internal state of the LEDs.  Choices are nil, t, `flash.
Element 0 is not used.
(defvar led-state (make-vector 5 nil) (#$ . 468))
#@14 Flash LED l.
(defalias 'led-flash #[(l) "	ÂIˆÃ ‡" [led-state l flash led-update] 3 (#$ . 608)])
#@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 (#$ . 711) "P"])
#@16 Turn on LED l.
(defalias 'led-on #[(l) "	ÂIˆÃ ‡" [led-state l t led-update] 3 (#$ . 924)])
#@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 (#$ . 1022)])
(provide (quote vt100-led))