# HG changeset patch # User Richard M. Stallman # Date 1017843876 0 # Node ID 3ade5e9efe68a85f1fc2143cbaefa9ae617f9504 # Parent b990fdae0c3e4ddad218039775c6709e640ef390 (holiday-rosh-hashanah-etc): Spelling correction. (diary-rosh-hodesh): Spelling correction. diff -r b990fdae0c3e -r 3ade5e9efe68 lisp/calendar/cal-hebrew.el --- a/lisp/calendar/cal-hebrew.el Wed Apr 03 13:43:47 2002 +0000 +++ b/lisp/calendar/cal-hebrew.el Wed Apr 03 14:24:36 2002 +0000 @@ -345,7 +345,7 @@ (list (calendar-gregorian-from-absolute (+ abs-r-h 19)) "Hol Hamoed Sukkot (fourth day)") (list (calendar-gregorian-from-absolute (+ abs-r-h 20)) - "Hoshannah Rabbah"))) + "Hoshanah Rabbah"))) (output-list (filter-visible-calendar-holidays mandatory))) (if all-hebrew-calendar-holidays @@ -977,9 +977,9 @@ (if (= h-yesterday 30) (format "%s (second day)" this-month) this-month))) - (if (= (% d 7) 6);; Saturday--check for Shabbat Mevarhim + (if (= (% d 7) 6);; Saturday--check for Shabbat Mevarchim (cond ((and (> h-day 22) (/= h-month 6) (= 29 last-day)) - (format "Mevarhim Rosh Hodesh %s (%s)" + (format "Mevarchim Rosh Hodesh %s (%s)" (aref h-month-names (if (= h-month (hebrew-calendar-last-month-of-year @@ -987,7 +987,7 @@ 0 h-month)) (aref calendar-day-name-array (- 29 h-day)))) ((and (< h-day 30) (> h-day 22) (= 30 last-day)) - (format "Mevarhim Rosh Hodesh %s (%s-%s)" + (format "Mevarchim Rosh Hodesh %s (%s-%s)" (aref h-month-names h-month) (if (= h-day 29) "tomorrow"