Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 25594:2d1ef4eb8297
1999-09-07 Edward M. Reingold <reingold@emr.cs.uiuc.edu>
* diary-lib.el (list-diary-entries): Make sure two-digit years
have leading zeros.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 07 Sep 1999 16:19:13 +0000 |
| parents | acad42cf5361 |
| children | d0f895577892 |
comparison
equal
deleted
inserted
replaced
| 25593:9aecfcf3cb43 | 25594:2d1ef4eb8297 |
|---|---|
| 289 (day (concat "\\*\\|0*" (int-to-string day))) | 289 (day (concat "\\*\\|0*" (int-to-string day))) |
| 290 (year | 290 (year |
| 291 (concat | 291 (concat |
| 292 "\\*\\|0*" (int-to-string year) | 292 "\\*\\|0*" (int-to-string year) |
| 293 (if abbreviated-calendar-year | 293 (if abbreviated-calendar-year |
| 294 (concat "\\|" (int-to-string (% year 100))) | 294 (concat "\\|" (format "%02d" (% year 100))) |
| 295 ""))) | 295 ""))) |
| 296 (regexp | 296 (regexp |
| 297 (concat | 297 (concat |
| 298 "\\(\\`\\|\^M\\|\n\\)" mark "?\\(" | 298 "\\(\\`\\|\^M\\|\n\\)" mark "?\\(" |
| 299 (mapconcat 'eval date-form "\\)\\(") | 299 (mapconcat 'eval date-form "\\)\\(") |