ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calendar/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calendar/holidays.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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\321\322\311\307&\210\323\316\324\305#\210\315\325\326\327\330\331\321\322\311\307& \210\323\325\324\305#\210\315\332\304\333\321\322\311\307&\210\323\332\324\305#\210\315\334\304\335\321\322\311\307&\210\323\334\324\305#\210\315\336\337\340\321\322\330\331\311\307& \210\323\336\324\305#\210\315\341\342\343\321\322\311\307&\210\323\341\324\305#\210\315\344\345\346\321\322\311\307&\210\323\344\324\305#\210\315\347\350\351\321\322\311\307&\210\323\347\324\305#\210\315\352\353\354\321\322\311\307&\210\323\352\324\305#\210\315\355\356\357\321\322\311\307&\210\323\355\324\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 (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"))) "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 (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))))) "Oriental holidays.\nSee the documentation for `calendar-holidays' for details." :version "23.1" holiday-local-holidays "Local holidays.\nSee the documentation for `calendar-holidays' for details." holiday-other-holidays "User defined holidays.\nSee the documentation for `calendar-holidays' for details." holiday-hebrew-holidays (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))))) "Jewish holidays.\nSee the documentation for `calendar-holidays' for details." holiday-christian-holidays (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"))))) "Christian holidays.\nSee the documentation for `calendar-holidays' for details." holiday-islamic-holidays (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"))))) "Islamic holidays.\nSee the documentation for `calendar-holidays' for details." holiday-bahai-holidays (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á"))))) "Bahá’í holidays.\nSee the documentation for `calendar-holidays' for details." holiday-solar-holidays (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))))) "Sun-related holidays.\nSee the documentation for `calendar-holidays' for details." calendar-holidays (append holiday-general-holidays holiday-local-holidays holiday-other-holidays holiday-christian-holidays holiday-hebrew-holidays holiday-islamic-holidays holiday-bahai-holidays holiday-oriental-holidays holiday-solar-holidays) "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 #[nil "\306\211\211\307 \306 \211 \203J
@\203! \310 \311\f!)\2029 \3121, \311\f!0\2029 \313\314\315\316\f#\317#\210)\306\211\203C \320 \n\"
A\211\204 \306\n*\321\"+\207" [err h res calendar-holidays p --dolist-tail-- nil sort t eval (error) display-warning holidays format "Bad holiday list item: %s\nError: %s\n" :error append calendar-date-compare calendar-debug-sexp debug-on-error] 8 (#$ . 10286)])
#@268 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.
(defalias 'calendar-list-holidays #[(&optional event) "r\203 \306\307!\211@\262!\202 pq\210\310\311!\210\312 \n \n #\211 $\2040 \310\313!\210\202
\314%!q\210\315\316!\204? \316 \210\317&\320'\321 \210\322%!\210\323\317 ( )
\324W\203\\
T\325
)_#\326\211$(\327()\"T#()\245(\324W\203\210 #\330V\203\210
S
\330W\203\221
S*\323\317 ( ) \324W\203\241 T\325 )_\f\326\330$(\327()\"T()\245(\324W\203\312 \f\330V\203\312 S \330W\203\323 S*\331
U\203\351 \332\333\334#!\334\f! $\202\365 \332\335\334#!
\334\f! %!\210\336\337$\340#c\210eb\210\341\317!\210\320&\310\342!\210$.\207" [event displayed-month displayed-year y2 m2 y1 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 #[(x) "\301@!\302A@Q\207" [x calendar-date-string ": "] 3] "\n" set-buffer-modified-p "Looking up holidays...done" m1 holiday-list holiday-buffer buffer-read-only buffer-undo-list macro-y nmonths] 8 (#$ . 10870) (list last-nonmenu-event)])
#@198 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 a init file.
(defalias 'holidays #[(&optional arg) "\212\305 \203
\306\305!\202 \307 \211\211@)\n\310\n8) \311 -\207" [completion-ignore-case arg date displayed-month displayed-year t calendar-read-date calendar-current-date 2 calendar-list-holidays] 3 (#$ . 12405) "P"])
#@747 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.
(defalias 'list-holidays #[(y1 &optional y2 l label) "\204 \306\307!\210\n\206 \f\206 \310\311\312 E\211 \311
8)\313 0\211 1\314U\2030 \315\316!\202\2641\314V\203\277 1S0\317
\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\203\247 4\3212\322_\\\323\245Z41\211 1\314W\203\205 \3241!S11\322\246\314U\205\236 1\325\246\314U?\206\236 1\326\246\314U)\203\247 4T44-0\327_0\322\2450\325\245[0\326\245%\202\264\3241T!0\330
\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\20314\3212\322_\\\323\245Z41\211 1\314W\203\3241!S11\322\246\314U\205(1\325\246\314U?\206(1\326\246\314U)\20314T44-0\327_0\322\2450\325\245[0\326\245\331\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\203\2574\3212\322_\\\323\245Z41\211 1\314W\203\215\3241!S11\322\246\314U\205\2461\325\246\314U?\206\2461\326\246\314U)\203\2574T44-&+\332\312E\211 \311
8)\313 0\211 1\314U\203\321\315\316!\202U1\314V\203`1S0\317
\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\203H4\3212\322_\\\323\245Z41\211 1\314W\203&\3241!S11\322\246\314U\205?1\325\246\314U?\206?1\326\246\314U)\203H4T44-0\327_0\322\2450\325\245[0\326\245%\202U\3241T!0\330
\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\203\3224\3212\322_\\\323\245Z41\211 1\314W\203\260\3241!S11\322\246\314U\205\3111\325\246\314U?\206\3111\326\246\314U)\203\3224T44-0\327_0\322\2450\325\245[0\326\245\331\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\203P4\3212\322_\\\323\245Z41\211 1\314W\203.\3241!S11\322\246\314U\205G1\325\246\314U?\206G1\326\246\314U)\203P4T44-&+\311 \313 5 6 7 8 9 :98X\203n\3335\334 \"5\335\313 ; <6\314W\203\2106T6\3176<_7\336\337$;\340;<\"T7;<\2456;\314W\203\2707\312V\203\2706S66\312W\203\3046S6*7\3126E\211 \311
8)\313 0\211 1\314U\203\343\315\316!\202g1\314V\203r1S0\317
\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\203Z4\3212\322_\\\323\245Z41\211 1\314W\2038\3241!S11\322\246\314U\205Q1\325\246\314U?\206Q1\326\246\314U)\203Z4T44-0\327_0\322\2450\325\245[0\326\245%\202g\3241T!0\330
\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\203\3444\3212\322_\\\323\245Z41\211 1\314W\203\302\3241!S11\322\246\314U\205\3331\325\246\314U?\206\3331\326\246\314U)\203\3444T44-0\327_0\322\2450\325\245[0\326\245\331\211 \211 @) 2
\211 A@) 3
\311
8) 132S\320_\\ 42\311V\203b4\3212\322_\\\323\245Z41\211 1\314W\203@\3241!S11\322\246\314U\205Y1\325\246\314U?\206Y1\326\246\314U)\203b4T44-&+\2119\202h\212\341=!q\210\342\343!\204~\343 \210\313>\344?\345 \210\346=!\210\347 U\203\234\350\351: #\202\243\350\352: $!\210\353\3545\355#c\210eb\210\356\313!\210\344>\306\357!.\207" [y2 y1 l calendar-holidays label date 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 #[(x) "\301@!\302A@Q\207" [x calendar-date-string ": "] 3] "\n" set-buffer-modified-p "Computing holidays...done" offset-years year month day day-of-year holiday-list displayed-year displayed-month e s title macro-y nmonths holiday-buffer buffer-read-only buffer-undo-list] 14 (#$ . 12875) (let* ((start-year (calendar-read "Starting year of holidays (>0): " #'(lambda (x) (> x 0)) (number-to-string (calendar-extract-year (calendar-current-date))))) (end-year (calendar-read (format "Ending year (inclusive) of holidays (>=%s): " start-year) #'(lambda (x) (>= x start-year)) (number-to-string start-year))) (completion-ignore-case t) (lists (list (cons "All" calendar-holidays) (cons "Equinoxes/Solstices" (list (list 'solar-equinoxes-solstices))) (if holiday-general-holidays (cons "General" holiday-general-holidays)) (if holiday-local-holidays (cons "Local" holiday-local-holidays)) (if holiday-other-holidays (cons "Other" holiday-other-holidays)) (if holiday-christian-holidays (cons "Christian" holiday-christian-holidays)) (if holiday-hebrew-holidays (cons "Hebrew" holiday-hebrew-holidays)) (if holiday-islamic-holidays (cons "Islamic" holiday-islamic-holidays)) (if holiday-bahai-holidays (cons "Bahá’í" holiday-bahai-holidays)) (if holiday-oriental-holidays (cons "Oriental" holiday-oriental-holidays)) (if holiday-solar-holidays (cons "Solar" holiday-solar-holidays)) (cons "Ask" nil))) (choice (capitalize (completing-read "List (TAB for choices): " lists nil t))) (which (if (string-equal choice "Ask") (eval (read-variable "Enter list name: ")) (cdr (assoc choice lists)))) (name (if (string-equal choice "Equinoxes/Solstices") choice (if (member choice '("Ask" "")) "Holidays" (format "%s Holidays" choice))))) (list start-year end-year which name))])
(defalias 'holiday-list 'list-holidays)
#@257 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.
(defalias 'calendar-check-holidays #[(date) "\211@)\3068)\307\310 \307 \211 \2030
@\311\f@\"\203) \312 \fA\"
A\211\204 \307 -\207" [date holiday-list displayed-year displayed-month h --dolist-tail-- 2 nil calendar-holiday-list calendar-date-equal append] 4 (#$ . 18641)])
#@71 Generate a list of all holidays in range from absolute date D1 to D2.
(defalias 'holiday-in-range #[(d1 d2) "\306!\211\211@) \307\n8) \306
!\211 \211@) \307\n8) !\310 \f !$\311\245T \"\312\211 # $\312 %\313\312 & '\f\314W\203K \fT\315\f'_ \316\317$&\320&'\"T&'\245&\314W\203t \317V\203t \fS\f\317W\203} \fS*\"\314 ( )()W\203\340 \321#\322 \"#\313\312 & '\f\314W\203\244 \fT\315\f'_ \316\311$&\320&'\"T&'\245&\314W\203\315 \317V\203\315 \fS\f\317W\203\326 \fS*(T\211(\202\207 *#\312 *\211 +\203\274+@\211*@\203\263*@\211\307\n8)\312 ,\211 -\314U\203\323\324!\202\225-\314V\203\240-S,\315\n\211\211@) .\n\211A@) /\n\307\n8) -/.S\325_\\ 0.\307V\203\2100\326.\327_\\\330\245Z0-\211 -\314W\203f\331-!S--\327\246\314U\205-\332\246\314U?\206-\333\246\314U)\203\2100T00-,\334_,\327\245,\332\245[,\333\245%\202\225\331-T!,\335\n\211\211@) .\n\211A@) /\n\307\n8) -/.S\325_\\ 0.\307V\2030\326.\327_\\\330\245Z0-\211 -\314W\203\360\331-!S--\327\246\314U\205 -\332\246\314U?\206 -\333\246\314U)\2030T00-,\334_,\327\245,\332\245[,\333\245\336\211\211@) .\n\211A@) /\n\307\n8) -/.S\325_\\ 0.\307V\203\2200\326.\327_\\\330\245Z0-\211 -\314W\203n\331-!S--\327\246\314U\205\207-\332\246\314U?\206\207-\333\246\314U)\203\2200T00-&+\211%\203\263%X\203\263%
X\203\263\321*C$\"$+A\211+\204\354 *$.\n\207" [d1 start date displayed-month displayed-year d2 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) end end-month end-year number-of-intervals holidays in-range a macro-y nmonths _idummy --dotimes-limit-- hol --dolist-tail-- offset-years year month day day-of-year] 11 (#$ . 19190)])
#@210 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.
(defalias 'calendar-cursor-holidays #[(&optional date event) "\306\307!\210\204
\310\311 \"\312!\313!\314\211 \315 !\203P \316 \203B \317 \320\321
\"\322\320\321
\"C\f\203; \323\324\f\"\202< \325\"D\"\202E \326\327!\211\205\251 \330 !\202\251 \f\204[ \306\331
\"\202\251 \320\332
\333\334\f\335##\211G\336 X\203t \306\337\n\"\202\251 \340)!q\210\341\342!\204\203 \342 \210\314*\311+\343 \210\344)!\210\345
!\210\333\334\f\346#c\210eb\210\347\314!\210\311*\306\350!,\207" [date event msg selection holiday-list date-string 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" holiday-buffer buffer-read-only buffer-undo-list] 8 (#$ . 21055) (list nil last-nonmenu-event)])
#@134 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.
(defalias 'calendar-mark-holidays #[(&optional event) "r\203 \305\306!\211@\262!\202 pq\210\307\310\311!\210\312 \313\211\2033 @\314\n@\f\"\210 A\211\204# *\310\315!)\207" [event calendar-mark-holidays-flag holiday --dolist-tail-- calendar-holiday-marker window-buffer event-start t message "Marking holidays..." calendar-holiday-list nil calendar-mark-visible-date "Marking holidays...done"] 4 (#$ . 22415) (list last-nonmenu-event)])
#@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) " \306\307 \n\310W\203 \nT\311\n
_ \312\313Z$\314\f
\"T\f
\245\f\310W\2036 \315V\2036 \nS\n\315W\203? \nS* \316V\205P \nEDC*\207" [displayed-month displayed-year y m macro-y nmonths 12 nil 0 + -1 11 mod 1 9 month day string] 6 (#$ . 23002)])
#@392 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.
(defalias 'holiday-float #[(month dayname n string &optional day) "\n \n \306\307 \" # \310W\203 T\311 #_ \312\211$\"\313\"#\"T\"#\245\"\310W\203@ \314V\203@ S \314W\203I S*\311\315\314$ $%\316_%\310V\203a \314\202b \316# &\306\307 \" #
\310W\203t
T\311
#_\f\312\314$\"\313\"#\"T\"#\245\"\310W\203\235 \f\314V\203\235
S
\314W\203\246
S*\311\315\312$\f
$%\316_%\310V\203\276 \317\202\277 \312# '\320&! (\321(8)\320'! (\321(8)
U\204\347 )\322V\203\353 \202\354
*+\206D%\310V\203\376 \314\202D)* ,\211 )\321U\203>,\211 ,\310W\203 \323,!S,,\324\246\310U\2056,\325\246\310U?\2066,\326\246\310U)\203>\327\202C\330)SH* -)-*E\211 ( (\321(8)\307 .\211 ,\310U\203h\331\332!\202,\310V\203\377,S.\311(\211 (\211 (@) )(\211 (A@) +( (\321(8) ,+)S\333_\\ /)\321V\203\347/\334)\324_\\\335\245Z/,\211 ,\310W\203\305\323,!S,,\324\246\310U\205\336,\325\246\310U?\206\336,\326\246\310U)\203\347/T//-.\336_.\324\245.\325\245[.\326\245%\202\323,T!.\337(\211 (\211 (@) )(\211 (A@) +( (\321(8) ,+)S\333_\\ /)\321V\203y/\334)\324_\\\335\245Z/,\211 ,\310W\203W\323,!S,,\324\246\310U\205p,\325\246\310U?\206p,\326\246\310U)\203y/T//-.\336_.\324\245.\325\245[.\326\245\340\211 (\211 (@) )(\211 (A@) +( (\321(8) ,+)S\333_\\ /)\321V\203\376/\334)\324_\\\335\245Z/,\211 ,\310W\203\334\323,!S,,\324\246\310U\205\365,\325\246\310U?\206\365,\326\246\310U)\203\376/T//-&+ (&(X\205&('X\205&\341%$)*-%0DC. \207" [displayed-month m1 displayed-year y1 m2 y2 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 macro-y nmonths dayname n d1 d2 date month y day year d offset-years day-of-year string] 11 (#$ . 23518)])
#@119 Filter list of holidays HLIST, and return only the visible ones.
HLIST is a list of elements of the form (DATE) TEXT.
(defalias 'holiday-filter-visible-calendar #[(hlist) "\301\302\303\304\"\"\207" [hlist delq nil mapcar #[(p) "@\205
\301@!\205
\207" [p calendar-date-is-visible-p] 2]] 5 (#$ . 25850)])
#@362 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.
(defalias 'holiday-sexp #[(sexp string) " \306\211 \307\306 \f\310W\203 \fT\311\f_
\312\211$\313\"T\245\310W\203@
\314V\203@ \fS\f\314W\203I \fS*\315\f\316!\211\211\205[ \316!D\fT\316!\211\211\205m \316!DD!,\207" [displayed-month displayed-year date year y m nil 12 0 + -1 mod 1 holiday-filter-visible-calendar eval macro-y nmonths sexp string] 6 (#$ . 26166)])
#@434 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.
(defalias 'holiday-advent #[(&optional n string) "\204 \306\307\310\"\207 \311\312 \n\307W\203 \nT\313\n _\f\314\211$\315
\"T
\245
\307W\203@ \f\316V\203@ \nS\n\316W\203I \nS*\317\320\307\311\321\nE\211 ! !\322!8)\312 \"\211\307U\203l \323\324!\202\340\n\307V\203\365 \nS\"\313!\211 !\211 !@) !\211 !A@) #! !\322!8)#\fS\325_\\ $\f\322V\203\335 $\326\f\327_\\\330\245Z$\n\211\307W\203\276 \331\n!S\n\327\246\307U\205\324 \n\332\246\307U?\206\324 \n\333\246\307U)\203\335 $T$$-\"\334_\"\327\245\"\332\245[\"\333\245%\202\340\331\nT!\"\335!\211 !\211 !@) !\211 !A@) #! !\322!8)#\fS\325_\\ $\f\322V\203b$\326\f\327_\\\330\245Z$\n\211\307W\203C\331\n!S\n\327\246\307U\205Y\n\332\246\307U?\206Y\n\333\246\307U)\203b$T$$-\"\334_\"\327\245\"\332\245[\"\333\245\336\211 !\211 !@) !\211 !A@) #! !\322!8)#\fS\325_\\ $\f\322V\203\333$\326\f\327_\\\330\245Z$\n\211\307W\203\274\331\n!S\n\327\246\307U\205\322\n\332\246\307U?\206\322\n\333\246\307U)\203\333$T$$-&+\"\\! %\337%!\205\363%&DC+\207" [n displayed-year year displayed-month month macro-y 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 nmonths date offset-years day day-of-year advent string] 15 (#$ . 26936)])
#@512 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).
(defalias 'holiday-easter-etc #[(&optional n string) "\204 \306\307\310\311\307 \205 \312\313\"\"\"\207\n\314\245T\315\316\n\317\246\320_ \321_\322\245[\323 \324_\\\325\245 \326_%\326\246\211 \327U\204G \f\330U\203L \331\n\317\246W\203L \fT\202M \f \322\317\nE\211 ) )\332)8)\333 *\211 +\327U\203m \334\335!\202+\327V\203+S*\315)\211 )\211 )@) ,)\211 )A@) -) )\332)8) +-,S\336_\\ .,\332V\203\354 .\337,\322_\\\331\245Z.+\211 +\327W\203\312 \340+!S++\322\246\327U\205\343 +\314\246\327U?\206\343 +\341\246\327U)\203\354 .T..-*\342_*\322\245*\314\245[*\341\245%\202\340+T!*\343)\211 )\211 )@) ,)\211 )A@) -) )\332)8) +-,S\336_\\ .,\332V\203~.\337,\322_\\\331\245Z.+\211 +\327W\203\\\340+!S++\322\246\327U\205u+\314\246\327U?\206u+\341\246\327U)\203~.T..-*\342_*\322\245*\314\245[*\341\245\344\211 )\211 )@) ,)\211 )A@) -) )\332)8) +-,S\336_\\ .,\332V\203.\337,\322_\\\331\245Z.+\211 +\327W\203\341\340+!S++\322\246\327U\205\372+\314\246\327U?\206\372+\341\246\327U)\203.T..-&+
Z /\345\327/\346\\\" 0\3470\\! 1\3501!\205+12DC.\207" [n calendar-christian-all-holidays-flag displayed-year century shifted-epact adjusted-epact apply append mapcar #[(e) "\301\302\"\207" [e apply holiday-easter-etc] 3] ((-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 19 11 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 date offset-years year month day day-of-year paschal-moon abs-easter greg string] 11 (#$ . 28787)])
#@497 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).
(defalias 'holiday-greek-orthodox-easter #[(&optional n string) "\n\306\307 \310W\203 T\311
_ \312\313$\314\f
\"T\f
\245\f\310W\2033 \313V\2033 S \313W\203< S*\315 \211 '\211 (\316U\203} '\211 '\310W\203\\ \317'!S''\320\246\310U\205u '\321\246\310U?\206u '\322\246\310U)\203} \323\202\202 \324(SH* E\211 ) )\316)8)\307 *\211 '\310U\203\240 \325\326!\202;'\310V\2037'S*\311)\211 )\211 )@) ()\211 )A@) +) )\316)8) '+(S\327_\\ ,(\316V\203 ,\330(\320_\\\331\245Z,'\211 '\310W\203\375 \317'!S''\320\246\310U\205'\321\246\310U?\206'\322\246\310U)\203 ,T,,-*\332_*\320\245*\321\245[*\322\245%\202;\317'T!*\333)\211 )\211 )@) ()\211 )A@) +) )\316)8) '+(S\327_\\ ,(\316V\203\261,\330(\320_\\\331\245Z,'\211 '\310W\203\217\317'!S''\320\246\310U\205\250'\321\246\310U?\206\250'\322\246\310U)\203\261,T,,-*\332_*\320\245*\321\245[*\322\245\334\211 )\211 )@) ()\211 )A@) +) )\316)8) '+(S\327_\\ ,(\316V\2036,\330(\320_\\\331\245Z,'\211 '\310W\203\317'!S''\320\246\310U\205-'\321\246\310U?\206-'\322\246\310U)\2036,T,,-&+! )\316)8) -\335-\336\246\337_\\\340\246 .\341\320\336-E!.Z /\342\310/\343\\\" 0\34401\206p\310\\! 2\3452!\205\20523\206\203\346DC.\207" [displayed-month m displayed-year y macro-y nmonths 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 19 11 30 calendar-julian-to-absolute calendar-dayname-on-or-before 7 calendar-gregorian-from-absolute calendar-date-is-visible-p "Pascha (Greek Orthodox Easter)" year month date offset-years day day-of-year julian-year shifted-epact paschal-moon abs-easter n greg string] 12 (#$ . 31291)])
(provide 'holidays)
Kontol Shell Bypass