truncate seconds when using hh:mmam/pm diary style times

Signed-off-by: Psionik K <[email protected]>
positron-solutions · May 15, 2024 · 4063d5e · 4063d5e
1 parent e1408bf
commit 4063d5e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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