* lisp/time-stamp.el: Limit field width to two digits.

2024-12-13 08:53:54 -08:00
parent 34bedcd58d
commit 488801baf7
1 changed files with 2 additions and 0 deletions
--- 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 ?%)