;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. #@86 The internal state of the LEDs. Choices are nil, t, `flash'. Element 0 is not used. (defvar led-state (make-vector 5 nil) (#$ . 83))#@22 Flash LED l. (fn L) (defalias 'led-flash #[257 "\301I\210\302 \207" [led-state flash led-update] 4 (#$ . 222)])#@86 Turn off vt100 led number L. With no argument, turn them all off. (fn &optional L) (defalias 'led-off #[256 "\211\203\301!\302I\210\202\303\302\"\210\304 \207" [led-state prefix-numeric-value nil fillarray led-update] 4 (#$ . 342) "P"])#@24 Turn on LED L. (fn L) (defalias 'led-on #[257 "\301I\210\302 \207" [led-state t led-update] 4 (#$ . 593)])#@59 Update the terminal's LEDs to reflect the internal state. (defalias 'led-update #[0 "\301\302\303\211\304U\2042H\211\305=\203\306\307!Q\262\210\202+\211\203*\306\307!Q\262\210\211T\262\202\310\311R\262\312!\207" [led-state "[?0" "[0" 1 5 flash ";" int-to-string "q" "t" send-string-to-terminal] 8 (#$ . 708)]) (provide 'vt100-led)