| Current Path : /usr/share/emacs/24.3/lisp/calendar/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calendar/cal-hebrew.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/cal-hebrew.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303!\210\304\305\306\307#\210\310\307\211\2030 @\305N\203) \306N\204) \311\306\305N#\210 A\211\204 *\312\305\306\313#\210\314\306\315\316\317\320\321\322\323\324& \207" [prop --dolist-tail-- require calendar defvaralias diary-sabbath-candles-minutes diary-hebrew-sabbath-candles-minutes nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1" custom-declare-variable 18 "Number of minutes before sunset for sabbath candle lighting.\nUsed by `diary-hebrew-sabbath-candles'." :group diary :type integer :version "21.1"] 11)
#@49 Non-nil if YEAR is a Hebrew calendar leap year.
(defalias 'calendar-hebrew-leap-year-p #[(year) "\301_T\302\246\301W\207" [year 7 19] 2 (#$ . 1130)])
#@45 The last month of the Hebrew calendar YEAR.
(defalias 'calendar-hebrew-last-month-of-year #[(year) "\301!\203 \302\207\303\207" [year calendar-hebrew-leap-year-p 13 12] 2 (#$ . 1287)])
#@106 Days to mean conjunction of Tishri of Hebrew YEAR.
Measured from Sunday before start of Hebrew calendar.
(defalias 'calendar-hebrew-elapsed-days #[(year) "\306S\307\245\310_S\307\246\311_S\307\246\312_T\307\245#\313 \314\246\315_\\\306\316 \311_ \314\245\315_\n\314\245$\211\317\246\314_\n\314\246\\ \306\320 \321_ \317\245# \f\322Y\204r
\312\246\323U\203] \f\324Y\203] \325!\203r
\312\246\320U\203w \f\326Y\203w \325S!\203w
T\202x
\211 \312\246\327\330\316E>\203\213 T\202\215 .\207" [year months-elapsed parts-elapsed hours-elapsed parts day + 19 235 12 7 204 1080 793 5 24 1 29 19440 2 9924 calendar-hebrew-leap-year-p 16789 0 3 alternative-day] 7 (#$ . 1481)])
#@32 Number of days in Hebrew YEAR.
(defalias 'calendar-hebrew-days-in-year #[(year) "\301T!\301!Z\207" [year calendar-hebrew-elapsed-days] 3 (#$ . 2170)])
#@44 Non-nil if Heshvan is long in Hebrew YEAR.
(defalias 'calendar-hebrew-long-heshvan-p #[(year) "\301!\302\246\303U\207" [year calendar-hebrew-days-in-year 10 5] 2 (#$ . 2329)])
#@44 Non-nil if Kislev is short in Hebrew YEAR.
(defalias 'calendar-hebrew-short-kislev-p #[(year) "\301!\302\246\303U\207" [year calendar-hebrew-days-in-year 10 3] 2 (#$ . 2512)])
#@32 The last day of MONTH in YEAR.
(defalias 'calendar-hebrew-last-day-of-month #[(month year) "\302\303\304\305\306\257>\2040 \307U\203 \310 !\2030 \311U\203$ \312 !\2030 \313U\2032 \314 !\2032 \315\207\316\207" [month year 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] 6 (#$ . 2695)])
#@143 Absolute date of Hebrew DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-hebrew-to-absolute #[(date) "\211@)\211\211A@*\3068) \307 \f\310W\203` \310\311 \211 \312\n!X\203<
\313\n\"\\T\211\202$
*\314\311 \211 \fW\203Z
\313\n\"\\T\211\202D
*\\\202~ \310\311 \211 \fW\203|
\313\n\"\\T\211\202f
*\315\n!\316$+\207" [date x year day month sum 2 + 7 0 calendar-hebrew-last-month-of-year calendar-hebrew-last-day-of-month 1 calendar-hebrew-elapsed-days -1373429 m] 8 (#$ . 3061)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-absolute-from-hebrew calendar-hebrew-to-absolute nil make-obsolete "23.1"] 4)
#@186 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.
(defalias 'calendar-hebrew-from-absolute #[(date) "\306!\307 \3108)\\\311 \211@)SH\312\313\314\nTE!Y\203( \nT\202 \315\n! \316 \312 \317 \n\"\nE!V\203D \f\246T\202. \312 \314\nE!ZT
\nE-\207" [date greg-date year month length day 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] 7 (#$ . 3824)])
#@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"] (#$ . 4451))
#@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"] (#$ . 4697))
#@156 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'.
(defalias 'calendar-hebrew-date-string #[(&optional date) "\306\206 \307 \211\3108)\311\312\n!\203 \313\314!\202p\n\315V\203\231 \nS\316\211\211@)\211\211 A@* \3108)
S\317_\\ \310V\203\205 \320 \321_\\\322\245Z \n\211\315W\203f \323\n!S\312\n\321\246!\205| \312\n\324\246!?\206| \312\n\325\246!)\203\205 T - \326_ \321\245 \324\245[ \325\245%\202p\323\nT!\327\211\211@)\211\211 A@* \3108)
S\317_\\ \310V\203\375 \320 \321_\\\322\245Z \n\211\315W\203\336 \323\n!S\312\n\321\246!\205\364 \312\n\324\246!?\206\364 \312\n\325\246!)\203\375 T - \326_ \321\245 \324\245[ \325\245\330\211\330@)\211\211 A@* \3108)
S\317_\\ \310V\203k \320 \321_\\\322\245Z \n\211\315W\203L\323\n!S\312\n\321\246!\205b\312\n\324\246!?\206b\312\n\325\246!)\203k T -&+! \331 \3108)!\203\205 \202\207 \332 \311\333#*\207" [date offset-years year month x day calendar-hebrew-from-absolute calendar-current-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-hebrew-leap-year-p calendar-date-string t day-of-year hebrew-date calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year calendar-month-name-array] 12 (#$ . 4952)])
#@67 Show the Hebrew calendar equivalent of the date under the cursor.
(defalias 'calendar-hebrew-print-date #[nil "\300\301\302\303\304!!\"\207" [message "Hebrew date (until sunset): %s" calendar-hebrew-date-string calendar-cursor-to-date t] 5 (#$ . 6384) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-print-hebrew-date calendar-hebrew-print-date nil make-obsolete "23.1"] 4)
#@71 Absolute date of the anniversary of Hebrew DEATH-DATE in Hebrew YEAR.
(defalias 'calendar-hebrew-yahrzeit #[(death-date year) "\211\211A@*\211@)\306 8) \f\307U\2034
\310U\2034 \311 T!\2044 \312\313\314E!S\202\211 \f\313U\203R
\310U\203R \315 T!\203R \312\316\314E!S\202\211 \f\317U\203e \312\320!
E!\202\211
\310U\203\202 \f\321U\203\202 \322!\204\202 \312\323\310E!\202\211 \312\f
E!+\207" [death-date date x death-year death-month death-day 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 year] 5 (#$ . 6797)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias hebrew-calendar-yahrzeit calendar-hebrew-yahrzeit nil make-obsolete "23.1"] 4)
#@91 Interactively read the arguments for a Hebrew date command.
Reads a year, month, and day.
(defalias 'calendar-hebrew-read-date #[nil "\306 \307\310\311\312\313\211\314 8)\315\316 !\203 \317\320!\202x \321V\203\235 S\322 \211\211@) \211\211 A@* . \314 8).\fS\323_\\ /\f\314V\203\211 /\324\f\325_\\\326\245Z/ \211\321W\203j \327 !S\316 \325\246!\205\200 \316 \330\246!?\206\200 \316 \331\246!)\203\211 /T//-\n\332_\n\325\245\n\330\245[\n\331\245%\202x\327 T!\333 \211\211@) \211\211 A@* . \314 8).\fS\323_\\ /\f\314V\203/\324\f\325_\\\326\245Z/ \211\321W\203\344 \327 !S\316 \325\246!\205\372 \316 \330\246!?\206\372 \316 \331\246!)\203/T//-\n\332_\n\325\245\n\330\245[\n\331\245\334\211\334@) \211\211 A@* . \314 8).\fS\323_\\ /\f\314V\203s/\324\f\325_\\\326\245Z/ \211\321W\203T\327 !S\316 \325\246!\205j\316 \330\246!?\206j\316 \331\246!)\203s/T//-&+!\314 8)!#\335 !\203\2150\202\2171 2\336 3\337\340\341\342\343\3442\315\"\" \345U\205\246\346\336$\3472\350\"\336#A \351\f \" 4 \345U\203\307\f\326U\203\307\352\202\310\350 5\307\353\35454#\355\" .\f. E.C\207" [today date offset-years year month x calendar-current-date calendar-read "Hebrew calendar year (>3760): " #[(x) "\301V\207" [x 3760] 2] number-to-string calendar-hebrew-from-absolute 2 nil zerop error "There was no year zero" 0 + 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 #[(x) "\304@\305 !\306#A\307\310\n\311\n \" E!W)\207" [x month-array m year assoc-string calendar-make-alist t 0 calendar-hebrew-to-absolute calendar-hebrew-last-day-of-month] 6] calendar-make-alist 1 calendar-hebrew-last-day-of-month 18 format "Hebrew calendar day (%d-%d): " #[(x) " X\205 \nX\207" [first x last] 2] day day-of-year calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year month-array completion-ignore-case last first] 16 (#$ . 7615)])
#@72 Move cursor to Hebrew DATE; echo Hebrew date unless NOECHO is non-nil.
(defalias 'calendar-hebrew-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206 \305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-hebrew-to-absolute calendar-hebrew-print-date] 4 (#$ . 9639) (calendar-hebrew-read-date)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-goto-hebrew-date calendar-hebrew-goto-date nil make-obsolete "23.1"] 4)
#@113 Return non-nil if Hebrew MONTH DAY is visible in the calendar window.
Returns the corresponding Gregorian date.
(defalias 'calendar-hebrew-date-is-visible-p #[(month day) "\303 W\203
\303Z\202 T\304 W\203 \304Z\202 \305\\\306 W\203* \306Z\202- \307\\\310 W\2039 \310Z\202< \311\\\312 W\203H \312Z\202K \313\\\257>\205X \314 \n\315\316\317%\207" [displayed-month month day 11 10 2 9 3 8 4 7 5 calendar-nongregorian-visible-p calendar-hebrew-to-absolute calendar-hebrew-from-absolute #[(m) "\301V\207" [m 6] 2]] 7 (#$ . 10131)])
#@252 Holiday on MONTH, DAY (Hebrew) called STRING.
If MONTH, DAY (Hebrew) is visible, the value returned is corresponding
Gregorian date in the form of the list (((month day year) STRING)). Returns
nil if it is not visible in the current calendar window.
(defalias 'holiday-hebrew #[(month day string) "\304 \"\211\205
\n DC)\207" [month day gdate string calendar-hebrew-date-is-visible-p] 4 (#$ . 10682)])
#@165 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.
(defalias 'holiday-hebrew-rosh-hashanah #[(&optional all) "\305>\205\261 \306\307\310 \311\\E!\312\313\314\n!\315\316\311 \\\"D\314\n\317\\!\320D\314\n\321\\!\322D\314\n\323\\!\324D\314\n\325\\!\326D\257 \204A \f\205\256 \314\327\330\n\331Z\"!\332D\314\nS!\333D\314\nT!\334D\314\n\211\307\246\331U\203e \335\202f \336\\!\337D\314\327\330\307\n\\\"!\340D\314\n\341\\!\342D\314\n\343\\!\344D\314\n\345\\!\346D\314\n\347\\!\350D\314\n\351\\!\352D\314\n\353\\!\354D\314\n\355\\!\356D\314\n\357\\!\360D\257
\"!)\207" [displayed-month displayed-year abs-r-h all 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"] 18 (#$ . 11095)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias holiday-rosh-hashanah-etc holiday-hebrew-rosh-hashanah nil make-obsolete "23.1"] 4)
#@150 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.
(defalias 'holiday-hebrew-hanukkah #[(&optional all) "\306>\205\267\n\307\310 \311W\203 T\312
_ \313\314$\315\f
\"T\f
\245\f\311W\2039 \314V\2039 S \314W\203B S*\316 \211 +\211 ,\317U\203\203 +\211 +\311W\203b \320+!S+\321+\322\246!\205{ \321+\323\246!?\206{ \321+\324\246!)\203\203 \325\202\210 \326,SH* E\211 - -\317-8)\310 . +\321+!\203\247 \327\330!\202K+\311V\203A+S.\312-\211 -\211 -@) ,-\211 -\211 /A@* 0- -\317-8) +0,S\331_\\ 1,\317V\203)1\332,\322_\\\333\245Z1+\211 +\311W\203\320+!S+\321+\322\246!\205 \321+\323\246!?\206 \321+\324\246!)\203)1T11-.\334_.\322\245.\323\245[.\324\245%\202K\320+T!.\335-\211 -\211 -@) ,-\211 -\211 /A@* 0- -\317-8) +0,S\331_\\ 1,\317V\203\2761\332,\322_\\\333\245Z1+\211 +\311W\203\234\320+!S+\321+\322\246!\205\265\321+\323\246!?\206\265\321+\324\246!)\203\2761T11-.\334_.\322\245.\323\245[.\324\245\336\211 - -\336@) ,-\211 -\211 /A@* 0- -\317-8) +0,S\331_\\ 1,\317V\203F1\332,\322_\\\333\245Z1+\211 +\311W\203$\320+!S+\321+\322\246!\205=\321+\323\246!?\206=\321+\324\246!)\203F1T11-&+! -\317-8) 2\337\340\3412E! 3\342 4\310 5\3436\204p7\203\255\344\3453S!\346DC\347\311 8 989W\203\245\34538\\!\350\35148H\"D5B58T\2118\202\2015\237*\"\202\264\3453!\352DC!.\207" [displayed-month m displayed-year y macro-y nmonths (10 11 12 1 2) 12 nil 0 + -1 1 mod calendar-hebrew-from-absolute 2 abs zerop 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] 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" year month date offset-years x day day-of-year h-y abs-h ord han all calendar-hebrew-all-holidays-flag i --dotimes-limit--] 12 (#$ . 12607)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias holiday-hanukkah holiday-hebrew-hanukkah nil make-obsolete "23.1"] 4)
#@160 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.
(defalias 'holiday-hebrew-passover #[(&optional all) "\306W\205 \307\310\311 \312\\E!\313\314\315\n!\316D\315\n\317\\!\320DD \204& \f\205 \n\321\246 \315\322\323\n\324Z\"!\325D\315\322\323\n\326Z\"!\327D\315\n
\330U\203J \331\202K \332Z!\333D\315\n\332Z!\334D\315\n\326Z!\335D\315\n\336
!\203i \337\202j \340Z!\341D\315\322\323\n\342Z\"\321Z!\343D\315\322\323\n\342Z\"!\344D\315\322\323\nS\"!\345D\315\nS!\346D\315\nT!\347D\315\n\330\\!\350D\315\n\351\\!\352D\315\n\353\\!\354D\315\n\355\\!\356D\315\n\323\\!\357D\315\n\321\\!\360D\315\n\336\n\361\\\321\246!\203\323 \362\202\324 \361\\!\363D\315\n\336
!\203\344 \364\202\371
\323U\203\356 \365\202\371
\330U\203\370 \366\202\371 \367\\!\370D\315\n\331\\!\371D\315\n\324\\!\372D\315\n\373\\!\374D\315\n\375\\!\376D\257)\"!)\207" [displayed-month displayed-year abs-p all calendar-hebrew-all-holidays-flag wday 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" zerop 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)"] 28 (#$ . 14855)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias holiday-passover-etc holiday-hebrew-passover nil make-obsolete "23.1"] 4)
#@65 List of dates around Tisha B'Av, as visible in calendar window.
(defalias 'holiday-hebrew-tisha-b-av #[nil "\304>\205J \305\306\307 \310\\E!\211\311\246\312\313\n \314U\203 \315\202! \316Z!\317D\313\320\314\n\"!\321D\313 \314U\2039 \nT\202: \n!\322D\313\320\314\n\311\\\"!\323DF!*\207" [displayed-month displayed-year abs-t-a wday (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"] 10 (#$ . 16745)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\"\207" [defalias holiday-tisha-b-av-etc holiday-hebrew-tisha-b-av nil make-obsolete "23.1" autoload holiday-julian "cal-julian"] 4)
#@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 #[nil " \306\211 \307\310\311\312\306 4 5\f\313W\203 \fT\314\f5_
\315\211$4\31645\"T45\2454\313W\203C
\317V\203C \fS\f\317W\203L \fS*\320
\317\fE\211 6 6\32168)\306 7\322 !\203l \323\324!\202\365 \313V\203\374 S7\3146\211 6\211 6@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203\344 ;\3268\327_\\\330\245Z; \211\313W\203\305 \331 !S\322 \327\246!\205\333 \322 \332\246!?\206\333 \322 \333\246!)\203\344 ;T;;-7\334_7\327\2457\332\245[7\333\245%\202\365\331 T!7\3356\211 6\211 6@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203p;\3268\327_\\\330\245Z; \211\313W\203Q\331 !S\322 \327\246!\205g\322 \332\246!?\206g\322 \333\246!)\203p;T;;-7\334_7\327\2457\332\245[7\333\245\336\211 6 6\336@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203\360;\3268\327_\\\330\245Z; \211\313W\203\321\331 !S\322 \327\246!\205\347\322 \332\246!?\206\347\322 \333\246!)\203\360;T;;-&+! 6\32168)\322 T\327\246!\203\f\337\202
\340\341#\342\330\343\344 E\211 6 6\32168)\306 7\322 !\2030\323\324!\202\271 \313V\203\300 S7\3146\211 6\211 6@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203\250;\3268\327_\\\330\245Z; \211\313W\203\211\331 !S\322 \327\246!\205\237\322 \332\246!?\206\237\322 \333\246!)\203\250;T;;-7\334_7\327\2457\332\245[7\333\245%\202\271\331 T!7\3356\211 6\211 6@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\2034;\3268\327_\\\330\245Z; \211\313W\203\331 !S\322 \327\246!\205+\322 \332\246!?\206+\322 \333\246!)\2034;T;;-7\334_7\327\2457\332\245[7\333\245\336\211 6 6\336@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203\264;\3268\327_\\\330\245Z; \211\313W\203\225\331 !S\322 \327\246!\205\253\322 \332\246!?\206\253\322 \333\246!)\203\264;T;;-&+! 6\32168)\345\330\211\nE!\346\246\347U\203\324\311\202\325\330\350#\342\311\351\352#\342\311 \312\306 4 5\f\313W\203\361\fT\314\f5_
\315\317$4\31645\"T45\2454\313W\203
\317V\203\fS\f\317W\203#\fS*\343
\211\f\211 8\321U\203\\ \211\313W\203>\331 !S\322 \327\246!\205T\322 \332\246!?\206T\322 \333\246!)\203\\\353\202a\3548SH*\fE\211 6 6\32168)\306 7\322 !\203~\323\324!\202 \313V\203 S7\3146\211 6\211 6@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203\366;\3268\327_\\\330\245Z; \211\313W\203\327\331 !S\322 \327\246!\205\355\322 \332\246!?\206\355\322 \333\246!)\203\366;T;;-7\334_7\327\2457\332\245[7\333\245%\202\331 T!7\3356\211 6\211 6@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203\202;\3268\327_\\\330\245Z; \211\313W\203c\331 !S\322 \327\246!\205y\322 \332\246!?\206y\322 \333\246!)\203\202;T;;-7\334_7\327\2457\332\245[7\333\245\336\211 6 6\336@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203;\3268\327_\\\330\245Z; \211\313W\203\343\331 !S\322 \327\246!\205\371\322 \332\246!?\206\371\322 \333\246!)\203;T;;-&+! 6\32168)\343\355\347\345\311\345\346\317\nE!\346\246\347U\203'\356\202(\357\nE!\"!\211 6\211 9A@*\360# \312\306 4 5\f\313W\203K\fT\314\f5_
\315\211$4\31645\"T45\2454\313W\203t
\317V\203t\fS\f\317W\203}\fS*\320
\317\fE\211 6 6\32168)\306 7\322 !\203\235\323\324!\202& \313V\203- S7\3146\211 6\211 6@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203;\3268\327_\\\330\245Z; \211\313W\203\366\331 !S\322 \327\246!\205\f\322 \332\246!?\206\f\322 \333\246!)\203;T;;-7\334_7\327\2457\332\245[7\333\245%\202&\331 T!7\3356\211 6\211 6@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203\241;\3268\327_\\\330\245Z; \211\313W\203\202\331 !S\322 \327\246!\205\230\322 \332\246!?\206\230\322 \333\246!)\203\241;T;;-7\334_7\327\2457\332\245[7\333\245\336\211 6 6\336@) 86\211 6\211 9A@* :6 6\32168):8S\325_\\ ;8\321V\203!;\3268\327_\\\330\245Z; \211\313W\203\331 !S\322 \327\246!\205\322 \332\246!?\206\322 \333\246!)\203!;T;;-&+! 6\32168)\211\344\246\340U\205=\310\361\362\363#%,\207" [displayed-month displayed-year h-year year y m nil append holiday-julian 11 12 0 + -1 mod 1 calendar-julian-from-absolute 2 zerop 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" macro-y nmonths date offset-years month x day day-of-year] 18 (#$ . 17519)])
(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 #[nil "\302 \303#\207" [calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-list-entries-1 calendar-hebrew-from-absolute] 4 (#$ . 22379)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\"\207" [defalias list-hebrew-diary-entries diary-hebrew-list-entries nil make-obsolete "23.1" autoload calendar-mark-complex "diary-lib"] 4)
#@195 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.
(defalias 'calendar-hebrew-mark-date-pattern #[(month day year &optional color) "rq\210\306 !\204@ \306\n!\204@ \306 !\204- \307\310 \n E!! \311\f!\205) \312\f
\")\202G \313 \n\"\211 \205< \312
\")\202G \314 \n \315
%)\207" [calendar-buffer month day year date color zerop 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 gdate] 7 (#$ . 23489)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\"\207" [defalias mark-hebrew-calendar-date-pattern calendar-hebrew-mark-date-pattern nil make-obsolete "23.1" autoload diary-mark-entries-1 "diary-lib"] 4)
#@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 #[nil "\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 (#$ . 24415)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\"\207" [defalias mark-hebrew-diary-entries diary-hebrew-mark-entries nil make-obsolete "23.1" autoload diary-insert-entry-1 "diary-lib"] 4)
#@100 Insert a diary entry for the Hebrew date at point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-hebrew-insert-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-insert-entry-1 nil calendar-hebrew-from-absolute] 6 (#$ . 25077) "P"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias insert-hebrew-diary-entry diary-hebrew-insert-entry nil make-obsolete "23.1"] 4)
#@157 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.
(defalias 'diary-hebrew-insert-monthly-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-insert-entry-1 monthly calendar-hebrew-from-absolute] 6 (#$ . 25550) "P"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias insert-monthly-hebrew-diary-entry diary-hebrew-insert-monthly-entry nil make-obsolete "23.1"] 4)
#@156 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.
(defalias 'diary-hebrew-insert-yearly-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol diary-insert-entry-1 yearly calendar-hebrew-from-absolute] 6 (#$ . 26108) "P"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias insert-yearly-hebrew-diary-entry diary-hebrew-insert-yearly-entry nil make-obsolete "23.1"] 4)
#@182 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.
(defalias 'calendar-hebrew-list-yahrzeits #[(death-date start-year end-year) "\306\307!\210\310\211\311 8)\312\313 !\203 \314\315!\202u \316V\203\232 S\317 \211\211@) \211\211 A@* + \311 8)+\fS\320_\\ ,\f\311V\203\206 ,\321\f\322_\\\323\245Z, \211\316W\203g \324 !S\313 \322\246!\205} \313 \325\246!?\206} \313 \326\246!)\203\206 ,T,,-\n\327_\n\322\245\n\325\245[\n\326\245%\202u\324 T!\330 \211\211@) \211\211 A@* + \311 8)+\fS\320_\\ ,\f\311V\203 ,\321\f\322_\\\323\245Z, \211\316W\203\341 \324 !S\313 \322\246!\205\367 \313 \325\246!?\206\367 \313 \326\246!)\203 ,T,,-\n\327_\n\322\245\n\325\245[\n\326\245\331\211\331@) \211\211 A@* + \311 8)+\fS\320_\\ ,\f\311V\203p,\321\f\322_\\\323\245Z, \211\316W\203Q\324 !S\313 \322\246!\205g\313 \325\246!?\206g\313 \326\246!)\203p,T,,-&+!\211 -\311 8) ./S 0\3321!q\210\333\334!\204\225\334 \210\3122\3353\336 \210\337\340\341\342!\343.!\203\2604\202\2625 6\342-\312\335#)#!\2100T\21107X\203U\342\344\345-\310\346\2110E\211\311 8)\312\313 !\203\353\314\315!\202D \316V\203i S\317 \211\211@) \211\211 A@* + \311 8)+\fS\320_\\ ,\f\311V\203U,\321\f\322_\\\323\245Z, \211\316W\2036\324 !S\313 \322\246!\205L\313 \325\246!?\206L\313 \326\246!)\203U,T,,-\n\327_\n\322\245\n\325\245[\n\326\245%\202D\324 T!\330 \211\211@) \211\211 A@* + \311 8)+\fS\320_\\ ,\f\311V\203\317,\321\f\322_\\\323\245Z, \211\316W\203\260\324 !S\313 \322\246!\205\306\313 \325\246!?\206\306\313 \326\246!)\203\317,T,,-\n\327_\n\322\245\n\325\245[\n\326\245\331\211\331@) \211\211 A@* + \311 8)+\fS\320_\\ ,\f\311V\203?,\321\f\322_\\\323\245Z, \211\316W\203 \324 !S\313 \322\246!\2056\313 \325\246!?\2066\313 \326\246!)\203?,T,,-&+!\311 8)\"!!\347\261\210\202\276eb\210\350\312!\210\3352\3511!\210+\306\352!\207" [death-date date offset-years year month x message "Computing Yahrzeits..." calendar-hebrew-from-absolute 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) get-buffer-create derived-mode-p special-mode t erase-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 display-buffer "Computing Yahrzeits...done" day day-of-year h-date h-year start-year i 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 end-year] 16 (#$ . 26661) (let* ((death-date (if (equal (current-buffer) (get-buffer calendar-buffer)) (calendar-cursor-to-date t) (let* ((today (calendar-current-date)) (year (calendar-read "Year of death (>0): " #'(lambda (x) (> x 0)) (number-to-string (calendar-extract-year today)))) (month-array calendar-month-name-array) (completion-ignore-case t) (month (cdr (assoc-string (completing-read "Month of death (name): " (mapcar 'list (append month-array nil)) nil t) (calendar-make-alist month-array 1) t))) (last (calendar-last-day-of-month month year)) (day (calendar-read (format "Day of death (1-%d): " last) #'(lambda (x) (and (< 0 x) (<= x last)))))) (list month day year)))) (death-year (calendar-extract-year death-date)) (start-year (calendar-read (format "Starting year of Yahrzeit table (>%d): " death-year) #'(lambda (x) (> x death-year)) (number-to-string (1+ death-year)))) (end-year (calendar-read (format "Ending year of Yahrzeit table (>=%d): " start-year) #'(lambda (x) (>= x start-year))))) (list death-date start-year end-year))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias list-yahrzeit-dates calendar-hebrew-list-yahrzeits nil make-obsolete "23.1"] 4)
#@72 Absolute date of the anniversary of Hebrew birth DATE, in Hebrew YEAR.
(defalias 'calendar-hebrew-birthday #[(date year) "\211\211A@*\211@)\3068) \307\n!U\203) \310\307
!\f
E!\2023 \311\310 \312
E!\f\313#+\207" [date x b-year b-month b-day year 2 calendar-hebrew-last-month-of-year calendar-hebrew-to-absolute + 1 -1] 6 (#$ . 30644)])
#@49 Hebrew calendar equivalent of date diary entry.
(defalias 'diary-hebrew-date #[nil "\301\302\303!\"\207" [date format "Hebrew date (until sunset): %s" calendar-hebrew-date-string] 4 (#$ . 30996)])
#@617 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.
(defalias 'diary-hebrew-birthday #[(month day year &optional after-sunset) "\306\307 \n#\211\310 8)\311 \312\n!\203 \313\314!\202o\n\315V\203\230 \nS\316 \211\211@) \211\211 A@* \310 8) S\317_\\ \310V\203\204 \320\321_\\\322\245Z \n\211\315W\203e \323\n!S\312\n\321\246!\205{ \312\n\324\246!?\206{ \312\n\325\246!)\203\204 T -\f\326_\f\321\245\f\324\245[\f\325\245%\202o\323\nT!\327 \211\211@) \211\211 A@* \310 8) S\317_\\ \310V\203\374 \320\321_\\\322\245Z \n\211\315W\203\335 \323\n!S\312\n\321\246!\205\363 \312\n\324\246!?\206\363 \312\n\325\246!)\203\374 T -\f\326_\f\321\245\f\324\245[\f\325\245\330\211\330@) \211\211 A@* \310 8) S\317_\\ \310V\203j \320\321_\\\322\245Z \n\211\315W\203K\323\n!S\312\n\321\246!\205a\312\n\324\246!?\206a\312\n\325\246!)\203j T -&+!\203y\331\202z\315\\!\211 \"\310 8) # \211\310 8)\311 \312\n!\203\235\313\314!\202\360\n\315V\203\nS\316 \211\211@) \211\211 A@* \310 8) S\317_\\ \310V\203 \320\321_\\\322\245Z \n\211\315W\203\346\323\n!S\312\n\321\246!\205\374\312\n\324\246!?\206\374\312\n\325\246!)\203 T -\f\326_\f\321\245\f\324\245[\f\325\245%\202\360\323\nT!\327 \211\211@) \211\211 A@* \310 8) S\317_\\ \310V\203} \320\321_\\\322\245Z \n\211\315W\203^\323\n!S\312\n\321\246!\205t\312\n\324\246!?\206t\312\n\325\246!)\203} T -\f\326_\f\321\245\f\324\245[\f\325\245\330\211\330@) \211\211 A@* \310 8) S\317_\\ \310V\203\353 \320\321_\\\322\245Z \n\211\315W\203\314\323\n!S\312\n\321\246!\205\342\312\n\324\246!?\206\342\312\n\325\246!)\203\353 T -&+ $\306$!\310 8)\211 %#Z &\332\"%\" '&\315V\2056'$\211TD>\2056\333\334(&\335&!'$U\2034\336\2025\337%.\207" [month day year date offset-years x calendar-hebrew-from-absolute diary-make-date 2 nil zerop error "There was no year zero" 0 + 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)" day-of-year after-sunset h-date h-year d h-yr age b-date entry] 12 (#$ . 31201)])
#@203 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.
(defalias 'diary-hebrew-omer #[(&optional mark) "\306\307\310\3118)\312\\E!\211\3118)\313\314 !\203% \315\316!\202~ \317V\203\243 S\320\211\211@) \211\211 A@* #\3118)#\fS\321_\\ $\f\311V\203\217 $\322\f\323_\\\324\245Z$ \211\317W\203p \325 !S\314 \323\246!\205\206 \314 \326\246!?\206\206 \314 \327\246!)\203\217 $T$$-\n\330_\n\323\245\n\326\245[\n\327\245%\202~\325 T!\331\211\211@) \211\211 A@* #\3118)#\fS\321_\\ $\f\311V\203 $\322\f\323_\\\324\245Z$ \211\317W\203\352 \325 !S\314 \323\246!\205 \314 \326\246!?\206 \314 \327\246!)\203 $T$$-\n\330_\n\323\245\n\326\245[\n\327\245\332\211\332@) \211\211 A@* #\3118)#\fS\321_\\ $\f\311V\203y$\322\f\323_\\\324\245Z$ \211\317W\203Z\325 !S\314 \323\246!\205p\314 \326\246!?\206p\314 \327\246!)\203y$T$$-&+ Z\211 %\333\245 &%\333\246 #%\317V\205\332%\334W\205\332'\335\336%\314&!\203\255\337\202\330\335\340&\211\307U\203\273\337\202\274\341\314#!\203\307\337\202\327\335\342#\211\307U\203\325\337\202\326\341#$#B,\207" [date passover offset-years year month x calendar-hebrew-to-absolute 1 15 2 3760 nil zerop error "There was no year zero" 0 + 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" day day-of-year omer week mark] 14 (#$ . 33957)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\"\207" [defalias diary-omer diary-hebrew-omer nil make-obsolete "23.1" autoload diary-make-date "diary-lib"] 4)
#@762 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.
(defalias 'diary-hebrew-yahrzeit #[(death-month death-day death-year &optional mark after-sunset) "\306\307 \n#\211\310 8)\311 \312
!\203 \313\314!\202\204
\315V\203\237
S\316 \211\211@) \211\211 !A@* \" \310 8) \" S\317_\\ # \310V\203\213 #\320 \321_\\\322\245Z#
\211 \315W\203l \323
!S\312
\321\246!\205\202 \312
\324\246!?\206\202 \312
\325\246!)\203\213 #T##-\f\326_\f\321\245\f\324\245[\f\325\245%\202\204\323
T!\327 \211\211@) \211\211 !A@* \" \310 8) \" S\317_\\ # \310V\203\n#\320 \321_\\\322\245Z#
\211 \315W\203\353 \323
!S\312
\321\246!\205\312
\324\246!?\206\312
\325\246!)\203\n#T##-\f\326_\f\321\245\f\324\245[\f\325\245\330\211\330@) \211\211 !A@* \" \310 8) \" S\317_\\ # \310V\203#\320 \321_\\\322\245Z#
\211 \315W\203`\323
!S\312
\321\246!\205v\312
\324\246!?\206v\312
\325\246!)\203#T##-&+$\203\216\331\202\217\315\\!\211 %\310 8) & \211\310 8)\311 \312
!\203\262\313\314!\202
\315V\2035
S\316 \211\211@) \211\211 !A@* \" \310 8) \" S\317_\\ # \310V\203!#\320 \321_\\\322\245Z#
\211 \315W\203\323
!S\312
\321\246!\205\312
\324\246!?\206\312
\325\246!)\203!#T##-\f\326_\f\321\245\f\324\245[\f\325\245%\202\323
T!\327 \211\211@) \211\211 !A@* \" \310 8) \" S\317_\\ # \310V\203\240#\320 \321_\\\322\245Z#
\211 \315W\203\201\323
!S\312
\321\246!\205\227\312
\324\246!?\206\227\312
\325\246!)\203\240#T##-\f\326_\f\321\245\f\324\245[\f\325\245\330\211\330@) \211\211 !A@* \" \310 8) \" S\317_\\ # \310V\203#\320 \321_\\\322\245Z#
\211 \315W\203\366\323
!S\312
\321\246!\205\f\312
\324\246!?\206\f\312
\325\246!)\203#T##-&+ '\306'!\310 8)\211 (&Z )\332%(\" *)\315V\205i*'U\204N*'TU\205i+\333\334,*'U\203`\335\202a\336)\337)!%B.\207" [death-month death-day death-year date offset-years year calendar-hebrew-from-absolute diary-make-date 2 nil zerop error "There was no year zero" 0 + 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 month x day day-of-year after-sunset h-date h-year d yr diff y mark entry] 12 (#$ . 35720)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias diary-yahrzeit diary-hebrew-yahrzeit nil make-obsolete "23.1"] 4)
#@226 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.
(defalias 'diary-hebrew-rosh-hodesh #[(&optional mark) "\211\3068)\307\310\n!\203 \311\312!\202j\n\313V\203\223 \nS\314\211\211@)\211\211 A@* \3068)
S\315_\\ ) \306V\203 )\316 \317_\\\320\245Z)\n\211\313W\203` \321\n!S\310\n\317\246!\205v \310\n\322\246!?\206v \310\n\323\246!)\203 )T))- \324_ \317\245 \322\245[ \323\245%\202j\321\nT!\325\211\211@)\211\211 A@* \3068)
S\315_\\ ) \306V\203\367 )\316 \317_\\\320\245Z)\n\211\313W\203\330 \321\n!S\310\n\317\246!\205\356 \310\n\322\246!?\206\356 \310\n\323\246!)\203\367 )T))- \324_ \317\245 \322\245[ \323\245\326\211\326@)\211\211 A@* \3068)
S\315_\\ ) \306V\203e)\316 \317_\\\320\245Z)\n\211\313W\203F\321\n!S\310\n\317\246!\205\\\310\n\322\246!?\206\\\310\n\323\246!)\203e)T))-&+ *\327*!\211 +\211@) ,+\211\211 A@* -+\3068) .\330.! /\331,.\" 0/\203\2461\202\2502\211 3,SH 4\327*S!\211\211 A@* 5-\332U\204\324-\333U\203 ,\334U\204 6\335\336-\332U\203\352\335\3373,H\"\202\3735\332U\203\371\335\3404\"\202\3734\"B\202\247*\334\246\341U\203-\342V\203A,\341U\204A0\343U\203A6\335\3443,\345.!U\2032\313\2024,H7\343-ZH#B\202\247-\332W\205\247-\342V\205\2470\332U\205\2476\335\3463,H-\343U\203j\347\202q7\343-ZH7\332-Z\334\246H$B\202\247-\343U\205\247,\341U?\205\2476\335\3503,\345.!U\203\242\313\202\244,H\"B.\n\207" [date offset-years year month x day 2 nil zerop error "There was no year zero" 0 + 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" day-of-year d h-date h-month h-day h-year leap-year last-day calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year h-month-names this-month h-yesterday mark calendar-day-name-array] 11 (#$ . 38836)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias diary-rosh-hodesh diary-hebrew-rosh-hodesh nil make-obsolete "23.1"] 4)
#@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"] (#$ . 41281))
#@37 Name(s) corresponding to parasha P.
(defalias 'calendar-hebrew-parasha-name #[(p) "\302!\203 \303\304 \305HH \306HH#\207 H\207" [p calendar-hebrew-parashiot-names arrayp format "%s/%s" 0 1] 6 (#$ . 41925)])
#@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] (#$ . 42144))
#@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]] (#$ . 42551))
#@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]] (#$ . 42966))
#@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]] (#$ . 43376))
#@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]] (#$ . 43832))
#@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] (#$ . 44294))
#@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] (#$ . 44762))
#@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]] (#$ . 45164))
#@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]] (#$ . 45575))
#@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]] (#$ . 46032))
#@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] (#$ . 46484))
#@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] (#$ . 46988))
#@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] (#$ . 47498))
#@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]] (#$ . 47896))
#@180 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.
(defalias 'diary-hebrew-parasha #[(&optional mark) "\211\3068)\307\310\n!\203 \311\312!\202j\n\313V\203\223 \nS\314\211\211@)\211\211 A@* \3068)
S\315_\\ * \306V\203 *\316 \317_\\\320\245Z*\n\211\313W\203` \321\n!S\310\n\317\246!\205v \310\n\322\246!?\206v \310\n\323\246!)\203 *T**- \324_ \317\245 \322\245[ \323\245%\202j\321\nT!\325\211\211@)\211\211 A@* \3068)
S\315_\\ * \306V\203\367 *\316 \317_\\\320\245Z*\n\211\313W\203\330 \321\n!S\310\n\317\246!\205\356 \310\n\322\246!?\206\356 \310\n\323\246!)\203\367 *T**- \324_ \317\245 \322\245[ \323\245\326\211\326@)\211\211 A@* \3068)
S\315_\\ * \306V\203e*\316 \317_\\\320\245Z*\n\211\313W\203F\321\n!S\310\n\317\246!\205\\\310\n\322\246!?\206\\\310\n\323\246!)\203e*T**-&+\211 +\327\246\330U\205-\331+!\3068) ,\332\327\333,E! -\332\333\334,E! ./-\327\246H 0/.\327\246H 1\335,! 2\336,! 32\203\2763\204\276\337\202\3152\204\3143\203\314\340\202\315\341 4\342\343\344041$!J 5\345\330\211-\\\" 6+6Z\327\245 757H\211 8\205+9\343\3468<\203%8@\203\343\347\3508@!\3508A!#\202)\343\351\3508A!\"\202)\3508!\"B.\f)\207" [date offset-years year month x day 2 nil zerop error "There was no year zero" 0 + 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)" day-of-year d h-year rosh-hashanah passover calendar-day-name-array rosh-hashanah-day passover-day long-h short-k type year-format first-saturday saturday parasha mark] 11 (#$ . 48297)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias diary-parasha diary-hebrew-parasha nil make-obsolete "23.1"] 4)
#@292 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.
(defalias 'diary-hebrew-sabbath-candles #[(&optional mark) "\306\307!\210\203 \203 \n\204 \310 \210 \211\311 8)\312 \313
!\203* \314\315!\202\222
\316V\203\255
S\317 \211\211@) \" \211\211 #A@* $ \311 8) $\"S\320_\\ %\"\311V\203\231 %\321\"\322_\\\323\245Z%
\211 \316W\203z \324
!S\313
\322\246!\205\220 \313
\325\246!?\206\220 \313
\326\246!)\203\231 %T%%-\f\327_\f\322\245\f\325\245[\f\326\245%\202\222\324
T!\330 \211\211@) \" \211\211 #A@* $ \311 8) $\"S\320_\\ %\"\311V\203%\321\"\322_\\\323\245Z%
\211 \316W\203\371 \324
!S\313
\322\246!\205\313
\325\246!?\206\313
\326\246!)\203%T%%-\f\327_\f\322\245\f\325\245[\f\326\245\331\211\331@) \" \211\211 #A@* $ \311 8) $\"S\320_\\ %\"\311V\203\215%\321\"\322_\\\323\245Z%
\211 \316W\203n\324
!S\313
\322\246!\205\204\313
\325\246!?\206\204\313
\326\246!)\203\215%T%%-&+\332\246\333U\205\277\334 !\211 #A@)\211 &\205\276'\335\336\337\340&@(\341\245Z&AB\"\"B)\207" [calendar-latitude calendar-longitude calendar-time-zone date offset-years year require solar solar-setup 2 nil zerop error "There was no year zero" 0 + 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 month x day day-of-year sunset mark diary-hebrew-sabbath-candles-minutes] 11 (#$ . 50427)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias diary-sabbath-candles diary-hebrew-sabbath-candles nil make-obsolete "23.1" provide cal-hebrew] 4)