diff options
| -rw-r--r-- | lisp/calendar/cal-iso.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calendar/cal-iso.el b/lisp/calendar/cal-iso.el index 65b1debb672..2dbe97df2a5 100644 --- a/lisp/calendar/cal-iso.el +++ b/lisp/calendar/cal-iso.el | |||
| @@ -67,8 +67,9 @@ date Sunday, December 31, 1 BC." | |||
| 67 | (calendar-gregorian-from-absolute (- date 3)))) | 67 | (calendar-gregorian-from-absolute (- date 3)))) |
| 68 | (year (+ approx | 68 | (year (+ approx |
| 69 | (calendar-sum y approx | 69 | (calendar-sum y approx |
| 70 | (>= date (calendar-absolute-from-iso (list 1 1 (1+ y)))) | 70 | (>= date (calendar-absolute-from-iso |
| 71 | 1)))) | 71 | (list 1 1 (1+ y)))) |
| 72 | 1)))) | ||
| 72 | (list | 73 | (list |
| 73 | (1+ (/ (- date (calendar-absolute-from-iso (list 1 1 year))) 7)) | 74 | (1+ (/ (- date (calendar-absolute-from-iso (list 1 1 year))) 7)) |
| 74 | (% date 7) | 75 | (% date 7) |