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



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315&	\207" [require calendar custom-declare-variable diary-hebrew-sabbath-candles-minutes funcall function #[0 "\300\207" [18] 1 ""] "Number of minutes before sunset for sabbath candle lighting.\nUsed by `diary-hebrew-sabbath-candles'." :group diary :type integer :version "21.1"] 10)
#@60 Non-nil if YEAR is a Hebrew calendar leap year.

(fn YEAR)
(defalias 'calendar-hebrew-leap-year-p #[257 "\300
_T\301\246\300W\207" [7 19] 3 (#$ . 441)])
#@56 The last month of the Hebrew calendar YEAR.

(fn YEAR)
(defalias 'calendar-hebrew-last-month-of-year #[257 "\300
!\203\301\207\302\207" [calendar-hebrew-leap-year-p 13 12] 3 (#$ . 600)])
#@117 Days to mean conjunction of Tishri of Hebrew YEAR.
Measured from Sunday before start of Hebrew calendar.

(fn YEAR)
(defalias 'calendar-hebrew-elapsed-days #[257 "\300
S\301\245_\302S\301\246_\\\303S\301\246_T\301\245\\\304\305\306\246_\\\307\310\302_\305\306\245_\306\245$\306
\311\246_\306\246\\\312_T\311\245\\
\313Y\204n\211\303\246\314U\203X
\315Y\203X\316!\203n\211\303\246\317U\203s
\320Y\203s\316S!\203s\211T\202t\211\211\303\246\321\322\310E>\203\202\211T\207\207" [235 19 12 7 204 793 1080 + 5 24 29 19440 2 9924 calendar-hebrew-leap-year-p 1 16789 0 3] 11 (#$ . 796)])
#@43 Number of days in Hebrew YEAR.

(fn YEAR)
(defalias 'calendar-hebrew-days-in-year #[257 "\300
T!\300!Z\207" [calendar-hebrew-elapsed-days] 4 (#$ . 1404)])
#@55 Non-nil if Heshvan is long in Hebrew YEAR.

(fn YEAR)
(defalias 'calendar-hebrew-long-heshvan-p #[257 "\300
!\301\246\302U\207" [calendar-hebrew-days-in-year 10 5] 3 (#$ . 1566)])
#@55 Non-nil if Kislev is short in Hebrew YEAR.

(fn YEAR)
(defalias 'calendar-hebrew-short-kislev-p #[257 "\300
!\301\246\302U\207" [calendar-hebrew-days-in-year 10 3] 3 (#$ . 1752)])
#@49 The last day of MONTH in YEAR.

(fn MONTH YEAR)
(defalias 'calendar-hebrew-last-day-of-month #[514 "
\300\301\302\303\304\257>\2040
\305U\203\306
!\2030
\307U\203$\310
!\2030
\311U\2032\312
!\2032\313\207\314\207" [2 4 6 10 13 12 calendar-hebrew-leap-year-p 8 calendar-hebrew-long-heshvan-p 9 calendar-hebrew-short-kislev-p 29 30] 8 (#$ . 1938)])
#@154 Absolute date of Hebrew DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.

(fn DATE)
(defalias 'calendar-hebrew-to-absolute #[257 "\211\211@\262

\211A@\262
\300
8\262
\301\302W\203U\302\303
\304!X\2034\211\305\"\\\262

T\262\202\262
\306\303
W\203O\211\305\"\\\262

T\262\2028\262
\\\202p\302\303
W\203n\211\305\"\\\262

T\262\202W\262
\307!\310$\207" [2 + 7 0 calendar-hebrew-last-month-of-year calendar-hebrew-last-day-of-month 1 calendar-hebrew-elapsed-days -1373429] 13 (#$ . 2301)])
#@197 Compute the Hebrew date (month day year) 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-hebrew-from-absolute #[257 "\300
!\301
\302
8\262
\\\303\211@\262
SH\304\305\306TE!Y\203&
T\262\202\307!\310\304\311\"E!V\203D\246T\262\202*\304\306E!ZT\262

E\207" [calendar-gregorian-from-absolute 3760 2 [9 10 11 12 1 2 3 4 7 7 7 8] calendar-hebrew-to-absolute 7 1 calendar-hebrew-last-month-of-year nil calendar-hebrew-last-day-of-month] 12 (#$ . 2896)])
#@74 Array of strings giving the names of the Hebrew months in a common year.
(defconst calendar-hebrew-month-name-array-common-year ["Nisan" "Iyar" "Sivan" "Tammuz" "Av" "Elul" "Tishri" "Heshvan" "Kislev" "Teveth" "Shevat" "Adar"] (#$ . 3503))
#@72 Array of strings giving the names of the Hebrew months in a leap year.
(defconst calendar-hebrew-month-name-array-leap-year ["Nisan" "Iyar" "Sivan" "Tammuz" "Av" "Elul" "Tishri" "Heshvan" "Kislev" "Teveth" "Shevat" "Adar I" "Adar II"] (#$ . 3749))
#@177 String of Hebrew date before sunset of Gregorian DATE.
Defaults to today's date if DATE is not given.
Driven by the variable `calendar-date-display-form'.

