Mercurial > emacs

changeset 2905:be10f559ebe4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 d9f7768b0d89
children ca9bf00d4b19
files lisp/calendar/calendar.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Wed May 19 19:13:31 1993 +0000
+++ b/lisp/calendar/calendar.el	Wed May 19 19:34:12 1993 +0000
@@ -2945,11 +2945,11 @@
      ((= 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