mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

Fix format-seconds error in previous change

Browse source 
* lisp/calendar/time-date.el (format-seconds): Fix zero elision
when using fractional seconds.
This commit is contained in:
Lars Ingebrigtsen 2022-04-13 15:57:24 +02:00
parent be42fdc6dc
commit 0ef9f6d07b
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/calendar/time-date.el
View file

@ -343,15 +343,18 @@ right of \"%x\", trailing zero units are not output."
;; Cf article-make-date-line in gnus-art.
(setq num (floor seconds unit)
seconds (- seconds (* num unit)))
;; Start position of the first non-zero unit.
(when (and (not leading-zeropos)
(not (zerop num)))
(setq leading-zeropos (match-beginning 0)))
(unless (zerop num)
(setq trailing-zeropos nil))
(when (and (not trailing-zeropos)
(zerop num))
(setq trailing-zeropos (match-beginning 0)))
(let ((is-zero (zerop (if (= unit 1)
(+ num fraction)
num))))
;; Start position of the first non-zero unit.
(when (and (not leading-zeropos)
(not is-zero))
(setq leading-zeropos (match-beginning 0)))
(unless is-zero
(setq trailing-zeropos nil))
(when (and (not trailing-zeropos)
is-zero)
(setq trailing-zeropos (match-beginning 0))))
(setq string
(replace-match
(format (if (match-string 2 string)