....................................../////.===Shadow-Here===./////................................................ > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < ------------------------------------------------------------------------------------------------------------------- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// RIFF¤ WEBPVP8 ˜ ðÑ *ôô>‘HŸK¥¤"§£±¨àð enü¹%½_F‘åè¿2ºQú³íªú`N¿­3ÿƒügµJžaÿ¯ÿ°~¼ÎùnúîÞÖô•òíôÁÉß®Sm¥Ü/ ‡ó˜f£Ùà<˜„xëJ¢Ù€SO3x<ªÔ©4¿+ç¶A`q@Ì“Úñè™ÍÿJÌ´ª-˜ÆtÊÛL]Ïq*‘Ý”ì#ŸÌÏãY]@ê`¿ /ªfkØB4·®£ó z—Üw¥Pxù–ÞLШKÇN¾AkÙTf½è'‰g gÆv›Øuh~ a˜Z— ïj*á¥t d£“uÒ ¨`K˜¹ßþ]b>˜]_ÏÔ6W—è2r4x•íÖ…"ƒÖNîä!¦å Ú}ýxGøÌ —@ ;ÆÚŠ=ɾ1ý8lªË¥ô ^yf®Œ¢u&2©nÙÇ›ñÂñŒ³ aPo['½»øFùà­+4ê“$!lövlüÞ=;N®3ð‚õ›DÉKòÞ>ÄÍ ¥ˆuߤ#ˆ$6ù™¥îŠ‡y’ÍB¼ çxÛ;X"WL£R÷͝*ó-¶Zu}º.s¸sšXqù–DþÿvªhüïwyŸ ¯é³lÀ:KCûÄ£Ëá\…­ ~—ýóî ¼ûûÜTÓüÇy…ŽÆvc»¾×U ñ¸žþоP÷¦ó:Ò¨¨5;Ð#&#ÖúñläÿÁœ GxÉ­/ñ‡áQðìYÉtÒwŽ¼GÔ´zàÒò ð*ëzƒ•4~H]Ø‹f ñÓÈñ`NåWçs'ÆÏW^ø¹!XžµmQ5ÃËoLœÎ: ÞËÍ¥J ù…î èo£ßPÎñ¶ž8.Œ]ʵ~5›ÙË-ù*8ÙÖß±~ ©¹rÓê‚j¶d¸{^Q'˜±Crß ÚH—#¥¥QlÀ×ëã‡DÜ«èî þ&Çæžî;ŽÏºò6ÒLÃXy&ZŒ'j‚¢Ù€IßÚù+–MGi‰*jE€‘JcÜ ÓÌ EÏÚj]o˜ Þr <¾U ûŪæÍ/šÝH¥˜b”¼ ÁñßX GP›ï2›4WŠÏà×£…íÓk†¦H·ÅíMh–*nó÷à]ÁjCº€b7<ب‹¨5車bp2:Á[UªM„QŒçiNMa#<5›áËó¸HýÊ"…×Éw¹¦ì2º–x<›»a±¸3Weü®FÝ⑱ö–î–³|LPÈ~çð~Çå‡|º kD¢µÏàÆAI %1À% ¹Ò – ”ϝS¦‰4&¶£°à Öý”û_Ò Áw°A«Å€?mÇÛgHÉ/8)á¾ÛìáöŽP í¨PŸNÙµº¦‡§Ùš"ÿ«>+ªÕ`Ê÷‡‚ß Õû˜þãÇ-PÍ.¾XV‘€ dÜ"þ4¹ ±Oú‘©t¥¦FªÄÃÄ•b‚znýu½—#cDs˜ÃiÑOˆñ×QO=*IAÊ,¶ŽZƒ;‡wøXè%EÐk:F±Ú” .Ѽ+Áu&Ç`."pÈÉw o&¿dE6‘’EqTuK@Ì¥ã™À(Êk(h‰,H}RÀIXÛš3µ1©_OqÚÒJAñ$ÊÙÜ;D3çŒ[þùœh¬Ã³™ö6ç†NY".Ú‰ï[ªŸŒ '²Ð öø_¨ÂÉ9u鶳ÒŠõTàîMØ#û¯gN‡bÙ놚X„ö …ÉeüÌ^J ‹€.œ$Æ)βÄeæW#óüßĺŸ€ ÀzwV 9oä»f4V*uB «Ë†¹ì¯žR霓æHXa=&“I4K;¯ç‹h×·"UŠ~<•â•ªVêª&ÍSÃÆÅ?ÔqÎ*mTM ˜›µwêd#[C¡©§‘D<©àb†–ÁœøvH/,í:¯( ²£|4-„Æövv„Yͼ™^Á$ˆ„¢Û[6yB.åH*V¨æ?$=˜Ñ€•î¦ñ·­(VlŸ‘ nÀt8W÷´Bûba?q9ú¶Xƒl«ÿ\ù¶’þòUÐj/õ¢Ìµ³g$ƒÎR!¸»|Oߍë’BhîÚÑ¢ñåŒJ„®„£2Ð3•ô02Nt…!£Í]Ïc½Qÿ?ˆ<&ÃA¾Ú,JˆijÌ#5yz„‰Î|ÊŽ5QÏ:‹ÐaóVÔxW—CpeÏzÐïíçôÿÅ_[hãsÐ_/ŽTÝ?BîˆííV$<¿i>²F¬_Eß¿ †bÊŒº­ÿ®Z H“C}”¬,Mp ý/Bá£w>˜YV°aƒúh+cŠ- r/[%|üUMHäQ°X»|û/@|°¥Ð !BÔ Ç¢Ä©š+Õì D«7ìN¶ŽðÔ " ƶ’ÖçtA‰Û×}{tþz­¾GÍ›k¹OEJR$ Â׃ «ëÁ"oÉôž$oUK(Ä)Ãz³Ê-‹êN[Ò3Œñbï8P 4ƒ×q¢bo|?<ÛX¬òÄÍ°L–±›(™ûG?ýË©ÚÄ–ÂDØÐ_Ç¡ô ¾–ÄÏø ×e8Ë©$ÄF¹Å‹ì[©óìl:F¾f´‹‹Xì²ï®\¬ôùƒ ÿat¥óèÒùHß0äe‚;ü×h:ÆWðHž=Ã8骣"kœ'Y?³}Tûè€>?0l›e1Lòñ„aæKÆw…hÖŠùW…ÈÆÄ0ši·›[pcwËþñiêíY/~-Á5˜!¿†A›™Mÿþ(±“t@â“ö2­´TG5yé]çå僳 .·ÍïçÝ7UÚ±Ð/Nè»,_Ï ùdj7\ï Wì4›„»c¸àešg#ÒÊ⥭áØo5‘?ÌdÝô¯ ¹kzsƒ=´#ëÉK›Ø´±-¥eW?‡çßtòTã…$Ý+qÿ±ƒ÷_3Ô¥í÷:æ–ž<·Ö‡‰Å¢ š‡%Ô—utÌÈìðžgÖÀz²À—ï÷Óîäõ{K'´È÷³yaÏÁjƒô}ž§®æÊydÕÈë5¯èˆõvÕ©ã*çD„ “z„Ó‡^^xÂ3M§A´JG‚öï 3W'ˆ.OvXè¡ÊÕª?5º7†˜(˜Ç¶#çê’¶!ÌdZK§æ 0fãaN]òY³RV ™î$®K2R¨`W!1Ôó\;Ý ýB%qæK•&ÓÈe9È0êI±žeŸß -ú@žQr¦ ö4»M¼Áè¹µmw 9 EÆE_°2ó„ŸXKWÁ×Hóì^´²GѝF©óäR†¦‰ç"V»eØ<3ùd3ÿÚ¤Žú“Gi" —‘_ÙËÎ~Üö¯¥½Î»üŸEÚŽåmÞþí ;ÞólËΦMzA"Âf(´òá;Éï(/7½ûñÌ­cïÕçлþÝz¾-ÍvÑ“pH­–ðÓj$¸Äû¤‚‘ãUBË-n“2åPkS5&‹Â|+g^œ®Ì͆d!OïäîU«c;{Û!ÅŽ«ëZ9Ókóˆ]¯ƒ›né `ÇÒ+tÆš (ØKá¾—=3œ®•vuMñg²\ï Ec€ 05±d™‡×iÇ×›UúvÌ¢£Èþ¡ÕØô¶ßÎA"ß±#Ö²ˆÊŸ¦*Ä~ij|àø.-¼'»Ú¥£h ofº¦‡VsR=N½„Î v˜Z*SÌ{=jÑB‹tê…;’HžH¯8–îDù8ñ¢|Q•bÛçš–‹m³“ê¨ åÏ^m¬Žãþ©ïêO‡½6] µÆ„Ooòü ²x}N¦Ë3ïé¿»€›HA˜m%çÞ/¿í7Fø“‹léUk)É°Œµ8Q8›:ÀŠeT*šõ~ôڝG6 ¢}`ùH­–”¡k ‰P1>š†®9z11!X wKfmÁ¦xÑ,N1Q”–æB¶M…ÒÃv6SMˆhU¬ÊPŽï‘öj=·CŒ¯u¹ƒVIЃsx4’ömÛýc塶7ßŠß 57^\wÒÐÆ k§h,Œý î«q^R½3]J¸ÇðN ‚çU¬ôº^Áì} ³f©Õœ§ˆã:FÄÈ‚é(€™?àýÓüè1Gô£¼éj‚OÅñ  #>×—ßtà 0G¥Åa뀐kßhc™À_ÉñÞ#±)GD" YîäË-ÿÙ̪ ¹™a¯´¢E\ÝÒö‚;™„ë]_ p8‰o¡ñ+^÷ 3‘'dT4œŽ ðVë½° :¬víÑ«£tßÚS-3¶“þ2 †üüʨòrš¹M{É_¤`Û¨0ìjœøJ‡:÷ÃáZ˜†@GP&œÑDGÏs¡þ¦þDGú‘1Yá9Ôþ¼ ûø…§÷8&–ÜÑnÄ_m®^üÆ`;ÉVÁJ£?â€-ßê}suÍ2sõA NÌúA磸‘îÿÚ»ƒìö·á¿±tÑÐ"Tÿü˜[@/äj¬€uüªìù¥Ý˜á8Ý´sõj 8@rˆð äþZÇD®ÿUÏ2ùôõrBzÆÏÞž>Ì™xœ“ wiÎ×7_… ¸ \#€MɁV¶¥üÕÿPÔ9Z‡ø§É8#H:ƒ5ÀÝå9ÍIŒ5åKÙŠ÷qÄ>1AÈøžj"µÂд/ªnÀ qªã}"iŸBå˜ÓÛŽ¦…&ݧ;G@—³b¯“•"´4í¨ôM¨åñC‹ïùÉó¯ÓsSH2Ý@ßáM‡ˆKÀªÛUeø/4\gnm¥‹ŸŒ qÄ b9ÞwÒNÏ_4Ég³ú=܆‚´ •â¥õeíþkjz>éÚyU«Íӝ݃6"8/ø{=Ô¢»G¥ äUw°W«,ô—¿ãㆅү¢³xŠUû™yŒ (øSópÐ 9\åTâ»—*oG$/×ÍT†Y¿1¤Þ¢_‡ ¼ „±ÍçèSaÓ 3ÛMÁBkxs‰’R/¡¤ˆÙçª(*õ„üXÌ´ƒ E§´¬EF"Ù”R/ÐNyÆÂ^°?™6¡œïJ·±$§?º>ÖüœcNÌù¯G ‹ñ2ŠBB„^·úìaz¨k:#¨Æ¨8LÎõލ£^§S&cŒÐU€ü(‡F±Š¼&P>8ÙÁ ‰ p5?0ÊƃZl¸aô š¼¡}gÿ¶zÆC²¹¬ÎÖG*HB¡O<º2#ñŒAƒ–¡B˜´É$¥›É:FÀÔx¾u?XÜÏÓvN©RS{2ʈãk9rmP¼Qq̳ è¼ÐFׄ^¡Öì fE“F4A…!ì/…¦Lƒ… … $%´¾yã@CI¬ á—3PþBÏNÿ<ý°4Ü ËÃ#ØÍ~âW«rEñw‹eùMMHß²`¬Öó½íf³:‹k˜¯÷}Z!ã¿<¥,\#öµÀ¯aÒNÆIé,Ћ–lŽ#Àæ9ÀÒS·I’½-Ïp Äz¤Š Â* ­íÄ9­< h>׍3ZkËU¹§˜ŒŠ±f­’¤º³Q ÏB?‹#µíÃ¥®@(Gs«†vI¥Mµ‹Á©e~2ú³ÁP4ìÕi‚²Ê^ö@-DþÓàlÜOÍ]n"µã:žpsŽ¢:! Aõ.ç~ÓBûH÷JCÌ]õVƒd «ú´QÙEA–¯¯Œ!.ˆˆëQ±ù œ·Ì!Õâ )ùL„ÅÀlÚè5@B…o´Æ¸XÓ&Û…O«˜”_#‡ƒ„ûÈt!¤ÁÏ›ÎÝŠ?c9 â\>lÓÁVÄÑ™£eØY]:fÝ–—ù+p{™ðè û³”g±OƒÚSù£áÁÊ„ä,ï7š²G ÕÌBk)~ÑiCµ|h#u¤¶îK¨² #²vݯGãeÖ϶ú…¾múÀ¶þÔñ‚Š9'^($¤§ò “š½{éúp÷J›ušS¹áªCÂubÃH9™D™/ZöØÁ‡¦ÝÙŸ·kð*_”.C‹{áXó€‡c¡c€§/šò/&éš÷,àéJþ‰X›fµ“C¨œ®r¬"kL‰Â_q…Z–.ÉL~O µ›zn‚¹À¦Öª7\àHµšÖ %»ÇníV[¥*Õ;ƒ#½¾HK-ÖIÊdÏEÚ#=o÷Óò³´Š: Ç?{¾+9›–‘OEáU·S€˜j"ÄaÜ ŒÛWt› á–c#a»pÔZÞdŽtWê=9éöÊ¢µ~ ë ;Öe‡Œ®:bî3±ýê¢wà¼îpêñ¹¾4 zc¾ðÖÿzdêŒÑÒŝÀ‰s6¤í³ÎÙB¿OZ”+F¤á‡3@Ñëäg©·Ž ˆèª<ù@É{&S„œÕúÀA)‰h:YÀ5^ÂÓŒ°õäU\ ùËÍû#²?Xe¬tu‰^zÒÔãë¼ÛWtEtû …‚g¶Úüâî*moGè¨7%u!]PhÏd™Ý%Îx: VÒ¦ôÊD3ÀŽKÛËãvÆî…N¯ä>Eró–ð`5 Œ%u5XkñÌ*NU%¶áœÊ:Qÿú»“úzyÏ6å-၇¾ ´ ÒÊ]y žO‘w2Äøæ…H’²f±ÎÇ.ª|¥'gîV•Ü .̘¯€šòü¤U~Ù†*¢!?ò wý,}´°ÔÞnïoKq5µb!áÓ3"vAßH¡³¡·G(ÐÎ0Îò¼MG!/ài®@—¬04*`…«é8ªøøló“ˆÊ”èù¤…ßÊoÿé'ËuÌÖ5×È¡§ˆˆfŽë9}hìâ_!!¯  B&Ëö¶‰ÀAÙNVŸ Wh›¸®XÑJì¨ú“¿÷3uj²˜¨ÍÎìë±aúŠÝå¯ð*Ó¨ôJ“yºØ)m°WýOè68†ŸÏ2—‰Ïüꪫٚ¥‹l1 ø ÏÄFjêµvÌbü¦èÝx:X±¢H=MÐß—,ˆÉÇ´(9ú¾^ÅÚ4¿m‡$âX‘å%(AlZo@½¨UOÌÕ”1ø¸jÎÀÃÃ_ µ‘Ü.œº¦Ut: Æï’!=¯uwû#,“pþÇúŒø(é@?³ü¥‘Mo §—s@Œ#)§ŒùkL}NOÆêA›¸~r½¼ÙA—HJ«eˆÖ´*¡ÓpÌŸö.m<-"³ûÈ$¬_6­åf£ïÚâj1y§ÕJ½@dÞÁr&Í\Z%D£Íñ·AZ Û³øüd/ªAi†/Й~  ‡âĮҮÏh§°b—›Û«mJžòG'[ÈYýŒ¦9psl ýÁ ®±f¦x,‰½tN ‚Xª9 ÙÖH.«Lo0×?͹m¡å†Ѽ+›2ƒF ±Ê8 7Hցϓ²Æ–m9…òŸï]Â1äN†VLâCˆU .ÿ‰Ts +ÅÎx(%¦u]6AF Š ØF鈄‘ |¢¶c±soŒ/t[a¾–û:s·`i햍ê›ËchÈ…8ßÀUÜewŒðNOƒõD%q#éû\9¤x¹&UE×G¥ Í—™$ð E6-‡¼!ýpãÔM˜ Âsìe¯ñµK¢Ç¡ùôléœ4Ö£”À Š®Ðc ^¨À}ÙËŸ§›ºê{ÊuÉC ×Sr€¤’fÉ*j!úÓ’Gsùìoîßîn%ò· àc Wp÷$¨˜)û»H ×8ŽÒ€Zj¤3ÀÙºY'Ql¦py{-6íÔCeiØp‘‡XÊîÆUߢ܂ž£Xé¼Y8þ©ëgñß}é.ÎógÒ„ÃØËø¯»™§Xýy M%@NŠ À(~áÐvu7&•,Ù˜ó€uP‡^^®=_E„jt’ 403WebShell
403Webshell
Server IP : 66.235.200.170  /  Your IP : 3.17.142.93
Web Server : Apache
System : Linux gator4410.hostgator.com 5.14.0-162.23.1.9991722448259.nf.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 31 18:11:45 UTC 2024 x86_64
User : bmgxafte ( 1214)
PHP Version : 8.2.28
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/emacs/27.2/lisp/calendar/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/calendar/cal-islam.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'calendar)
#@58 Array of strings giving the names of the Islamic months.
(defconst calendar-islamic-month-name-array ["Muharram" "Safar" "Rabi I" "Rabi II" "Jumada I" "Jumada II" "Rajab" "Sha'ban" "Ramadan" "Shawwal" "Dhu al-Qada" "Dhu al-Hijjah"] (#$ . 428))
(autoload 'calendar-julian-to-absolute "cal-julian")
#@72 Absolute date of start of Islamic calendar = July 16, 622 AD (Julian).
(defconst calendar-islamic-epoch 227015 (#$ . 731))
#@58 Return t if YEAR is a leap year on the Islamic calendar.
(defalias 'calendar-islamic-leap-year-p #[(year) "\301\246\302\303\304\305\306\307\310\311\312\313\314\257>\205\315\207" [year 30 2 5 7 10 13 16 18 21 24 26 29 t] 12 (#$ . 860)])
#@60 The last day in MONTH during YEAR on the Islamic calendar.
(defalias 'calendar-islamic-last-day-of-month #[(month year) "\302\303\304\305\306\307\257>\203\310\207\311\312\313\314\315\257>\203\316\207\317	!\203%\310\207\316\207" [month year 1 3 5 7 9 11 30 2 4 6 8 10 29 calendar-islamic-leap-year-p] 7 (#$ . 1106)])
#@65 Return the day number within the year of the Islamic date DATE.
(defalias 'calendar-islamic-day-number #[(date) "\211@\262\302\303	\304\245_\305	S\304\245_\211A@\262#)\207" [date month + 30 2 29] 5 (#$ . 1437)])
#@144 Absolute date of Islamic DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-islamic-to-absolute #[(date) "\211@\262\211A@\262\3068\262\211\307\246\211\310W\203\"\311\202}\f\312W\203,\313\202}\f\314W\2036\306\202}\f\315W\203@\310\202}\f\316W\203J\317\202}\f\320W\203T\321\202}\f\322W\203^\312\202}\f\323W\203h\324\202}\f\325W\203r\314\202}\f\326W\203|\327\202}\330\331\332!S\333_\315\307\245_
S%-\207" [date month day year y leap-years-in-cycle 2 30 3 0 6 1 8 11 14 4 17 5 19 22 7 25 27 9 10 + calendar-islamic-day-number 354 calendar-islamic-epoch] 7 (#$ . 1661)])
#@187 Compute the Islamic 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-islamic-from-absolute #[(date) "	W\203\306\211\211E\207	Z\307\245\211\211\306\310\311\211\fTE!Y\203+T\fT\202*\\\311\306\310\312
\"
E!V\203OTT\2024*T\f\310\f\311
E!SZ
\f

E,\207" [date calendar-islamic-epoch approx sum y year 0 355 calendar-islamic-to-absolute 1 calendar-islamic-last-day-of-month m month day] 7 (#$ . 2357)])
#@206 String of Islamic date before sunset of Gregorian DATE.
Returns the empty string if DATE is pre-Islamic.
Defaults to today's date if DATE is not given.
Driven by the variable `calendar-date-display-form'.
(defalias 'calendar-islamic-date-string #[(&optional date) "\304	\206\305 \211\3068\262\307\310U\203\311\312!\202[\310V\203\221S\262\313\211\211@\262\211A@\262\3068\262\314S_\\\306V\203|\211\315\316_\\\317\245Z\262\211\310W\203]\320!S\262\211\316\246\310U\205s\211\321\246\310U?\206s\211\322\246\310U\262\203|\211T\262\266\203\262\323_\316\245\321\245[\322\245%\202[\320T!\262\324\211\211@\262\211A@\262\3068\262\314S_\\\306V\203\356\211\315\316_\\\317\245Z\262\211\310W\203\317\320!S\262\211\316\246\310U\205\345\211\321\246\310U?\206\345\211\322\246\310U\262\203\356\211T\262\266\203\262\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3068\262\314S_\\\306V\203U\211\315\316_\\\317\245Z\262\211\310W\2036\320!S\262\211\316\246\310U\205L\211\321\246\310U?\206L\211\322\246\310U\262\203U\211T\262\266\203\262&\266\203!\n\3068\262\326W\203o\327\202t\330\n\307\331#*\207" [calendar-islamic-month-name-array date islamic-date calendar-month-name-array calendar-islamic-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) 1 "" calendar-date-string t] 20 (#$ . 2935)])
#@68 Show the Islamic calendar equivalent of the date under the cursor.
(defalias 'calendar-islamic-print-date #[nil "\301\302\303!!\211\304\230\203\305\306!\202\305\307\")\207" [i calendar-islamic-date-string calendar-cursor-to-date t "" message "Date is pre-Islamic" "Islamic date (until sunset): %s"] 4 (#$ . 4391) nil])
#@93 Interactively read the arguments for an Islamic date command.
Reads a year, month, and day.
(defalias 'calendar-islamic-read-date #[nil "\306 \307\310\311\312\313\211\3148\262\315\316U\203\317\320!\202\\\316V\203\222S\262\321\211\211@\262\211A@\262\3148\262\322S_\\\314V\203}\211\323\324_\\\325\245Z\262\211\316W\203^\326!S\262\211\324\246\316U\205t\211\327\246\316U?\206t\211\330\246\316U\262\203}\211T\262\266\203\262\331_\324\245\327\245[\330\245%\202\\\326T!\262\332\211\211@\262\211A@\262\3148\262\322S_\\\314V\203\357\211\323\324_\\\325\245Z\262\211\316W\203\320\326!S\262\211\324\246\316U\205\346\211\327\246\316U?\206\346\211\330\246\316U\262\203\357\211T\262\266\203\262\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3148\262\322S_\\\314V\203V\211\323\324_\\\325\245Z\262\211\316W\2037\326!S\262\211\324\246\316U\205M\211\327\246\316U?\206M\211\330\246\316U\262\203V\211T\262\266\203\262&\266\203!\3148\262!#\n\334\335\336\337\340\341\342\315\"\"\315\334$\343\344\"\334#A\345
	\")\307\346\347)\"\350\"*
*	E.C\207" [today year calendar-islamic-month-name-array month-array completion-ignore-case month calendar-current-date calendar-read "Islamic calendar year (>0): " #[(x) "\301V\207" [x 0] 2] number-to-string calendar-islamic-from-absolute 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) t assoc-string completing-read "Islamic calendar month name: " mapcar list append calendar-make-alist 1 calendar-islamic-last-day-of-month format "Islamic calendar day (1-%d): " #[(x) "\302W\205		X\207" [x last 0] 2] last day] 23 (#$ . 4722)])
#@74 Move cursor to Islamic DATE; echo Islamic date unless NOECHO is non-nil.
(defalias 'calendar-islamic-goto-date #[(date &optional noecho) "\302\303\304!!!\210	\206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-islamic-to-absolute calendar-islamic-print-date] 4 (#$ . 6433) (calendar-islamic-read-date)])
#@231 Holiday on MONTH, DAY (Islamic) called STRING.
If MONTH, DAY (Islamic) is visible, returns the corresponding
Gregorian date as the list (((month day year) STRING)).
Returns nil if it is not visible in the current calendar window.
(defalias 'holiday-islamic #[(month day string) "\306\307	E\211\3108\262\311\312U\203\313\314!\202X\312V\203\216S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203y\211\317\320_\\\321\245Z\262\211\312W\203Z\322!S\262\211\320\246\312U\205p\211\323\246\312U?\206p\211\324\246\312U\262\203y\211T\262\266\203\262\325_\320\245\323\245[\324\245%\202X\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\353\211\317\320_\\\321\245Z\262\211\312W\203\314\322!S\262\211\320\246\312U\205\342\211\323\246\312U?\206\342\211\324\246\312U\262\203\353\211T\262\266\203\262\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203R\211\317\320_\\\321\245Z\262\211\312W\2033\322!S\262\211\320\246\312U\205I\211\323\246\312U?\206I\211\324\246\312U\262\203R\211T\262\266\203\262&\266\203!\211\211@\262\n\3108\262\311\330W?\205\323\331\311 !\f\312W\203\201\fT\315\f!_\332\321\"Z$ \333 !\"T !\245 \312W\203\255\330V\203\255\fS\f\330W\203\266\fS*\334V\205\323\335\336\337\"#\fE!!\211!\205\323
$DC,\207" [displayed-month displayed-year islamic-date m y date calendar-islamic-from-absolute 15 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 12 -1 mod 7 calendar-date-is-visible-p calendar-gregorian-from-absolute calendar-islamic-to-absolute macro-y nmonths month day string] 20 (#$ . 6784)])
#@76 Holiday entry for the Islamic New Year, if visible in the calendar window.
(defalias 'holiday-islamic-new-year #[nil "\306\307\211\310#@@	\211\205\356\f\311\312\313\314!\n\315W\203!\nT\316\n!_\317\307$\320
!\"T
!\245
\315W\203F\307V\203F\nS\n\307W\203O\nS*\321\211\n\322U\203\210\211\211\315W\203g\323!S\262\211\324\246\315U\205}\211\325\246\315U?\206}\211\326\246\315U\262\203\210\327\266\202\202\216\330SH\266\202\nE\211\3228\262\314\315U\203\243\331\332!\202\343\315V\203S\262\316\211\211@\262\211A@\262\3228\262\333S_\\\322V\203\211\334\324_\\\335\245Z\262\211\315W\203\345\323!S\262\211\324\246\315U\205\373\211\325\246\315U?\206\373\211\326\246\315U\262\203\211T\262\266\203\262\336_\324\245\325\245[\326\245%\202\343\323T!\262\337\211\211@\262\211A@\262\3228\262\333S_\\\322V\203v\211\334\324_\\\335\245Z\262\211\315W\203W\323!S\262\211\324\246\315U\205m\211\325\246\315U?\206m\211\326\246\315U\262\203v\211T\262\266\203\262\336_\324\245\325\245[\326\245\340\211\211@\262\211A@\262\3228\262\333S_\\\322V\203\335\211\334\324_\\\335\245Z\262\211\315W\203\276\323!S\262\211\324\246\315U\205\324\211\325\246\315U?\206\324\211\326\246\315U\262\203\335\211T\262\266\203\262&\266\203!\3228\262\"DC+\207" [displayed-month displayed-year y m date macro-y holiday-islamic 1 "" format "Islamic New Year %d" 12 nil 0 + -1 mod calendar-islamic-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) nmonths] 23 (#$ . 8503)])
(autoload 'diary-list-entries-1 "diary-lib")
#@633 Add any Islamic date entries from the diary file to `diary-entries-list'.
Islamic date diary entries must be prefaced by `diary-islamic-entry-symbol'
(normally an `I').  The same `diary-date-forms' govern the style
of the Islamic calendar entries, except that the Islamic month
names cannot be abbreviated.  The Islamic months are numbered
from 1 to 12 with Muharram being 1 and 12 being Dhu al-Hijjah.
If an Islamic 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-islamic-list-entries #[nil "\302	\303#\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-list-entries-1 calendar-islamic-from-absolute] 4 (#$ . 10183)])
(autoload 'calendar-mark-1 "diary-lib")
#@196 Mark dates in calendar window that conform to Islamic 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-islamic-mark-date-pattern #[(month day year &optional color) "\304	\n\305\306&\207" [month day year color calendar-mark-1 calendar-islamic-from-absolute calendar-islamic-to-absolute] 7 (#$ . 11056)])
(autoload 'diary-mark-entries-1 "diary-lib")
#@213 Mark days in the calendar window that have Islamic date diary entries.
Marks each entry in `diary-file' (or included files) visible in the calendar
window.  See `diary-islamic-list-entries' for more information.
(defalias 'diary-islamic-mark-entries #[nil "\302\303	\304$\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-mark-entries-1 calendar-islamic-mark-date-pattern calendar-islamic-from-absolute] 5 (#$ . 11526)])
(autoload 'diary-insert-entry-1 "diary-lib")
#@138 Insert a diary entry.
For the Islamic date corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-islamic-insert-entry #[(arg) "\303\304	\n\305%\207" [arg calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 nil calendar-islamic-from-absolute] 6 (#$ . 12023) "P"])
#@158 Insert a monthly diary entry.
For the day of the Islamic month corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-islamic-insert-monthly-entry #[(arg) "\303\304	\n\305%\207" [arg calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 monthly calendar-islamic-from-absolute] 6 (#$ . 12381) "P"])
#@157 Insert an annual diary entry.
For the day of the Islamic year corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-islamic-insert-yearly-entry #[(arg) "\303\304	\n\305%\207" [arg calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 yearly calendar-islamic-from-absolute] 6 (#$ . 12771) "P"])
#@50 Islamic calendar equivalent of date diary entry.
(defalias 'diary-islamic-date #[nil "\302!\211\303\230\203\304\202\305\306	\")\207" [date i calendar-islamic-date-string "" "Date is pre-Islamic" format "Islamic date (until sunset): %s"] 4 (#$ . 13157)])
(provide 'cal-islam)

Youez - 2016 - github.com/yon3zu
LinuXploit