home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / patches / 24-hour-time.el next >
Encoding:
Text File  |  1992-11-25  |  2.0 KB  |  66 lines
  1. ; Path: hal.com!olivea!charnel!rat!usc!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!ira.uka.de!math.fu-berlin.de!unidui!Germany.EU.net!mcsun!sun4nl!mhres!pronto!news
  2. ; From: jv@mh.nl (Johan Vromans)
  3. ; Newsgroups: gnu.emacs.sources,gnu.emacs.help
  4. ; Subject: 24-hour time display
  5. ; Date: 18 Nov 92 16:23:44 GMT
  6. ; Organization: Multihouse Automation, the Netherlands
  7. ; 
  8. ; The following patch adds the variable display-time-ampm to time.el.
  9. ; Setting this variable to nil enables 24-hour time display.
  10. ; 
  11. ; Enjoy!
  12.  
  13. ; LCD Archive Entry:
  14. ; 24-hour-time|Johan Vromans|jv@mh.nl|
  15. ; Adds 24 time display capability to time.el.|
  16. ; 92-11-18||~/patches/24-hour-time.el.Z|
  17.  
  18. ; 
  19. ; *** emacs-18.59/lisp/time.el    Tue Nov  3 10:04:55 1992
  20. ; --- /usr/tmp/time.el    Wed Nov 18 17:08:29 1992
  21. ; ***************
  22. ; *** 29,34 ****
  23. ; --- 29,37 ----
  24. ;   
  25.   (defvar display-time-string nil)
  26.   
  27. + (defvar display-time-ampm t
  28. +   "*If t, display time in AM/PM format. Otherwise use 24-hour format.")
  29. + 
  30.   (defun display-time ()
  31.     "Display current time and load level in mode line of each buffer.
  32.   Updates automatically every minute.
  33. ***************
  34. *** 94,107 ****
  35.                        (user-login-name)))))
  36.       hour pm)
  37.       (setq hour (read (substring time 11 13)))
  38. !     (setq pm (>= hour 12))
  39. !     (if (> hour 12)
  40. !     (setq hour (- hour 12))
  41. !       (if (= hour 0)
  42. !       (setq hour 12)))
  43.       (setq display-time-string
  44.         (concat (format "%d" hour) (substring time 13 16)
  45. !           (if pm "pm" "am")
  46.             (if (string= load "")
  47.                 ""
  48.               (concat " " (substring load 0 -2) "." (substring load -2)))
  49. --- 97,112 ----
  50.                        (user-login-name)))))
  51.       hour pm)
  52.       (setq hour (read (substring time 11 13)))
  53. !     (if display-time-ampm
  54. !     (progn
  55. !       (setq pm (>= hour 12))
  56. !       (if (> hour 12)
  57. !           (setq hour (- hour 12))
  58. !         (if (= hour 0)
  59. !         (setq hour 12)))))
  60.       (setq display-time-string
  61.         (concat (format "%d" hour) (substring time 13 16)
  62. !           (if display-time-ampm (if pm "pm" "am") "")
  63.             (if (string= load "")
  64.                 ""
  65.               (concat " " (substring load 0 -2) "." (substring load -2)))
  66.