From 4063d5e43c42cdba3e3d6d80919e6320e601f37b Mon Sep 17 00:00:00 2001
From: Psionik K <73710933+psionic-k@users.noreply.github.com>
Date: Wed, 15 May 2024 11:59:12 +0900
Subject: [PATCH] truncate seconds when using hh:mmam/pm diary style times

Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 lisp/champagne.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/champagne.el b/lisp/champagne.el
index 6ac4ac2..68e6da6 100644
--- a/lisp/champagne.el
+++ b/lisp/champagne.el
@@ -210,6 +210,7 @@ degenerate.  Returns nil if TIME-STRING is invalid according to
               (hhmm (unless (< hhmm 0) hhmm)))
     (setf (decoded-time-minute now) (% hhmm 100))
     (setf (decoded-time-hour now) (/ hhmm 100))
+    (setf (decoded-time-second now) 0)
     (let ((time (time-convert (encode-time now) 'list)))
       (if (time-less-p (current-time) time)
           time