From 5226c561b3c40f60ec6b70fafc2c4fa2dc2795f6 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 12 Nov 2010 16:59:39 -0600 Subject: [PATCH] Use lower case for AM/PM --- lisp/org-agenda.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9010d0845..b7de45a4e 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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