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 "%") |