Mercurial > emacs
comparison lisp/calendar/calendar.el @ 2905:be10f559ebe4
* 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.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Wed, 19 May 1993 19:34:12 +0000 |
parents | a906a3882b9f |
children | c47652dc3400 |
comparison
equal
deleted
inserted
replaced
2904:d9f7768b0d89 | 2905:be10f559ebe4 |
---|---|
2943 ;; If it's Adar II, use the same day in last month of | 2943 ;; If it's Adar II, use the same day in last month of |
2944 ;; year (Adar or Adar II). | 2944 ;; year (Adar or Adar II). |
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 |
2956 (list death-month death-day year)))))) | 2956 (list death-month death-day year)))))) |
2957 | 2957 |