;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:43:16 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/holidays.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/holidays.el' was compiled for Emacs 19")) (require (quote calendar)) #@103 Date and time of equinoxes and solstices, if visible in the calendar window. Requires floating point. (autoload (quote solar-equinoxes-solstices) "solar" '(#$ . 513) t) #@197 Display the holidays for last month, this month, and next month. If called with an optional prefix argument, prompts for month and year. This function is suitable for execution in a .emacs file. (defalias 'holidays #[(&optional arg) "\n ! @) AA@) -" [t completion-ignore-case arg calendar-read-date calendar-current-date date displayed-month displayed-year list-calendar-holidays] 3 (#$ . 689) "P"]) #@184 Check the list of holidays for any that occur on DATE. The value returned is a list of strings of relevant holiday descriptions. The holidays are those in the list calendar-holidays. (defalias 'check-calendar-holidays #[(date) "@)AA@) \f1\f@@\"*\f@A\"\fA," [date displayed-month displayed-year calendar-holiday-list h nil holiday-list calendar-date-equal append] 4 (#$ . 1120)]) #@76 Find holidays for the date specified by the cursor in the calendar window. (defalias 'calendar-cursor-holidays #[nil "!!\f!\f!#\f\f#0\"kG X@!k!q! #ceb!!!-" [message "Checking holidays..." calendar-cursor-to-date t date calendar-date-string date-string check-calendar-holidays holiday-list mapconcat identity "; " holiday-string format "%s: %s" msg "No holidays known for %s" frame-width get-buffer-create holiday-buffer nil buffer-read-only calendar-set-mode-line erase-buffer "\n" set-buffer-modified-p display-buffer "Checking holidays...done"] 4 (#$ . 1537) nil]) #@43 Mark notable days in the calendar window. (defalias 'mark-calendar-holidays #[nil "!  @@\" A )!" [t mark-holidays-in-calendar message "Marking holidays..." calendar-holiday-list holiday-list mark-visible-calendar-date calendar-holiday-marker "Marking holidays...done"] 4 (#$ . 2190) nil]) #@182 Create a buffer containing the holidays for the current calendar window. The holidays are those in the list calendar-notable-days. Returns t if any holidays are found, nil if not. (defalias 'list-calendar-holidays #[nil "! \f \f !˂ !q_\\\\ϦTϥ) _\\ϦTϥ) Uk!! $y!! %!  #ceb! !!-" [message "Looking up holidays..." calendar-holiday-list displayed-month displayed-year y2 m2 y1 m1 holiday-list "Looking up holidays...none found" nil get-buffer-create holiday-buffer buffer-read-only 12 -2 macro-y calendar-set-mode-line format "Notable Dates from %s to %s, %d%%-" calendar-month-name "Notable Dates from %s, %d to %s, %d%%-" erase-buffer mapconcat #[(x) " @! A@Q" [calendar-date-string x ": "] 3] "\n" set-buffer-modified-p t display-buffer "Looking up holidays...done"] 8 (#$ . 2508) nil]) #@125 Form the list of holidays that occur on dates in the calendar window. The holidays are those in the list calendar-holidays. (defalias 'calendar-holiday-list #[nil "/\f @!)ɏ\n'\n\n\") A\n\"*" [calendar-holidays nil holiday-list p calendar-debug-sexp t stack-trace-on-error eval (byte-code " @!" [eval p] 2) ((error (byte-code " @\"!" [beep message "Bad holiday list item: %s" p sleep-for 2] 3))) holidays append sort calendar-date-compare] 4 (#$ . 3412)]) #@202 Holiday on MONTH, DAY (Gregorian) called STRING. If MONTH, DAY is visible, the value returned is the list (((MONTH DAY year) STRING)). Returns nil if it is not visible in the current calendar window. (defalias 'holiday-fixed #[(month day string) " \n_ Z\\\\\\ĦTĥ) V-\n\nE DC*" [displayed-month displayed-year y m 12 11 month -1 macro-y 9 day string] 5 (#$ . 3922)]) #@356 Holiday on MONTH, DAYNAME (Nth occurrence, Gregorian) called STRING. If the Nth DAYNAME in MONTH is visible, the value returned is the list (((MONTH DAY year) STRING)). If N<0, count backward from the end of MONTH. An optional parameter DAY means the Nth DAYNAME after/before MONTH DAY. Returns nil if it is not visible in the current calendar window. (defalias 'holiday-float #[(month dayname n string &optional day) " \n_ Z\\\\\\ĦTĥ) V2 \f\n %DC*" [displayed-month displayed-year y m 12 11 month -1 macro-y 9 calendar-nth-named-day n dayname day string] 7 (#$ . 4321)]) #@253 Holiday on MONTH, DAY (Julian) called STRING. If MONTH, DAY (Julian) is visible, the value returned is corresponding Gregorian date in the form of the list (((month day year) STRING)). Returns nil if it is not visible in the current calendar window. (defalias 'holiday-julian #[(month day string) "  _\\\\\nȦT\nȥ)\f_ \\\nȦT\nȥ)E\f\fAA@)S \f\f\f@)\f\fA@)\f\fAA@)S_\\V_\\եZ ӦU צU? ئU)T- _ ӥ ץ[ إ\\\\\\\\* \fU ӦU צU? ئU)ۂSH*\fE\f\fAA@)S \f\f\f@)\f\fA@)\f\fAA@)S_\\Vc_\\եZ ӦUZ צU?Z ئU)cT- _ ӥ ץ[ إ\\\\\\\\*!! \fAA@)! \fAA@)\"W!\" E!!\f\f!\f&DC.\f" [displayed-month displayed-year nil year y2 m2 y1 m1 12 -2 macro-y 1 date prior-years month day 31 day-of-year 2 4 23 10 0 100 400 365 start-date 29 [31 28 31 30 31 30 31 31 30 31 30 31] end-date calendar-julian-from-absolute julian-start julian-end julian-y1 julian-y2 calendar-gregorian-from-absolute calendar-absolute-from-julian calendar-date-is-visible-p string] 8 (#$ . 4932)]) #@254 Holiday on MONTH, DAY (Islamic) called STRING. If MONTH, DAY (Islamic) is visible, the value returned is corresponding Gregorian date in the form of the list (((month day year) STRING)). Returns nil if it is not visible in the current calendar window. (defalias 'holiday-islamic #[(month day string) " EAA@)S\f@)\fA@)\fAA@)S_\\\nVl\n_\\ΥZ\n̦UcЦU?cѦU)l\nT\n\n- _ ̥ Х[ ѥ\\\\\\\\*!@)AA@)W?_Z\\\\\\ئTإ)VE!!\f!\fDC)," [calendar-islamic-from-absolute displayed-month 15 displayed-year date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 islamic-date m y nil 1 12 -1 macro-y 7 calendar-gregorian-from-absolute calendar-absolute-from-islamic calendar-date-is-visible-p string] 9 (#$ . 6132)]) #@252 Holiday on MONTH, DAY (Hebrew) called STRING. If MONTH, DAY (Hebrew) is visible, the value returned is corresponding Gregorian date in the form of the list (((month day year) STRING)). Returns nil if it is not visible in the current calendar window. (defalias 'holiday-hebrew #[(month day string) "\nW \nZ\n\\\nW\nZ\n\\\nW+\nZ.\n\\\nW:\nZ=\n\\\nWI\nZL\n\\>-\f\f_\\\\ӦTӥ)_\\ӦTӥ)EAA@)S@)A@)AA@)\nS_\\\nV\n_\\ĥZɦUݦU?ަU)T-_ɥݥ[ޥ\\\\\\\\* UQɦUIݦU?IަU)QU\nSH*EAA@)S@)A@)AA@)\nS_\\\nV\n_\\ĥZɦUݦU?ަU)T-_ɥݥ[ޥ\\\\\\\\*# !%#!&%AA@)'&AA@)(\nW('\nE!!!+-DC.\f" [displayed-month 11 month 1 10 2 9 3 8 4 7 5 displayed-year nil year y2 m2 y1 m1 12 -2 macro-y date prior-years day 31 day-of-year 23 0 100 400 365 start-date 29 [31 28 31 30 31 30 31 31 30 31 30 31] end-date calendar-hebrew-from-absolute hebrew-start hebrew-end hebrew-y1 hebrew-y2 6 calendar-gregorian-from-absolute calendar-absolute-from-hebrew calendar-date-is-visible-p string] 8 (#$ . 6975)]) #@349 Sexp holiday for dates in the calendar window. SEXP is an expression in variable `year' evaluates to `date'. STRING is an expression in `date' that evaluates to the holiday description of `date'. If `date' is visible in the calendar window, the holiday STRING is on that date. If date is nil, or if the date is not visible, there is no holiday. (defalias 'holiday-sexp #[(sexp string) " \n_ \\\\ĦTĥ)\n  !\f+ ! \f +DC\nT  !\fF ! \f +DC\"!*" [displayed-month displayed-year y m 12 -2 macro-y filter-visible-calendar-holidays append year eval sexp date string] 6 (#$ . 8287)]) #@48 Date of Advent, if visible in calendar window. (defalias 'holiday-advent #[nil " _\n\\\\ĦTĥ) E  AA@)S\f   @)  A@)   AA@) \nS_\\\nV\n_\\ӥZ ѦU~ ԦU?~ զU)T-\f_\fѥ\fԥ[\fե\\\\\\\\*\"!!DC+" [displayed-year displayed-month month year 12 -2 macro-y calendar-gregorian-from-absolute calendar-dayname-on-or-before 0 3 date prior-years day 31 day-of-year 2 4 23 10 100 400 365 advent calendar-date-is-visible-p "Advent"] 11 (#$ . 8911)]) #@65 List of dates related to Easter, as visible in calendar window. (defalias 'holiday-easter-etc #[nil "V\n?? ĥT Ʀ_ _ɥ[ _\\˥ _\\\\\\\\̦UDUJ ƦWJTL EAA@)S@)A@)AA@)S_\\V_\\ѥZɦUĦU?ܦU)T-_ɥĥ[ܥ\\\\\\\\*Z\\\"!!!D!Z!D!Z!DE'!Z!D!Z!D!Z!D!Z!D!Z!D!Z!D!Z!D!Z!D!\\!D!\\!D!\\!D!\\!D!\\!D!\\!D?@'!A\nB@?!A\"AA." [displayed-month 5 all-christian-calendar-holidays displayed-year 100 century 19 11 3 4 8 25 30 14 shifted-epact 0 1 10 adjusted-epact date prior-years month day year 31 day-of-year 2 23 400 365 paschal-moon calendar-dayname-on-or-before 7 abs-easter calendar-gregorian-from-absolute "Easter Sunday" "Good Friday" 46 "Ash Wednesday" mandatory 63 "Septuagesima Sunday" 56 "Sexagesima Sunday" 49 "Shrove Sunday" 48 "Shrove Monday" 47 "Shrove Tuesday" "Passion Sunday" "Palm Sunday" "Maundy Thursday" 35 "Rogation Sunday" 39 "Ascension Day" "Pentecost (Whitsunday)" 50 "Whitmunday" "Trinity Sunday" 60 "Corpus Christi" optional filter-visible-calendar-holidays output-list append] 17 (#$ . 9438)]) #@64 Date of Easter according to the rule of the Council of Nicaea. (defalias 'holiday-greek-orthodox-easter #[nil " \n_ \\ĦT ĥ) \nUFʦU>̦U?>ͦU)F΂KSH*\nEAA@)S@)A@)AA@)S_\\V_\\֥ZʦU̦U?ͦU)T-_ʥ̥[ͥ\\\\\\\\*!AA@)٦_\\ܦE!Z\\\"!##!#DC." [displayed-month displayed-year y m 12 macro-y calendar-julian-from-absolute year month 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] date prior-years day 31 day-of-year 23 10 365 julian-year 19 11 14 30 shifted-epact calendar-absolute-from-julian paschal-moon calendar-gregorian-from-absolute calendar-dayname-on-or-before 7 nicaean-easter calendar-date-is-visible-p "Pascha (Greek Orthodox Easter)"] 9 (#$ . 10670)]) #@72 List of dates related to Rosh Hashanah, as visible in calendar window. (defalias 'holiday-rosh-hashanah-etc #[nil "W V?\\E!!\\\"D\\!D\\!D\\!D\\!DZ\"!DS!DT!DĦUr\\v\\!D\\\"!D\\!D\\!D\\!D\\!D\\!D\\!D\\!D\\!D .!01.!0\"00," [displayed-month 8 11 calendar-absolute-from-hebrew 7 1 displayed-year 3761 abs-r-h calendar-gregorian-from-absolute format "Rosh HaShanah %d" 9 "Yom Kippur" 14 "Sukkot" 21 "Shemini Atzeret" 22 "Simchat Torah" mandatory calendar-dayname-on-or-before 6 4 "Selichot (night)" "Erev Rosh HaShannah" "Rosh HaShanah (second day)" 3 2 "Tzom Gedaliah" "Shabbat Shuvah" "Erev Yom Kippur" 13 "Erev Sukkot" 15 "Sukkot (second day)" 16 "Hol Hamoed Sukkot (first day)" 17 "Hol Hamoed Sukkot (second day)" 18 "Hol Hamoed Sukkot (third day)" 19 "Hol Hamoed Sukkot (fourth day)" 20 "Hoshannah Rabbah" optional filter-visible-calendar-holidays output-list all-hebrew-calendar-holidays append] 15 (#$ . 11505)]) #@67 List of dates related to Hanukkah, as visible in calendar window. (defalias 'holiday-hanukkah #[nil "><\n _\f\\ŦTť)\f  UN˦UFͦU?FΦU)NςS SH* EAA@)S@) A@)AA@) S_\\ V _\\ץZ˦UͦU?ΦU)T-_˥ͥ[Υ\\\\\\\\*!AA@)E!S!D!DT!D\\!D\\!D\\!D\\!D\\!D\\!D !," [displayed-month (10 11 12 1 2) displayed-year y m 12 macro-y calendar-hebrew-from-absolute year month 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] date prior-years day 31 day-of-year 23 10 365 h-y calendar-absolute-from-hebrew 9 25 abs-h filter-visible-calendar-holidays calendar-gregorian-from-absolute "Erev Hanukkah" "Hanukkah (first day)" "Hanukkah (second day)" "Hanukkah (third day)" 3 "Hanukkah (fourth day)" "Hanukkah (fifth day)" 5 "Hanukkah (sixth day)" 6 "Hanukkah (seventh day)" 7 "Hanukkah (eighth day)"] 13 (#$ . 12568)]) #@67 List of dates related to Passover, as visible in calendar window. (defalias 'holiday-passover-etc #[nil " W?D \\E!!D\\!DD\fZ\"!DZ\"!DUIZMZ!DZ!DZ!DUqZuZ!DZ\"Z!DZ\"!DS\"!DS!DT!D\\!D\\!D\\!D\\!D\\!D\\!D\\!DU\\U\\\\!D\\!D\\!D\\!D\\!D8\f!:;A8!:\"::," [7 displayed-month calendar-absolute-from-hebrew 1 15 displayed-year 3760 abs-p calendar-gregorian-from-absolute "Passover" 50 "Shavuot" mandatory calendar-dayname-on-or-before 6 43 "Shabbat Shekalim" 30 "Shabbat Zachor" 2 33 31 "Fast of Esther" "Erev Purim" "Purim" 0 28 29 "Shushan Purim" 14 "Shabbat Parah" "Shabbat HaHodesh" "Shabbat HaGadol" "Erev Passover" "Passover (second day)" "Hol Hamoed Passover (first day)" 3 "Hol Hamoed Passover (second day)" 4 "Hol Hamoed Passover (third day)" 5 "Hol Hamoed Passover (fourth day)" "Passover (seventh day)" "Passover (eighth day)" 12 "Yom HaShoah" 18 19 20 "Yom HaAtzma'ut" "Lag BaOmer" "Yom Yerushalim" 49 "Erev Shavuot" 51 "Shavuot (second day)" optional filter-visible-calendar-holidays output-list all-hebrew-calendar-holidays append] 25 (#$ . 13557)]) #@65 List of dates around Tisha B'Av, as visible in calendar window. (defalias 'holiday-tisha-b-av-etc #[nil "W V?\\\f\\E!ɦU)Z-Z!D\"!DɦUITK!D\\\"!DF!)" [displayed-month 5 9 calendar-absolute-from-hebrew displayed-year 3760 abs-t-a filter-visible-calendar-holidays calendar-gregorian-from-absolute 7 6 20 21 "Tzom Tammuz" calendar-dayname-on-or-before "Shabbat Hazon" "Tisha B'Av" "Shabbat Nahamu"] 9 (#$ . 14825)]) #@54 Return a list of all visible holidays of those on L. (defalias 'filter-visible-calendar-holidays #[(l) " \n$\n@@\n@@!\n@C \"\nA *" [nil l p visible calendar-date-is-visible-p append] 4 (#$ . 15300)]) (provide (quote holidays))