procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* calendar.el (hebrew-calendar-yahrzeit): Correct error from S-P&E

Browse source 
paper in test for Adar I 30 date of death for yahrzeit in a
        non-leap year when Shevat 29 must be used.
This commit is contained in:
Jim Blandy 1993-05-19 19:34:12 +00:00
parent 6887f62301
commit 2ea2ebebda
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/calendar/calendar.el
View file

@ -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