Current File : //usr/local/share/emacs/27.2/lisp/calendar/holidays.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305#\210\306\307\304\310\311\301\312\313\311\314& \210\315\316\317\320\321DD\322\323\324%\210\325\316\326\305#\210\315\327\317\320\330DD\331\332\333\323\324&\210\325\327\326\305#\210\315\334\317\320\335DD\336\323\324%\210\325\334\326\305#\210\315\337\317\320\340DD\341\323\324%\210\325\337\326\305#\210\315\342\317\320\343DD\344\323\324\332\333&\210\325\342\326\305#\210\315\345\317\320\346DD\347\323\324%\210\325\345\326\305#\210\315\350\317\320\351DD\352\323\324%\210\325\350\326\305#\210\315\353\317\320\354DD\355\323\324%\210\325\353\326\305#\210\315\356\317\320\357DD\360\323\324%\210\325\356\326\305#\210\315\361\317\320\362DD\363\323\324%\210\325\361\326\305#\207" [require calendar load "hol-loaddefs" nil t custom-declare-group holidays "Holidays support in calendar." :group :prefix "holidays-" local custom-declare-variable holiday-general-holidays funcall function #[0 "\300\301\302\"\207" [mapcar purecopy ((holiday-fixed 1 1 "New Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") (holiday-fixed 2 2 "Groundhog Day") (holiday-fixed 2 14 "Valentine's Day") (holiday-float 2 1 3 "President's Day") (holiday-fixed 3 17 "St. Patrick's Day") (holiday-fixed 4 1 "April Fools' Day") (holiday-float 5 0 2 "Mother's Day") (holiday-float 5 1 -1 "Memorial Day") (holiday-fixed 6 14 "Flag Day") (holiday-float 6 0 3 "Father's Day") (holiday-fixed 7 4 "Independence Day") (holiday-float 9 1 1 "Labor Day") (holiday-float 10 1 2 "Columbus Day") (holiday-fixed 10 31 "Halloween") (holiday-fixed 11 11 "Veteran's Day") (holiday-float 11 4 4 "Thanksgiving"))] 3] "General holidays. Default value is for the United States.\nSee the documentation for `calendar-holidays' for details." :type sexp put risky-local-variable holiday-oriental-holidays #[0 "\300\301\302\"\207" [mapcar purecopy ((holiday-chinese-new-year) (if calendar-chinese-all-holidays-flag (append (holiday-chinese 1 15 "Lantern Festival") (holiday-chinese-qingming) (holiday-chinese 5 5 "Dragon Boat Festival") (holiday-chinese 7 7 "Double Seventh Festival") (holiday-chinese 8 15 "Mid-Autumn Festival") (holiday-chinese 9 9 "Double Ninth Festival") (holiday-chinese-winter-solstice))))] 3] "Oriental holidays.\nSee the documentation for `calendar-holidays' for details." :version "23.1" holiday-local-holidays #[0 "\300\207" [nil] 1] "Local holidays.\nSee the documentation for `calendar-holidays' for details." holiday-other-holidays #[0 "\300\207" [nil] 1] "User defined holidays.\nSee the documentation for `calendar-holidays' for details." holiday-hebrew-holidays #[0 "\300\301\302\"\207" [mapcar purecopy ((holiday-hebrew-passover) (holiday-hebrew-rosh-hashanah) (holiday-hebrew-hanukkah) (if calendar-hebrew-all-holidays-flag (append (holiday-hebrew-tisha-b-av) (holiday-hebrew-misc))))] 3] "Jewish holidays.\nSee the documentation for `calendar-holidays' for details." holiday-christian-holidays #[0 "\300\301\302\"\207" [mapcar purecopy ((holiday-easter-etc) (holiday-fixed 12 25 "Christmas") (if calendar-christian-all-holidays-flag (append (holiday-fixed 1 6 "Epiphany") (holiday-julian 12 25 "Christmas (Julian calendar)") (holiday-greek-orthodox-easter) (holiday-fixed 8 15 "Assumption") (holiday-advent 0 "Advent"))))] 3] "Christian holidays.\nSee the documentation for `calendar-holidays' for details." holiday-islamic-holidays #[0 "\300\301\302\"\207" [mapcar purecopy ((holiday-islamic-new-year) (holiday-islamic 9 1 "Ramadan Begins") (if calendar-islamic-all-holidays-flag (append (holiday-islamic 1 10 "Ashura") (holiday-islamic 3 12 "Mulad-al-Nabi") (holiday-islamic 7 26 "Shab-e-Mi'raj") (holiday-islamic 8 15 "Shab-e-Bara't") (holiday-islamic 9 27 "Shab-e Qadr") (holiday-islamic 10 1 "Id-al-Fitr") (holiday-islamic 12 10 "Id-al-Adha"))))] 3] "Islamic holidays.\nSee the documentation for `calendar-holidays' for details." holiday-bahai-holidays #[0 "\300\301\302\"\207" [mapcar purecopy ((holiday-bahai-new-year) (holiday-bahai-ridvan) (holiday-fixed 5 23 "Declaration of the Báb") (holiday-fixed 5 29 "Ascension of Bahá’u’lláh") (holiday-fixed 7 9 "Martyrdom of the Báb") (holiday-fixed 10 20 "Birth of the Báb") (holiday-fixed 11 12 "Birth of Bahá’u’lláh") (if calendar-bahai-all-holidays-flag (append (holiday-fixed 11 26 "Day of the Covenant") (holiday-fixed 11 28 "Ascension of `Abdu’l-Bahá"))))] 3] "Bahá’í holidays.\nSee the documentation for `calendar-holidays' for details." holiday-solar-holidays #[0 "\300\301\302\"\207" [mapcar purecopy ((solar-equinoxes-solstices) (holiday-sexp calendar-daylight-savings-starts (format "Daylight Saving Time Begins %s" (solar-time-string (/ calendar-daylight-savings-starts-time (float 60)) calendar-standard-time-zone-name))) (holiday-sexp calendar-daylight-savings-ends (format "Daylight Saving Time Ends %s" (solar-time-string (/ calendar-daylight-savings-ends-time (float 60)) calendar-daylight-time-zone-name))))] 3] "Sun-related holidays.\nSee the documentation for `calendar-holidays' for details." calendar-holidays #[0 "\306 \n \f
& \207" [holiday-general-holidays holiday-local-holidays holiday-other-holidays holiday-christian-holidays holiday-hebrew-holidays holiday-islamic-holidays append holiday-bahai-holidays holiday-oriental-holidays holiday-solar-holidays] 10] "List of notable days for the command \\[holidays].\n\nAdditional holidays are easy to add to the list, just put them in the\nlist `holiday-other-holidays' in your init file. Similarly, by setting\nany of `holiday-general-holidays', `holiday-local-holidays',\n`holiday-christian-holidays', `holiday-hebrew-holidays',\n`holiday-islamic-holidays', `holiday-bahai-holidays',\n`holiday-oriental-holidays', or `holiday-solar-holidays' to nil in your\ninit file, you can eliminate unwanted categories of holidays.\n\nThe aforementioned variables control the holiday choices offered\nby the function `holiday-list' when it is called interactively.\n\nThey also initialize the default value of `calendar-holidays',\nwhich is the default list of holidays used by the function\n`holiday-list' in the non-interactive case. Note that these\nvariables have no effect on `calendar-holidays' after it has been\nset (e.g. after the calendar is loaded). In that case, customize\n`calendar-holidays' directly.\n\nThe intention is that (in the US) `holiday-local-holidays' be set in\nsite-init.el and `holiday-other-holidays' be set by the user.\n\nEntries on the list are expressions that return (possibly empty) lists of\nitems of the form ((month day year) string) of a holiday in the\nthree-month period centered around `displayed-month' of `displayed-year'.\nSeveral basic functions are provided for this purpose:\n\n (holiday-fixed MONTH DAY STRING) is a fixed date on the Gregorian calendar\n (holiday-float MONTH DAYNAME K STRING &optional DAY) is the Kth DAYNAME\n (0 for Sunday, etc.) after/before Gregorian\n MONTH DAY. K<0 means count back from the end\n of the month. Optional DAY defaults to 1 if\n K>0, and MONTH's last day otherwise.\n (holiday-hebrew MONTH DAY STRING) a fixed date on the Hebrew calendar\n (holiday-islamic MONTH DAY STRING) a fixed date on the Islamic calendar\n (holiday-bahai MONTH DAY STRING) a fixed date on the Bahá’í calendar\n (holiday-julian MONTH DAY STRING) a fixed date on the Julian calendar\n (holiday-sexp SEXP STRING) SEXP is a Gregorian-date-valued expression\n in the variable `year'; if it evaluates to\n a visible date, that's the holiday; if it\n evaluates to nil, there's no holiday. STRING\n is an expression in the variable `date'.\n\nFor example, to add Bastille Day, celebrated in France on July 14, add\n\n (holiday-fixed 7 14 \"Bastille Day\")\n\nto the list. To add Hurricane Supplication Day, celebrated in the Virgin\nIslands on the fourth Monday in July, add\n\n (holiday-float 7 1 4 \"Hurricane Supplication Day\")\n\nto the list (the last Monday would be specified with `-1' instead of `4').\nTo add the last day of Hanukkah to the list, use\n\n (holiday-hebrew 10 2 \"Last day of Hanukkah\")\n\nsince the Hebrew months are numbered with 1 starting from Nisan.\nTo add the Islamic feast celebrating Mohammed's birthday, use\n\n (holiday-islamic 3 12 \"Mohammed's Birthday\")\n\nsince the Islamic months are numbered from 1 starting with Muharram.\nTo add an entry for the Bahá’í festival of Ridvan, use\n\n (holiday-bahai 2 13 \"Festival of Ridvan\")\n\nsince the Bahá’í months are numbered from 1 starting with Bahá.\nTo add Thomas Jefferson's birthday, April 2, 1743 (Julian), use\n\n (holiday-julian 4 2 \"Jefferson's Birthday\")\n\nTo include a holiday conditionally, use the sexp form or a conditional. For\nexample, to include American presidential elections, which occur on the first\nTuesday after the first Monday in November of years divisible by 4, add\n\n (holiday-sexp\n \\='(if (zerop (% year 4))\n (calendar-gregorian-from-absolute\n (1+ (calendar-dayname-on-or-before\n 1 (+ 6 (calendar-absolute-from-gregorian\n (list 11 1 year)))))))\n \"US Presidential Election\")\n\nor\n\n (if (zerop (% displayed-year 4))\n (holiday-fixed 11\n (calendar-extract-day\n (calendar-gregorian-from-absolute\n (1+ (calendar-dayname-on-or-before\n 1 (+ 6 (calendar-absolute-from-gregorian\n (list 11 1 displayed-year)))))))\n \"US Presidential Election\"))\n\nto the list. To include the phases of the moon, add\n\n (lunar-phases)\n\nto the holiday list, where `lunar-phases' is an Emacs Lisp function that\nyou've written to return a (possibly empty) list of the relevant VISIBLE dates\nwith descriptive strings such as\n\n (((2 6 1989) \"New Moon\") ((2 12 1989) \"First Quarter Moon\") ... )."] 10)
#@127 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 #[0 "\303\211\304\211\203E \211@ \203 \305\306\305\")\2021 \3071$ \306\305\"0\2021 \310\311\312\313#\314#\210\303\262\211\262\203> \315\"\262A\266\202\202 \262\316\"\207" [calendar-holidays calendar-debug-sexp debug-on-error nil sort t eval (error) display-warning holidays format "Bad holiday list item: %s\nError: %s\n" :error append calendar-date-compare] 12 (#$ . 10578)])
#@290 Create a buffer containing the holidays for the current calendar window.
The holidays are those in the list `calendar-notable-days'.
Returns non-nil if any holidays are found.
If EVENT is non-nil, it's an event indicating the buffer position to
use instead of point.
(fn &optional EVENT)
(defalias 'calendar-list-holidays #[256 "r\211\203 \305\306!\211@\262!\202 pq\210\307\310!\210\311 \204) \307\312!\210\202\373 \313\n!q\210\314\315!\2047 \315 \210\316\317\320 \210\321\n!\210\322\316\323W\203N T\262\324_\325\211$\262\326\"T\262\211\245\262\211\323W\203u \327V\203u S\262\327W\203 S\262\266\322\316\323W\203\215 T\262\324_\325\327$\262\326\"T\262\211\245\262\211\323W\203\263 \327V\203\263 S\262\327W\203\275 S\262\266\330U\203\325 \331\332\333!\333!$\202\344 \331\334\333!\333!%!\210\335\336\337#c\210eb\210\340\316!\210\317\307\341!\210\266\205)\207" [displayed-month displayed-year holiday-buffer buffer-read-only buffer-undo-list window-buffer event-start message "Looking up holidays..." calendar-holiday-list "Looking up holidays...none found" get-buffer-create derived-mode-p special-mode nil t erase-buffer display-buffer 12 0 + -1 mod 1 calendar-set-mode-line format "Notable Dates from %s to %s, %d%%-" calendar-month-name "Notable Dates from %s, %d to %s, %d%%-" mapconcat #[257 "\300@!\301A@Q\207" [calendar-date-string ": "] 4 "\n\n(fn X)"] "\n" set-buffer-modified-p "Looking up holidays...done"] 13 (#$ . 11138) (list last-nonmenu-event)])
#@219 Display the holidays for last month, this month, and next month.
If called with an optional prefix argument ARG, prompts for month and year.
This function is suitable for execution in an init file.
(fn &optional ARG)
(defalias 'holidays #[256 "\212\303\211\203
\304\303!\202 \305 \211\211@\262\211\3068\262\307 +\262)\207" [completion-ignore-case displayed-month displayed-year t calendar-read-date calendar-current-date 2 calendar-list-holidays] 5 (#$ . 12677) "P"])
#@777 Display holidays for years Y1 to Y2 (inclusive).
Y2 defaults to Y1. The optional list of holidays L defaults to
`calendar-holidays'. If you want to control what holidays are
displayed, use a different list. For example,
(list-holidays 2006 2006
(append holiday-general-holidays holiday-local-holidays))
will display holidays for the year 2006 defined in the two
mentioned lists, and nothing else.
When called interactively, this command offers a choice of
holidays, based on the variables `holiday-solar-holidays' etc. See the
documentation of `calendar-holidays' for a list of the variables
that control the choices, as well as a description of the format
of a holiday list.
The optional LABEL is used to label the buffer created.
(fn Y1 &optional Y2 L LABEL)
(defalias 'list-holidays #[1025 "\204 \262\306\307!\210\206 \206 \310\311\312E\211\3118\262\313\314U\203- \315\316!\202g\314V\203\241 S\262\317\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\216 \211\321\322_\\\323\245Z\262\211\314W\203o \324!S\262\211\322\246\314U\205\205 \211\325\246\314U?\206\205 \211\326\246\314U\262\203\216 \211T\262\266\204\327_\322\245\325\245[\326\245%\202g\324T!\262\330\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\376 \211\321\322_\\\323\245Z\262\211\314W\203\337 \324!S\262\211\322\246\314U\205\365 \211\325\246\314U?\206\365 \211\326\246\314U\262\203\376 \211T\262\266\204\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3118\262\320S_\\\311V\203c\211\321\322_\\\323\245Z\262\211\314W\203D\324!S\262\211\322\246\314U\205Z\211\325\246\314U?\206Z\211\326\246\314U\262\203c\211T\262\266\204&\266\203\332\312E\211\3118\262\313\314U\203\201\315\316!\202\273\314V\203\365S\262\317\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\342\211\321\322_\\\323\245Z\262\211\314W\203\303\324!S\262\211\322\246\314U\205\331\211\325\246\314U?\206\331\211\326\246\314U\262\203\342\211T\262\266\204\327_\322\245\325\245[\326\245%\202\273\324T!\262\330\211\211@\262\211A@\262\3118\262\320S_\\\311V\203R\211\321\322_\\\323\245Z\262\211\314W\2033\324!S\262\211\322\246\314U\205I\211\325\246\314U?\206I\211\326\246\314U\262\203R\211T\262\266\204\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\267\211\321\322_\\\323\245Z\262\211\314W\203\230\324!S\262\211\322\246\314U\205\256\211\325\246\314U?\206\256\211\326\246\314U\262\203\267\211T\262\266\204&\266\203\311\313X\203f\333\334 \"\262\335\313 \314W\203\340 T\317 _\n\336\337$\262\340\"T\211\245\211\314W\203\n\312V\203 S \312W\203\f S\266\n\312 E\211\3118\262\313\314U\203%\315\316!\202_\314V\203\231S\262\317\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\206\211\321\322_\\\323\245Z\262\211\314W\203g\324!S\262\211\322\246\314U\205}\211\325\246\314U?\206}\211\326\246\314U\262\203\206\211T\262\266\204\327_\322\245\325\245[\326\245%\202_\324T!\262\330\211\211@\262\211A@\262\3118\262\320S_\\\311V\203\366\211\321\322_\\\323\245Z\262\211\314W\203\327\324!S\262\211\322\246\314U\205\355\211\325\246\314U?\206\355\211\326\246\314U\262\203\366\211T\262\266\204\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3118\262\320S_\\\311V\203[\211\321\322_\\\323\245Z\262\211\314W\203<\324!S\262\211\322\246\314U\205R\211\325\246\314U?\206R\211\326\246\314U\262\203[\211T\262\266\204&\266\203\262\202\310\212\341 !q\210\342\343!\204u\343 \210\313\344\345 \210\346 !\210\347 U\203\223\350\351#\202\234\350\352$!\210\353\354\355#c\210eb\210\356\313!\210\344\306\357!,\207" [calendar-holidays displayed-year displayed-month holiday-buffer buffer-read-only buffer-undo-list message "Computing holidays..." "Holidays" 2 1 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 11 append calendar-holiday-list 12 -1 3 mod get-buffer-create derived-mode-p special-mode t erase-buffer display-buffer calendar-set-mode-line format "%s for %s" "%s for %s-%s" mapconcat #[257 "\300@!\301A@Q\207" [calendar-date-string ": "] 4 "\n\n(fn X)"] "\n" set-buffer-modified-p "Computing holidays...done"] 29 (#$ . 13162) (byte-code "\306\307\310\311\312 \3138\262!#\306\314\315\"\316\317\320\321\322!\323\"\324\325%\311!#\326\327 B\330\331CCB\n\2054 \332\nB \205; \333 B\f\205B \334\fB
\205I \335
B.\205R \336.B/\205[ \337/B0\205d \3400B1\205m \3411B2\205v \3422B\343\344B\257\f\345\346\347\344\326$!\211\343\230\203\220 \350\351!J\202\225 \352\"A\330\230\203\237 \202\255 \353\235\203\251 \354\202\255 \314\355\"F)\207" [completion-ignore-case calendar-holidays holiday-general-holidays holiday-local-holidays holiday-other-holidays holiday-christian-holidays calendar-read "Starting year of holidays (>0): " #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] number-to-string calendar-current-date 2 format "Ending year (inclusive) of holidays (>=%s): " make-byte-code 257 "\211\300Y\207" vconcat vector [] 3 "\n\n(fn X)" t "All" "Equinoxes/Solstices" solar-equinoxes-solstices "General" "Local" "Other" "Christian" "Hebrew" "Islamic" "Bahá’í" "Oriental" "Solar" "Ask" nil capitalize completing-read "List (TAB for choices): " read-variable "Enter list name: " assoc ("Ask" "") "Holidays" "%s Holidays" holiday-hebrew-holidays holiday-islamic-holidays holiday-bahai-holidays holiday-oriental-holidays holiday-solar-holidays] 15)])
(defalias 'holiday-list 'list-holidays)
#@268 Check the list of holidays for any that occur on DATE.
DATE is a list (month day year). This function considers the
holidays from the list `calendar-holidays', and returns a list of
strings describing those holidays that apply on DATE, or nil if none do.
(fn DATE)
(defalias 'calendar-check-holidays #[257 "\211\211@\262\3028\262\303\304 \211\203/ \211@\305@\"\203( \306A\"\262A\266\202\202 \262*\207" [displayed-year displayed-month 2 nil calendar-holiday-list calendar-date-equal append] 9 (#$ . 18786)])
#@83 Generate a list of all holidays in range from absolute date D1 to D2.
(fn D1 D2)
(defalias 'holiday-in-range #[514 "\302!\211\211@\262\211\3038\262\302!\211\211@\262\3038\262\304 $\305\245T\306\211\211\307\306 \310W\2035 T\311 _\312\313$\262\314\"T\211\245\211\310W\203X \313V\203X S \313W\203a S\266\310\211W\203\264 \211\315\316 \"\262\307\306 \310W\203 T\311 _\312\305$\262\314\"T\211\245\211\310W\203\242 \313V\203\242 S \313W\203\253 S\266\211T\262\202e \266\211\2035\211@\211@\203.\211@\211\3038\262\306\310U\203\327 \317\320!\202\310V\203KS\262\311\211\211@\262\211A@\262\3038\262\321S_\\\303V\2038\211\322\323_\\\324\245Z\262\211\310W\203\325!S\262\211\323\246\310U\205/\211\326\246\310U?\206/\211\327\246\310U\262\2038\211T\262\266\204\330_\323\245\326\245[\327\245%\202\325T!\262\331\211\211@\262\211A@\262\3038\262\321S_\\\303V\203\250\211\322\323_\\\324\245Z\262\211\310W\203\211\325!S\262\211\323\246\310U\205\237\211\326\246\310U?\206\237\211\327\246\310U\262\203\250\211T\262\266\204\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3038\262\321S_\\\303V\203
\211\322\323_\\\324\245Z\262\211\310W\203\356\325!S\262\211\323\246\310U\205\211\326\246\310U?\206\211\327\246\310U\262\203
\211T\262\266\204&\266\203\211\262\203. X\203. X\203.\315C\"\262A\266\202\202\267 \210*\207" [displayed-month displayed-year calendar-gregorian-from-absolute 2 calendar-interval 3 nil 12 0 + -1 1 mod append calendar-holiday-list user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1)] 30 (#$ . 19319)])
#@237 Find holidays for the date specified by the cursor in the calendar window.
Optional DATE is a list (month day year) to use instead of the
cursor position. EVENT specifies a buffer position to use for a date.
(fn &optional DATE EVENT)
(defalias 'calendar-cursor-holidays #[512 "\303\304!\210\204 \305\306\"\262\307!\310!\311\211\312!\203R \313 \203C \314\315\316\"\317\315\316 \"C\203< \320\321 \"\202= \322\"D\"\202F \323\324!\211\262\205\250 \325!\202\250 \204] \303\326\"\202\250 \315\327\330\331\332##\211\262G\333 X\203x \303\334\"\202\250 \335!q\210\336\337!\204\206 \337 \210\311\306\340 \210\341!\210\342!\210\330\331\343#c\210eb\210\344\311!\210\306\303\345!\207" [holiday-buffer buffer-read-only buffer-undo-list message "Checking holidays..." calendar-cursor-to-date t calendar-date-string calendar-check-holidays nil mouse-event-p display-popup-menus-p x-popup-menu format "Holidays for %s" append mapcar list ("None") error "Popup menus are not available on this system" call-interactively "No holidays known for %s" "%s: %s" mapconcat identity "; " frame-width "%s" get-buffer-create derived-mode-p special-mode erase-buffer display-buffer calendar-set-mode-line "\n" set-buffer-modified-p "Checking holidays...done"] 14 (#$ . 21020) (list nil last-nonmenu-event)])
#@156 Mark notable days in the calendar window.
If EVENT is non-nil, it's an event indicating the buffer position to
use instead of point.
(fn &optional EVENT)
(defalias 'calendar-mark-holidays #[256 "r\211\203 \302\303!\211@\262!\202 pq\210\304\305\306!\210\307 \211\203/ \211@\310@ \"\210A\266\202\202 \210\305\311!)\207" [calendar-mark-holidays-flag calendar-holiday-marker window-buffer event-start t message "Marking holidays..." calendar-holiday-list calendar-mark-visible-date "Marking holidays...done"] 6 (#$ . 22340) (list last-nonmenu-event)])
#@225 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.
(fn MONTH DAY STRING)
(defalias 'holiday-fixed #[771 " \302\303\304W\203 T\262\305_\306\307 Z$\262\310\"T\262\211\245\262\211\304W\2037 \311V\2037 S\262\311W\203A S\262\266\312V\205P EDC\207" [displayed-month displayed-year 12 nil 0 + -1 11 mod 1 9] 13 (#$ . 22904)])
#@435 Holiday called STRING on the Nth DAYNAME after/before MONTH DAY.
DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on.
If N>0, use the Nth DAYNAME after MONTH DAY.
If N<0, use the Nth DAYNAME before MONTH DAY.
DAY defaults to 1 if N>0, and MONTH's last day otherwise.
If the holiday is visible in the calendar window, returns a
list (((month day year) STRING)). Otherwise returns nil.
(fn MONTH DAYNAME N STRING &optional DAY)
(defalias 'holiday-float #[1284 " \302\303\304W\203 T\262\305_\306\211$\262\307\"T\262\211\245\262\211\304W\2037 \310V\2037 S\262\310W\203A S\262\266\305\311\310\n$\312 _ \304V\203\\ \310\202] \312#\302\303\304W\203j T\262\305_\306\310$\262\307\"T\262\211\245\262\211\304W\203\221 \310V\203\221 S\262\310W\203\233 S\262\266\305\311\306 $\312\n_\n\304V\203\266 \313\202\267 \306#\314!\3158\262\314!\3158\262U\204\325 \f\316V\203\331 \202\332 \211 \206' \304V\203\352 \310\202'
\315U\203!\211\211\304W\203 \317!S\262\211\320\246\304U\205\211\321\246\304U?\206\211\322\246\304U\262\203!\323\266\202\202'\324SH\266\202E\211\3158\262\303\304U\203?\325\326!\202y\304V\203\263S\262\305\211\211@\262\211A@\262\3158\262\327S_\\\315V\203\240\211\330\320_\\\331\245Z\262\211\304W\203\201\317!S\262\211\320\246\304U\205\227\211\321\246\304U?\206\227\211\322\246\304U\262\203\240\211T\262\266\204\332_\320\245\321\245[\322\245%\202y\317T!\262\333\211\211@\262\211A@\262\3158\262\327S_\\\315V\203\211\330\320_\\\331\245Z\262\211\304W\203\361\317!S\262\211\320\246\304U\205\211\321\246\304U?\206\211\322\246\304U\262\203\211T\262\266\204\332_\320\245\321\245[\322\245\334\211\211@\262\211A@\262\3158\262\327S_\\\315V\203u\211\330\320_\\\331\245Z\262\211\304W\203V\317!S\262\211\320\246\304U\205l\211\321\246\304U?\206l\211\322\246\304U\262\203u\211T\262\266\204&\266\203X\205\231\211X\205\231\335%
DC\207" [displayed-month displayed-year 12 nil 0 + -1 mod 1 calendar-nth-named-absday -7 7 calendar-gregorian-from-absolute 2 9 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] user-error "There was no year zero" 31 23 10 365 - (12 31 -1) calendar-nth-named-day] 33 (#$ . 23408)])
#@131 Filter list of holidays HLIST, and return only the visible ones.
HLIST is a list of elements of the form (DATE) TEXT.
(fn HLIST)
(defalias 'holiday-filter-visible-calendar #[257 "\300\301\302\303\"\"\207" [delq nil mapcar #[257 "\211@\205
\300@!\205
\211\207" [calendar-date-is-visible-p] 3 "\n\n(fn P)"]] 6 (#$ . 25721)])
#@380 Sexp holiday for dates in the calendar window.
SEXP is an expression in variable `year' that is evaluated to
give `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.
(fn SEXP STRING)
(defalias 'holiday-sexp #[514 " \304\305\306W\203 T\262\307_\310\211$\262\311\"T\262\211\245\262\211\306W\2034 \312V\2034 S\262\312W\203> S\262\266\313\305\211\314\315\"\211\211\205U \314\315\"DT\314\315\"\211\211\205i \314\315\"*DD!\207" [displayed-month displayed-year year date 12 nil 0 + -1 mod 1 holiday-filter-visible-calendar eval t] 12 (#$ . 26056)])
#@459 Date of Nth day after advent (named STRING), if visible in calendar window.
Negative values of N are interpreted as days before advent.
STRING is used purely for display purposes. The return value has
the form ((MONTH DAY YEAR) STRING), where the date is that of the
Nth day before or after advent.
For backwards compatibility, if this function is called with no
arguments, then it returns the value appropriate for advent itself.
(fn &optional N STRING)
(defalias 'holiday-advent #[512 "\204 \302\303\304\"\207 \305\306\303W\203 T\262\307_\310\211$\262\311\"T\262\211\245\262\211\303W\203= \312V\203= S\262\312W\203G S\262\266\313\314\303\305\315E\211\3168\262\306\303U\203e \317\320!\202\237\303V\203\331 S\262\307\211\211@\262\211A@\262\3168\262\321S_\\\316V\203\306 \211\322\323_\\\324\245Z\262\211\303W\203\247 \325!S\262\211\323\246\303U\205\275 \211\326\246\303U?\206\275 \211\327\246\303U\262\203\306 \211T\262\266\204\330_\323\245\326\245[\327\245%\202\237\325T!\262\331\211\211@\262\211A@\262\3168\262\321S_\\\316V\2036\211\322\323_\\\324\245Z\262\211\303W\203\325!S\262\211\323\246\303U\205-\211\326\246\303U?\206-\211\327\246\303U\262\2036\211T\262\266\204\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3168\262\321S_\\\316V\203\233\211\322\323_\\\324\245Z\262\211\303W\203|\325!S\262\211\323\246\303U\205\222\211\326\246\303U?\206\222\211\327\246\303U\262\203\233\211T\262\266\204&\266\203\"\\!\333!\205\256\211DC\207" [displayed-year displayed-month holiday-advent 0 "Advent" 12 nil + -1 mod 1 calendar-gregorian-from-absolute calendar-dayname-on-or-before 3 2 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-date-is-visible-p] 26 (#$ . 26836)])
#@537 Date of Nth day after Easter (named STRING), if visible in calendar window.
Negative values of N are interpreted as days before Easter.
STRING is used purely for display purposes. The return value has
the form ((MONTH DAY YEAR) STRING), where the date is that of the
Nth day before or after Easter.
For backwards compatibility, if this function is called with no
arguments, then it returns a list of "standard" Easter-related
holidays (with more entries if `calendar-christian-all-holidays-flag'
is non-nil).
(fn &optional N STRING)
(defalias 'holiday-easter-etc #[512 "\204 \302\303\304\305\303\205 \306\307\"\"\"\207 \310\245T\311\312\313 \314\246_\315_\316\245[\317\320_\\\321\245\322_%\322\246\211\323U\204G \211\324U\203L \325 \314\246W\203L \211T\202M \211\316\314 E\211\3268\262\327\323U\203d \330\331!\202\236\323V\203\330 S\262\311\211\211@\262\211A@\262\3268\262\332S_\\\326V\203\305 \211\333\316_\\\325\245Z\262\211\323W\203\246 \334!S\262\211\316\246\323U\205\274 \211\310\246\323U?\206\274 \211\335\246\323U\262\203\305 \211T\262\266\204\336_\316\245\310\245[\335\245%\202\236\334T!\262\337\211\211@\262\211A@\262\3268\262\332S_\\\326V\2035\211\333\316_\\\325\245Z\262\211\323W\203\334!S\262\211\316\246\323U\205,\211\310\246\323U?\206,\211\335\246\323U\262\2035\211T\262\266\204\336_\316\245\310\245[\335\245\340\211\211@\262\211A@\262\3268\262\332S_\\\326V\203\232\211\333\316_\\\325\245Z\262\211\323W\203{\334!S\262\211\316\246\323U\205\221\211\310\246\323U?\206\221\211\335\246\323U\262\203\232\211T\262\266\204&\266\203Z\341\323\342\\\"\343\\!\344!\205\271\211DC\207" [calendar-christian-all-holidays-flag displayed-year apply append mapcar #[257 "\300\301\"\207" [apply holiday-easter-etc] 4 "\n\n(fn E)"] ((-63 "Septuagesima Sunday") (-56 "Sexagesima Sunday") (-49 "Shrove Sunday") (-48 "Shrove Monday") (-47 "Shrove Tuesday") (-14 "Passion Sunday") (-7 "Palm Sunday") (-3 "Maundy Thursday") (35 "Rogation Sunday") (39 "Ascension Day") (49 "Pentecost (Whitsunday)") (50 "Whitmonday") (56 "Trinity Sunday") (60 "Corpus Christi")) ((-46 "Ash Wednesday") (-2 "Good Friday") (0 "Easter Sunday")) 100 + 14 11 19 3 4 5 8 25 30 0 1 10 2 nil user-error "There was no year zero" 31 23 abs 400 365 - (12 31 -1) calendar-dayname-on-or-before 7 calendar-gregorian-from-absolute calendar-date-is-visible-p] 23 (#$ . 28666)])
#@522 Date of Nth day after Easter (named STRING), if visible in calendar window.
It is calculated according to the rule of the Council of Nicaea.
Negative values of N are interpreted as days before Easter.
STRING is used purely for display purposes. The return value has
the form ((MONTH DAY YEAR) STRING), where the date is that of the
Nth day before or after Easter.
For backwards compatibility, if this function is called with no
arguments, it returns the date of Pascha (Greek Orthodox Easter).
(fn &optional N STRING)
(defalias 'holiday-greek-orthodox-easter #[512 " \302\303\304W\203 T\262\305_\306\307$\262\310\"T\262\211\245\262\211\304W\2034 \307V\2034 S\262\307W\203> S\262\266\311\211\312U\203x \211\211\304W\203W \313!S\262\211\314\246\304U\205m \211\315\246\304U?\206m \211\316\246\304U\262\203x \317\266\202\202~ \320SH\266\202E\211\3128\262\303\304U\203\223 \321\322!\202\315\304V\203S\262\305\211\211@\262\211A@\262\3128\262\323S_\\\312V\203\364 \211\324\314_\\\325\245Z\262\211\304W\203\325 \313!S\262\211\314\246\304U\205\353 \211\315\246\304U?\206\353 \211\316\246\304U\262\203\364 \211T\262\266\204\326_\314\245\315\245[\316\245%\202\315\313T!\262\327\211\211@\262\211A@\262\3128\262\323S_\\\312V\203d\211\324\314_\\\325\245Z\262\211\304W\203E\313!S\262\211\314\246\304U\205[\211\315\246\304U?\206[\211\316\246\304U\262\203d\211T\262\266\204\326_\314\245\315\245[\316\245\330\211\211@\262\211A@\262\3128\262\323S_\\\312V\203\311\211\324\314_\\\325\245Z\262\211\304W\203\252\313!S\262\211\314\246\304U\205\300\211\315\246\304U?\206\300\211\316\246\304U\262\203\311\211T\262\266\204&\266\203!\3128\262\331\332\333\246_\\\334\246\335\314\333E!Z\336\304\337\\\"\340 \206\364\304\\!\341!\205\211\206\342DC\207" [displayed-month displayed-year 12 nil 0 + -1 1 mod calendar-julian-from-absolute 2 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] user-error "There was no year zero" 31 23 10 365 - (12 31 -1) 14 11 19 30 calendar-julian-to-absolute calendar-dayname-on-or-before 7 calendar-gregorian-from-absolute calendar-date-is-visible-p "Pascha (Greek Orthodox Easter)"] 23 (#$ . 31110)])
(provide 'holidays)
Mini Shell