Mercurial > emacs
comparison lisp/calendar/time-date.el @ 110330:b68d97301050
time-date.el (format-seconds): Comment fix.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 14 Sep 2010 06:01:14 +0000 |
| parents | 8d09094063d0 |
| children | eb4a332b45f5 |
comparison
equal
deleted
inserted
replaced
| 110329:16a352829b29 | 110330:b68d97301050 |
|---|---|
| 315 spec match usedunits zeroflag larger prev name unit num zeropos) | 315 spec match usedunits zeroflag larger prev name unit num zeropos) |
| 316 (while (string-match "%\\.?[0-9]*\\(.\\)" string start) | 316 (while (string-match "%\\.?[0-9]*\\(.\\)" string start) |
| 317 (setq start (match-end 0) | 317 (setq start (match-end 0) |
| 318 spec (match-string 1 string)) | 318 spec (match-string 1 string)) |
| 319 (unless (string-equal spec "%") | 319 (unless (string-equal spec "%") |
| 320 ;; `assoc-string' is not available in Emacs 21. So when compiling | 320 ;; `assoc-string' is not available in XEmacs or Emacs 21. So when |
| 321 ;; Gnus (`time-date.el' is part of Gnus) with Emacs 21, we get a | 321 ;; compiling Gnus (`time-date.el' is part of Gnus) with XEmacs or |
| 322 ;; warning here. But `format-seconds' is not used anywhere in Gnus so | 322 ;; Emacs 21, we get a warning here. But `format-seconds' is not |
| 323 ;; it's not a real problem. --rsteib | 323 ;; used anywhere in Gnus so it's not a real problem. --rsteib |
| 324 (or (setq match (assoc-string spec units t)) | 324 (or (setq match (assoc-string spec units t)) |
| 325 (error "Bad format specifier: `%s'" spec)) | 325 (error "Bad format specifier: `%s'" spec)) |
| 326 (if (assoc-string spec usedunits t) | 326 (if (assoc-string spec usedunits t) |
| 327 (error "Multiple instances of specifier: `%s'" spec)) | 327 (error "Multiple instances of specifier: `%s'" spec)) |
| 328 (if (string-equal (car match) "z") | 328 (if (string-equal (car match) "z") |