/[emacs]/emacs/lisp/time.el
ViewVC logotype

Diff of /emacs/lisp/time.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.82 by kfstorm, Wed Feb 9 15:50:40 2005 UTC revision 1.83 by lektu, Mon May 16 11:33:47 2005 UTC
# Line 331  update which can wait for the next redis Line 331  update which can wait for the next redis
331                                ;; Record that mail file is accessible.                                ;; Record that mail file is accessible.
332                                (setq display-time-server-down-time nil)))))))                                (setq display-time-server-down-time nil)))))))
333           (24-hours (substring time 11 13))           (24-hours (substring time 11 13))
334           (hour (string-to-int 24-hours))           (hour (string-to-number 24-hours))
335           (12-hours (int-to-string (1+ (% (+ hour 11) 12))))           (12-hours (int-to-string (1+ (% (+ hour 11) 12))))
336           (am-pm (if (>= hour 12) "pm" "am"))           (am-pm (if (>= hour 12) "pm" "am"))
337           (minutes (substring time 14 16))           (minutes (substring time 14 16))

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26