|
@@ -925,12 +925,12 @@ This function makes sure that dates are aligned for easy reading."
|
|
|
"Convert TIME of a string like '13:45' to an AM/PM style time string."
|
|
|
(let* ((hour-number (string-to-number (substring time 0 -3)))
|
|
|
(minute (substring time -2))
|
|
|
- (ampm "AM"))
|
|
|
+ (ampm "am"))
|
|
|
(cond
|
|
|
((equal hour-number 12)
|
|
|
- (setq ampm "PM"))
|
|
|
+ (setq ampm "pm"))
|
|
|
((> hour-number 12)
|
|
|
- (setq ampm "PM")
|
|
|
+ (setq ampm "pm")
|
|
|
(setq hour-number (- hour-number 12))))
|
|
|
(concat
|
|
|
(if org-agenda-time-leading-zero
|