[Emacs-diffs] Changes to emacs/lisp/calendar/cal-hebrew.el

[Richard M. Stallman]

Index: emacs/lisp/calendar/cal-hebrew.el
diff -c emacs/lisp/calendar/cal-hebrew.el:1.11 
emacs/lisp/calendar/cal-hebrew.el:1.12
*** emacs/lisp/calendar/cal-hebrew.el:1.11      Mon Jul 16 03:46:48 2001
--- emacs/lisp/calendar/cal-hebrew.el   Wed Apr  3 09:24:36 2002
***************
*** 345,351 ****
               (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")))
              (output-list
               (filter-visible-calendar-holidays mandatory)))
        (if all-hebrew-calendar-holidays
--- 345,351 ----
               (list (calendar-gregorian-from-absolute (+ abs-r-h 19))
                     "Hol Hamoed Sukkot (fourth day)")
               (list (calendar-gregorian-from-absolute (+ abs-r-h 20))
!                    "Hoshanah Rabbah")))
              (output-list
               (filter-visible-calendar-holidays mandatory)))
        (if all-hebrew-calendar-holidays
***************
*** 977,985 ****
             (if (= h-yesterday 30)
                 (format "%s (second day)" this-month)
               this-month)))
!       (if (= (% d 7) 6);; Saturday--check for Shabbat Mevarhim
            (cond ((and (> h-day 22) (/= h-month 6) (= 29 last-day))
!                  (format "Mevarhim Rosh Hodesh %s (%s)"
                           (aref h-month-names
                                 (if (= h-month
                                        (hebrew-calendar-last-month-of-year
--- 977,985 ----
             (if (= h-yesterday 30)
                 (format "%s (second day)" this-month)
               this-month)))
!       (if (= (% d 7) 6);; Saturday--check for Shabbat Mevarchim
            (cond ((and (> h-day 22) (/= h-month 6) (= 29 last-day))
!                  (format "Mevarchim Rosh Hodesh %s (%s)"
                           (aref h-month-names
                                 (if (= h-month
                                        (hebrew-calendar-last-month-of-year
***************
*** 987,993 ****
                                     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)"
                           (aref h-month-names h-month)
                           (if (= h-day 29)
                               "tomorrow"
--- 987,993 ----
                                     0 h-month))
                           (aref calendar-day-name-array (- 29 h-day))))
                  ((and (< h-day 30) (> h-day 22) (= 30 last-day))
!                  (format "Mevarchim Rosh Hodesh %s (%s-%s)"
                           (aref h-month-names h-month)
                           (if (= h-day 29)
                               "tomorrow"