aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-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