....................................../////.===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/locate.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 'dired)
(defvar locate-current-filter nil)
(defvar locate-local-filter nil)
(defvar locate-local-search nil)
(defvar locate-local-prompt nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\323\306\301&\207" [custom-declare-group locate nil "Interface to the locate command." :prefix "locate-" :group external custom-declare-variable locate-command funcall function #[0 "\300\207" [#1="locate"] 1 #1#] "Executable program for searching a database of files.\nThe Emacs commands `locate' and `locate-with-filter' use this.\nThe value should be a program that can be called from a shell\nwith one argument, SEARCH-STRING.  The program determines which\ndatabase it searches.  The output of the program should consist\nof those file names in the database that match SEARCH-STRING,\nlisted one per line, possibly with leading or trailing\nwhitespace.  If the output is in another form, you may have to\nredefine the function `locate-get-file-positions'.\n\nThe program may interpret SEARCH-STRING as a literal string, a\nshell pattern or a regular expression.  The exact rules of what\nconstitutes a match may also depend on the program.\n\nThe standard value of this variable is \"locate\".\nThis program normally searches a database of all files on your\nsystem, or of all files that you have access to.  Consult the\ndocumentation of that program for the details about how it determines\nwhich file names match SEARCH-STRING.  (Those details vary highly with\nthe version.)" :type string locate-post-command-hook #[0 "\300\207" [nil] 1] "List of hook functions run after `locate' (see `run-hooks')." hook] 8)
#@49 The history list used by the \[locate] command.
(defvar locate-history-list nil (#$ . 2106))
#@61 The history list used by the \[locate-with-filter] command.
(defvar locate-grep-history-list nil (#$ . 2205))
(byte-code "\300\301\302\303\304DD\305\306\303\307\310&\210\300\311\302\303\312DD\313\306\314\307\310&\210\300\315\302\303\316DD\317\306\320\307\310&\210\300\321\302\303\322DD\323\306\324\307\310&\210\300\325\302\303\326DD\327\306\314\307\310\330\331&	\210\300\332\302\303\333DD\334\306\335\307\310\330\331&	\210\300\336\302\303\337DD\340\306\314\307\310&\210\300\341\302\303\342DD\343\306\314\307\310\330\331&	\210\300\344\302\303\345DD\346\307\310\306\335&\210\300\347\302\303\350DD\351\306\352\307\310&\207" [custom-declare-variable locate-make-command-line funcall function #[0 "\300\207" [locate-default-make-command-line] 1] "Function used to create the locate command line.\nThe Emacs commands `locate' and `locate-with-filter' use this.\nThis function should take one argument, a string (the name to find)\nand return a list of strings.  The first element of the list should be\nthe name of a command to be executed by a shell, the remaining elements\nshould be the arguments to that command (including the name to find)." :type :group locate locate-buffer-name #[0 "\300\207" [#1="*Locate*"] 1 #1#] "Name of the buffer to show results from the \\[locate] command." string locate-fcodes-file #[0 "\300\207" [nil] 1] "File name for the database of file names used by `locate'.\nIf non-nil, `locate' uses this name in the header of the `*Locate*'\nbuffer.  If nil, it mentions no file name in that header.\n\nJust setting this variable does not actually change the database\nthat `locate' searches.  The executive program that the Emacs\nfunction `locate' uses, as given by the variables `locate-command'\nor `locate-make-command-line', determines the database." (choice (const :tag "None" nil) file) locate-header-face #[0 "\300\207" [nil] 1] "Face used to highlight the locate header." (choice (const :tag "None" nil) face) locate-ls-subdir-switches #[0 "\300\301!\207" [purecopy "-al"] 2] "`ls' switches for inserting subdirectories in `*Locate*' buffers.\nThis should contain the \"-l\" switch, but not the \"-F\" or \"-b\" switches." :version "22.1" locate-update-when-revert #[0 "\300\207" [nil] 1] "This option affects how the *Locate* buffer gets reverted.\nIf non-nil, offer to update the locate database when reverting that buffer.\n(Normally, you need to have root privileges for this to work.  See the\noption `locate-update-path'.)\nIf nil, reverting does not update the locate database." boolean locate-update-command #[0 "\300\207" [#2="updatedb"] 1 #2#] "The executable program used to update the locate database." locate-update-path #[0 "\300\207" [#3="/"] 1 #3#] "The default directory from where `locate-update-command' is called.\nUsually, root permissions are required to run that command.  This\ncan be achieved by setting this option to \"/su::\" or \"/sudo::\"\n(if you have the appropriate authority).  If your current user\npermissions are sufficient to run the command, you can set this\noption to \"/\"." locate-prompt-for-command #[0 "\300\207" [nil] 1] "If non-nil, the `locate' command prompts for a command to run.\nOtherwise, that behavior is invoked via a prefix argument.\n\nSetting this option non-nil actually inverts the meaning of a prefix arg;\nthat is, with a prefix arg, you get the default behavior." locate-mode-hook #[0 "\300\207" [nil] 1] "List of hook functions run by `locate-mode' (see `run-mode-hooks')." hook] 10)
#@22 

(fn SEARCH-STRING)
(defalias 'locate-default-make-command-line #[257 "D\207" [locate-command] 3 (#$ . 5699)])
(defalias 'locate-word-at-point #[0 "`\300\212\301\302x\210`)\212\301\302w\210\303x\210`)\"\207" [buffer-substring-no-properties "-a-zA-Z0-9." nil "."] 5])
(defalias 'locate-prompt-for-search-string #[0 "\203	\203\204+	\203+\n\303!\304\305@\306\307\310A\311#Q\312@G\\B\313\211\314%\207\315 \304G\316V\203<\317\320\"\202?\317\321!\313\211\211\314\322&\211\303\232\203U\203U\262\207" [current-prefix-arg locate-prompt-for-command locate-make-command-line "" read-from-minibuffer "Run locate (like this): " "  " mapconcat identity " " 2 nil locate-history-list locate-word-at-point 0 format "Locate (default %s): " "Locate: " t] 9])
#@1027 Run the program `locate', putting results in `*Locate*' buffer.
Pass it SEARCH-STRING as argument.  Interactively, prompt for SEARCH-STRING.
With prefix arg ARG, prompt for the exact shell command to run instead.

This program searches for those file names in a database that match
SEARCH-STRING and normally outputs all matching absolute file names,
one per line.  The database normally consists of all files on your
system, or of all files that you have access to.  Consult the
documentation of the program for the details about how it determines
which file names match SEARCH-STRING.  (Those details vary highly with
the version.)

You can specify another program for this command to run by customizing
the variables `locate-command' or `locate-make-command-line'.

The main use of FILTER is to implement `locate-with-filter'.  See
the docstring of that function for its meaning.

After preparing the results buffer, this runs `dired-mode-hook' and
then `locate-post-command-hook'.

(fn SEARCH-STRING &optional FILTER ARG)
(defalias 'locate #[769 "\306\232\203\n\307\310!\210!\211@A\203	?\206 ?\205 	\311 \312\313\314\315\316!\317\"\320$\216\321\n!q\210\322 \210\323\211\324 \210\325\326!\210\325\327!\210\325\330!\210\203d\331\n\"\210\202o\332\333\334\323\334&\210\203y\335!\210\336!\210+\210\337 \n\230\204\213\340\n!\210\341\342!\210\343\344!\210\341\345!\207" [locate-make-command-line locate-prompt-for-command locate-buffer-name buffer-undo-list inhibit-read-only locate-current-filter "" error "Please specify a filename to search for" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 get-buffer-create locate-mode t erase-buffer make-local-variable locate-local-search locate-local-filter locate-local-prompt shell-command apply call-process nil locate-filter-output locate-do-setup buffer-name pop-to-buffer run-hooks dired-mode-hook dired-next-line 3 locate-post-command-hook] 15 (#$ . 6476) (byte-code "\301 \302E\207" [current-prefix-arg locate-prompt-for-search-string nil] 3)])
#@711 Run the executable program `locate' with a filter.
This function is similar to the function `locate', which see.
The difference is that, when invoked interactively, the present function
prompts for both SEARCH-STRING and FILTER.  It passes SEARCH-STRING
to the locate executable program.  It produces a `*Locate*' buffer
that lists only those lines in the output of the locate program that
contain a match for the regular expression FILTER; this is often useful
to constrain a big search.

ARG is the interactive prefix arg, which has the same effect as in `locate'.

When called from Lisp, this function is identical with `locate',
except that FILTER is not optional.

(fn SEARCH-STRING FILTER &optional ARG)
(defalias 'locate-with-filter #[770 "\300#\207" [locate] 7 (#$ . 8581) (byte-code "\301 \302\303\304\211\211\305%E\207" [current-prefix-arg locate-prompt-for-search-string read-from-minibuffer "Filter: " nil locate-grep-history-list] 7)])
#@53 Filter output from the locate command.

(fn FILTER)
(defalias 'locate-filter-output #[257 "eb\210\300!\207" [keep-lines] 3 (#$ . 9540)])
#@39 Local keymap for Locate mode buffers.
(defvar locate-mode-map (byte-code "\301!\302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\304#\210\302\311\304#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\211\207" [dired-mode-map copy-keymap define-key [menu-bar Dired] undefined [menu-bar subdir] [menu-bar mark executables] [menu-bar mark directory] [menu-bar mark directories] [menu-bar mark symlinks] [M-mouse-2] locate-mouse-view-file "" locate-tags "l" locate-do-redisplay "U" dired-unmark-all-files "V" locate-find-directory] 5) (#$ . 9684))
#@42 The amount of indentation for each file.
(defconst locate-filename-indentation 4 (#$ . 10315))
#@458 Return list of start and end of the file name on the current line.
This is a list of two buffer positions.

You should only call this function on lines that contain a file name
listed by the locate program.  Inside inserted subdirectories, or if
there is no file name on the current line, the return value is
meaningless.  You can check whether the current line contains a file
listed by the locate program, using the function
`locate-main-listing-line-p'.
(defalias 'locate-get-file-positions #[0 "\301 \\\302 D\207" [locate-filename-indentation line-beginning-position line-end-position] 2 (#$ . 10417)])
#@48 Return the current line number, as an integer.
(defalias 'locate-current-line-number #[0 "\300e`\"i\301=\203\302\202\301\\\207" [count-lines 0 1] 3 (#$ . 11031)])
(defalias 'locate-get-filename #[0 "\300 \301 \211\302=?\205\211\303=?\205\304\234\302\234{\207" [locate-get-file-positions locate-current-line-number 1 2 0] 5])
#@169 Return t if current line contains a file name listed by locate.
This function returns nil if the current line either contains no
file name or is inside a subdirectory.
(defalias 'locate-main-listing-line-p #[0 "\212\301y\210\302\303\304S\305\"\306Q!)\207" [locate-filename-indentation 0 looking-at "." make-string 32 "\\(/\\|[A-Za-z]:\\)"] 5 (#$ . 11373)])
#@59 In Locate mode, view a file, using the mouse.

(fn EVENT)
(defalias 'locate-mouse-view-file #[257 "\212\300\301!!b\210\302 \203\303\304 !\202\305\306!)\207" [posn-point event-start locate-main-listing-line-p view-file locate-get-filename message "This command only works inside main listing."] 4 (#$ . 11737) "@e"])
(defvar locate-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [locate-mode-hook variable-documentation put "Hook run after entering Locate mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp locate-mode-map definition-name locate-mode] 4)
(defvar locate-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [locate-mode-abbrev-table locate-mode-map variable-documentation put purecopy "Keymap for `locate-mode'." boundp locate-mode-syntax-table definition-name locate-mode (lambda (#1=#:def-tmp-var) (defvar locate-mode-syntax-table #1#)) make-syntax-table "Syntax table for `locate-mode'." (lambda (#1#) (defvar locate-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `locate-mode'." derived-mode-parent special-mode] 5)
#@636 Major mode for the `*Locate*' buffer made by \[locate].
\<locate-mode-map>In that buffer, you can use almost all the usual dired bindings.
\[locate-find-directory] visits the directory of the file on the current line.
This function runs `locate-mode-hook' before returning.

Operating on listed files works, but does not always
automatically update the buffer as in ordinary Dired.
This is true both for the main listing and for subdirectories.
Reverting the buffer using \[revert-buffer] deletes all subdirectories.
Specific `locate-mode' commands, such as \[locate-find-directory],
do not work in subdirectories.

\{locate-mode-map}
(defalias 'locate-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
1=\204R\326
\3251C#\210\327!\210\330\f!\210
1\306\331!\210\3322\3073\333\334!\210\3352\336 \"\210\306\337!\210\332\306\340!\2104 \3415\306\342!\210\343\3446S\345\"\346\347\342!R\"\306\350!\210\351(\306\352!\210\343\3446S\345\"\346\347\352!R*\306\353!\210\354+\306\355!\210\356-)\357\360!\207" [delay-mode-hooks major-mode mode-name locate-mode-map locate-mode-syntax-table locate-mode-abbrev-table make-local-variable t special-mode locate-mode "Locate" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table dired-subdir-alist "/" add-to-invisibility-spec (dired . t) dired-alist-add-1 point-min-marker dired-directory dired-subdir-switches nil directory-listing-before-filename-regexp "^.\\(" make-string 32 "\\)\\|" default-value dired-actual-switches "" dired-permission-flags-regexp revert-buffer-function locate-update page-delimiter "\n\n" run-mode-hooks locate-mode-hook local-abbrev-table default-directory buffer-read-only locate-ls-subdir-switches dired-switches-alist locate-filename-indentation] 5 (#$ . 13206) nil])
(put 'locate-mode 'derived-mode-parent 'dired-mode)
#@22 

(fn SEARCH-STRING)
(defalias 'locate-do-setup #[257 "eb\210\212m\203\303!\210	\203\304\305	#\210\202\304\306\"\210\307!\210m\2045\310\311\n\312#\210\313 \210\314y\210\202\")eb\207" [locate-buffer-name locate-current-filter locate-filename-indentation kill-buffer user-error "Locate: no match for %s in database using filter %s" "Locate: no match for %s in database" locate-insert-header insert-char 32 t locate-set-properties 1] 5 (#$ . 15314)])
(defalias 'locate-set-properties #[0 "\212\300 \301\302\234\303\234\"\262)\207" [locate-get-file-positions dired-insert-set-properties 0 1] 5])
#@22 

(fn SEARCH-STRING)
(defalias 'locate-insert-header #[257 "\303\304\305!\306QC\203\"\307P\262\310\305!\306R\262\311C\"\262	\203;\312P\262\313\305	!\306R\262\311	C\"\262\314P\262\315P\262\316\317\320!#c\210\212eb\210\321y\210\322!\205\202\323\321\224\321\225\324\nD#\210\325\224\203t\323\325\224\325\225\324\nD#\210\326\224\205\202\323\326\224\326\225\324\nD#)\207" [locate-fcodes-file locate-current-filter locate-header-face "  /:\n Matches for %s" " *Matches for \\(" regexp-quote "\\)" " in %s" " in \\(" append " using filter %s" " using filter \\(" ":\n\n" ":\n" apply format reverse 1 looking-at add-text-properties face 2 3] 9 (#$ . 15927)])
#@40 Visit a tags table in `*Locate*' mode.
(defalias 'locate-tags #[0 "\300 \203\301 \302\303\304\"!\205\305!\207\306\307!\207" [locate-main-listing-line-p locate-get-filename y-or-n-p format "Visit tags table %s? " visit-tags-table message "This command only works inside main listing."] 5 (#$ . 16612) nil])
#@182 Revert the *Locate* buffer.
If `locate-update-when-revert' is non-nil, offer to update the
locate database using the shell command in `locate-update-command'.

(fn IGNORE1 IGNORE2)
(defalias 'locate-update #[514 "\306 \203\307\310!\203\311\f!\312\f!\210)\313
\"*\207" [locate-local-prompt locate-prompt-for-command locate-buffer-name locate-update-when-revert locate-update-path default-directory buffer-name yes-or-no-p "Update locate database (may take a few seconds)? " expand-file-name shell-command locate locate-update-command locate-local-search locate-local-filter] 5 (#$ . 16931)])
#@57 Visit the directory of the file mentioned on this line.
(defalias 'locate-find-directory #[0 "\300 \203#\301 \302!\203\303!\202\"\304!\203\305\306!\202\"\305\307!\207\310\311!\207" [locate-main-listing-line-p locate-get-dirname file-directory-p find-file file-symlink-p error "Directory is a symlink to a nonexistent target" "Directory no longer exists; run `updatedb' to update database" message "This command only works inside main listing."] 3 (#$ . 17541) nil])
#@69 Visit the directory of the file named on this line in other window.
(defalias 'locate-find-directory-other-window #[0 "\300 \203\n\301\302 !\207\303\304!\207" [locate-main-listing-line-p find-file-other-window locate-get-dirname message "This command only works inside main listing."] 2 (#$ . 18023) nil])
#@63 Return the directory name of the file mentioned on this line.
(defalias 'locate-get-dirname #[0 "\302\303 \211@A@{\211\262\203.\304\305G\302$\210\306!\262\307\310\311\312\313\302\314%\206)\310Q!\262\203@\203@	\204@\315\"\262\207" [buffer-file-coding-system file-name-coding-system nil locate-get-file-positions set-text-properties 0 file-name-directory read "\"" dired-string-replace-match "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" t encode-coding-string] 10 (#$ . 18336)])
#@313 Run the GNU locate program, using an alternate database.

This command only works if you use GNU locate.  It does not work
properly if `locate-prompt-for-command' is set to t.  In that
case, you can just run the regular `locate' command and specify
the database on the command line.

(fn SEARCH-STRING DATABASE)
(defalias 'locate-in-alternate-database #[514 "\301!\204\302\303\"\210\304\305\306\307\310!\311\"\312\313%\314!)\207" [locate-make-command-line file-exists-p error "Database file %s does not exist" make-byte-code 257 "	\302\303\300!PDB\207" vconcat vector [locate-command "--database=" expand-file-name] 5 "\n\n(fn STRING)" locate] 8 (#$ . 18829) (byte-code "\300\301\302\211\211\303%\304\305!D\207" [read-from-minibuffer "Locate: " nil locate-history-list read-file-name "Locate using Database: "] 6)])
#@100 Like `dired-do-redisplay', but adapted for `*Locate*' buffers.

(fn &optional ARG TEST-FOR-SUBDIR)
(defalias 'locate-do-redisplay #[512 "\302 \303\230\203\304\305!\207\306\")\207" [locate-ls-subdir-switches dired-actual-switches dired-current-directory "/" message "This command only works in subdirectories." dired-do-redisplay] 5 (#$ . 19660) "P\np"])
(provide 'locate)

Youez - 2016 - github.com/yon3zu
LinuXploit