瀏覽代碼

Use lower case for AM/PM

Carsten Dominik 14 年之前
父節點
當前提交
5226c561b3
共有 1 個文件被更改,包括 3 次插入3 次删除
  1. 3 3
      lisp/org-agenda.el

+ 3 - 3
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