From 2ea2ebebda01febe90bc6f3c7b2200678c50f5b2 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Wed, 19 May 1993 19:34:12 +0000 Subject: [PATCH] * 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. --- lisp/calendar/calendar.el | 4 ++-- 1 file 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." ((= death-month 13) (calendar-absolute-from-hebrew (list (hebrew-calendar-last-month-of-year year) death-day year))) - ;; If it's the 30th in Adar I and $year$ is not a leap year + ;; If it's the 30th in Adar I and year is not a leap year ;; (so Adar has only 29 days), use the last day in Shevat. ((and (= death-day 30) (= death-month 12) - (not (hebrew-calendar-leap-year-p death-year))) + (not (hebrew-calendar-leap-year-p year))) (calendar-absolute-from-hebrew (list 11 30 year))) ;; In all other cases, use the normal anniversary of the date of death. (t (calendar-absolute-from-hebrew