diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-19 18:57:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-19 18:57:59 +0000 |
| commit | 97344751daece6ed6456ec1dec921f75c42758ac (patch) | |
| tree | 06dbbdc7d6d0af1b01e8ff6ebbdb2290b33f61f4 /lisp | |
| parent | e936d399818d207a9c9308179d9bc6a30c4648e8 (diff) | |
| download | emacs-97344751daece6ed6456ec1dec921f75c42758ac.tar.gz emacs-97344751daece6ed6456ec1dec921f75c42758ac.tar.bz2 emacs-97344751daece6ed6456ec1dec921f75c42758ac.zip | |
(hebrew-holidays): Split into 4 sub-variables.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/calendar.el | 29 |
1 files changed, 21 insertions, 8 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 4994658f5b4..cc59fe2d000 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -597,7 +597,7 @@ See the documentation for `calendar-holidays' for details.") See the documentation for `calendar-holidays' for details.") ;;;###autoload -(defvar hebrew-holidays +(defvar hebrew-holidays-1 '((holiday-rosh-hashanah-etc) (if all-hebrew-calendar-holidays (holiday-julian @@ -612,8 +612,11 @@ See the documentation for `calendar-holidays' for details.") (list m 1 y)))))) (if (zerop (% (1+ year) 4)) 22 - 21))) "\"Tal Umatar\" (evening)")) - (if all-hebrew-calendar-holidays + 21))) "\"Tal Umatar\" (evening)")))) + +;;;###autoload +(defvar hebrew-holidays-2 + '((if all-hebrew-calendar-holidays (holiday-hanukkah) (holiday-hebrew 9 25 "Hanukkah")) (if all-hebrew-calendar-holidays @@ -629,8 +632,11 @@ See the documentation for `calendar-holidays' for details.") 11 10)) "Tzom Teveth")) (if all-hebrew-calendar-holidays - (holiday-hebrew 11 15 "Tu B'Shevat")) - (if all-hebrew-calendar-holidays + (holiday-hebrew 11 15 "Tu B'Shevat")))) + +;;;###autoload +(defvar hebrew-holiday-3 + '((if all-hebrew-calendar-holidays (holiday-hebrew 11 (let ((m displayed-month) @@ -657,8 +663,11 @@ See the documentation for `calendar-holidays' for details.") (list 11 16 h-year)))))) (day (extract-calendar-day s-s))) day)) - "Shabbat Shirah")) - (holiday-passover-etc) + "Shabbat Shirah")))) + +;;;###autoload +(defvar hebrew-holidays-4 + '((holiday-passover-etc) (if (and all-hebrew-calendar-holidays (let* ((m displayed-month) (y displayed-year) @@ -671,7 +680,11 @@ See the documentation for `calendar-holidays' for details.") (= 21 (% year 28))))) (holiday-julian 3 26 "Kiddush HaHamah")) (if all-hebrew-calendar-holidays - (holiday-tisha-b-av-etc))) + (holiday-tisha-b-av-etc)))) + +;;;###autoload +(defvar hebrew-holidays (append hebrew-holidays-1 hebrew-holidays-2 + hebrew-holidays-3 hebrew-holidays-4) "*Jewish holidays. See the documentation for `calendar-holidays' for details.") |