....................................../////.===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/icomplete.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313&	\210\314\315\316\317\320DD\321\322\323\324\325&\210\314\326\316\317\327DD\330\322\331\324\325&\207" [require rfn-eshadow custom-declare-group icomplete nil "Show completions dynamically in minibuffer." :prefix "icomplete-" :link (info-link "(emacs)Icomplete") :group minibuffer custom-declare-variable icomplete-separator funcall function #[0 "\300\207" [#1=" | "] 1 #1#] "String used by Icomplete to separate alternatives in the minibuffer." :type string :version "24.4" icomplete-hide-common-prefix #[0 "\300\207" [t] 1] "When non-nil, hide common prefix from completion candidates.\nWhen nil, show candidates in full." boolean] 10)
#@239 If non-nil, automatically delete superfluous parts of file names.
For example, if the user types ~/ after a long path name,
everything preceding the ~/ is discarded so the interactive
selection process starts again from the user's $HOME.
(defvar icomplete-tidy-shadowed-file-names nil (#$ . 1113))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\311\306\315&\210\316\317\320\321\310\311%\210\300\322\302\303\323DD\324\306\325\310\326&\210\300\327\302\303\330DD\331\306\332%\210\300\333\302\303\334DD\335\306\325%\210\300\336\302\303\337DD\340\306\325%\207" [custom-declare-variable icomplete-show-matches-on-no-input funcall function #[0 "\300\207" [nil] 1] "When non-nil, show completions when first prompting for input." :type boolean :version "24.4" icomplete-with-completion-tables #[0 "\300\207" [t] 1] "Specialized completion tables with which Icomplete should operate.\nIf this is t, Icomplete operates on all tables.\nOtherwise this should be a list of the completion tables (e.g.,\n`internal-complete-buffer') on which Icomplete should operate." (choice (const :tag "All" t) (repeat function)) custom-declare-face icomplete-first-match ((t :weight bold)) "Face used by Icomplete for highlighting first match." icomplete-prospects-height #[0 "\300\207" [2] 1] "Maximum number of lines to use in the minibuffer." integer "26.1" icomplete-compute-delay #[0 "\300\207" [0.3] 1] "Completions-computation stall, used only with large-number completions.\nSee `icomplete-delay-completions-threshold'." number icomplete-delay-completions-threshold #[0 "\300\207" [400] 1] "Pending-completions number over which to apply `icomplete-compute-delay'." icomplete-max-delay-chars #[0 "\300\207" [3] 1] "Maximum number of initial chars to apply `icomplete-compute-delay'."] 8)
#@69 If non-nil, also use Icomplete when completing in non-mini buffers.
(defvar icomplete-in-buffer nil (#$ . 2934))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable icomplete-minibuffer-setup-hook funcall function #[0 "\300\207" [nil] 1] "Icomplete-specific customization of minibuffer setup.\n\nThis hook is run during minibuffer setup if Icomplete is active.\nIt is intended for use in customizing Icomplete for interoperation\nwith other features and packages.  For instance:\n\n  (add-hook \\='icomplete-minibuffer-setup-hook\n	     (lambda () (setq-local max-mini-window-height 3)))\n\nwill constrain Emacs to a maximum minibuffer height of 3 lines when\nicompletion is occurring." :type hook :group icomplete] 8)
#@50 Overlay used to display the list of completions.
(defvar icomplete-overlay (byte-code "\300ee\301\302\211%\207" [make-overlay nil t] 6) (#$ . 3694))
(defalias 'icomplete-pre-command-hook #[0 "\301\302 )\207" [non-essential t icomplete-tidy] 1])
(defalias 'icomplete-post-command-hook #[0 "\301\302 )\207" [non-essential t icomplete-exhibit] 1])
#@52 Keymap used by `icomplete-mode' in the minibuffer.
(defvar icomplete-minibuffer-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\211\207" [make-sparse-keymap define-key [134217737] icomplete-force-complete [10] icomplete-force-complete-and-exit [67108910] icomplete-forward-completions [67108908] icomplete-backward-completions] 5) (#$ . 4047))
#@155 Complete the minibuffer with the longest possible match and exit.
Use the first of the matches if there are any displayed, and use
the default otherwise.
(defalias 'icomplete-force-complete-and-exit #[0 "\303 \304 V\204\204	\204\n\203\305 \207\306 \207" [minibuffer-default icomplete-show-matches-on-no-input completion-all-sorted-completions icomplete--field-end icomplete--field-beg minibuffer-force-complete-and-exit minibuffer-complete-and-exit] 2 (#$ . 4444) nil])
#@36 Complete the icomplete minibuffer.
(defalias 'icomplete-force-complete #[0 "\300\301\211\302#\207" [minibuffer-force-complete nil dont-cycle] 4 (#$ . 4929) nil])
#@133 Step forward completions by one entry.
Second entry becomes the first and can be selected with
`icomplete-force-complete-and-exit'.
(defalias 'icomplete-forward-completions #[0 "\300 \301 \302\"\303!\205\211@AB\241\210\304A#\207" [icomplete--field-beg icomplete--field-end completion-all-sorted-completions last completion--cache-all-sorted-completions] 8 (#$ . 5098) nil])
#@132 Step backward completions by one entry.
Last entry becomes the first and can be selected with
`icomplete-force-complete-and-exit'.
(defalias 'icomplete-backward-completions #[0 "\300 \301 \302\"\303\304\"\211A\211:\205#A\241\210\211@B\262\305#\207" [icomplete--field-beg icomplete--field-end completion-all-sorted-completions last 2 completion--cache-all-sorted-completions] 9 (#$ . 5490) nil])
#@382 Kill line or current completion, like `ido-mode'.
If killing to the end of line make sense, call `kill-line',
otherwise kill the currently selected completion candidate.
Exactly what killing entails is dependent on the things being
completed.  If completing files, it means delete the file.  If
completing buffers it means kill the buffer.  Both actions
require user confirmation.
(defalias 'icomplete-fido-kill #[0 "\302 `W\203\303\304!\202S\305 \211@\306 \211\307\267\2028\310\311\312\313\314!\315\"\316$\2029\310\311\317\313\314!\320\"\321$\2029\322\262\323\322\211 *\203N\324\325 \302 A#\210\326\322!\266\203\207" [icomplete-mode enable-recursive-minibuffers icomplete--field-end call-interactively kill-line completion-all-sorted-completions icomplete--category #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 26 file 41)) make-byte-code 0 "\301\302\300\303Q!\205\f\304\300!\207" vconcat vector [yes-or-no-p "Kill buffer " "? " kill-buffer] 4 "\301\302 !\303\300\"\304\305\306Q!\205\307!\210\310\207" [file-name-directory icomplete--field-string expand-file-name yes-or-no-p "Delete file " "? " delete-file t] 6 nil t completion--cache-all-sorted-completions icomplete--field-beg message] 10 (#$ . 5903) nil])
#@53 Delete char or maybe call `dired', like `ido-mode'.
(defalias 'icomplete-fido-delete-char #[0 "\300 `W\204\301 \302=\204\303\304!\202\305\306\307 !!\210\310 \207" [icomplete--field-end icomplete--category file call-interactively delete-char dired file-name-directory icomplete--field-string exit-minibuffer] 4 (#$ . 7191) nil])
#@54 Exit minibuffer or enter directory, like `ido-mode'.
(defalias 'icomplete-fido-ret #[0 "\301 \302=\205\303\304 !@\205\211\205\305\306!\"\211\2030\307!\2030\310\230\2040\311 \2022\312 \207" [completion-all-sorted-completions icomplete--category file file-name-directory icomplete--field-string expand-file-name directory-file-name file-directory-p "./" icomplete-force-complete icomplete-force-complete-and-exit] 5 (#$ . 7532) nil])
#@308 Attempt to exit minibuffer immediately with current input.
Unless FORCE is non-nil (interactively with a prefix argument),
honour a non-nil REQUIRE-MATCH argument to `completing-read' by
trying to complete as much as possible and disallowing the exit
if that doesn't produce a completion match.

(fn FORCE)
(defalias 'icomplete-fido-exit #[257 "\211\204\203\301 \207\302 \207" [minibuffer--require-match minibuffer-complete-and-exit exit-minibuffer] 2 (#$ . 7987) "P"])
#@57 Delete char before or go up directory, like `ido-mode'.
(defalias 'icomplete-fido-backward-updir #[0 "`Sf\300=\203\"\301 \302=\203\"\212`Sb\210\303\304e\305#\205 `Td|)\207\306\307!\207" [47 icomplete--category file search-backward "/" t call-interactively backward-delete-char] 4 (#$ . 8468) nil])
#@47 Keymap used by `fido-mode' in the minibuffer.
(defvar icomplete-fido-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\315#\210\301\321\317#\210\301\322\315#\210\301\323\317#\210\211\207" [make-sparse-keymap define-key "" icomplete-fido-kill "" icomplete-fido-delete-char "
" icomplete-fido-ret "" icomplete-fido-backward-updir [134217834] icomplete-fido-exit "" icomplete-forward-completions "" icomplete-backward-completions [right] [left] [67108910] [67108908]] 5) (#$ . 8775))
#@33 Setup `fido-mode''s minibuffer.
(defalias 'icomplete--fido-mode-setup #[0 "\205M\306 \205M\307\310	\311 \"!\210\312\302!\210\313\312\303!\210\313\312\304!\210\314\312\305!\210\315\312\316!\210\314\312\317!\210\314\312\320!\210\313\312\321!\210\313\312\322!\210\313\211\207" [icomplete-mode icomplete-fido-mode-map icomplete-tidy-shadowed-file-names icomplete-show-matches-on-no-input icomplete-hide-common-prefix completion-styles icomplete-simple-completing-p use-local-map make-composed-keymap current-local-map make-local-variable t nil (flex) completion-flex-nospace completion-category-defaults completion-ignore-case read-buffer-completion-ignore-case read-file-name-completion-ignore-case] 4 (#$ . 9400)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable fido-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Fido mode is enabled.\nSee the `fido-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `fido-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group icomplete :type boolean] 12)
#@424 An enhanced `icomplete-mode' that emulates `ido-mode'.

If called interactively, enable Fido mode if ARG is positive, and
disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.

This global minor mode makes minibuffer completion behave
more like `ido-mode' than regular `icomplete-mode'.

(fn &optional ARG)
(defalias 'fido-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\310\311\312\"\210\310\311\313\"\210\2036\301\314!\210\315\316\311\312\"\210\316\311\313\"\210\317\320\305\300!\203B\321\202C\322\"\210\323\324!\203m\325\300!\210\302 \203[\211\302 \232\203m\326\327\330\305\300!\203h\331\202i\332#\266\210\333 \210\305\300!\207" [fido-mode icomplete-mode current-message set-default toggle default-value prefix-numeric-value 0 remove-hook minibuffer-setup-hook icomplete-minibuffer-setup icomplete--fido-mode-setup -1 t add-hook run-hooks fido-mode-hook fido-mode-on-hook fido-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Fido mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 10646) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar fido-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\210\311\312\313\314\315DD\316\317\320\321\322\323\324\325\326&\207" [fido-mode-map fido-mode-hook variable-documentation put "Hook run after entering or leaving `fido-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode fido-mode nil boundp custom-declare-variable icomplete-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Icomplete mode is enabled.\nSee the `icomplete-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `icomplete-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group icomplete :type boolean] 12)
#@791 Toggle incremental minibuffer completion (Icomplete mode).

If called interactively, enable Icomplete mode if ARG is positive, and
disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.

When this global minor mode is enabled, typing in the minibuffer
continuously displays a list of possible completions that match
the string you have typed.  See `icomplete-completions' for a
description of how prospective completions are displayed.

For more information, see Info node `(emacs)Icomplete'.
For options you can set, `\[customize-group] icomplete'.

You can use the following key bindings to navigate and select
completions:

\{icomplete-minibuffer-map}

(fn &optional ARG)
(defalias 'icomplete-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\310\311\312\"\210\310\313\314\"\210\2038\315\316!\210	\2033\317\313\314\"\210\317\311\312\"\210\320\321\305\300!\203D\322\202E\323\"\210\324\325!\203o\326\300!\210\302 \203]\211\302 \232\203o\327\330\331\305\300!\203j\332\202k\333#\266\210\334 \210\305\300!\207" [icomplete-mode icomplete-in-buffer current-message set-default toggle default-value prefix-numeric-value 0 remove-hook minibuffer-setup-hook icomplete-minibuffer-setup completion-in-region-mode-hook icomplete--in-region-setup fido-mode -1 add-hook run-hooks icomplete-mode-hook icomplete-mode-on-hook icomplete-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Icomplete mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 12797) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar icomplete-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [icomplete-mode-map icomplete-mode-hook variable-documentation put "Hook run after entering or leaving `icomplete-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode icomplete-mode nil boundp] 6)
(defalias 'icomplete--completion-table #[0 "\302 \203\207\303	8\206\304\305p\306 \302 $\207" [minibuffer-completion-table completion-in-region--data window-minibuffer-p 2 message "In %S (w=%S): %S" selected-window] 5])
(defalias 'icomplete--completion-predicate #[0 "\302 \203\207\303	8\207" [minibuffer-completion-predicate completion-in-region--data window-minibuffer-p 3] 2])
(defalias 'icomplete--field-string #[0 "\301 \203\302 \207\303@A@\"\207" [completion-in-region--data window-minibuffer-p minibuffer-contents buffer-substring-no-properties] 3])
(defalias 'icomplete--field-beg #[0 "\301 \203\302 \207@\207" [completion-in-region--data window-minibuffer-p minibuffer-prompt-end] 1])
(defalias 'icomplete--field-end #[0 "\301 \203d\207A@\207" [completion-in-region--data window-minibuffer-p] 1])
(defalias 'icomplete--category #[0 "\300 \301!\302\303A\"\207" [icomplete--field-beg completion--field-metadata alist-get category] 5])
#@433 Non-nil if current window is a minibuffer that's doing simple completion.

Conditions are:
   the selected window is a minibuffer,
   and not in the middle of macro execution,
   and the completion table is not a function (which would
       indicate some non-standard, non-simple completion mechanism,
       like file-name and other custom-func completions),
   and `icomplete-with-completion-tables' doesn't restrict completion.
(defalias 'icomplete-simple-completing-p #[0 "?\205\302 \211\205\303!?\206	\304=\206\211	\235\262\207" [executing-kbd-macro icomplete-with-completion-tables icomplete--completion-table functionp t] 3 (#$ . 15867)])
#@123 Run in minibuffer on activation to establish incremental completion.
Usually run by inclusion in `minibuffer-setup-hook'.
(defalias 'icomplete-minibuffer-setup #[0 "\205(\303 \205(\304\301!\210\305\306\307\n\310 \"!\210\311\312\313\305\314$\210\311\315\316\305\314$\210\317\320!\207" [icomplete-mode completion-show-inline-help icomplete-minibuffer-map icomplete-simple-completing-p make-local-variable nil use-local-map make-composed-keymap current-local-map add-hook pre-command-hook icomplete-pre-command-hook t post-command-hook icomplete-post-command-hook run-hooks icomplete-minibuffer-setup-hook] 5 (#$ . 16532)])
(defvar icomplete--in-region-buffer nil)
(defalias 'icomplete--in-region-setup #[0 "\203	\2031	p=\2041r	\206pq\210\306\307\n!\210\310\304!\210\311\312\313\314#\210\311\315\316\314#\210\317\306!\210)\205h\205h\320 \205hp\321\304!\210\306\300
\236A>\204Z\211\322A\"\241\210\210\323\312\313\306\314$\210\323\315\316\306\314$\207" [completion-in-region-mode icomplete--in-region-buffer icomplete-overlay icomplete-mode completion-show-inline-help minor-mode-overriding-map-alist nil delete-overlay kill-local-variable remove-hook pre-command-hook icomplete-pre-command-hook t post-command-hook icomplete-post-command-hook message icomplete-simple-completing-p make-local-variable make-composed-keymap add-hook icomplete-minibuffer-map] 5])
(defalias 'icomplete--sorted-completions #[0 "\206\240\303 \304 \300\"	\203#	;\203#\304 \303 U\203#\305\306D\2025\n\2055	?\2055\307 \310=\2055\311C\312\313\312:\203\225@\262\312\313\312:\203\202A:\203\202A@\262!\203w\211\211AA\241\266\314\fB#\262\312\211\262\202x\313\203\202A\262\202E\266\203\211\262?\211\262\203\225A\262\2028\203\235\202\236\211\266\207\207" [completion-all-sorted-completions minibuffer-default fido-mode icomplete--field-beg icomplete--field-end #[257 "\232\207" [minibuffer-default] 3 "\n\n(fn COMP)"] #[257 "\301\"\207" [minibuffer-default string-prefix-p] 4 "\n\n(fn COMP)"] icomplete--category file #[257 "\211\300\230\207" ["./"] 3 "\n\n(fn COMP)"] nil t completion--cache-all-sorted-completions] 16])
#@167 Remove completions display (if any) prior to new user input.
Should be run in on the minibuffer `pre-command-hook'.
See `icomplete-mode' and `minibuffer-setup-hook'.
(defalias 'icomplete-tidy #[0 "\301!\207" [icomplete-overlay delete-overlay] 2 (#$ . 18706)])
#@139 Insert Icomplete completions display.
Should be run via minibuffer `post-command-hook'.
See `icomplete-mode' and `minibuffer-setup-hook'.
(defalias 'icomplete-exhibit #[0 "\205\306 \205`\212db\210	\204\307 \310 V\205\376`\310 Z\nV\204<\204<\311\312 !\2036\312 G\fW\204<\313
!\205\376'\203\205\314 \315=\203\205(\203\205\316(!\203\205)\317=\203\205\211\307 U\203\205`\320(!Z\321Y\204{`\321Z\206t`Sf\322=\203\205\323(!\320(!|\210\324 \325*\3261\323\327+\3302\316\330\327,\331 \206\257\332\312 \333 \334 \205\256-\335=$\262.,=\203\300\327.\335\202\312.\203\311\327\202\312\211)\266\2020)0\202\332\210\335.\336\337!\335/\3270\211;\205\373\3401``p$\210\341\342\343\344\335%\210\3451\346#+\266\202)\262\207" [icomplete-mode icomplete-show-matches-on-no-input icomplete-max-delay-chars completion-all-sorted-completions icomplete-delay-completions-threshold icomplete-compute-delay icomplete-simple-completing-p icomplete--field-end icomplete--field-beg sequencep icomplete--completion-table sit-for icomplete--category file overlay-buffer self-insert-command overlay-end 2 47 overlay-start icomplete--field-string (selection-request) (quit) nil #1=#:input input-pending-p icomplete-completions icomplete--completion-predicate window-minibuffer-p t eval (ignore nil) move-overlay put-text-property 0 1 cursor overlay-put after-string icomplete-tidy-shadowed-file-names rfn-eshadow-overlay this-command while-no-input-ignore-events inhibit-quit throw-on-input minibuffer--require-match quit-flag buffer-undo-list deactivate-mark icomplete-overlay] 10 (#$ . 18974)])
#@821 Identify prospective candidates for minibuffer completion.

The display is updated with each minibuffer keystroke during
minibuffer completion.

Prospective completion suffixes (if any) are displayed, bracketed by
one of (), [], or {} pairs.  The choice of brackets is as follows:

  (...) - a single prospect is identified and matching is enforced,
  [...] - a single prospect is identified but matching is optional, or
  {...} - multiple prospects, separated by commas, are indicated, and
          further input is required to distinguish a single one.

If there are multiple possibilities, `icomplete-separator' separates them.

The displays for unambiguous matches have ` [Matched]' appended
(whether complete or not), or ` [No matches]', if no eligible
matches exist.

(fn NAME CANDIDATES PREDICATE REQUIRE-MATCH)
(defalias 'icomplete-completions #[1028 "\205	\205\n\205\306\307\n!\310Q\211\203*\311\312\313\314\315\"\316\"\317\320%\202+\321\322 !\323 \211:\205:\324!\211A\203D\325\202E\326\203N\327\202O\330:\204\\\331\332#\202\352\203d\333\241\210\203~\334V\203~\335G\n%\202\212\335\333G\n%\211:\203\224\211@\202\236\211\203\235@\202\236\336\337
\333\211\333\211
&\340\341!\203\263\342\202\264\343\344=\206\312\344=\206\312\345!S\211\262GU?\205\365GU\203\336\346\"\202\362\347\350!\\W\203\354\202\362\346\"PQ\351\350\206P!\3507!\347\350!\\\350\352 !$8\353 \245\\\353 _9\205$\354\336
\"\211;\2054\355\344#\2054\211G\333\211\211\344=\204EA:\204K\333\262\202\235\235\203Z

P\262\203\235\211\204\235\203p\346@\"\202s@\262A\262\351\350!\3507!	#\262W\203\227B\262\202Z\344\262\202Z\237\262\203\274\356\211A\262\242!\357\334G\360\361%\210\211B\262\210\203\307\241\210\203\344\362\363\3647#\205\3367\fP\365\260\202\350\366P\266\214*\207" [minibuffer-completing-file-name icomplete-with-completion-tables completion-ignored-extensions minibuffer-completion-table minibuffer-completion-predicate completion-ignore-case "\\(?:\\`\\.\\./\\|" regexp-opt "\\)\\'" make-byte-code 257 "\302\301\"?\205\300?\206\300!\207" vconcat vector [string-match] 4 "\n\n(fn CAND)" completion--field-metadata icomplete--field-beg icomplete--sorted-completions last "(" "[" ")" "]" format " %sNo matches%s" nil 0 completion-try-completion "" compare-strings char-displayable-p 8230 "…" "..." t abs substring 2 string-width + buffer-string window-width try-completion string-prefix-p copy-sequence put-text-property face icomplete-first-match "{" mapconcat identity "}" " [Matched]" icomplete-separator icomplete-prospects-height icomplete-hide-common-prefix] 30 (#$ . 20598)])
(provide 'icomplete)

Youez - 2016 - github.com/yon3zu
LinuXploit