diff options
-rw-r--r-- | lisp/time.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/time.el b/lisp/time.el index 901f00d9d3..e9a57bf240 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -138,7 +138,7 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'.") (if (= hour 0) 12 hour)))) - (am-pm (if (> hour 12) "pm" "am")) + (am-pm (if (>= hour 12) "pm" "am")) (minutes (substring time 14 16)) (seconds (substring time 17 19)) (time-zone (car (cdr (current-time-zone)))) |