(fn &optional DATE)
(defalias 'calendar-hebrew-date-string #[256 "\303
\206\304 \211\305
8\262
\306
\307U\203\310\311!\266\203\202Z

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

\211A@\262
\305
8\262

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

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

\211A@\262
\305
8\262

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

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

\211A@\262
\305
8\262

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

\211\307W\2035
\317
!S\262
\211\315\246\307U\205K
\211\320\246\307U?\206K
\211\321\246\307U\262
\203T
\211T\262
\266\204&\266\203!\325
\305
8\262
!\203j
\202k
	\326
\306\327#)\207" [calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year calendar-month-name-array calendar-hebrew-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-hebrew-leap-year-p calendar-date-string t] 20 (#$ . 4004)])
#@67 Show the Hebrew calendar equivalent of the date under the cursor.
(defalias 'calendar-hebrew-print-date #[0 "\300\301\302\303\304!!\"\207" [message "Hebrew date (until sunset): %s" calendar-hebrew-date-string calendar-cursor-to-date t] 5 (#$ . 5470) nil])
#@93 Absolute date of the anniversary of Hebrew DEATH-DATE in Hebrew YEAR.

(fn DEATH-DATE YEAR)
(defalias 'calendar-hebrew-yahrzeit #[514 "
\211A@\262
\211@\262
\300
8\262

\301U\203-\302U\203-\303
T!\204-\304\305\306E!S\207
\305U\203I\302U\203I\307
T!\203I\304\310\306E!S\207
\311U\203Y\304\312!E!\207\302U\203s
\313U\203s\314!\204s\304\315\302E!\207\304E!\207" [2 8 30 calendar-hebrew-long-heshvan-p calendar-hebrew-to-absolute 9 1 calendar-hebrew-short-kislev-p 10 13 calendar-hebrew-last-month-of-year 12 calendar-hebrew-leap-year-p 11] 9 (#$ . 5732)])
#@91 Interactively read the arguments for a Hebrew date command.
Reads a year, month, and day.
(defalias 'calendar-hebrew-read-date #[0 "\303 \304\305\306\307\211\310
8\262
\311
\312U\203\313\314!\266\203\202Z

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

\211A@\262
\310
8\262

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

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

\211A@\262
\310
8\262

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

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

\211A@\262
\310
8\262

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

\211\312W\2035
\322
!S\262
\211\320\246\312U\205K
\211\323\246\312U?\206K
\211\324\246\312U\262
\203T
\211T\262
\266\204&\266\203!\310
8\262
#\330
!\203k
\202l
	\331\332\333\334\335\336\337\311\"\"\340U\205\206
\341\342#\331$\343\344\"\331#A\345
\"\340U\203\243

\321U\203\243
\346\202\244
\344\304\347\341\350#\311%
E)C\207" [calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year completion-ignore-case calendar-current-date calendar-read-sexp "Hebrew calendar year (>3760)" #[257 "\211\300V\207" [3760] 3 "\n\n(fn X)"] calendar-hebrew-from-absolute 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-hebrew-leap-year-p t assoc-string completing-read "Hebrew calendar month name: " mapcar list append 3761 make-closure #[257 "\302
@\303\301!\304#A\305\306\307\300\"\300E!W\207" [V0 V1 assoc-string calendar-make-alist t 0 calendar-hebrew-to-absolute calendar-hebrew-last-day-of-month] 8 "\n\n(fn X)"] calendar-make-alist 1 calendar-hebrew-last-day-of-month 18 "Hebrew calendar day (%d-%d)" #[257 "\301
X\205	\211\300X\207" [V0 V1] 3 "\n\n(fn X)"]] 23 (#$ . 6321)])
#@100 Move cursor to Hebrew DATE; echo Hebrew date unless NOECHO is non-nil.

(fn DATE &optional NOECHO)
(defalias 'calendar-hebrew-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-hebrew-to-absolute calendar-hebrew-print-date] 6 (#$ . 8366) (calendar-hebrew-read-date)])
#@129 Return non-nil if Hebrew MONTH DAY is visible in the calendar window.
Returns the corresponding Gregorian date.

(fn MONTH DAY)
(defalias 'calendar-hebrew-date-is-visible-p #[514 "\301W\203
\301Z\202T\302W\203\302Z\202\303\\\304W\203*\304Z\202-\305\\\306W\203:\306Z\202=\307\\\310W\203K\310Z\202O\311\\\257>\205\\\312\313\314\315%\207" [displayed-month 11 10 2 9 3 8 4 7 5 calendar-nongregorian-visible-p calendar-hebrew-to-absolute calendar-hebrew-from-absolute #[257 "\211\300V\207" [6] 3 "\n\n(fn M)"]] 9 (#$ . 8710)])
#@275 Holiday on MONTH, DAY (Hebrew) called STRING.
If MONTH, DAY (Hebrew) is visible, the value returned is corresponding
Gregorian date in the form of the list (((month day year) STRING)).  Returns
nil if it is not visible in the current calendar window.

(fn MONTH DAY STRING)
(defalias 'holiday-hebrew #[771 "\300\"\211\205\f\211DC\207" [calendar-hebrew-date-is-visible-p] 6 (#$ . 9276)])
#@185 List of dates related to Rosh Hashanah, as visible in calendar window.
Shows only the major holidays, unless `calendar-hebrew-all-holidays-flag'
or ALL is non-nil.

(fn &optional ALL)
(defalias 'holiday-hebrew-rosh-hashanah #[256 "\303>\205\277\304\305\306	\307\\E!\310\311\312!\313\314\307	\\\"D\312\315\\!\316D\312\317\\!\320D\312\321\\!\322D\312\323\\!\324D\257\204B\n\205\273\312\325\326\327Z\"!\330D\312S!\331D\312T!\332D\312\211\305\246\327U\203i\333\202j\334\\!\335D\312\325\326\305\\\"!\336D\312	\337\\!\340D\312\n\341\\!\342D\312\343\\!\344D\312\f\345\\!\346D\312
\347\\!\350D\312\351\\!\352D\312\353\\!\354D\312\355\\!\356D\257
\"!\262
\207" [displayed-month displayed-year calendar-hebrew-all-holidays-flag (8 9 10 11) calendar-hebrew-to-absolute 7 1 3761 holiday-filter-visible-calendar append calendar-gregorian-from-absolute format "Rosh HaShanah %d" 9 "Yom Kippur" 14 "Sukkot" 21 "Shemini Atzeret" 22 "Simchat Torah" calendar-dayname-on-or-before 6 4 "Selichot (night)" "Erev Rosh HaShanah" "Rosh HaShanah (second day)" 3 2 "Tzom Gedaliah" "Shabbat Shuvah" 8 "Erev Yom Kippur" 13 "Erev Sukkot" 15 "Sukkot (second day)" 16 "Hol Hamoed Sukkot (first day)" 17 "Hol Hamoed Sukkot (second day)" 18 "Hol Hamoed Sukkot (third day)" 19 "Hol Hamoed Sukkot (fourth day)" 20 "Hoshanah Rabbah"] 20 (#$ . 9674)])
#@170 List of dates related to Hanukkah, as visible in calendar window.
Shows only Hanukkah, unless `calendar-hebrew-all-holidays-flag' or ALL
is non-nil.

(fn &optional ALL)
(defalias 'holiday-hebrew-hanukkah #[256 "\303>\205)	\304
\305W\203
T\262\306\307_\310\311$\262
\312
\307\"T\262\211\307\245\262\211\305W\2039\311V\2039
S\262
\311W\203C
S\262\210\313\211
\314U\203|\211\211\305W\203[\315
!S\262
\211\316\246\305U\205q\211\317\246\305U?\206q\211\320\246\305U\262
\203|\266\321\202\202\322SH\266\202E\211\314
8\262
\304
\305U\203\231\323\324!\266\203\202\327

\305V\203

S\262
\306\211\211@\262

\211A@\262
\314
8\262

\325S_\\\314V\203\372\211\326\316_\\\327\245Z\262

\211\305W\203\333\315
!S\262
\211\316\246\305U\205\361\211\317\246\305U?\206\361\211\320\246\305U\262
\203\372\211T\262
\266\204\330_\316\245\317\245[\320\245%\266\203\202\327
\315T!\262
\331\211\211@\262

\211A@\262
\314
8\262

\325S_\\\314V\203l
\211\326\316_\\\327\245Z\262

\211\305W\203M
\315
!S\262
\211\316\246\305U\205c
\211\317\246\305U?\206c
\211\320\246\305U\262
\203l
\211T\262
\266\204\330_\316\245\317\245[\320\245\332\211\211@\262

\211A@\262
\314
8\262

\325S_\\\314V\203\321
\211\326\316_\\\327\245Z\262

\211\305W\203\262
\315
!S\262
\211\316\246\305U\205\310
\211\317\246\305U?\206\310
\211\320\246\305U\262
\203\321
\211T\262
\266\204&\266\203!\314
8\262
\333\334\335E!\336\337\204\356
\n\203 \340\341S!\342DC\304\305\211\343W\203\341\\!\344\345H\"DB\262\211T\262
\202\370
\210\211\237\262
\"\202&\341!\346DC!\266\205\207" [displayed-month displayed-year calendar-hebrew-all-holidays-flag (10 11 12 1 2) nil 0 + 12 -1 1 mod calendar-hebrew-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) calendar-hebrew-to-absolute 9 25 ["first" "second" "third" "fourth" "fifth" "sixth" "seventh" "eighth"] holiday-filter-visible-calendar append calendar-gregorian-from-absolute "Erev Hanukkah" 8 format "Hanukkah (%s day)" "Hanukkah"] 22 (#$ . 11032)])
#@180 List of dates related to Passover, as visible in calendar window.
Shows only the major holidays, unless `calendar-hebrew-all-holidays-flag'
or ALL is non-nil.

(fn &optional ALL)
(defalias 'holiday-hebrew-passover #[256 "\303W\205:
\304\305\306	\307\\E!\310\311\312!\313D\312\314\\!\315DD\204%\n\2056
\316\246\312\317\320\321Z\"!\322D\312\317\320\323Z\"!\324D\312\325U\203K\326\202L\327Z!\330D\312\327Z!\331D\312	\323Z!\332D\312\n\333U\203n\334\202o\335Z!\336D\312\317\320
\337Z\"\316Z!\340D\312\317\320\337Z\"!\341D\312\317\320S\"!\342D\312S!\343D\312T!\344D\312\325\\!\345D\312\346\\!\347D\312\350\\!\351D\312\352\\!\353D\312\320\\!\354D\312\316\\!\355D\312\211\356\\\316\246\333U\203\344\357\202\345\356\\!\360D\312\333U\203\367\361\202
\320U\203
\362\202
\325U\203

\363\202
\364\\!\365D\312\326\\!\366D\312\321\\!\367D\312\370\\!\371D\312\372\\!\373D\257\262
\"!\262
\207" [displayed-month displayed-year calendar-hebrew-all-holidays-flag 8 calendar-hebrew-to-absolute 1 15 3760 holiday-filter-visible-calendar append calendar-gregorian-from-absolute "Passover" 50 "Shavuot" 7 calendar-dayname-on-or-before 6 43 "Shabbat Shekalim" 30 "Shabbat Zachor" 2 33 31 "Fast of Esther" "Erev Purim" "Purim" 0 28 29 "Shushan Purim" 14 "Shabbat Parah" "Shabbat HaHodesh" "Shabbat HaGadol" "Erev Passover" "Passover (second day)" "Hol Hamoed Passover (first day)" 3 "Hol Hamoed Passover (second day)" 4 "Hol Hamoed Passover (third day)" 5 "Hol Hamoed Passover (fourth day)" "Passover (seventh day)" "Passover (eighth day)" 12 13 "Yom HaShoah" 18 19 21 20 "Yom HaAtzma'ut" "Lag BaOmer" "Yom Yerushalaim" 49 "Erev Shavuot" 51 "Shavuot (second day)"] 31 (#$ . 13131)])
#@65 List of dates around Tisha B'Av, as visible in calendar window.
(defalias 'holiday-hebrew-tisha-b-av #[0 "\302>\205K\303\304\305	\306\\E!\211\307\246\310\311\312U\203\313\202\314Z!\315D\311\316\312\"!\317D\311\312U\2038T\2029!\320D\311\316\312\307\\\"!\321DF!\266\202\207" [displayed-month displayed-year (5 6 7 8 9) calendar-hebrew-to-absolute 5 9 3760 7 holiday-filter-visible-calendar calendar-gregorian-from-absolute 6 20 21 "Tzom Tammuz" calendar-dayname-on-or-before "Shabbat Hazon" "Tisha B'Av" "Shabbat Nahamu"] 11 (#$ . 14865)])
(autoload 'holiday-julian "cal-julian")
#@148 Miscellaneous Hebrew holidays, if visible in calendar window.
Includes: Tal Umatar, Tzom Teveth, Tu B'Shevat, Shabbat Shirah, and
Kiddush HaHamah.
(defalias 'holiday-hebrew-misc #[0 "	\302\211\303\304\305\302\306W\203T\262\307\310_	\311\211$\262
\312
\310\"T\262\211\310\245\262\211\306W\203>\313V\203>S\262\313W\203JS\262\210\314\313E\211\315
8\262
\302
\306U\203g\316\317!\266\203\202\245

\306V\203\335
S\262
\307\211\211@\262

\211A@\262
\315
8\262

\320S_\\\315V\203\310\211\321\322_\\\323\245Z\262

\211\306W\203\251\324
!S\262
\211\322\246\306U\205\277\211\325\246\306U?\206\277\211\326\246\306U\262
\203\310\211T\262
\266\204\327_\322\245\325\245[\326\245%\266\203\202\245
\324T!\262
\330\211\211@\262

\211A@\262
\315
8\262

\320S_\\\315V\203:
\211\321\322_\\\323\245Z\262

\211\306W\203
\324
!S\262
\211\322\246\306U\2051
\211\325\246\306U?\2061
\211\326\246\306U\262
\203:
\211T\262
\266\204\327_\322\245\325\245[\326\245\331\211\211@\262

\211A@\262
\315
8\262

\320S_\\\315V\203\237
\211\321\322_\\\323\245Z\262

\211\306W\203\200
\324
!S\262
\211\322\246\306U\205\226
\211\325\246\306U?\206\226
\211\326\246\306U\262
\203\237
\211T\262
\266\204&\266\203!\315
8\262
\262T\322\246\306U\203\272
\332\202\273
\333\334#\335\323\336\337	E\211\315
8\262
\302
\306U\203\331
\316\317!\266\203\202
\306V\203O
S\262
\307\211\211@\262

\211A@\262
\315
8\262

\320S_\\\315V\203:\211\321\322_\\\323\245Z\262

\211\306W\203\324
!S\262
\211\322\246\306U\2051\211\325\246\306U?\2061\211\326\246\306U\262
\203:\211T\262
\266\204\327_\322\245\325\245[\326\245%\266\203\202\324T!\262
\330\211\211@\262

\211A@\262
\315
8\262

\320S_\\\315V\203\254\211\321\322_\\\323\245Z\262

\211\306W\203\215\324
!S\262
\211\322\246\306U\205\243\211\325\246\306U?\206\243\211\326\246\306U\262
\203\254\211T\262
\266\204\327_\322\245\325\245[\326\245\331\211\211@\262

\211A@\262
\315
8\262

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

\211\306W\203\362\324
!S\262
\211\322\246\306U\205\211\325\246\306U?\206\211\326\246\306U\262
\203\211T\262
\266\204&\266\203!\315
8\262
\262\340\323\211E!\341\246\342U\2031\305\2022\323\343#\335\305\344\345#\335\305\262\n	\262	\302	\306W\203N	T\262\n\307\n\310_\f\311\313$\262
\312
\310\"T\262\211\310\245\262\n\211\306W\203x\n\313V\203x	S\262\n	\313W\203\204	S\262\n\210\336\n\211
\315U\203\277\211\211\306W\203\236\324
!S\262
\211\322\246\306U\205\264\211\325\246\306U?\206\264\211\326\246\306U\262
\203\277\266\346\202\305\347SH\266\202E\211\315
8\262
\302
\306U\203\335\316\317!\266\203\202
\306V\203S
S\262
\307\211\211@\262

\211A@\262
\315
8\262

\320S_\\\315V\203>\211\321\322_\\\323\245Z\262

\211\306W\203\324
!S\262
\211\322\246\306U\2055\211\325\246\306U?\2065\211\326\246\306U\262
\203>\211T\262
\266\204\327_\322\245\325\245[\326\245%\266\203\202\324T!\262
\330\211\211@\262

\211A@\262
\315
8\262

\320S_\\\315V\203\260\211\321\322_\\\323\245Z\262

\211\306W\203\221\324
!S\262
\211\322\246\306U\205\247\211\325\246\306U?\206\247\211\326\246\306U\262
\203\260\211T\262
\266\204\327_\322\245\325\245[\326\245\331\211\211@\262

\211A@\262
\315
8\262

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

\211\306W\203\366\324
!S\262
\211\322\246\306U\205\f\211\325\246\306U?\206\f\211\326\246\306U\262
\203\211T\262
\266\204&\266\203!\315
8\262
\262\336\350\342\340\305\340\341\313E!\341\246\342U\203:\351\202;\352\fE!\"!\211A@\262
\353#\262		\262\302\306W\203[T\262	\307	\310_\311\211$\262
\312
\310\"T\262\n\211\310\245\262	\211\306W\203\205	\313V\203\205S\262	\313W\203\221S\262	\210\314	\313\nE\211\315
8\262
\302
\306U\203\256\316\317!\266\203\202\354
\306V\203$
S\262
\307\211\211@\262

\211A@\262
\315
8\262

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

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

\211A@\262
\315
8\262

\320S_\\\315V\203\201\211\321\322_\\\323\245Z\262

\211\306W\203b\324
!S\262
\211\322\246\306U\205x\211\325\246\306U?\206x\211\326\246\306U\262
\203\201\211T\262
\266\204\327_\322\245\325\245[\326\245\331\211\211@\262

\211A@\262
\315
8\262

\320S_\\\315V\203\346\211\321\322_\\\323\245Z\262

\211\306W\203\307\324
!S\262
\211\322\246\306U\205\335\211\325\246\306U?\206\335\211\326\246\306U\262
\203\346\211T\262
\266\204&\266\203!\315
8\262
\262\337\246\333U\205\304\354\355\356#%\207" [displayed-month displayed-year nil append holiday-julian 11 0 + 12 -1 mod 1 calendar-julian-from-absolute 2 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) 22 21 "\"Tal Umatar\" (evening)" holiday-hebrew calendar-hebrew-from-absolute 28 calendar-hebrew-to-absolute 7 6 "Tzom Teveth" 15 "Tu B'Shevat" 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-dayname-on-or-before 17 16 "Shabbat Shirah" 3 26 "Kiddush HaHamah"] 29 (#$ . 15467)])
(autoload 'diary-list-entries-1 "diary-lib")
#@696 Add any Hebrew date entries from the diary file to `diary-entries-list'.
Hebrew date diary entries must be prefaced by `diary-hebrew-entry-symbol'
(normally an `H').  The same diary date forms govern the style
of the Hebrew calendar entries, except that the Hebrew month
names cannot be abbreviated.  The Hebrew months are numbered
from 1 to 13 with Nisan being 1, 12 being Adar I and 13 being
Adar II; you must use "Adar I" if you want Adar of a common
Hebrew year.  If a Hebrew 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-hebrew-list-entries #[0 "\302	\303#\207" [calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-list-entries-1 calendar-hebrew-from-absolute] 4 (#$ . 20662)])
(autoload 'calendar-mark-complex "diary-lib")
#@232 Mark dates in calendar window that conform to Hebrew date MONTH/DAY/YEAR.
A value of 0 in any position is a wildcard.  Optional argument COLOR is
passed to `calendar-mark-visible-date' as MARK.

(fn MONTH DAY YEAR &optional COLOR)
(defalias 'calendar-hebrew-mark-date-pattern #[1027 "rq\210\301U\204>\301U\204>
\301U\204-\302\303E!!\304
!\205(\305
\"\262
\202E\306\"\211\2059\305
\"\262
\202E\307\310%)\207" [calendar-buffer 0 calendar-gregorian-from-absolute calendar-hebrew-to-absolute calendar-date-is-visible-p calendar-mark-visible-date calendar-hebrew-date-is-visible-p calendar-mark-complex calendar-hebrew-from-absolute] 10 (#$ . 21608)])
(autoload 'diary-mark-entries-1 "diary-lib")
#@211 Mark days in the calendar window that have Hebrew date diary entries.
Marks each entry in `diary-file' (or included files) visible in the calendar
window.  See `list-hebrew-diary-entries' for more information.
(defalias 'diary-hebrew-mark-entries #[0 "\302\303	\304$\207" [calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-mark-entries-1 calendar-hebrew-mark-date-pattern calendar-hebrew-from-absolute] 5 (#$ . 22328)])
(autoload 'diary-insert-entry-1 "diary-lib")
#@110 Insert a diary entry for the Hebrew date at point.
Prefix argument ARG makes the entry nonmarking.

(fn ARG)
(defalias 'diary-hebrew-insert-entry #[257 "\302\303	\304%\207" [calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-insert-entry-1 nil calendar-hebrew-from-absolute] 7 (#$ . 22826) "P"])
#@167 Insert a monthly diary entry.
For the day of the Hebrew month corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.

(fn ARG)
(defalias 'diary-hebrew-insert-monthly-entry #[257 "\302\303	\304%\207" [calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-insert-entry-1 monthly calendar-hebrew-from-absolute] 7 (#$ . 23155) "P"])
#@166 Insert an annual diary entry.
For the day of the Hebrew year corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.

(fn ARG)
(defalias 'diary-hebrew-insert-yearly-entry #[257 "\302\303	\304%\207" [calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-insert-entry-1 yearly calendar-hebrew-from-absolute] 7 (#$ . 23553) "P"])
#@219 List Yahrzeit dates for *Gregorian* DEATH-DATE from START-YEAR to END-YEAR.
When called interactively from the calendar window, the date of death is taken
from the cursor position.

(fn DEATH-DATE START-YEAR END-YEAR)
(defalias 'calendar-hebrew-list-yahrzeits #[771 "\306\307!\210\310\211\311
8\262
\312
\313U\203\314\315!\266\203\202Y

\313V\203\221
S\262
\316\211\211@\262

\211A@\262
\311
8\262

\317S_\\\311V\203|\211\320\321_\\\322\245Z\262

\211\313W\203]\323
!S\262
\211\321\246\313U\205s\211\324\246\313U?\206s\211\325\246\313U\262
\203|\211T\262
\266\204\326_\321\245\324\245[\325\245%\266\203\202Y
\323T!\262
\327\211\211@\262

\211A@\262
\311
8\262

\317S_\\\311V\203\356\211\320\321_\\\322\245Z\262

\211\313W\203\317\323
!S\262
\211\321\246\313U\205\345\211\324\246\313U?\206\345\211\325\246\313U\262
\203\356\211T\262
\266\204\326_\321\245\324\245[\325\245\330\211\211@\262

\211A@\262
\311
8\262

\317S_\\\311V\203S
\211\320\321_\\\322\245Z\262

\211\313W\2034
\323
!S\262
\211\321\246\313U\205J
\211\324\246\313U?\206J
\211\325\246\313U\262
\203S
\211T\262
\266\204&\266\203!\211\311
8\262
S\331!q\210\332\333!\204p
\333 \210\312\334\335 \210\336!\210\337\340\341\342	!\343!\203\215
\202\216
\f\342\312\334#)#!\210\211T\211\262X\203\342\344\345\310\346\211E\211\311
8\262
\312
\313U\203\302
\314\315!\266\203\202
\313V\2038
S\262
\316\211\211@\262

\211A@\262
\311
8\262

\317S_\\\311V\203#\211\320\321_\\\322\245Z\262

\211\313W\203\323
!S\262
\211\321\246\313U\205\211\324\246\313U?\206\211\325\246\313U\262
\203#\211T\262
\266\204\326_\321\245\324\245[\325\245%\266\203\202\323T!\262
\327\211\211@\262

\211A@\262
\311
8\262

\317S_\\\311V\203\225\211\320\321_\\\322\245Z\262

\211\313W\203v\323
!S\262
\211\321\246\313U\205\214\211\324\246\313U?\206\214\211\325\246\313U\262
\203\225\211T\262
\266\204\326_\321\245\324\245[\325\245\330\211\211@\262

\211A@\262
\311
8\262

\317S_\\\311V\203\372\211\320\321_\\\322\245Z\262

\211\313W\203\333\323
!S\262
\211\321\246\313U\205\361\211\324\246\313U?\206\361\211\325\246\313U\262
\203\372\211T\262
\266\204&\266\203!\311
8\262
\"!!\347\261\210\202\231
eb\210\350\312!\210\334\266\306\351!\207" [calendar-hebrew-yahrzeit-buffer buffer-read-only buffer-undo-list calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year calendar-month-name-array message "Computing Yahrzeits..." calendar-hebrew-from-absolute 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) get-buffer-create derived-mode-p special-mode t erase-buffer display-buffer calendar-set-mode-line format "Yahrzeit dates for %s = %s" calendar-date-string calendar-hebrew-leap-year-p calendar-gregorian-from-absolute calendar-hebrew-yahrzeit 1 "\n" set-buffer-modified-p "Computing Yahrzeits...done"] 29 (#$ . 23948) (byte-code "p\303!\232\203\304\305!\202\306 \307\310\311\312
8\262
#	\305\313\314\315\316\317\320\321\"\"\321\305$\322\323\"\305#A\211
\312U\203h\211\211\324W\203G\325
!S\262
\211\326\246\324U\205]\211\327\246\324U?\206]\211\330\246\324U\262
\203h\266\331\202n\332SH\266\202\307\333\334\335\"\321$
E)\266\206\211\312
8\262
\307\336\334\337\"T$\307\340\334\341\"\321$E\207" [calendar-buffer calendar-month-name-array completion-ignore-case get-buffer calendar-cursor-to-date t calendar-current-date calendar-read-sexp "Year of death (>0)" #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] 2 assoc-string completing-read "Month of death (name): " mapcar list append nil calendar-make-alist 1 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] "Day of death (1-%d)" make-closure #[257 "\301
W\205	\211\300X\207" [V0 0] 3 "\n\n(fn X)"] "Starting year of Yahrzeit table (>%d)" #[257 "\211\300V\207" [V0] 3 "\n\n(fn X)"] "Ending year of Yahrzeit table (>=%d)" #[257 "\211\300Y\207" [V0] 3 "\n\n(fn X)"]] 11)])
#@88 Absolute date of the anniversary of Hebrew birth DATE, in Hebrew YEAR.

(fn DATE YEAR)
(defalias 'calendar-hebrew-birthday #[514 "
\211A@\262
\211@\262
\300
8\262

\301!U\203#\302\301!E!\207\302\303E!\\S\207" [2 calendar-hebrew-last-month-of-year calendar-hebrew-to-absolute 1] 9 (#$ . 27909)])
#@49 Hebrew calendar equivalent of date diary entry.
(defalias 'diary-hebrew-date #[0 "\301\302\303!\"\207" [date format "Hebrew date (until sunset): %s" calendar-hebrew-date-string] 4 (#$ . 28222)])
#@661 Hebrew birthday diary entry.
Entry applies if date is birthdate (MONTH DAY YEAR), or the day before.
The order of the input parameters changes according to
`calendar-date-style' (e.g. to DAY MONTH YEAR in the European style).

Assumes the associated diary entry is the name of the person.

Although the date of birth is specified by the *civil* calendar,
this function determines the proper Hebrew calendar birthday.
If the optional argument AFTER-SUNSET is non-nil, this means the
birth occurred after local sunset on the given civil date.
In this case, the following civil date corresponds to the Hebrew birthday.

(fn MONTH DAY YEAR &optional AFTER-SUNSET)
(defalias 'diary-hebrew-birthday #[1027 "\302\303#\211\304
8\262
\305
\306U\203\307\310!\266\203\202Y

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

\211A@\262
\304
8\262

\312S_\\\304V\203|\211\313\314_\\\315\245Z\262

\211\306W\203]\316
!S\262
\211\314\246\306U\205s\211\317\246\306U?\206s\211\320\246\306U\262
\203|\211T\262
\266\204\321_\314\245\317\245[\320\245%\266\203\202Y
\316T!\262
\322\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\356\211\313\314_\\\315\245Z\262

\211\306W\203\317\316
!S\262
\211\314\246\306U\205\345\211\317\246\306U?\206\345\211\320\246\306U\262
\203\356\211T\262
\266\204\321_\314\245\317\245[\320\245\323\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203S
\211\313\314_\\\315\245Z\262

\211\306W\2034
\316
!S\262
\211\314\246\306U\205J
\211\317\246\306U?\206J
\211\320\246\306U\262
\203S
\211T\262
\266\204&\266\203\203a
\324\202b
\306\\!\211\304
8\262
\211\304
8\262
\305
\306U\203\200
\307\310!\266\203\202\276
\306V\203\366

S\262
\311\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\341
\211\313\314_\\\315\245Z\262

\211\306W\203\302
\316
!S\262
\211\314\246\306U\205\330
\211\317\246\306U?\206\330
\211\320\246\306U\262
\203\341
\211T\262
\266\204\321_\314\245\317\245[\320\245%\266\203\202\276\316T!\262
\322\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203S\211\313\314_\\\315\245Z\262

\211\306W\2034\316
!S\262
\211\314\246\306U\205J\211\317\246\306U?\206J\211\320\246\306U\262
\203S\211T\262
\266\204\321_\314\245\317\245[\320\245\323\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\270\211\313\314_\\\315\245Z\262

\211\306W\203\231\316
!S\262
\211\314\246\306U\205\257\211\317\246\306U?\206\257\211\320\246\306U\262
\203\270\211T\262
\266\204&\266\203\302
!\304
8\262
\211Z\325\"
\306V\205\361\211\211TD>\205\361\326\327	\330!	U\203\357\331\202\360\332%\207" [date entry calendar-hebrew-from-absolute diary-make-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 calendar-hebrew-birthday format "%s's %d%s Hebrew birthday%s" diary-ordinal-suffix "" " (evening)"] 24 (#$ . 28425)])
#@224 Omer count diary entry.
Entry applies if date is within 50 days after Passover.

An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar.

(fn &optional MARK)
(defalias 'diary-hebrew-omer #[256 "\301\302\303\304
8\262
\305\\E!\211\304
8\262
\306
\307U\203#\310\311!\266\203\202a

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

\211A@\262
\304
8\262

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

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

\211A@\262
\304
8\262

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

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

\211A@\262
\304
8\262

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

\211\307W\203<
\317
!S\262
\211\315\246\307U\205R
\211\320\246\307U?\206R
\211\321\246\307U\262
\203[
\211T\262
\266\204&\266\203
Z\211\325\245
\325\246\307V\205\260
\326W\205\260
\327\330\307U\203\203
\331\202\256
\327\332\211\302U\203\221
\331\202\222
\333\307U\203\235
\331\202\255
\327\334\n\211\302U\203\253
\331\202\254
\333#$#B\207" [date calendar-hebrew-to-absolute 1 15 2 3760 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 50 format "Day %d%s of the omer (until sunset)" "" ", that is, %d week%s%s" "s" " and %d day%s"] 20 (#$ . 31286)])
(autoload 'diary-make-date "diary-lib")
#@829 Yahrzeit diary entry--entry applies if date is Yahrzeit or the day before.
Parameters are DEATH-MONTH, DEATH-DAY, DEATH-YEAR; the diary
entry is assumed to be the name of the person.  Although the date
of death is specified by the civil calendar, the proper Hebrew
calendar Yahrzeit is determined.

If the death occurred after local sunset on the given civil date,
the following civil date corresponds to the Hebrew date of
death--set the optional parameter AFTER-SUNSET non-nil in this case.

The order of the input parameters changes according to `calendar-date-style'
(e.g. to DEATH-DAY, DEATH-MONTH, DEATH-YEAR in the European style).

An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar.

(fn DEATH-MONTH DEATH-DAY DEATH-YEAR &optional MARK AFTER-SUNSET)
(defalias 'diary-hebrew-yahrzeit #[1283 "\302\303#\211\304
8\262
\305
\306U\203\307\310!\266\203\202\\

\306V\203\224
S\262
\311\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\211\313\314_\\\315\245Z\262

\211\306W\203`\316
!S\262
\211\314\246\306U\205v\211\317\246\306U?\206v\211\320\246\306U\262
\203\211T\262
\266\204\321_\314\245\317\245[\320\245%\266\203\202\\
\316T!\262
\322\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\361\211\313\314_\\\315\245Z\262

\211\306W\203\322\316
!S\262
\211\314\246\306U\205\350\211\317\246\306U?\206\350\211\320\246\306U\262
\203\361\211T\262
\266\204\321_\314\245\317\245[\320\245\323\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203V
\211\313\314_\\\315\245Z\262

\211\306W\2037
\316
!S\262
\211\314\246\306U\205M
\211\317\246\306U?\206M
\211\320\246\306U\262
\203V
\211T\262
\266\204&\266\203\203d
\324\202e
\306\\!\211\304
8\262
\211\304
8\262
\305
\306U\203\203
\307\310!\266\203\202\301
\306V\203\371

S\262
\311\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\344
\211\313\314_\\\315\245Z\262

\211\306W\203\305
\316
!S\262
\211\314\246\306U\205\333
\211\317\246\306U?\206\333
\211\320\246\306U\262
\203\344
\211T\262
\266\204\321_\314\245\317\245[\320\245%\266\203\202\301\316T!\262
\322\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203V\211\313\314_\\\315\245Z\262

\211\306W\2037\316
!S\262
\211\314\246\306U\205M\211\317\246\306U?\206M\211\320\246\306U\262
\203V\211T\262
\266\204\321_\314\245\317\245[\320\245\323\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\273\211\313\314_\\\315\245Z\262

\211\306W\203\234\316
!S\262
\211\314\246\306U\205\262\211\317\246\306U?\206\262\211\320\246\306U\262
\203\273\211T\262
\266\204&\266\203\302
!\304
8\262
\211Z\325\"
\306V\205\374\211U\204\343\211TU\205\374\326\327	U\203\363\330\202\364\331\332!%B\207" [date entry calendar-hebrew-from-absolute diary-make-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 calendar-hebrew-yahrzeit format "Yahrzeit of %s%s: %d%s anniversary" "" " (evening)" diary-ordinal-suffix] 25 (#$ . 32945)])
#@247 Rosh Hodesh diary entry.
Entry applies if date is Rosh Hodesh, the day before, or the Saturday before.

An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar.

(fn &optional MARK)
(defalias 'diary-hebrew-rosh-hodesh #[256 "\211\304
8\262
\305
\306U\203\307\310!\266\203\202T

\306V\203\214
S\262
\311\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203w\211\313\314_\\\315\245Z\262

\211\306W\203X\316
!S\262
\211\314\246\306U\205n\211\317\246\306U?\206n\211\320\246\306U\262
\203w\211T\262
\266\204\321_\314\245\317\245[\320\245%\266\203\202T
\316T!\262
\322\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\351\211\313\314_\\\315\245Z\262

\211\306W\203\312\316
!S\262
\211\314\246\306U\205\340\211\317\246\306U?\206\340\211\320\246\306U\262
\203\351\211T\262
\266\204\321_\314\245\317\245[\320\245\323\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203N
\211\313\314_\\\315\245Z\262

\211\306W\203/
\316
!S\262
\211\314\246\306U\205E
\211\317\246\306U?\206E
\211\320\246\306U\262
\203N
\211T\262
\266\204&\266\203\324
!\211\211@\262

\211A@\262
\304
8\262
\325
!\326\"
\203w
	\202x
\n\211SH\324	S!\211A@\262
\327U\204\234
\330U\203\304
\331U\204\304
\n\332\333	\327U\203\262
\332\334
H\"\202\301
\327U\203\300
\332\335\"\202\301
\"B\207	\331\246\336U\2038\337V\203\336U\204\340U\203\n\332\341\342!U\203\364
\306\202\366
H\340\fZH#B\207\327W\205_\337V\205_\327U\205_\n\332\343H\n\340U\203'\344\202-\340\fZH\327
Z\331\246H$B\207\340U\205_\336U?\205_\n\332\345\342!U\203Z\306\202\\H\"B\207" [date calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year calendar-day-name-array 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-hebrew-from-absolute calendar-hebrew-leap-year-p calendar-hebrew-last-day-of-month 30 1 7 format "Rosh Hodesh %s" "%s (first day)" "%s (second day)" 6 22 29 "Mevarchim Rosh Hodesh %s (%s)" calendar-hebrew-last-month-of-year "Mevarchim Rosh Hodesh %s (%s-%s)" "tomorrow" "Erev Rosh Hodesh %s"] 19 (#$ . 36000)])
#@42 The names of the parashiot in the Torah.
(defconst calendar-hebrew-parashiot-names ["Bereshith" "Noah" "Lech L'cha" "Vayera" "Hayei Sarah" "Toledoth" "Vayetze" "Vayishlah" "Vayeshev" "Mikketz" "Vayiggash" "Vayhi" "Shemoth" "Vaera" "Bo" "Beshallah" "Yithro" "Mishpatim" "Terumah" "Tetzavveh" "Ki Tissa" "Vayakhel" "Pekudei" "Vayikra" "Tzav" "Shemini" "Tazria" "Metzora" "Aharei Moth" "Kedoshim" "Emor" "Behar" "Behukkotai" "Bemidbar" "Naso" "Behaalot'cha" "Shelah L'cha" "Korah" "Hukkath" "Balak" "Pinhas" "Mattoth" "Masei" "Devarim" "Vaethanan" "Ekev" "Reeh" "Shofetim" "Ki Tetze" "Ki Tavo" "Nitzavim" "Vayelech" "Haazinu"] (#$ . 38220))
#@45 Name(s) corresponding to parasha P.

(fn P)
(defalias 'calendar-hebrew-parasha-name #[257 "\301
!\203\302\303\304HH\305HH#\207
H\207" [calendar-hebrew-parashiot-names arrayp format "%s/%s" 0 1] 7 (#$ . 38864)])
#@155 The structure of the parashiot.
Hebrew year starts on Saturday, is `incomplete' (Heshvan and Kislev each have
29 days), and has Passover start on Sunday.
(defconst calendar-hebrew-year-Saturday-incomplete-Sunday [nil 52 nil nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21 22] 23 24 nil 25 [26 27] [28 29] 30 [31 32] 33 34 35 36 37 38 39 40 [41 42] 43 44 45 46 47 48 49 50] (#$ . 39089))
#@159 The structure of the parashiot.
Hebrew year that starts on Saturday, is `complete' (Heshvan and Kislev each
have 30 days), and has Passover start on Tuesday.
(defconst calendar-hebrew-year-Saturday-complete-Tuesday [nil 52 nil nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21 22] 23 24 nil 25 [26 27] [28 29] 30 [31 32] 33 34 35 36 37 38 39 40 [41 42] 43 44 45 46 47 48 49 [50 51]] (#$ . 39496))
#@159 The structure of the parashiot.
Hebrew year that starts on Monday, is `incomplete' (Heshvan and Kislev each
have 29 days), and has Passover start on Tuesday.
(defconst calendar-hebrew-year-Monday-incomplete-Tuesday [51 52 nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21 22] 23 24 nil 25 [26 27] [28 29] 30 [31 32] 33 34 35 36 37 38 39 40 [41 42] 43 44 45 46 47 48 49 [50 51]] (#$ . 39911))
#@158 The structure of the parashiot.
Hebrew year that starts on Monday, is `complete' (Heshvan and Kislev each have
30 days), and has Passover start on Thursday.
(defconst calendar-hebrew-year-Monday-complete-Thursday [51 52 nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21 22] 23 24 nil 25 [26 27] [28 29] 30 [31 32] 33 (nil . 34) (34 . 35) (35 . 36) (36 . 37) (37 . 38) ([38 39] . 39) 40 [41 42] 43 44 45 46 47 48 49 [50 51]] (#$ . 40321))
#@164 The structure of the parashiot.
Hebrew year that starts on Tuesday, is `regular' (Heshvan has 29 days and
Kislev has 30 days), and has Passover start on Thursday.
(defconst calendar-hebrew-year-Tuesday-regular-Thursday [51 52 nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21 22] 23 24 nil 25 [26 27] [28 29] 30 [31 32] 33 (nil . 34) (34 . 35) (35 . 36) (36 . 37) (37 . 38) ([38 39] . 39) 40 [41 42] 43 44 45 46 47 48 49 [50 51]] (#$ . 40777))
#@165 The structure of the parashiot.
Hebrew year that starts on Thursday, is `regular' (Heshvan has 29 days and
Kislev has 30 days), and has Passover start on Saturday.
(defconst calendar-hebrew-year-Thursday-regular-Saturday [52 nil nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21 22] 23 24 nil (nil . 25) (25 . [26 27]) ([26 27] . [28 29]) ([28 29] . 30) (30 . 31) ([31 32] . 32) 33 34 35 36 37 38 39 40 [41 42] 43 44 45 46 47 48 49 50] (#$ . 41239))
#@158 The structure of the parashiot.
Hebrew year that starts on Thursday, is `complete' (Heshvan and Kislev each
have 30 days), and has Passover start on Sunday.
(defconst calendar-hebrew-year-Thursday-complete-Sunday [52 nil nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 nil 25 [26 27] [28 29] 30 [31 32] 33 34 35 36 37 38 39 40 [41 42] 43 44 45 46 47 48 49 50] (#$ . 41707))
#@161 The structure of the parashiot.
Hebrew year that starts on Saturday, is `incomplete' (Heshvan and Kislev each
have 29 days), and has Passover start on Tuesday.
(defconst calendar-hebrew-year-Saturday-incomplete-Tuesday [nil 52 nil nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 nil 28 29 30 31 32 33 34 35 36 37 38 39 40 [41 42] 43 44 45 46 47 48 49 [50 51]] (#$ . 42109))
#@160 The structure of the parashiot.
Hebrew year that starts on Saturday, is `complete' (Heshvan and Kislev each
have 30 days), and has Passover start on Thursday.
(defconst calendar-hebrew-year-Saturday-complete-Thursday [nil 52 nil nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 nil 28 29 30 31 32 33 (nil . 34) (34 . 35) (35 . 36) (36 . 37) (37 . 38) ([38 39] . 39) 40 [41 42] 43 44 45 46 47 48 49 [50 51]] (#$ . 42520))
#@160 The structure of the parashiot.
Hebrew year that starts on Monday, is `incomplete' (Heshvan and Kislev each
have 29 days), and has Passover start on Thursday.
(defconst calendar-hebrew-year-Monday-incomplete-Thursday [51 52 nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 nil 28 29 30 31 32 33 (nil . 34) (34 . 35) (35 . 36) (36 . 37) (37 . 38) ([38 39] . 39) 40 [41 42] 43 44 45 46 47 48 49 [50 51]] (#$ . 42977))
#@158 The structure of the parashiot.
Hebrew year that starts on Monday, is `complete' (Heshvan and Kislev each have
30 days), and has Passover start on Saturday.
(defconst calendar-hebrew-year-Monday-complete-Saturday [51 52 nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 nil (nil . 28) (28 . 29) (29 . 30) (30 . 31) (31 . 32) (32 . 33) (33 . 34) (34 . 35) (35 . 36) (36 . 37) (37 . 38) (38 . 39) (39 . 40) (40 . 41) ([41 42] . 42) 43 44 45 46 47 48 49 50] (#$ . 43429))
#@164 The structure of the parashiot.
Hebrew year that starts on Tuesday, is `regular' (Heshvan has 29 days and
Kislev has 30 days), and has Passover start on Saturday.
(defconst calendar-hebrew-year-Tuesday-regular-Saturday [51 52 nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 nil (nil . 28) (28 . 29) (29 . 30) (30 . 31) (31 . 32) (32 . 33) (33 . 34) (34 . 35) (35 . 36) (36 . 37) (37 . 38) (38 . 39) (39 . 40) (40 . 41) ([41 42] . 42) 43 44 45 46 47 48 49 50] (#$ . 43933))
#@160 The structure of the parashiot.
Hebrew year that starts on Thursday, is `incomplete' (Heshvan and Kislev both
have 29 days), and has Passover start on Sunday.
(defconst calendar-hebrew-year-Thursday-incomplete-Sunday [52 nil nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 nil 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50] (#$ . 44443))
#@159 The structure of the parashiot.
Hebrew year that starts on Thursday, is `complete' (Heshvan and Kislev both
have 30 days), and has Passover start on Tuesday.
(defconst calendar-hebrew-year-Thursday-complete-Tuesday [52 nil nil 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 nil 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 [50 51]] (#$ . 44841))
#@201 Parasha diary entry--entry applies if date is a Saturday.
An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar.

(fn &optional MARK)
(defalias 'diary-hebrew-parasha #[256 "\211\302
8\262
\303
\304U\203\305\306!\266\203\202T

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

\211A@\262
\302
8\262

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

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

\211A@\262
\302
8\262

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

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

\211A@\262
\302
8\262

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

\211\304W\203/
\314
!S\262
\211\312\246\304U\205E
\211\315\246\304U?\206E
\211\316\246\304U\262
\203N
\211T\262
\266\204&\266\203\211\322\246\323U\205\351
\324
!\302
8\262
\325\322\326E!\325\326\327E!	\322\246H	\322\246H\330!\331!
\203\215
\211\204\215
\332\202\232

\204\231
\211\203\231
\333\202\232
\334\335\336\337$!J\340\323\211\n\\\"\n
Z\322\245
H\211\205\347

\336\341<\203\342
@\203\327
\336\342\343@!\343A!#\202\345
\336\344\343A!\"\202\345
\343!\"B\266\214\207" [date calendar-day-name-array 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 6 calendar-hebrew-from-absolute calendar-hebrew-to-absolute 1 15 calendar-hebrew-long-heshvan-p calendar-hebrew-short-kislev-p "complete" "incomplete" "regular" intern format "calendar-hebrew-year-%s-%s-%s" calendar-dayname-on-or-before "Parashat %s" "%s (diaspora), %s (Israel)" calendar-hebrew-parasha-name "%s (Israel)"] 22 (#$ . 45242)])
#@313 Local time of candle lighting diary entry--applies if date is a Friday.
No diary entry if there is no sunset on that date.  Uses
`diary-hebrew-sabbath-candles-minutes'.

An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar.

(fn &optional MARK)
(defalias 'diary-hebrew-sabbath-candles #[256 "\305\306!\210\203	\203\n\204\307 \210\211\310
8\262
\311
\312U\203)\313\314!\266\203\202g

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

\211A@\262
\310
8\262

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

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

\211A@\262
\310
8\262

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

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

\211A@\262
\310
8\262

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

\211\312W\203B
\322
!S\262
\211\320\246\312U\205X
\211\323\246\312U?\206X
\211\324\246\312U\262
\203a
\211T\262
\266\204&\266\203\330\246\331U\205\213
\332!A@\211\205\211

\333\334\335\336@\f\337\245ZAB\"\"B\262
\207" [calendar-latitude calendar-longitude calendar-time-zone date diary-hebrew-sabbath-candles-minutes require solar solar-setup 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 5 solar-sunrise-sunset format "%s Sabbath candle lighting" apply solar-time-string 60.0] 19 (#$ . 47163)])
(provide 'cal-hebrew)