home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / time.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.1 KB  |  27 lines
  1. ;;; compiled by @win386 on Tue Apr 27 19:24:57 1993
  2. ;;; from file c:/src/winemacs/lisp/packages/time.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.02 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  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. (require 'timer)
  14. (defvar display-time-interval 60 "\
  15. *Seconds between updates of time in the mode line.")
  16. (defvar display-time-echo-area nil "\
  17. *If non-nil, display-time will use the echo area instead of the mode line.")
  18. (byte-code "└┴!¼é┬┬ç" [boundp display-time-string nil] 2)
  19. (fset 'display-time #[nil "└┴!ë½ä├\n!ê) ¼à¼é╞ ¼è╟>¼à╚╔\"╩ ê╦┴╩ ë$ç" [get-timer "display-time" old delete-timer display-time-echo-area global-mode-string ("") display-time-string append (display-time-string) display-time-function start-timer display-time-interval] 6 "\
  20. Display current time and load level in mode line of each buffer.
  21. Updates automatically every minute.
  22. If display-time-day-and-date is non-nil, the current day and date
  23. are displayed as well.
  24. If display-time-echo-area is non-nil, the time is displayed in the
  25. echo area instead of in the mode-line." nil])
  26. (byte-code "└┴Mê┬├!ç" [display-time-function #[nil "└ ┴┬├Å ┼╞!«ç┼╟!«é╚ P┴ëë    \n  ╧╨╤O!ë ╥Y\n ╥V½ê ╥Z ¬ë ╙U½â╥ ╘╒ \"╤╓O\n½â╫¬ü╪¡î╙┘O┌┘┴OQ█ !½ì▄▌ !8╙V½â▐¬ü▀░     ½è╙╨O    P    !½ìΓ π =«öèΣï)¬Ä    %èµ qê)τΦ !.ç" [current-time-string nil (byte-code "└┴┬ @\"ç" [format "%03d" load-average] 3) ((error)) rmail-spool-directory getenv "LOGNAME" "USER" user-login-name string pm hour mail-spool-file load time read 11 13 12 0 format "%d" 16 "pm " "am " -2 "." file-exists-p 7 file-attributes " Mail" "" display-time-day-and-date display-time-echo-area selected-window minibuffer-window ((byte-code "└┴ !ê┬ ê├  GZ┼Zjê cê╞╟ !ç" [select-window minibuffer-window erase-buffer screen-width string 1 message buffer-string] 2)) display-time-string other-buffer set-buffer-modified-p buffer-modified-p] 9] provide time] 2)
  27.