From 488801baf7de64cc3ad8747c7a0c9f5869afb4e2 Mon Sep 17 00:00:00 2001 From: Stephen Gildea Date: Fri, 13 Dec 2024 08:53:54 -0800 Subject: [PATCH] * lisp/time-stamp.el: Limit field width to two digits. --- lisp/time-stamp.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 8c28920d219..69c059f6254 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -561,6 +561,8 @@ and all `time-stamp-format' compatibility." (setq field-width "1" flag-minimize t)) ((eq cur-char ?_) (setq field-width "2" flag-pad-with-spaces t)))) + (if (> (string-to-number field-width) 99) + (setq field-width (if flag-pad-with-zeros "099" "99"))) (setq field-result (cond ((eq cur-char ?%)