home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / vt100-le.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.2 KB  |  25 lines
  1. ;;; compiled by jwz@thalidomide on Tue Jun 30 23:25:23 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/vt100-led.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar led-state (make-vector 5 nil) "\
  14. The internal state of the LEDs.  Choices are nil, t, `flash.
  15. Element 0 is not used.")
  16. (fset 'led-flash #[(l) "    ┬Iê├ ç" [led-state l flash led-update] 3 "\
  17. Flash LED l."])
  18. (fset 'led-off #[(&optional l) "½ë    ┬!├Iê¬à─    ├\"ê┼ ç" [l led-state prefix-numeric-value nil fillarray led-update] 3 "\
  19. Turn off vt100 led number L.  With no argument, turn them all off." "P"])
  20. (fset 'led-on #[(l) "    ┬Iê├ ç" [led-state l t led-update] 3 "\
  21. Turn on LED l."])
  22. (fset 'led-update #[nil "└┴┬ ╞U¼ª Hë╔=½ë╩╦ !Q¬ï½ç ╩╦ !Q) Të¬V ╠═R╬ !+ç" ["?0" "" 1 l o f 5 led-state s flash ";" int-to-string "q" "t" send-string-to-terminal] 5 "\
  23. Update the terminal's LEDs to reflect the internal state."])
  24. (provide 'vt100-led)
  25.