diff options
| author | Glenn Morris | 2008-02-14 09:07:00 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-02-14 09:07:00 +0000 |
| commit | 70d1e5b9be663fa7fe91169051b78665b4afaace (patch) | |
| tree | 49936c305a91df30e4177ae51927aa7403297a14 | |
| parent | 5c4a15b3ed809550c7c4019e09f312ce8a7a8bcc (diff) | |
| download | emacs-70d1e5b9be663fa7fe91169051b78665b4afaace.tar.gz emacs-70d1e5b9be663fa7fe91169051b78665b4afaace.zip | |
(format-seconds): Let-bind `num'.
| -rw-r--r-- | lisp/calendar/time-date.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index 9141dd5ed72..89d26657f19 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el | |||
| @@ -285,7 +285,7 @@ This does not work for input SECONDS greater than `most-positive-fixnum'." | |||
| 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) |