/[emacs]/emacs/lisp/calendar/cal-hebrew.el
ViewVC logotype

Diff of /emacs/lisp/calendar/cal-hebrew.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by pj, Mon Jul 16 07:46:48 2001 UTC revision 1.12 by rms, Wed Apr 3 14:24:36 2002 UTC
# Line 345  nil if it is not visible in the current Line 345  nil if it is not visible in the current
345               (list (calendar-gregorian-from-absolute (+ abs-r-h 19))               (list (calendar-gregorian-from-absolute (+ abs-r-h 19))
346                     "Hol Hamoed Sukkot (fourth day)")                     "Hol Hamoed Sukkot (fourth day)")
347               (list (calendar-gregorian-from-absolute (+ abs-r-h 20))               (list (calendar-gregorian-from-absolute (+ abs-r-h 20))
348                     "Hoshannah Rabbah")))                     "Hoshanah Rabbah")))
349              (output-list              (output-list
350               (filter-visible-calendar-holidays mandatory)))               (filter-visible-calendar-holidays mandatory)))
351        (if all-hebrew-calendar-holidays        (if all-hebrew-calendar-holidays
# Line 977  Entry applies if date is Rosh Hodesh, th Line 977  Entry applies if date is Rosh Hodesh, th
977             (if (= h-yesterday 30)             (if (= h-yesterday 30)
978                 (format "%s (second day)" this-month)                 (format "%s (second day)" this-month)
979               this-month)))               this-month)))
980        (if (= (% d 7) 6);; Saturday--check for Shabbat Mevarhim        (if (= (% d 7) 6);; Saturday--check for Shabbat Mevarchim
981            (cond ((and (> h-day 22) (/= h-month 6) (= 29 last-day))            (cond ((and (> h-day 22) (/= h-month 6) (= 29 last-day))
982                   (format "Mevarhim Rosh Hodesh %s (%s)"                   (format "Mevarchim Rosh Hodesh %s (%s)"
983                           (aref h-month-names                           (aref h-month-names
984                                 (if (= h-month                                 (if (= h-month
985                                        (hebrew-calendar-last-month-of-year                                        (hebrew-calendar-last-month-of-year
# Line 987  Entry applies if date is Rosh Hodesh, th Line 987  Entry applies if date is Rosh Hodesh, th
987                                     0 h-month))                                     0 h-month))
988                           (aref calendar-day-name-array (- 29 h-day))))                           (aref calendar-day-name-array (- 29 h-day))))
989                  ((and (< h-day 30) (> h-day 22) (= 30 last-day))                  ((and (< h-day 30) (> h-day 22) (= 30 last-day))
990                   (format "Mevarhim Rosh Hodesh %s (%s-%s)"                   (format "Mevarchim Rosh Hodesh %s (%s-%s)"
991                           (aref h-month-names h-month)                           (aref h-month-names h-month)
992                           (if (= h-day 29)                           (if (= h-day 29)
993                               "tomorrow"                               "tomorrow"

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26