Mercurial > emacs

comparison lisp/vt100-led.el @ 74264:12e82649e074

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(led-state, led-on): Fix typo in docstring.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 27 Nov 2006 17:06:34 +0000
parents 3bd95f4f2941
children d5e613255c8a
comparison
equal deleted inserted replaced
74263:2f0f8ada392a 74264:12e82649e074
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;;; Code: 29 ;;; Code:
30 30
31 (defvar led-state (make-vector 5 nil) 31 (defvar led-state (make-vector 5 nil)
32 "The internal state of the LEDs. Choices are nil, t, `flash. 32 "The internal state of the LEDs. Choices are nil, t, 'flash.
33 Element 0 is not used.") 33 Element 0 is not used.")
34 34
35 (defun led-flash (l) 35 (defun led-flash (l)
36 "Flash LED l." 36 "Flash LED l."
37 (aset led-state l 'flash) 37 (aset led-state l 'flash)
44 (aset led-state (prefix-numeric-value l) nil) 44 (aset led-state (prefix-numeric-value l) nil)
45 (fillarray led-state nil)) 45 (fillarray led-state nil))
46 (led-update)) 46 (led-update))
47 47
48 (defun led-on (l) 48 (defun led-on (l)
49 "Turn on LED l." 49 "Turn on LED L."
50 (aset led-state l t) 50 (aset led-state l t)
51 (led-update)) 51 (led-update))
52 52
53 (defun led-update () 53 (defun led-update ()
54 "Update the terminal's LEDs to reflect the internal state." 54 "Update the terminal's LEDs to reflect the internal state."