From 6ebc958b699b0a541a426c16c4c4b6bb5eadb756 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. (cherry picked from commit 488801baf7de64cc3ad8747c7a0c9f5869afb4e2) --- lisp/time-stamp.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 50d75ecac01..c9f451cb8cc 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -569,6 +569,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 ?%) -- 2.39.2