From 5b0841fdf2cc06638a3744cabaeff1e5dc9a88cc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 5 Aug 1994 18:56:32 +0000 Subject: [PATCH] (display-time-filter): pm starts at 12, not 13. --- lisp/time.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/time.el b/lisp/time.el index 901f00d9d3f..e9a57bf2400 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)))) -- 2.39.5