Function: led-update

led-update is a byte-compiled function defined in vt100-led.el.gz.

Signature

(led-update)

Documentation

Update the terminal's LEDs to reflect the internal state.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vt100-led.el.gz
(defun led-update ()
  "Update the terminal's LEDs to reflect the internal state."
  (let ((f "\e[?0")			; String to flash.
	(o "\e[0")			; String for steady on.
	(l 1))				; Current LED number.
    (while (/= l 5)
      (let ((s (aref led-state l)))
	(cond
	 ((eq s 'flash)
	  (setq f (concat f ";" (int-to-string l))))
	 (s
	  (setq o (concat o ";" (int-to-string l))))))
      (setq l (1+ l)))
    (setq o (concat o "q" f "t"))
    (send-string-to-terminal o)))