;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:21:16 2007
;;; from file /home/cyd/emacs/lisp/vt100-led.el
;;; in Emacs version 22.0.99
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (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"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@86 The internal state of the LEDs.  Choices are nil, t, `flash'.
Element 0 is not used.
(defvar led-state (make-vector 5 nil) (#$ . 565))
#@14 Flash LED l.
(defalias 'led-flash #[(l) "	\302I\210\303 \207" [led-state l flash led-update] 3 (#$ . 706)])
#@68 Turn off vt100 led number L.  With no argument, turn them all off.
(defalias 'led-off #[(&optional l) "\203 	\302!\303I\210\202 \304	\303\"\210\305 \207" [l led-state prefix-numeric-value nil fillarray led-update] 3 (#$ . 821) "P"])
#@16 Turn on LED L.
(defalias 'led-on #[(l) "	\302I\210\303 \207" [led-state l t led-update] 3 (#$ . 1064)])
#@59 Update the terminal's LEDs to reflect the internal state.
(defalias 'led-update #[nil "\305\306\307\310U\2043 H\211\311=\203  \n\312\313!Q\202+ \f\203+ 	\312\313!Q)T\211\202 	\314\n\315R\316	!+\207" [l o f led-state s "[?0" "[0" 1 5 flash ";" int-to-string "q" "t" send-string-to-terminal] 5 (#$ . 1175)])
(provide 'vt100-led)