;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\301&\210\312\313\314\315\316DD\317\320\321\311\304&\210\322\313\323\324#\210\312\325\314\315\326DD\327\320\330\311\304&\210\312\331\314\315\332DD\333\320\334\311\304&\210\312\335\314\315\336DD\337\320\321\340\324\311\304&	\210\312\341\314\315\342DD\343\320\330\311\304&\210\312\344\314\315\345DD\346\320\321\340\324\311\304&	\210\312\347\314\315\350DD\351\320\321\340\324\311\304&	\210\312\352\314\315\353DD\354\320\334\311\304&\210\312\355\314\315\356DD\357\320\334\311\304&\210\312\360\314\315\361DD\362\311\304\320\363&\210\312\364\314\315\365DD\366\311\304\320\367&\207" [require calendar lunar custom-declare-group calendar-chinese nil "Chinese calendar support." :prefix "calendar-chinese-" :group custom-declare-variable calendar-chinese-time-zone funcall function #[0 "\300\207" [(if (< year 1928) (+ 465 (/ 40.0 60.0)) 480)] 1 #1=""] "Minutes difference between local standard time for Chinese calendar and UTC.\nDefault is for Beijing.  This is an expression in `year' since it changed at\n1928-01-01 00:00:00 from UT+7:45:40 to UT+8." :type sexp put risky-local-variable t calendar-chinese-location-name #[0 "\300\207" ["Beijing"] 1 #1#] "Name of location used for calculation of Chinese calendar." string calendar-chinese-daylight-time-offset #[0 "\300\207" [0] 1 #1#] "Minutes difference between daylight saving and standard time.\nDefault is for no daylight saving time." integer calendar-chinese-standard-time-zone-name #[0 "\300\207" [(if (< year 1928) "PMT" "CST")] 1 #1#] "Abbreviated name of standard time zone used for Chinese calendar.\nThis is an expression depending on `year' because it changed\nat 1928-01-01 00:00:00 from `PMT' to `CST'." :risky calendar-chinese-daylight-time-zone-name #[0 "\300\207" ["CDT"] 1 #1#] "Abbreviated name of daylight saving time zone used for Chinese calendar." calendar-chinese-daylight-saving-start #[0 "\300\207" [nil] 1 #1#] "Sexp giving the date on which daylight saving time starts.\nDefault is for no daylight saving time.  See documentation of\n`calendar-daylight-savings-starts'." calendar-chinese-daylight-saving-end #[0 "\300\207" [nil] 1 #1#] "Sexp giving the date on which daylight saving time ends.\nDefault is for no daylight saving time.  See documentation of\n`calendar-daylight-savings-ends'." calendar-chinese-daylight-saving-start-time #[0 "\300\207" [0] 1 #1#] "Number of minutes after midnight that daylight saving time starts.\nDefault is for no daylight saving time." calendar-chinese-daylight-saving-end-time #[0 "\300\207" [0] 1 #1#] "Number of minutes after midnight that daylight saving time ends.\nDefault is for no daylight saving time." calendar-chinese-celestial-stem #[0 "\300\207" [["Jia" "Yi" "Bing" "Ding" "Wu" "Ji" "Geng" "Xin" "Ren" "Gui"]] 1 #1#] "Prefixes used by `calendar-chinese-sexagesimal-name'." (vector (string :tag "Jia") (string :tag "Yi") (string :tag "Bing") (string :tag "Ding") (string :tag "Wu") (string :tag "Ji") (string :tag "Geng") (string :tag "Xin") (string :tag "Ren") (string :tag "Gui")) calendar-chinese-terrestrial-branch #[0 "\300\207" [["Zi" "Chou" "Yin" "Mao" "Chen" "Si" "Wu" "Wei" "Shen" "You" "Xu" "Hai"]] 1 #1#] "Suffixes used by `calendar-chinese-sexagesimal-name'." (vector (string :tag "Zi") (string :tag "Chou") (string :tag "Yin") (string :tag "Mao") (string :tag "Chen") (string :tag "Si") (string :tag "Wu") (string :tag "Wei") (string :tag "Shen") (string :tag "You") (string :tag "Xu") (string :tag "Hai"))] 10)
#@184 The N-th name of the Chinese sexagesimal cycle.
N congruent to 1 gives the first name, N congruent to 2 gives the second name,
..., N congruent to 60 gives the sixtieth name.

