Mercurial > emacs
comparison lisp/calendar/time-date.el @ 91836:f47b22aa9aac
(format-seconds): Let-bind `num'.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 14 Feb 2008 09:07:00 +0000 |
parents | 41b16ef40f59 |
children | 5f14edcf524f |
comparison
equal
deleted
inserted
replaced
91835:55213355c0fa | 91836:f47b22aa9aac |
---|---|
283 ("d" "day" 86400) | 283 ("d" "day" 86400) |
284 ("h" "hour" 3600) | 284 ("h" "hour" 3600) |
285 ("m" "minute" 60) | 285 ("m" "minute" 60) |
286 ("s" "second" 1))) | 286 ("s" "second" 1))) |
287 (case-fold-search t) | 287 (case-fold-search t) |
288 spec match outunits unit prev name next) | 288 spec match outunits unit prev name num next) |
289 (setq nonzero (not nonzero)) | 289 (setq nonzero (not nonzero)) |
290 (while (string-match "%\\.?[0-9]*\\(.\\)" string start) | 290 (while (string-match "%\\.?[0-9]*\\(.\\)" string start) |
291 (setq start (match-end 0) | 291 (setq start (match-end 0) |
292 spec (match-string 1 string)) | 292 spec (match-string 1 string)) |
293 (unless (string-equal spec "%") | 293 (unless (string-equal spec "%") |