From: Stephen Gildea Date: Fri, 13 Dec 2024 16:53:54 +0000 (-0800) Subject: * lisp/time-stamp.el: Limit field width to two digits. X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~202 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=488801baf7de64cc3ad8747c7a0c9f5869afb4e2;p=emacs.git * lisp/time-stamp.el: Limit field width to two digits. --- 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 ?%)