Mercurial > emacs
comparison lisp/calendar/calendar.el @ 68655:3d624f4184ec
(calendar-increment-month): Typo in last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 06 Feb 2006 16:56:35 +0000 |
| parents | f148491791ae |
| children | 08af43fa19d8 c5406394f567 |
comparison
equal
deleted
inserted
replaced
| 68654:1f94e3d57be6 | 68655:3d624f4184ec |
|---|---|
| 1306 (defun calendar-increment-month (n &optional mon yr) | 1306 (defun calendar-increment-month (n &optional mon yr) |
| 1307 "Return the Nth month after MON/YR. | 1307 "Return the Nth month after MON/YR. |
| 1308 The return value is a pair (MONTH . YEAR). | 1308 The return value is a pair (MONTH . YEAR). |
| 1309 MON defaults to `displayed-month'. YR defaults to `displayed-year'." | 1309 MON defaults to `displayed-month'. YR defaults to `displayed-year'." |
| 1310 (unless mon (setq mon displayed-month)) | 1310 (unless mon (setq mon displayed-month)) |
| 1311 (unless yr (setq mon displayed-year)) | 1311 (unless yr (setq yr displayed-year)) |
| 1312 (increment-calendar-month mon yr n) | 1312 (increment-calendar-month mon yr n) |
| 1313 (cons mon yr)) | 1313 (cons mon yr)) |
| 1314 | 1314 |
| 1315 (defmacro calendar-for-loop (var from init to final do &rest body) | 1315 (defmacro calendar-for-loop (var from init to final do &rest body) |
| 1316 "Execute a for loop." | 1316 "Execute a for loop." |