mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

Use lower case for AM/PM

Browse Source
This commit is contained in:
Carsten Dominik 2010-11-12 16:59:39 -06:00
parent 21bf04dfa5
commit 5226c561b3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-agenda.el
View File

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