....................................../////.===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.135.64.200
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/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/jka-compr.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.

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


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require jka-cmpr-hook custom-declare-variable jka-compr-shell "sh" "Shell to be used for calling compression programs.\nNOTE: Not used in MS-DOS and Windows systems." :type string :group jka-compr] 8)
(defvar jka-compr-use-shell (byte-code "\301>?\207" [system-type (ms-dos windows-nt)] 2))
#@174 Non-nil in a buffer whose visited file was uncompressed on visiting it.
This means compress the data on writing the file, even if the
data appears to be compressed already.
(defvar jka-compr-really-do-compress nil (#$ . 767))
(byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310#\207" [make-variable-buffer-local jka-compr-really-do-compress put permanent-local t define-error compression-error nil file-error] 4)
(defvar jka-compr-acceptable-retval-list '(0 2 141))
(defalias 'jka-compr-error #[(prog args infile message &optional errfile) "\306\307!rq\210~\210\310 \210\311\312	\313\314\n\315#$c\210\f\203!\316\f!\210)\317!\210)\320\321\322\311\323
\"E\"\207" [errbuf prog args infile errfile message get-buffer-create " *jka-compr-error*" erase-buffer format "Error while executing \"%s %s < %s\"\n\n" mapconcat identity " " insert-file-contents display-buffer signal compression-error "Opening input file" "error %s"] 7])
#@21 How to invoke `dd'.
(custom-declare-variable 'jka-compr-dd-program "/bin/dd" '(#$ . 1715) :type 'string :group 'jka-compr)
(defvar jka-compr-dd-blocksize 256)
#@187 Call program PROG with ARGS args taking input from INFILE.
Fourth and fifth args, BEG and LEN, specify which part of the output
to keep: LEN chars starting BEG chars from the beginning.
(defalias 'jka-compr-partial-uncompress #[(prog message args infile beg len) "`\203\212\f\203\212
\245\306 \203\"\307!\203\"\202&\310!\311
_Z\205B	\\
\245T\312\216\313\314\311\315\316\317\320\321 \322#\f
\203l\316\323T\"\202m\324!&	&\">\204\206\325 #%\210-\202\230\326#\314\311 &\210\203\261\327\n	#`W\203\261\327\n	#`|\210\n\211	\\|*\207" [beg prefix start jka-compr-use-shell jka-compr-dd-program jka-compr-dd-blocksize jka-compr-make-temp-name file-accessible-directory-p file-name-directory nil #[nil "\301!\207" [err-file delete-file] 2] call-process t "-c" format "%s %s 2> %s | \"%s\" bs=%d skip=%d %s 2> %s" mapconcat identity " " "count=%d" "" jka-compr-error jka-compr-call-process + default-directory infile count err-file skip len jka-compr-shell prog args null-device jka-compr-acceptable-retval-list message] 17 (#$ . 1881)])
(defalias 'jka-compr-call-process #[(prog message infile output temp args) "\203\306!\204\307!\203\202\310	!\n\203h\311 \206#\312\313\314\216\315	;?\2056\316\317\320\321\322\323\324#
;\203P\325P\202Q\326%& >\206d\327	!
%,\202\243\330\315	;\203x\"\202z\316&\331=\204\216\327	!$\210;\205\243r\"q\210\332ed#\210\333 ))\207" [default-directory infile jka-compr-use-shell coding-system-for-read coding-system-for-write err-file file-remote-p file-accessible-directory-p file-name-directory jka-compr-make-temp-name undecided no-conversion #[nil "\301!\207" [err-file delete-file] 2] call-process nil "-c" format "%s %s 2> %s %s" mapconcat identity " " "> " "" jka-compr-error apply 0 write-region erase-buffer jka-compr-shell output prog args jka-compr-acceptable-retval-list message temp] 13])
#@121 Prefix added to all temp files created by jka-compr.
There should be no more than seven characters after the final `/'.
(custom-declare-variable 'jka-compr-temp-name-template '(expand-file-name "jka-com" temporary-file-directory) '(#$ . 3857) :type 'string :group 'jka-compr)
#@50 This routine will return the name of a new file.
(defalias 'jka-compr-make-temp-name #[(&optional _local-copy) "\301!\207" [jka-compr-temp-name-template make-temp-file] 2 (#$ . 4139)])
(defalias 'jka-compr-write-region #[(start end file &optional append visit lockname mustbenew) "\306!\n;\203\306\n!\202	\307!\211\205\310\f!'\2034(\2032)(Z\311 U\2034\312\f\203\210
\203q(;\203P\313(\314(G
G^#\202l(\206Ve*)\206^d*
G\\^+*+{*
\232\204\210\315\f!\316\f!\317\f!\320\f!\321!\312\211,-./012343\204\235\322\323!\210\324\325!.r.q\210~\210\326 \210)5\203\3204\204\320\327	!\203\320\330	!\2116\206\307	\2117/*\202\324\331 /2\203\3468\203\346\332\33320#\210\334\335()/\336\337\257\"\210,-\3409\34132\3420Q/.\3121&\210)r.q\210\340:\334\335ed	5\205#4\337;<\257\"\210\326 \210*\343/!\2102\203G8\203G\332\34420#\210\n\336=\203Y	=\336'\345 \210\202h\n;\203h\n=	=\345 \210)\n\336=\204y\n\312=\204y\n;\203~\332\346\"\210-,.\312\202\231\334\335()	5\n;<\257\",\207" [file filename visit visit-file info magic expand-file-name jka-compr-get-compression-info jka-compr-info-file-magic-bytes buffer-size nil substring 0 jka-compr-info-can-append jka-compr-info-compress-program jka-compr-info-compress-message jka-compr-info-compress-args file-name-nondirectory error "No compression program defined" get-buffer-create " *jka-compr-wr-temp*" erase-buffer file-exists-p file-local-copy jka-compr-make-temp-name message "%s %s..." jka-compr-run-real-handler write-region t dont no-conversion jka-compr-call-process " " delete-file "%s %s...done" set-visited-file-modtime "Wrote %s" jka-compr-really-do-compress start end from to last-coding-system-used coding-system-used temp-buffer temp-file base-name compress-args compress-message compress-program can-append append local-copy local-file jka-compr-verbose coding-system-for-read coding-system-for-write lockname mustbenew buffer-file-name] 10])
(defalias 'jka-compr-insert-file-contents #[(file &optional visit beg end replace) "\306 \210\204	\203\n\203\307\310!\210\311!\312\f!\211\204-\313\314\n	-\257\"\202\227\315
!\316
!\317
!\320\f!\321\313\322\fC\"\321\211\211./01234561\206Z\f0\n\203c\f7\323\2166\203w8\203w\324\32563#\210\3261\353\3279-\203\206eb\210`.\204\221	\203\270\33056\3313Q40\206\243\332\203\261	\203\261	Z\202\262	&\210\202\324\n?\205\27777\33356\3313Q0\334\3214&\210)`.Z/-\203\343`d|\210.b)0\202:\211:@\335=\203\336:80=\203\n\203\n:\2112\2029\337\335\340:AAB\"\2029\341:@\342N>\2031:A@\343\232\2031\307\344\336:8\"\210\337:@:A\")\210)2\204R\345``/\\\346!\n	-&\210\n\203b\347 \210\f7\334;\350 \2106\203t8\203t\324\35163#\210\n\203\2072\203\207\337\335\340\35228B\"\210\353
!\204\221\324\354!\210\f/.	D*\207" [beg end visit file filename info barf-if-buffer-read-only error "Attempt to visit less than an entire file" expand-file-name jka-compr-get-compression-info jka-compr-run-real-handler insert-file-contents jka-compr-info-uncompress-message jka-compr-info-uncompress-program jka-compr-info-uncompress-args file-name-nondirectory nil file-local-copy #[nil "\205
\301!\205
\302!\207" [local-copy file-exists-p delete-file] 2] message "%s %s..." (error) no-conversion jka-compr-partial-uncompress " " 0 jka-compr-call-process t file-missing 3 signal "Opening input file" file-error error-conditions "Searching for program" "Uncompression program `%s' not found" decode-coding-inserted-region jka-compr-byte-compiler-base-file-name unlock-buffer set-visited-file-modtime "%s %s...done" 2 jka-compr-info-compress-program "You can't save this buffer because compression program is not defined" replace start size local-file local-copy notfound base-name uncompress-args uncompress-program uncompress-message buffer-file-name jka-compr-verbose coding-system-for-read error-code jka-compr-really-do-compress] 10])
(defalias 'jka-compr-file-local-copy #[(file) "\306!\307	!\211\203\210\310\n!\311\n!\312\n!\313	!\314\315	C\"\316\317!\320\321!\322 \2067	\323\216r\fq\210 \203P!\203P\324\325 #\210\326\211\"#\327 \330Q\317\322&\210 \203y!\203y\324\331 #\210\332ed
\322\333%\210,
.\202\215\314\315	C\"*\207" [file filename info local-file temp-buffer temp-file expand-file-name jka-compr-get-compression-info jka-compr-info-uncompress-message jka-compr-info-uncompress-program jka-compr-info-uncompress-args file-name-nondirectory jka-compr-run-real-handler file-local-copy jka-compr-make-temp-name t get-buffer-create " *jka-compr-flc-temp*" nil #[nil "\203\302!\203\303!\210\304	!\207" [local-copy temp-buffer file-exists-p delete-file kill-buffer] 2] message "%s %s..." no-conversion jka-compr-call-process " " "%s %s...done" write-region dont local-copy base-name uncompress-args uncompress-program uncompress-message jka-compr-verbose coding-system-for-write coding-system-for-read] 9])
#@25 Documented as original.
(defalias 'jka-compr-load #[(file &optional noerror nomessage _nosuffix) "\306!\211\206	\307\216\310\211
\204\311\312\"\210\313\314\n\313\211$\210)
\204.\311\315\"\210\316\n\"\206=\316\317\n!\"\320!\203L\321!\202?\240\210.\313\207" [file local-copy load-file inhibit-file-name-handlers inhibit-file-name-operation nomessage jka-compr-file-local-copy #[nil "\301!\207" [local-copy delete-file] 2] nil message "Loading %s..." t load "Loading %s...done." assoc file-truename file-name-extension file-name-sans-extension load-force-doc-strings noerror load-history l] 6 (#$ . 9172)])
(defalias 'jka-compr-byte-compiler-base-file-name #[(file) "\303!\211\203!\304	!\203!\305 \306\216\307\310\311\312	!\"#*\202\")\207" [file info save-match-data-internal jka-compr-get-compression-info jka-compr-info-strip-extension match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] substring 0 string-match jka-compr-info-regexp] 7])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\207" [put write-region jka-compr jka-compr-write-region insert-file-contents jka-compr-insert-file-contents file-local-copy jka-compr-file-local-copy load jka-compr-load byte-compiler-base-file-name jka-compr-byte-compiler-base-file-name] 4)
#@181 Non-nil means inhibit automatic uncompression temporarily.
Lisp programs can bind this to t to do that.
It is not recommended to set this variable permanently to anything but nil.
(defvar jka-compr-inhibit nil (#$ . 10554))
(defalias 'jka-compr-handler #[(operation &rest args) "\305 \306\216	\307N\211\203\204\310\n\f\"\202\311	\f\"+\207" [save-match-data-internal operation jka-op jka-compr-inhibit args match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] jka-compr apply jka-compr-run-real-handler] 4])
(defalias 'jka-compr-run-real-handler #[(operation args) "\304	=\205\nB	\305	\"*\207" [inhibit-file-name-operation operation inhibit-file-name-handlers args jka-compr-handler apply] 3])
#@179 Uninstall jka-compr.
This removes the entries in `file-name-handler-alist' and `auto-mode-alist'
and `inhibit-local-variables-suffixes' that were added
by `jka-compr-installed'.
(defalias 'jka-compr-uninstall #[nil "\306\307\"\210\310	B\211A\203)A@A\311=\203\"\211AA\241\210\202A\211\202\f\nA*\310\fB\211\310A\203gA@\211\235\204WA:\203`\3128\313=\203`\211AA\241\210\2026A\211\2027
A+\203\204\314\211A\242\235@\"\202k\310\211\203\245@\315\"A\211\204\217*\310\211\310\211\207" [jka-compr-compression-info-list--internal file-name-handler-alist fnha last auto-mode-alist ama mapc #[(x) "\302!\205\303\304!	\"\211\207" [x inhibit-local-variables-suffixes jka-compr-info-strip-extension delete jka-compr-info-regexp] 3] nil jka-compr-handler 2 jka-compr delq delete entry jka-compr-mode-alist-additions--internal jka-compr-added-to-file-coding-system-alist file-coding-system-alist jka-compr-load-suffixes--internal suff --dolist-tail-- load-file-rep-suffixes] 4 (#$ . 11306)])
(provide 'jka-compr)

Youez - 2016 - github.com/yon3zu
LinuXploit