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)) |