aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1993-05-19 19:34:12 +0000
committerJim Blandy1993-05-19 19:34:12 +0000
commit2ea2ebebda01febe90bc6f3c7b2200678c50f5b2 (patch)
treeb8340bd8bb5a79fc1a55c9a4e516b19d0f4f05b7
parent6887f62301ff2f76dfb86423ecfc43cbb05b381f (diff)
downloademacs-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.el4
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