diff options
| author | Jim Blandy | 1993-05-19 19:34:12 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-05-19 19:34:12 +0000 |
| commit | 2ea2ebebda01febe90bc6f3c7b2200678c50f5b2 (patch) | |
| tree | b8340bd8bb5a79fc1a55c9a4e516b19d0f4f05b7 | |
| parent | 6887f62301ff2f76dfb86423ecfc43cbb05b381f (diff) | |
| download | emacs-2ea2ebebda01febe90bc6f3c7b2200678c50f5b2.tar.gz emacs-2ea2ebebda01febe90bc6f3c7b2200678c50f5b2.zip | |
* calendar.el (hebrew-calendar-yahrzeit): Correct error from S-P&E
paper in test for Adar I 30 date of death for yahrzeit in a
non-leap year when Shevat 29 must be used.
| -rw-r--r-- | lisp/calendar/calendar.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 3dca292329f..86098c0a7f7 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -2945,11 +2945,11 @@ Gregorian date Sunday, December 31, 1 BC." | |||
| 2945 | ((= death-month 13) | 2945 | ((= death-month 13) |
| 2946 | (calendar-absolute-from-hebrew | 2946 | (calendar-absolute-from-hebrew |
| 2947 | (list (hebrew-calendar-last-month-of-year year) death-day year))) | 2947 | (list (hebrew-calendar-last-month-of-year year) death-day year))) |
| 2948 | ;; If it's the 30th in Adar I and $year$ is not a leap year | 2948 | ;; If it's the 30th in Adar I and year is not a leap year |
| 2949 | ;; (so Adar has only 29 days), use the last day in Shevat. | 2949 | ;; (so Adar has only 29 days), use the last day in Shevat. |
| 2950 | ((and (= death-day 30) | 2950 | ((and (= death-day 30) |
| 2951 | (= death-month 12) | 2951 | (= death-month 12) |
| 2952 | (not (hebrew-calendar-leap-year-p death-year))) | 2952 | (not (hebrew-calendar-leap-year-p year))) |
| 2953 | (calendar-absolute-from-hebrew (list 11 30 year))) | 2953 | (calendar-absolute-from-hebrew (list 11 30 year))) |
| 2954 | ;; In all other cases, use the normal anniversary of the date of death. | 2954 | ;; In all other cases, use the normal anniversary of the date of death. |
| 2955 | (t (calendar-absolute-from-hebrew | 2955 | (t (calendar-absolute-from-hebrew |