🚀 go-pugleaf

The following patch adds the variable display-time-ampm to time.el.
Setting this variable to nil enables 24-hour time display.

Enjoy!

*** emacs-18.59/lisp/time.el	Tue Nov  3 10:04:55 1992
--- /usr/tmp/time.el	Wed Nov 18 17:08:29 1992
***************
*** 29,34 ****
--- 29,37 ----
  
  (defvar display-time-string nil)
  
+ (defvar display-time-ampm t
+   "*If t, display time in AM/PM format. Otherwise use 24-hour format.")
+ 
  (defun display-time ()
    "Display current time and load level in mode line of each buffer.
  Updates automatically every minute.
***************
*** 94,107 ****
  					 (user-login-name)))))
  	hour pm)
      (setq hour (read (substring time 11 13)))
!     (setq pm (>= hour 12))
!     (if (> hour 12)
! 	(setq hour (- hour 12))
!       (if (= hour 0)
! 	  (setq hour 12)))
      (setq display-time-string
  	  (concat (format "%d" hour) (substring time 13 16)
! 		  (if pm "pm" "am")
  		  (if (string= load "")
  		      ""
  		    (concat " " (substring load 0 -2) "." (substring load -2)))
--- 97,112 ----
  					 (user-login-name)))))
  	hour pm)
      (setq hour (read (substring time 11 13)))
!     (if display-time-ampm
! 	(progn
! 	  (setq pm (>= hour 12))
! 	  (if (> hour 12)
! 	      (setq hour (- hour 12))
! 	    (if (= hour 0)
! 		(setq hour 12)))))
      (setq display-time-string
  	  (concat (format "%d" hour) (substring time 13 16)
! 		  (if display-time-ampm (if pm "pm" "am") "")
  		  (if (string= load "")
  		      ""
  		    (concat " " (substring load 0 -2) "." (substring load -2)))
--
Johan Vromans				       jv@mh.nl via internet backbones
Multihouse Automatisering bv		       uucp:..!{uunet,sun4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62911/62500
------------------------ "Arms are made for hugging" -------------------------