(fn N)
(defalias 'calendar-chinese-sexagesimal-name #[257 "\302\303S\304\246H	S\305\246H#\207" [calendar-chinese-celestial-stem calendar-chinese-terrestrial-branch format "%s-%s" 10 12] 7 (#$ . 3610)])
#@154 Absolute date of first new Zodiac sign on or after absolute date D.
The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees.

(fn D)
(defalias 'calendar-chinese-zodiac-sign-on-or-after #[257 "\306
!\307
8\262
\310	!
\311\312\313\314!\315\"!!.	\207" [year calendar-chinese-time-zone calendar-time-zone calendar-chinese-daylight-time-offset calendar-daylight-time-offset calendar-chinese-standard-time-zone-name calendar-gregorian-from-absolute 2 eval floor calendar-astro-to-absolute solar-date-next-longitude calendar-astro-from-absolute 30 calendar-standard-time-zone-name calendar-chinese-daylight-time-zone-name calendar-daylight-time-zone-name calendar-chinese-daylight-saving-start calendar-daylight-savings-starts calendar-chinese-daylight-saving-end calendar-daylight-savings-ends calendar-chinese-daylight-saving-start-time calendar-daylight-savings-starts-time calendar-chinese-daylight-saving-end-time calendar-daylight-savings-ends-time] 6 (#$ . 3998)])
#@70 Absolute date of first new moon on or after absolute date D.

(fn D)
(defalias 'calendar-chinese-new-moon-on-or-after #[257 "\306
!\307
8\262
\310	!

\311\312\313\314!!!!.	\207" [year calendar-chinese-time-zone calendar-time-zone calendar-chinese-daylight-time-offset calendar-daylight-time-offset calendar-chinese-standard-time-zone-name calendar-gregorian-from-absolute 2 eval floor calendar-astro-to-absolute lunar-new-moon-on-or-after calendar-astro-from-absolute calendar-standard-time-zone-name calendar-chinese-daylight-time-zone-name calendar-daylight-time-zone-name calendar-chinese-daylight-saving-start calendar-daylight-savings-starts calendar-chinese-daylight-saving-end calendar-daylight-savings-ends calendar-chinese-daylight-saving-start-time calendar-daylight-savings-starts-time calendar-chinese-daylight-saving-end-time calendar-daylight-savings-ends-time] 6 (#$ . 5016)])
#@77 List of starting dates of Chinese months from START to END.

(fn START END)
(defalias 'calendar-chinese-month-list #[514 "

X\205\300!\211X\205\211\301T\"B\262
\207" [calendar-chinese-new-moon-on-or-after calendar-chinese-month-list] 7 (#$ . 5940)])
#@243 Assign month numbers to the lunar months in LIST, starting with START.
Numbers are assigned sequentially, START, START+1, ..., 11, with
half numbers used for leap months.  First and last months of list
are never leap months.

(fn LIST START)
(defalias 'calendar-chinese-number-months #[514 "
\205G\211@D\300ZGZ\301U\203\302AT\"\202FAA\203@\3038\304A@!X\203@
\305\\A@D\302AAT\"B\202F\302AT\"B\207" [12 0 calendar-chinese-number-months 2 calendar-chinese-zodiac-sign-on-or-after 0.5] 7 (#$ . 6205)])
#@299 Compute the structure of the Chinese year for Gregorian year Y.
The result is a list of pairs (i d), where month i begins on absolute date d,
of the Chinese months from the Chinese month following the solstice in
Gregorian year Y-1 to the Chinese month of the solstice of Gregorian year Y.

(fn Y)
(defalias 'calendar-chinese-compute-year #[257 "\300\301\302E\211\303
8\262
\304
\305U\203\306\307!\266\203\202X

\305V\203\220
S\262
\310\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203{\211\312\313_\\\314\245Z\262

\211\305W\203\\\315
!S\262
\211\313\246\305U\205r\211\316\246\305U?\206r\211\317\246\305U\262
\203{\211T\262
\266\204\320_\313\245\316\245[\317\245%\266\203\202X
\315T!\262
\321\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203\355\211\312\313_\\\314\245Z\262

\211\305W\203\316\315
!S\262
\211\313\246\305U\205\344\211\316\246\305U?\206\344\211\317\246\305U\262
\203\355\211T\262
\266\204\320_\313\245\316\245[\317\245\322\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203R
\211\312\313_\\\314\245Z\262

\211\305W\2033
\315
!S\262
\211\313\246\305U\205I
\211\316\246\305U?\206I
\211\317\246\305U\262
\203R
\211T\262
\266\204&\266\203!\323\300\301\302SE\211\303
8\262
\304
\305U\203u
\306\307!\266\203\202\263
\305V\203\353

S\262
\310\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203\326
\211\312\313_\\\314\245Z\262

\211\305W\203\267
\315
!S\262
\211\313\246\305U\205\315
\211\316\246\305U?\206\315
\211\317\246\305U\262
\203\326
\211T\262
\266\204\320_\313\245\316\245[\317\245%\266\203\202\263\315T!\262
\321\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203H\211\312\313_\\\314\245Z\262

\211\305W\203)\315
!S\262
\211\313\246\305U\205?\211\316\246\305U?\206?\211\317\246\305U\262
\203H\211T\262
\266\204\320_\313\245\316\245[\317\245\322\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203\255\211\312\313_\\\314\245Z\262

\211\305W\203\216\315
!S\262
\211\313\246\305U\205\244\211\316\246\305U?\206\244\211\317\246\305U\262
\203\255\211T\262
\266\204&\266\203!T\"\300
@!
G\301U\203\315\301@D\324A\325\"B\207
@
V\204\334\211A@Y\203\357\326\327@D\301A@DD\324AA\325\"\"\207\326\301@DC\300A@!\3038Y\203\330A@D\324AA\325\"B\202\324A\325\"\"\207" [calendar-chinese-zodiac-sign-on-or-after 12 15 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-chinese-month-list calendar-chinese-number-months 1 append 11.5 12.5] 22 (#$ . 6730)])
#@139 Alist of Chinese year structures as determined by `chinese-year'.
The default can be nil, but some values are precomputed for efficiency.
(defvar calendar-chinese-year-cache '((2005 (12 731956) (1 731986) (2 732015) (3 732045) (4 732074) (5 732104) (6 732133) (7 732163) (8 732193) (9 732222) (10 732252) (11 732281)) (2006 (12 732311) (1 732340) (2 732370) (3 732399) (4 732429) (5 732458) (6 732488) (7 732517) (7.5 732547) (8 732576) (9 732606) (10 732636) (11 732665)) (2007 (12 732695) (1 732725) (2 732754) (3 732783) (4 732813) (5 732842) (6 732871) (7 732901) (8 732930) (9 732960) (10 732990) (11 733020)) (2008 (12 733049) (1 733079) (2 733109) (3 733138) (4 733167) (5 733197) (6 733226) (7 733255) (8 733285) (9 733314) (10 733344) (11 733374)) (2009 (12 733403) (1 733433) (2 733463) (3 733493) (4 733522) (5 733551) (5.5 733581) (6 733610) (7 733639) (8 733669) (9 733698) (10 733728) (11 733757)) (2010 (12 733787) (1 733817) (2 733847) (3 733876) (4 733906) (5 733935) (6 733965) (7 733994) (8 734023) (9 734053) (10 734082) (11 734112)) (2011 (12 734141) (1 734171) (2 734201) (3 734230) (4 734260) (5 734290) (6 734319) (7 734349) (8 734378) (9 734407) (10 734437) (11 734466)) (2012 (12 734496) (1 734525) (2 734555) (3 734584) (4 734614) (4.5 734644) (5 734673) (6 734703) (7 734732) (8 734762) (9 734791) (10 734821) (11 734850)) (2013 (12 734880) (1 734909) (2 734939) (3 734968) (4 734998) (5 735027) (6 735057) (7 735087) (8 735116) (9 735146) (10 735175) (11 735205)) (2014 (12 735234) (1 735264) (2 735293) (3 735323) (4 735352) (5 735382) (6 735411) (7 735441) (8 735470) (9 735500) (9.5 735530) (10 735559) (11 735589)) (2015 (12 735618) (1 735648) (2 735677) (3 735707) (4 735736) (5 735765) (6 735795) (7 735824) (8 735854) (9 735884) (10 735914) (11 735943)) (2016 (12 735973) (1 736002) (2 736032) (3 736061) (4 736091) (5 736120) (6 736149) (7 736179) (8 736208) (9 736238) (10 736268) (11 736297)) (2017 (12 736327) (1 736357) (2 736386) (3 736416) (4 736445) (5 736475) (6 736504) (6.5 736533) (7 736563) (8 736592) (9 736622) (10 736651) (11 736681)) (2018 (12 736711) (1 736741) (2 736770) (3 736800) (4 736829) (5 736859) (6 736888) (7 736917) (8 736947) (9 736976) (10 737006) (11 737035)) (2019 (12 737065) (1 737095) (2 737125) (3 737154) (4 737184) (5 737213) (6 737243) (7 737272) (8 737301) (9 737331) (10 737360) (11 737389)) (2020 (12 737419) (1 737449) (2 737478) (3 737508) (4 737538) (4.5 737568) (5 737597) (6 737627) (7 737656) (8 737685) (9 737715) (10 737744) (11 737774)) (2021 (12 737803) (1 737833) (2 737862) (3 737892) (4 737922) (5 737951) (6 737981) (7 738010) (8 738040) (9 738069) (10 738099) (11 738128)) (2022 (12 738158) (1 738187) (2 738217) (3 738246) (4 738276) (5 738305) (6 738335) (7 738365) (8 738394) (9 738424) (10 738453) (11 738483)) (2023 (12 738512) (1 738542) (2 738571) (2.5 738601) (3 738630) (4 738659) (5 738689) (6 738719) (7 738748) (8 738778) (9 738808) (10 738837) (11 738867)) (2024 (12 738896) (1 738926) (2 738955) (3 738985) (4 739014) (5 739043) (6 739073) (7 739102) (8 739132) (9 739162) (10 739191) (11 739221)) (2025 (12 739251) (1 739280) (2 739310) (3 739339) (4 739369) (5 739398) (6 739427) (6.5 739457) (7 739486) (8 739516) (9 739545) (10 739575) (11 739605))) (#$ . 9263))
#@360 The structure of the Chinese year for Gregorian year Y.
The result is a list of pairs (i d), where month i begins on absolute date d,
of the Chinese months from the Chinese month following the solstice in
Gregorian year Y-1 to the Chinese month of the solstice of Gregorian year Y.
The list is cached in `calendar-chinese-year-cache' for further use.

(fn Y)
(defalias 'calendar-chinese-year #[257 "\301
\"A\211\204\302!\262
\303BC\"\207" [calendar-chinese-year-cache assoc calendar-chinese-compute-year append] 6 (#$ . 12546)])
#@140 Insert an initialization value for `calendar-chinese-year-cache' after point.
Computes values for 10 years either side of YEAR.

(fn YEAR)
(defalias 'calendar-chinese-year-cache-init #[257 "\211\301Z\262
\302\211
\212\303c\210\304\211\305W\2036\306\307!Bp\"\210\211\310U\203(\311\202)\312c\210T\262\211T\262
\202\210`\262
)\212`
W\203T\313\314\315#\203T\316\317!\210\312c\210\202<)\320`\")\207" [calendar-chinese-year-cache 10 nil "'(" 0 21 princ calendar-chinese-compute-year 20 ")" "\n" re-search-forward "^.\\{65,75\\})" t delete-char 1 indent-region] 8 (#$ . 13090)])
#@194 The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
DATE is a Chinese date (cycle year month day).  The Gregorian date
Sunday, December 31, 1 BC is imaginary.

(fn DATE)
(defalias 'calendar-chinese-to-absolute #[257 "\211@
A@\3008\3018S\302_S\\\303\\
S\304\305\306\307!\236\307!>\307T!\"\"A@\\\207" [2 3 60 -2636 assoc append 1 calendar-chinese-year] 13 (#$ . 13685)])
#@200 Compute Chinese date (cycle year month day) corresponding to absolute DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.

(fn DATE)
(defalias 'calendar-chinese-from-absolute #[257 "\300
!\301
8\262
\211\302\\\303\304S!\304!\304T!#\211A@A@X\2036\211A@@\305U\203/
T\262\211A\262
\202
S\306\245\307S\306\"T@@@A@ZTF\207" [calendar-gregorian-from-absolute 2 2695 append calendar-chinese-year 1 60 mod] 9 (#$ . 14095)])
#@115 Date of Chinese New Year, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-new-year #[0 "	\302\211\303W\203T\262\304\305_\306\307$\262
\310
\305\"T\262\211\305\245\262\211\303W\2034\307V\2034S\262\307W\203>S\262\210\311W\205a\312\313\307\314!\236A@!\211\262!\205a\211\315\316\317\320\\!\"DC\207" [displayed-month displayed-year nil 0 + 12 -1 1 mod 5 calendar-date-is-visible-p calendar-gregorian-from-absolute calendar-chinese-year format "Chinese New Year (%s)" calendar-chinese-sexagesimal-name 57] 9 (#$ . 14597)])
#@124 Date of Chinese Qingming Festival, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-qingming #[0 "\302>\205f
\303\304\305\306\304	E\211\307
8\262
\310
\311U\203\"\312\313!\266\203\202`

\311V\203\230
S\262
\314\211\211@\262

\211A@\262
\307
8\262

\315S_\\\307V\203\203\211\316\317_\\\320\245Z\262

\211\311W\203d\321
!S\262
\211\317\246\311U\205z\211\322\246\311U?\206z\211\323\246\311U\262
\203\203\211T\262
\266\204\324_\317\245\322\245[\323\245%\266\203\202`
\321T!\262
\325\211\211@\262

\211A@\262
\307
8\262

\315S_\\\307V\203\365\211\316\317_\\\320\245Z\262

\211\311W\203\326\321
!S\262
\211\317\246\311U\205\354\211\322\246\311U?\206\354\211\323\246\311U\262
\203\365\211T\262
\266\204\324_\317\245\322\245[\323\245\326\211\211@\262

\211A@\262
\307
8\262

\315S_\\\307V\203Z
\211\316\317_\\\320\245Z\262

\211\311W\203;
\321
!S\262
\211\317\246\311U\205Q
\211\322\246\311U?\206Q
\211\323\246\311U\262
\203Z
\211T\262
\266\204&\266\203!\\!\327DC\207" [displayed-month displayed-year (3 4 5) calendar-gregorian-from-absolute 15 calendar-chinese-zodiac-sign-on-or-after 3 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) "Qingming Festival"] 21 (#$ . 15213)])
#@122 Date of Chinese winter solstice, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-winter-solstice #[0 "\302>\205o
\303\304\305\306\307=\203	S\202	E\211\310
8\262
\311
\312U\203,\313\314!\266\203\202j

\312V\203\242
S\262
\315\211\211@\262

\211A@\262
\310
8\262

\316S_\\\310V\203\215\211\317\320_\\\321\245Z\262

\211\312W\203n\322
!S\262
\211\320\246\312U\205\204\211\323\246\312U?\206\204\211\324\246\312U\262
\203\215\211T\262
\266\204\325_\320\245\323\245[\324\245%\266\203\202j
\322T!\262
\326\211\211@\262

\211A@\262
\310
8\262

\316S_\\\310V\203\377\211\317\320_\\\321\245Z\262

\211\312W\203\340\322
!S\262
\211\320\246\312U\205\366\211\323\246\312U?\206\366\211\324\246\312U\262
\203\377\211T\262
\266\204\325_\320\245\323\245[\324\245\327\211\211@\262

\211A@\262
\310
8\262

\316S_\\\310V\203d
\211\317\320_\\\321\245Z\262

\211\312W\203E
\322
!S\262
\211\320\246\312U\205[
\211\323\246\312U?\206[
\211\324\246\312U\262
\203d
\211T\262
\266\204&\266\203!!\330DC\207" [displayed-month displayed-year (11 12 1) calendar-gregorian-from-absolute calendar-chinese-zodiac-sign-on-or-after 12 15 1 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) "Winter Solstice Festival"] 20 (#$ . 16531)])
#@252 Holiday on Chinese MONTH, DAY called STRING.
If MONTH, DAY (Chinese) is visible, returns the corresponding
Gregorian date as the list (((month day year) STRING)).
Returns nil if it is not visible in the current calendar window.

(fn MONTH DAY STRING)
(defalias 'holiday-chinese #[771 "\302\303>\203\222		\304\305W\203T\262\306\307_\310\211$\262
\311
\307\"T\262\211\307\245\262\211\305W\203=\312V\203=S\262\312W\203GS\262\210\312E\211\313
8\262
\304
\305U\203a\314\315!\266\203\202\237

\305V\203\327
S\262
\306\211\211@\262

\211A@\262
\313
8\262

\316S_\\\313V\203\302\211\317\320_\\\321\245Z\262

\211\305W\203\243\322
!S\262
\211\320\246\305U\205\271\211\323\246\305U?\206\271\211\324\246\305U\262
\203\302\211T\262
\266\204\325_\320\245\323\245[\324\245%\266\203\202\237
\322T!\262
\326\211\211@\262

\211A@\262
\313
8\262

\316S_\\\313V\2034
\211\317\320_\\\321\245Z\262

\211\305W\203
\322
!S\262
\211\320\246\305U\205+
\211\323\246\305U?\206+
\211\324\246\305U\262
\2034
\211T\262
\266\204\325_\320\245\323\245[\324\245\327\211\211@\262

\211A@\262
\313
8\262

\316S_\\\313V\203\231
\211\317\320_\\\321\245Z\262

\211\305W\203z
\322
!S\262
\211\320\246\305U\205\220
\211\323\246\305U?\206\220
\211\324\246\305U\262
\203\231
\211T\262
\266\204&\266\203\304\305W\203\252
T\262\306\307_\310\312$\262
\311
\307\"T\262\211\307\245\262\211\305W\203\320
\312V\203\320
S\262\312W\203\332
S\262\210\211
\313U\203\211\211\305W\203\361
\322
!S\262
\211\320\246\305U\205\211\323\246\305U?\206\211\324\246\305U\262
\203\266\330\202\331SH\266\202E\211\313
8\262
\304
\305U\203/\314\315!\266\203\202m
\305V\203\245
S\262
\306\211\211@\262

\211A@\262
\313
8\262

\316S_\\\313V\203\220\211\317\320_\\\321\245Z\262

\211\305W\203q\322
!S\262
\211\320\246\305U\205\207\211\323\246\305U?\206\207\211\324\246\305U\262
\203\220\211T\262
\266\204\325_\320\245\323\245[\324\245%\266\203\202m\322T!\262
\326\211\211@\262

\211A@\262
\313
8\262

\316S_\\\313V\203\211\317\320_\\\321\245Z\262

\211\305W\203\343\322
!S\262
\211\320\246\305U\205\371\211\323\246\305U?\206\371\211\324\246\305U\262
\203\211T\262
\266\204\325_\320\245\323\245[\324\245\327\211\211@\262

\211A@\262
\313
8\262

\316S_\\\313V\203g\211\317\320_\\\321\245Z\262

\211\305W\203H\322
!S\262
\211\320\246\305U\205^\211\323\246\305U?\206^\211\324\246\305U\262
\203g\211T\262
\266\204&\266\203\332!\332!\321W\203~\211\202
\211@
A@\333F!\266\213\202\235\334\335	!\"A@S\\!\336
!\205\250\211DC\207" [displayed-month displayed-year calendar-gregorian-from-absolute (12 1 2 3) nil 0 + 12 -1 mod 1 2 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-chinese-from-absolute calendar-chinese-to-absolute assoc calendar-chinese-year calendar-date-is-visible-p] 27 (#$ . 17885)])
#@111 String of Chinese date of Gregorian DATE.
Defaults to today's date if DATE is not given.

(fn &optional DATE)
(defalias 'calendar-chinese-date-string #[256 "\211\206\300 \211\301
8\262
\302
\303U\203\304\305!\266\203\202Y

\303V\203\221
S\262
\306\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203|\211\310\311_\\\312\245Z\262

\211\303W\203]\313
!S\262
\211\311\246\303U\205s\211\314\246\303U?\206s\211\315\246\303U\262
\203|\211T\262
\266\204\316_\311\245\314\245[\315\245%\266\203\202Y
\313T!\262
\317\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203\356\211\310\311_\\\312\245Z\262

\211\303W\203\317\313
!S\262
\211\311\246\303U\205\345\211\314\246\303U?\206\345\211\315\246\303U\262
\203\356\211T\262
\266\204\316_\311\245\314\245[\315\245\320\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203S
\211\310\311_\\\312\245Z\262

\211\303W\2034
\313
!S\262
\211\311\246\303U\205J
\211\314\246\303U?\206J
\211\315\246\303U\262
\203S
\211T\262
\266\204&\266\203\321
!\211@
A@\3018\3228\323\324F!\323\325U\203z
T\202{
\326!\327U\203\210
T\202\211
\330\326!\327\"T\324F!\331\332\333	!\250\204\250
\334\202\267
\335ZW\203\266
\336\202\267
\337\326\n!\n\250\203\322
\331\340\333\327_\\\341\\!\"\202\323
\337\n\333\342\\!&	\207" [calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-chinese-from-absolute 3 calendar-chinese-to-absolute 1 60 floor 12 mod format "Cycle %s, year %s (%s), %smonth %s%s, day %s (%s)" calendar-chinese-sexagesimal-name "second " 30 "first " "" " (%s)" 50 15] 21 (#$ . 20843)])
#@44 Show the Chinese date equivalents of date.
(defalias 'calendar-chinese-print-date #[0 "\300\301!\210\300\302\303\304\305!!\"\207" [message "Computing Chinese date..." "Chinese date: %s" calendar-chinese-date-string calendar-cursor-to-date t] 5 (#$ . 22503) nil])
#@51 Make list of months L into an assoc list.

(fn L)
(defalias 'calendar-chinese-months-to-alist #[257 "\211\205P\211@\205P\211A\203H\211A@\203H\211@\300A@!U\2039\301\302\303@\"@B\302\304@\"A@BD\305AA!\"\207\301\306@!@BC\305A!\"\207\306
@!
@BC\207" [floor append format "%s (first)" "%s (second)" calendar-chinese-months-to-alist number-to-string] 6 (#$ . 22772)])
#@76 A list of the months in cycle C, year Y of the Chinese calendar.

(fn C Y)
(defalias 'calendar-chinese-months #[514 "\300\301\302\303\304\305\306\300\211F!!\307
8\262
!\"\302\310\304\305\306\311U\203)	T\202+		\311U\2036\300\2028	\300\211F!!\307
8\262
!\"\">\207" [1 append mapcar #[257 "\211@\207" [] 2 "\n\n(fn X)"] calendar-chinese-year calendar-gregorian-from-absolute calendar-chinese-to-absolute 2 #[257 "\211@\300V\205	\211@\207" [11] 3 "\n\n(fn X)"] 60] 14 (#$ . 23154)])
#@107 Move cursor to Chinese date DATE.
Echo Chinese date unless NOECHO is non-nil.

(fn DATE &optional NOECHO)
(defalias 'calendar-chinese-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-chinese-to-absolute calendar-chinese-print-date] 6 (#$ . 23655) (byte-code "\300\301 \211\302
8\262
\303
\304U\203\305\306!\266\203\202V

\304V\203\216
S\262
\307\211\211@\262

\211A@\262
\302
8\262

\310S_\\\302V\203y\211\311\312_\\\313\245Z\262

\211\304W\203Z\314
!S\262
\211\312\246\304U\205p\211\315\246\304U?\206p\211\316\246\304U\262
\203y\211T\262
\266\204\317_\312\245\315\245[\316\245%\266\203\202V
\314T!\262
\320\211\211@\262

\211A@\262
\302
8\262

\310S_\\\302V\203\353\211\311\312_\\\313\245Z\262

\211\304W\203\314\314
!S\262
\211\312\246\304U\205\342\211\315\246\304U?\206\342\211\316\246\304U\262
\203\353\211T\262
\266\204\317_\312\245\315\245[\316\245\321\211\211@\262

\211A@\262
\302
8\262

\310S_\\\302V\203P
\211\311\312_\\\313\245Z\262

\211\304W\2031
\314
!S\262
\211\312\246\304U\205G
\211\315\246\304U?\206G
\211\316\246\304U\262
\203P
\211T\262
\266\204&\266\203!\322\323\324@#\322\325\326A@#\327\330\"!\331\332\333\303\334$\"A\211\302\300\335\336\337F!\\!8U\203\215
\340\202\216
\335\322\341\342\343\"\303$FC\207" [calendar-chinese-from-absolute calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-read-sexp "Chinese calendar cycle number (>44)" #[257 "\211\300V\207" [44] 3 "\n\n(fn X)"] "Year in Chinese cycle (1..60)" #[257 "\300
X\205	\211\301X\207" [1 60] 3 "\n\n(fn X)"] calendar-chinese-months-to-alist calendar-chinese-months assoc completing-read "Chinese calendar month: " t 29 calendar-chinese-to-absolute 1 30 "Chinese calendar day (1-%d)" make-closure #[257 "\301
X\205	\211\300X\207" [V0 1] 3 "\n\n(fn X)"]] 19)])
#@50 Chinese calendar equivalent of date diary entry.
(defalias 'diary-chinese-date #[0 "\301\302\303!\"\207" [date format "Chinese date: %s" calendar-chinese-date-string] 4 (#$ . 25598)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\207" [autoload calendar-mark-1 "diary-lib" diary-mark-entries-1 diary-list-entries-1 diary-insert-entry-1 diary-date-display-form diary-make-date diary-ordinal-suffix] 3)
(defvar calendar-chinese-month-name-array ["正月" "二月" "三月" "四月" "五月" "六月" "七月" "八月" "九月" "十月" "冬月" "臘月"])
#@16 

(fn THEDATE)
(defalias 'calendar-chinese-from-absolute-for-diary #[257 "\300
!\211\242
\243\211\242
\243\211\242
\243\211\242
\243\301!	\302_\\E\207" [calendar-chinese-from-absolute floor 100] 14 (#$ . 26248)])
#@38 

(fn THEDATE &optional PREFER-LEAP)
(defalias 'calendar-chinese-to-absolute-for-diary #[513 "
\242\243\211\242
\243\211\242
\243\300\301\"\302\301\"\303\"\300	!\304\\\305\2034\306\"\2034F\202;\fF!\207" [floor 100 mod calendar-chinese-months 0.5 calendar-chinese-to-absolute memql] 17 (#$ . 26472)])
#@39 

(fn MONTH DAY YEAR &optional COLOR)
(defalias 'calendar-chinese-mark-date-pattern #[1027 "\300\301\302&\210\303U?\205\300\301\304&\207" [calendar-mark-1 calendar-chinese-from-absolute-for-diary calendar-chinese-to-absolute-for-diary 0 #[257 "\300
\301\"\207" [calendar-chinese-to-absolute-for-diary t] 4 "\n\n(fn THEDATE)"]] 11 (#$ . 26801)])
#@288 Mark days in the calendar window that have Chinese date diary entries.
Marks each entry in `diary-file' (or included files) visible in the calendar
window.  See `diary-chinese-list-entries' for more information.

This function is provided for use with `diary-nongregorian-marking-hook'.
(defalias 'diary-chinese-mark-entries #[0 "\302\303	\304$\207" [calendar-chinese-month-name-array diary-chinese-entry-symbol diary-mark-entries-1 calendar-chinese-mark-date-pattern calendar-chinese-from-absolute-for-diary] 5 (#$ . 27168)])
#@477 Add any Chinese date entries from the diary file to `diary-entries-list'.
Chinese date diary entries must be prefixed by `diary-chinese-entry-symbol'
(normally a `C').  The same `diary-date-forms' govern the style
of the Chinese calendar entries.  If a Chinese date diary entry begins with
`diary-nonmarking-symbol', the entry will appear in the diary listing,
but will not be marked in the calendar.

This function is provided for use with `diary-nongregorian-listing-hook'.
(defalias 'diary-chinese-list-entries #[0 "\302	\303#\207" [calendar-chinese-month-name-array diary-chinese-entry-symbol diary-list-entries-1 calendar-chinese-from-absolute-for-diary] 4 (#$ . 27703)])
#@100 Like `diary-anniversary' (which see) but accepts Chinese date.

(fn MONTH DAY &optional YEAR MARK)
(defalias 'diary-chinese-anniversary #[1026 "\302#\203\303\304!!\202\305\211\211@\262
\211A@\262
F\211\242
\243\211\242
\243\211\242
\243\211\242
\243\303\211\306
8\262
\305
\307U\203F\310\311!\266\203\202\204

\307V\203\274
S\262
\312\211\211@\262

\211A@\262
\306
8\262

\313S_\\\306V\203\247\211\314\315_\\\316\245Z\262

\211\307W\203\210\317
!S\262
\211\315\246\307U\205\236\211\320\246\307U?\206\236\211\321\246\307U\262
\203\247\211T\262
\266\204\322_\315\245\320\245[\321\245%\266\203\202\204
\317T!\262
\323\211\211@\262

\211A@\262
\306
8\262

\313S_\\\306V\203
\211\314\315_\\\316\245Z\262

\211\307W\203\372\317
!S\262
\211\315\246\307U\205
\211\320\246\307U?\206
\211\321\246\307U\262
\203
\211T\262
\266\204\322_\315\245\320\245[\321\245\324\211\211@\262

\211A@\262
\306
8\262

\313S_\\\306V\203~
\211\314\315_\\\316\245Z\262

\211\307W\203_
\317
!S\262
\211\315\246\307U\205u
\211\320\246\307U?\206u
\211\321\246\307U\262
\203~
\211T\262
\266\204&\266\203!\211\242
\243\211\242
\243\211\242
\243\211\242
\243\203\257
\203\257
\325Z_Z\\\202\260
\320\211\307V\205\327

U\204\306
\326\\U\205\327
U\205\327
\327	\330!#B\207" [date entry diary-make-date calendar-chinese-from-absolute calendar-chinese-to-absolute-for-diary nil 2 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 60 0.5 format diary-ordinal-suffix] 33 (#$ . 28388)])
#@134 Insert an anniversary diary entry for the Chinese date at point.
Prefix argument ARG makes the entry nonmarking.

(fn &optional ARG)
(defalias 'diary-chinese-insert-anniversary-entry #[256 "\302 \303\304\305	\306\307\310\311!\211\312
8\262
\313
\314U\203!\315\316!\266\203\202_

\314V\203\227
S\262
\317\211\211@\262

\211A@\262
\312
8\262

\320S_\\\312V\203\202\211\321\322_\\\323\245Z\262

\211\314W\203c\324
!S\262
\211\322\246\314U\205y\211\325\246\314U?\206y\211\326\246\314U\262
\203\202\211T\262
\266\204\327_\322\245\325\245[\326\245%\266\203\202_
\324T!\262
\330\211\211@\262

\211A@\262
\312
8\262

\320S_\\\312V\203\364\211\321\322_\\\323\245Z\262

\211\314W\203\325\324
!S\262
\211\322\246\314U\205\353\211\325\246\314U?\206\353\211\326\246\314U\262
\203\364\211T\262
\266\204\327_\322\245\325\245[\326\245\331\211\211@\262

\211A@\262
\312
8\262

\320S_\\\312V\203Y
\211\321\322_\\\323\245Z\262

\211\314W\203:
\324
!S\262
\211\322\246\314U\205P
\211\325\246\314U?\206P
\211\326\246\314U\262
\203Y
\211T\262
\266\204&\266\203!!#\")\207" [calendar-date-display-form diary-sexp-entry-symbol diary-date-display-form diary-make-entry format "%s(diary-chinese-anniversary %s)" calendar-date-string calendar-chinese-from-absolute-for-diary calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 25 (#$ . 29943) "P"])
#@73 Insert a diary entry for the Chinese date at point.

(fn &optional ARG)
(defalias 'diary-chinese-insert-entry #[256 "\302\303	\304%\207" [calendar-chinese-month-name-array diary-chinese-entry-symbol diary-insert-entry-1 nil calendar-chinese-from-absolute-for-diary] 7 (#$ . 31372) "P"])
#@81 Insert a monthly diary entry for the Chinese date at point.

(fn &optional ARG)
(defalias 'diary-chinese-insert-monthly-entry #[256 "\302\303	\304%\207" [calendar-chinese-month-name-array diary-chinese-entry-symbol diary-insert-entry-1 monthly calendar-chinese-from-absolute-for-diary] 7 (#$ . 31667) "P"])
#@80 Insert a yearly diary entry for the Chinese date at point.

(fn &optional ARG)
(defalias 'diary-chinese-insert-yearly-entry #[256 "\302\303	\304%\207" [calendar-chinese-month-name-array diary-chinese-entry-symbol diary-insert-entry-1 yearly calendar-chinese-from-absolute-for-diary] 7 (#$ . 31982) "P"])
(provide 'cal-china)