procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stephen Gildea 2024-12-13 08:53:54 -08:00
parent 34bedcd58d
commit 488801baf7
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/time-stamp.el
View file

@ -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 ?%)