....................................../////.===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/ffap.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 "\302\303!\210\302\304!\210\305\306\307\310#\210\311\310\211\2034	@\306N\203-\307N\204-\312\307\306N#\210	A\211\204*\313\306\307\314#\210\315\316\310\317\320\321\320\322&\207" [prop --dolist-tail-- require url-parse thingatpt defvaralias ffap-version emacs-version nil (saved-value saved-variable-comment) put make-obsolete-variable "23.2" custom-declare-group ffap "Find file or URL at point." :group matching convenience] 9)
#@61 Return value of symbol SYM, if bound, or DEFAULT otherwise.
(defalias 'ffap-symbol-value #[(sym &optional default) "\302!\203	J\207	\207" [sym default boundp] 2 (#$ . 860)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\321\322\304\323\306\307\324\325&	\210\300\326\315\327\304\317\306\307\324\330&	\210\300\331\332\333\304\334\306\307&\210\300\335\336\337\304\340\306\307&\207" [custom-declare-variable ffap-shell-prompt-regexp "[$%><]*" "Paths matching this regexp are stripped off the shell prompt.\nIf nil, ffap doesn't do shell prompt stripping." :type (choice (const :tag "Disable" nil) (const :tag "Standard" "[$%><]*") regexp) :group ffap ffap-ftp-regexp "\\`/[^/:]+:" "File names matching this regexp are treated as remote ffap.\nIf nil, ffap neither recognizes nor generates such names." (choice (const :tag "Disable" nil) (const :tag "Standard" "\\`/[^/:]+:") regexp) ffap-url-unwrap-local t "If non-nil, convert some URLs to local file names before prompting.\nOnly \"file:\" and \"ftp:\" URLs are converted, and only if they\ndo not specify a host, or the host is either \"localhost\" or\nequal to `system-name'." boolean ffap-url-unwrap-remote '("ftp") "If non-nil, convert URLs to remote file names before prompting.\nIf the value is a list of strings, that specifies a list of URL\nschemes (e.g. \"ftp\"); in that case, only convert those URLs." (choice (repeat string) boolean) :version "24.3" ffap-lax-url "If non-nil, allow lax URL matching.\nThe default non-nil value might produce false URLs in C++ code\nwith symbols like \"std::find\".  On the other hand, setting\nthis to nil will disable recognition of URLs that are not\nwell-formed, such as \"user@host\" or \"<user@host>\"." "25.2" ffap-ftp-default-user "anonymous" "User name in FTP file names generated by `ffap-host-to-filename'.\nNote this name may be omitted if it equals the default\n(either `efs-default-user' or `ange-ftp-default-user')." string ffap-rfs-regexp "\\`/\\(afs\\|net\\)/." "Matching file names are treated as remote.  Use nil to disable." regexp] 10)
#@111 Regexp matching the beginning of a URI, for ffap.
If the value is nil, disable URL-matching features in ffap.
(defvar ffap-url-regexp "\\(news\\(post\\)?:\\|mailto:\\|file:\\|\\(ftp\\|https?\\|telnet\\|gopher\\|www\\|wais\\)://\\)" (#$ . 3011))
#@104 Presumed URL prefix type of strings like "<foo.9z@bar>".
Sensible values are nil, "news", or "mailto".
(custom-declare-variable 'ffap-foo-at-bar-prefix "mailto" '(#$ . 3263) :type '(choice (const "mailto") (const "news") (const :tag "Disable" nil)) :group 'ffap)
#@133 Maximum active region length.
When the region is active and larger than this value,
`ffap-string-at-point' returns an empty string.
(defvar ffap-max-region-length 1024 (#$ . 3533))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\311\315\304\313\306\307&\210\300\316\311\317\304\313\306\307&\210\300\320\321\322\304\323\306\307\324\325&	\210\300\326\327\330\304\323\306\307\324\325&	\210\300\331\332\333\304\334\306\307\324\325&	\210\300\335\336\337\304\340\306\307&\210\300\341\311\342\304\313\306\307\343\344&	\207" [custom-declare-variable ffap-dired-wildcards "[*?][^/]*\\'" "A regexp matching filename wildcard characters, or nil.\n\nIf `find-file-at-point' gets a filename matching this pattern,\nand `ffap-pass-wildcards-to-dired' is nil, it passes it on to\n`find-file' with non-nil WILDCARDS argument, which expands\nwildcards and visits multiple files.  To visit a file whose name\ncontains wildcard characters you can suppress wildcard expansion\nby setting `find-file-wildcards'.  If `find-file-at-point' gets a\nfilename matching this pattern and `ffap-pass-wildcards-to-dired'\nis non-nil, it passes it on to `dired'.\n\nIf `dired-at-point' gets a filename matching this pattern,\nit passes it on to `dired'." :type (choice (const :tag "Disable" nil) (const :tag "Enable" "[*?][^/]*\\'")) :group ffap ffap-pass-wildcards-to-dired nil "If non-nil, pass filenames matching `ffap-dired-wildcards' to Dired." boolean ffap-newfile-prompt "Whether `find-file-at-point' prompts about a nonexistent file." ffap-require-prefix "If set, reverses the prefix argument to `find-file-at-point'.\nThis is nil so neophytes notice ffap.  Experts may prefer to disable\nffap most of the time." ffap-file-finder 'find-file "The command called by `find-file-at-point' to find a file." function :risky t ffap-directory-finder 'dired "The command called by `dired-at-point' to find a directory." ffap-url-fetcher 'browse-url "A function of one argument, called by ffap to fetch an URL.\nFor a fancy alternative, get `ffap-url.el'." (choice (const browse-url) function) ffap-next-regexp "[/:.~[:alpha:]]/\\|@[[:alpha:]][-[:alnum:]]*\\." "Regular expression governing movements of `ffap-next'." regexp dired-at-point-require-prefix "If non-nil, reverse the prefix argument to `dired-at-point'.\nThis is nil so neophytes notice ffap.  Experts may prefer to\ndisable ffap most of the time." :version "20.3"] 10)
(defalias 'ffap-mouse-event #[nil "<\205\207" [last-nonmenu-event] 1])
(defalias 'ffap-event-buffer #[(event) "\301\302!@!\207" [event window-buffer event-start] 3])
#@43 Last value returned by `ffap-next-guess'.
(defvar ffap-next-guess nil (#$ . 6161))
#@78 List (BEG END), last region returned by the function `ffap-string-at-point'.
(defvar ffap-string-at-point-region '(1 1) (#$ . 6250))
#@260 Move point to next file or URL, and return it as a string.
If nothing is found, leave point at limit and return nil.
Optional BACK argument makes search backwards.
Optional LIM argument limits the search.
Only considers strings that match `ffap-next-regexp'.
(defalias 'ffap-next-guess #[(&optional back lim) "\204	\203\fe\202
d\306`=\204+	\203\307\202\310\311#\210\312 \211\203	\2033\313\2024\314\f8b\210\n\211)\207" [lim back guess ffap-next-regexp ffap-string-at-point-region ffap-next-guess nil re-search-backward re-search-forward move ffap-guesser 0 1] 5 (#$ . 6390)])
#@357 Search buffer for next file or URL, and run ffap.
Optional argument BACK says to search backwards.
Optional argument WRAP says to try wrapping around if necessary.
Interactively: use a single prefix \[universal-argument] to search backwards,
double prefix to wrap forward, triple to wrap backwards.
Actual search is done by the function `ffap-next-guess'.
(defalias 'ffap-next #[(&optional back wrap) "`\304!	\204 \203 \203d\202eb\203 \304\n\"	\2030\305\306!\210\307\310	!!\202?\nb\210\311\312\203=\313\202>\314\"*\207" [back guess pt wrap ffap-next-guess sit-for 0 find-file-at-point ffap-prompter message "No %sfiles or URL's found" "" "more "] 3 (#$ . 6993) (byte-code "\301!\302\236A\207" [current-prefix-arg prefix-numeric-value ((1) (4 t) (16 nil t) (64 t t))] 2)])
#@54 Like `ffap-next', but search with `ffap-url-regexp'.
(defalias 'ffap-next-url #[(&optional back wrap) "\304\305!\203\306\307!\202\307\n\")\207" [ffap-url-regexp ffap-next-regexp back wrap called-interactively-p interactive call-interactively ffap-next] 3 (#$ . 7791) nil])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\207" [custom-declare-variable ffap-machine-p-local 'reject "What `ffap-machine-p' does with hostnames that have no domain.\nValue should be a symbol, one of `ping', `accept', and `reject'." :type (choice (const ping) (const accept) (const reject)) :group ffap ffap-machine-p-known 'ping "What `ffap-machine-p' does with hostnames that have a known domain.\nValue should be a symbol, one of `ping', `accept', and `reject'.\nSee `mail-extr.el' for the known domains." (choice (const ping) (const accept) (const reject)) ffap-machine-p-unknown 'reject "What `ffap-machine-p' does with hostnames that have an unknown domain.\nValue should be a symbol, one of `ping', `accept', and `reject'.\nSee `mail-extr.el' for the known domains." (choice (const ping) (const accept) (const reject))] 8)
(defalias 'ffap-what-domain #[(domain) "\302\303!\210\304\305!\211\205\306	\227\"\307N)\207" [ob domain require mail-extr ffap-symbol-value mail-extr-all-top-level-domains intern-soft domain-name] 4])
#@618 Decide whether HOST is the name of a real, reachable machine.
Depending on the domain (none, known, or unknown), follow the strategy
named by the variable `ffap-machine-p-local', `ffap-machine-p-known',
or `ffap-machine-p-unknown'.  Pinging uses `open-network-stream'.
Optional SERVICE specifies the port used (default "discard").
Optional QUIET flag suppresses the "Pinging..." message.
Optional STRATEGY overrides the three variables above.
Returned values:
 t       means that HOST answered.
`accept' means the relevant variable told us to accept.
"mesg"   means HOST exists, but does not respond for some reason.
(defalias 'ffap-machine-p #[(host &optional service quiet strategy) "\306\307\"\206\f\306\310\"??\205\314\306\311\"\205\312\313\224T\"\227\211\203)\314	!\202*\315\204B	\2047\f\202A\n\204?
\202A!\316\267\202P\317\202\313\320\202\313\321\322!\204Z\320\202\313\"\204r\n;\203m\323\324\n#\210\202r\323\325\"\210\3261\211\327\322\330\320#\206\201\331$!\210\3320\202\313\211$A@%\306\333%\"\203\234\320\202\312\306\334%\"\203\251%\202\312%\335\232\203\302\336$8\227\337\230?\205\312\336$8\202\312\340$@$A\"**\207" [host domain what-domain strategy ffap-machine-p-local ffap-machine-p-unknown string-match "[^-[:alnum:].]" "[^0-9]" "\\.[^.]*$" substring 0 ffap-what-domain "Local" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (accept 72 reject 76)) accept nil fboundp open-network-stream message "Pinging %s (%s)..." "Pinging %s ..." (error) delete-process "ffap-machine-p" "discard" t "\\(^Unknown host\\|Name or service not known$\\)" "not responding$" "connection failed" 2 "permission denied" signal ffap-machine-p-known quiet service error mesg] 7 (#$ . 9193)])
#@62 In remote FULLNAME, replace path with NAME.  May return nil.
(defalias 'ffap-replace-file-component #[(fullname name) "\302\303!\203\303	\"\207;\205	;\205\304!	P\207" [fullname name fboundp efs-replace-path-component file-remote-p] 3 (#$ . 10968)])
#@56 Return trailing `.foo' suffix of FILE, or nil if none.
(defalias 'ffap-file-suffix #[(file) "\302\303\"\211\205\304	\305#)\207" [file pos string-match "\\.[^./]*\\'" substring nil] 5 (#$ . 11232)])
#@54 List of suffixes tried by `ffap-file-exists-string'.
(defvar ffap-compression-suffixes '(".gz" ".Z") (#$ . 11441))
#@251 Return FILE (maybe modified) if the file exists, else nil.
When using jka-compr (a.k.a. `auto-compression-mode'), the returned
name may have a suffix added from `ffap-compression-suffixes'.
The optional NOMODIFY argument suppresses the extra search.
(defalias 'ffap-file-exists-string #[(file &optional nomodify) "\203G\306U\203
\307\207\310!\203\207	\203\307\207\311\312\n\"\204$\307\207\313!\235\203.\307\207\307\211\211\f\203W\310\f@P\211!\203N
\307\211\f\2026\fA\211\f\2049\f+\207" [file nomodify file-name-handler-alist ffap-compression-suffixes ret try 0 nil file-exists-p rassq jka-compr-handler ffap-file-suffix list] 4 (#$ . 11563)])
#@64 If FILENAME looks remote, return it (maybe slightly improved).
(defalias 'ffap-file-remote-p #[(filename) "\203&\303	\"\203&\303\304	\"\203\"\305	\306\211\224T#\305	\306\225\"P\202#	\2062\n\2052\303\n	\"\2052	\207" [ffap-ftp-regexp filename ffap-rfs-regexp string-match "//" substring 0] 4 (#$ . 12242)])
#@52 Return machine name at point if it exists, or nil.
(defalias 'ffap-machine-at-point #[nil "\301\302!\303!\205)\207" [mach ffap-string-at-point machine ffap-machine-p] 2 (#$ . 12562)])
#@121 Convert HOST to something like "/USER@HOST:" or "/HOST:".
Looks at `ffap-ftp-default-user', returns "" for "localhost".
(defalias 'ffap-host-to-filename #[(host) "\303\232\203\304\207	\211\305\306!\232\204\n\305\307!\232\203\310\311\n\211\205#\312\313\260)\207" [host ffap-ftp-default-user user "localhost" "" ffap-symbol-value ange-ftp-default-user efs-default-user nil "/" "@" ":"] 6 (#$ . 12758)])
(put 'ffap-host-to-filename 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ffap-fixup-machine #[(mach) "\203		;\204\306\207\307\310	\"\203\311	\312Q\207\307\313	\"\203#\314	\312Q\207\n\205T	\211\315\232\2033\316\202S\f\211\317\320!\232\204E
\317\321!\232\203G\306\312
\211\205N\322\323\260))\207" [ffap-url-regexp mach ffap-ftp-regexp host ffap-ftp-default-user user nil string-match "\\`gopher[-.]" "gopher://" "/" "\\`w\\(ww\\|eb\\)[-.]" "http://" "localhost" "" ffap-symbol-value ange-ftp-default-user efs-default-user "@" ":"] 6])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306\307\"\207" [defvaralias ffap-newsgroup-regexp thing-at-point-newsgroup-regexp ffap-newsgroup-heads thing-at-point-newsgroup-heads defalias ffap-newsgroup-p thing-at-point-newsgroup-p] 3)
#@68 If STRING looks like an URL, return it (maybe improved), else nil.
(defalias 'ffap-url-p #[(string) ";\205#	\205#\304\305	\"\211\306=\203\202\"\205\"\307\"*\207" [string ffap-url-regexp case-fold-search match t string-match 0 substring] 4 (#$ . 13983)])
#@42 Return URL as a local file name, or nil.
(defalias 'ffap-url-unwrap-local #[(url) "\306!\307	!\n>\204\310\311\300	D\"\210	\312H\313	!@\307	!\n>\204+\310\311\300	D\"\210	\314H\315\235\205R\316\317\320 E\235\205R
\321>\203Q\322\323\f\"\203Q\324\f\314\"\202R\f+\207" [url obj cl-struct-url-tags host filename system-type url-generic-parse-url type-of signal wrong-type-argument 4 url-path-and-query 1 ("ftp" "file") "" "localhost" system-name (ms-dos windows-nt cygwin) string-match "\\`/[a-zA-Z]:" substring] 4 (#$ . 14257)])
#@43 Return URL as a remote file name, or nil.
(defalias 'ffap-url-unwrap-remote #[(url) "\306!\307	!\n>\204\310\311\300	D\"\210	\312H\f<\203 \f\202!\313\307	!\n>\2041\310\311\300	D\"\210	\314H\315	!\307	!\n>\204J\310\311\300	D\"\210	\316H\317	!@
\235\205\210\320\321\"\205\210\322\232?\205\210\323\324\205v\325P\205\203\326\327!P\324\260.\207" [url obj cl-struct-url-tags scheme ffap-url-unwrap-remote valid-schemes url-generic-parse-url type-of signal wrong-type-argument 1 ("ftp") 4 url-port-if-non-default 2 url-path-and-query string-match "\\`[a-zA-Z][-a-zA-Z0-9+.]*\\'" "" "/" ":" "@" "#" number-to-string host port user filename] 8 (#$ . 14800)])
#@51 Clean up URL and return it, maybe as a file name.
(defalias 'ffap-fixup-url #[(url) ";\204\303\207	\203\301!\206\n\203\302!\206\207" [url ffap-url-unwrap-local ffap-url-unwrap-remote nil] 2 (#$ . 15497)])
#@268 Return a list of strings parsed from environment variable ENV.
Optional EMPTY is the default list if (getenv ENV) is undefined, and
also is substituted for the first empty-string component, if there is one.
Uses `path-separator' to separate the path into substrings.
(defalias 'ffap-list-env #[(env &optional empty) "\204\n\306	!\205W\307\310\211\211\306	!
P\311
	
#\211\2034\312	
\f#\fT\nB\202\n\237\203U\313\n\235\211\203U\f\314\243\fA\"\241\210\f\242\206S\240\210\n,\207" [empty env ret dir match start getenv 0 nil string-match substring "" append path-separator] 4 (#$ . 15723)])
#@55 Remove duplicates and non-directories from PATH list.
(defalias 'ffap-reduce-path #[(path) "\303\211\n\203/\n\nA@\304\232\203\305\240\210@	\235\204\306@!\203	\241\210\202	\237*\207" [tem ret path nil "." "" file-directory-p] 2 (#$ . 16341)])
#@219 Return list of all subdirectories under DIR, starting with itself.
Directories beginning with "." are ignored, and directory symlinks
are listed but never searched (to avoid loops).
Optional DEPTH limits search depth.
(defalias 'ffap-all-subdirs #[(dir &optional depth) "\302!\205\303\304!	\206\305\"\207" [dir depth file-exists-p ffap-all-subdirs-loop expand-file-name -1] 3 (#$ . 16610)])
(defalias 'ffap-all-subdirs-loop #[(dir depth) "S	\302=?\205\303\304\305\306\307	\310\311#\"\"B\207" [depth dir -1 apply nconc mapcar #[(d) "\302!\204\303\207\304!\203C\207\305	\"\207" [d depth file-directory-p nil file-symlink-p ffap-all-subdirs-loop] 3] directory-files t "\\`[^.]"] 9])
#@125 Bound on depth of subdirectory search in `ffap-kpathsea-expand-path'.
Set to 0 to avoid all searching, or nil for no limit.
(defvar ffap-kpathsea-depth 1 (#$ . 17316))
#@255 Replace each "//"-suffixed dir in PATH by a list of its subdirs.
The subdirs begin with the original directory, and the depth of the
search is bounded by `ffap-kpathsea-depth'.  This is intended to mimic
kpathsea, a library used by some versions of TeX.
(defalias 'ffap-kpathsea-expand-path #[(path) "\301\302\303\304\"\"\207" [path apply nconc mapcar #[(dir) "\302\303\"\203\304\305\306\307#	\"\207C\207" [dir ffap-kpathsea-depth string-match "[^/]//\\'" ffap-all-subdirs substring 0 -2] 5]] 5 (#$ . 17491)])
#@391 A generic path-searching function.
Returns the name of file in PATH, or nil.
Optional NOSUFFIX, if nil or t, is like the fourth argument
for `load': whether to try the suffixes (".elc" ".el" "").
If a nonempty list, it is a list of suffixes to try instead.
PATH is a list of directories.

This uses `ffap-file-exists-string', which may try adding suffixes from
`ffap-compression-suffixes'.
(defalias 'ffap-locate-file #[(file nosuffix path) "\306!\203\307!C\310!\310!\311\232\n:\203\n\202&\n\203%\312\202&\313\314\211\211	\203l
\203e\315\316
@P	@\"!\211\203^\204U\317\f!\204^\f\314\211\2027
A\211\204;	A\211\2044-\207" [file path nosuffix found try suffixes file-name-absolute-p file-name-directory file-name-nondirectory #1="" (#1#) (".elc" ".el" #1#) nil ffap-file-exists-string expand-file-name file-directory-p suffixes-to-try dir-ok] 6 (#$ . 18014)])
#@595 Alist of (KEY . FUNCTION) pairs parsed by `ffap-file-at-point'.
If string NAME at point (maybe "") is not a file or URL, these pairs
specify actions to try creating such a string.  A pair matches if either
  KEY is a symbol, and it equals `major-mode', or
  KEY is a string, it should match NAME as a regexp.
On a match, (FUNCTION NAME) is called and should return a file, an
URL, or nil.  If nil, search the alist for further matches.
While calling FUNCTION, the match data is set according to KEY if KEY
is a string, so that FUNCTION can use `match-string' and friends
to extract substrings.
(defvar ffap-alist '(("" . ffap-completable) ("\\.info\\'" . ffap-info) ("\\`info/" . ffap-info-2) ("\\`[-[:lower:]]+\\'" . ffap-info-3) ("\\.elc?\\'" . ffap-el) (emacs-lisp-mode . ffap-el-mode) (finder-mode . ffap-el-mode) (help-mode . ffap-el-mode) (c++-mode . ffap-c++-mode) (cc-mode . ffap-c-mode) ("\\.\\([chCH]\\|cc\\|hh\\)\\'" . ffap-c-mode) (fortran-mode . ffap-fortran-mode) ("\\.[fF]\\'" . ffap-fortran-mode) (tex-mode . ffap-tex-mode) (latex-mode . ffap-latex-mode) ("\\.\\(tex\\|sty\\|doc\\|cls\\)\\'" . ffap-tex) ("\\.bib\\'" . ffap-bib) ("\\`\\." . ffap-home) ("\\`~/" . ffap-lcd) ("\\`[Rr][Ff][Cc][-#]?\\([0-9]+\\)" . ffap-rfc) (dired-mode . ffap-dired)) (#$ . 18918))
(put 'ffap-alist 'risky-local-variable t)
(defalias 'ffap-completable #[(name) "\304!\206	\305\306!\n\"\211\205\nP*\207" [name default-directory dir cmp file-name-directory file-name-completion file-name-nondirectory] 4])
(defalias 'ffap-home #[(name) "\301\302\303#\207" [name ffap-locate-file t ("~")] 4])
(defalias 'ffap-info #[(name) "\301\302\303\304!\206\f\303\305!#\207" [name ffap-locate-file ("" ".info") ffap-symbol-value Info-directory-list Info-default-directory-list] 5])
(defalias 'ffap-info-2 #[(name) "\301\302\303\"!\207" [name ffap-info substring 5] 4])
(defalias 'ffap-info-3 #[(name) "\301 \302\232\205\n\303!\207" [name ffap-string-around "()" ffap-info] 2])
(defalias 'ffap-el #[(name) "\302\303	#\207" [name load-path ffap-locate-file t] 4])
(defalias 'ffap-el-mode #[(name) "\302\303\"?\205
\304\305	#\207" [name load-path string-match "\\.el\\'" ffap-locate-file (".el")] 4])
#@50 List of directories to search for include files.
(defvar ffap-c-path (byte-code "\303\304!rq\210\305\216\3061\307\310\311\312\311\313%0\202\210\311\314=\205'eb\210`\315 {+\316\211G\314U\2036	\202>\317	\320\n\321\"C\"*\207" [#1=#:temp-buffer base arch generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] (error) call-process "gcc" nil (t nil) "-print-multiarch" 0 line-end-position ("/usr/include" "/usr/local/include") append expand-file-name "/usr/include"] 7) (#$ . 21122))
(defalias 'ffap-c-mode #[(name) "\302\303	#\207" [name ffap-c-path ffap-locate-file t] 4])
#@50 List of directories to search for include files.
(defvar ffap-c++-path (byte-code "\303\304!rq\210\305\216\3061\307\310\311\312\311\313%0\202\210\311\314=\205?eb\210\315\316\311\317#\2031\320\321!\202?\315\322\311\317#\205?\323\320\321!\324\"+\211\203K	\nB\202L\n)\207" [#1=#:temp-buffer c++-include-dir ffap-c-path generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] (error) call-process "g++" nil t "-v" 0 re-search-forward "--with-gxx-include-dir=\\([^[:space:]]+\\)" noerror match-string 1 "gcc version \\([[:digit:]]+.[[:digit:]]+.[[:digit:]]+\\)" expand-file-name "/usr/include/c++/"] 7) (#$ . 21749))
(defalias 'ffap-c++-mode #[(name) "\302\303	#\207" [name ffap-c++-path ffap-locate-file t] 4])
(defvar ffap-fortran-path '("../include" "/usr/include"))
(defalias 'ffap-fortran-mode #[(name) "\302\303	#\207" [name ffap-fortran-path ffap-locate-file t] 4])
#@105 Path where `ffap-tex-mode' looks for TeX files.
If t, `ffap-tex-init' will initialize this when needed.
(defvar ffap-tex-path t (#$ . 22677))
#@173 List of rules for guessing a filename.
Each rule is a cons (PREFIX . SUFFIX) used for guessing a
filename from the word at point by prepending PREFIX and
appending SUFFIX.
(defvar ffap-latex-guess-rules '((#1="" . ".sty") (#1# . ".cls") (#1# . ".ltx") (#1# . ".tex") (#1# . #1#) ("beamertheme" . ".sty") ("beamercolortheme" . ".sty") ("beamerfonttheme" . ".sty") ("beamerinnertheme" . ".sty") ("beameroutertheme" . ".sty") (#1# . ".ldf")) (#$ . 22826))
(defalias 'ffap-tex-init #[nil "\301=\205\302\303!\205\304\305\306\307\310\311!\312\313\314\"\"!B!\211\207" [ffap-tex-path t message "Initializing ffap-tex-path ..." ffap-reduce-path "." ffap-kpathsea-expand-path append ffap-list-env "TEXINPUTS" ffap-symbol-value TeX-macro-global ("/usr/local/lib/tex/macros" "/usr/local/lib/tex/inputs")] 8])
(defalias 'ffap-tex-mode #[(name) "\302 \210\303\304	#\207" [name ffap-tex-path ffap-tex-init ffap-locate-file (".tex" "")] 4])
#@189 `ffap' function suitable for latex buffers.
This uses the program kpsewhich if available.  In this case, the
variable `ffap-latex-guess-rules' is used for building a filename
out of NAME.
(defalias 'ffap-latex-mode #[(name) "\306!\203\207\307\310!\204\311 \210\312\313	#\207p\n\314\212\315\316\317\320\"!\321 \322#)\2039\323\324\325\326!\"AB\fB\327\330!\"r\"q\210\331\216\332\333
\"\332\334
\"\335\336\310\337\322\337\317\340\f\"&\210*edW\205jeb\341 {.\207" [name ffap-tex-path ffap-latex-guess-rules preferred-suffix-rules guess-rules curbuf file-exists-p executable-find "kpsewhich" ffap-tex-init ffap-locate-file (".cls" ".sty" ".tex" #1="") (("input" . ".tex") ("include" . ".tex") ("usepackage" . ".sty") ("RequirePackageWithOptions" . ".sty") ("RequirePackage" . ".sty") ("documentclass" . ".cls") ("documentstyle" . ".cls") ("LoadClass" . ".cls") ("LoadClassWithOptions" . ".cls") ("bibliography" . ".bib") ("addbibresource" . #1#)) re-search-backward regexp-opt mapcar car point-at-bol t #1# assoc match-string 0 generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] buffer-local-value process-environment exec-path apply call-process nil #[(rule) "@	AQ\207" [rule name] 3] point-at-eol #2#] 9 (#$ . 23765)])
(defalias 'ffap-tex #[(name) "\302 \210\303\304	#\207" [name ffap-tex-path ffap-tex-init ffap-locate-file t] 4])
(defvar ffap-bib-path (byte-code "\300\301\302\303!\"\207" [ffap-list-env "BIBINPUTS" ffap-reduce-path ("/usr/local/lib/tex/macros/bib" "/usr/lib/texmf/bibtex/bib")] 4))
(defalias 'ffap-bib #[(name) "\302\303	#\207" [name ffap-bib-path ffap-locate-file t] 4])
(defalias 'ffap-dired #[(name) "`\303\212\304 \210\305\306!\205.\307\310\303\311#\205.\312\313	\311#\205.\314\315\n\316\224\316\225{\"\211!\205.+\207" [try pt name nil beginning-of-line looking-at " *[-d]r[-w][-x][-r][-w][-x][-r][-w][-x] " re-search-backward "^ *$" t re-search-forward "^ *\\([^ 	\n:]*\\):\n *total " file-exists-p expand-file-name 1] 5])
(defalias 'ffap-lcd #[(name) "\304\305\306 \"\204\307 \310\235\205J\311\312\313\"\211\314\232\203\315\202>	\211\311\316!\232\2040\n\311\317!\232\2032\320\321\n\211\2059\322\323\260))\324\311\325\326\"!\327\330\"Q\207" [host ffap-ftp-default-user user name string-match "Lisp Code Dir" buffer-name ffap-string-around ("||" "|\n") ffap-symbol-value elisp-archive-host "archive.cis.ohio-state.edu" "localhost" "" ange-ftp-default-user efs-default-user nil "/" "@" ":" file-name-as-directory elisp-archive-directory "/pub/gnu/emacs/elisp-archive/" substring 2] 6])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\307\310\311&	\207" [custom-declare-variable ffap-rfc-path (concat (ffap-host-to-filename "ftp.rfc-editor.org") "/in-notes/rfc%s.txt") "A `format' string making a filename for RFC documents.\nThis can be an ange-ftp or Tramp remote filename to download, or\na local filename if you have full set of RFCs locally.  See also\n`ffap-rfc-directories'." :type string :version "23.1" :group ffap ffap-rfc-directories nil "A list of directories to look for RFC files.\nIf a given RFC isn't in these then `ffap-rfc-path' is offered." (repeat directory)] 10)
(defalias 'ffap-rfc #[(name) "\304\305\"\306\307\310	\"\311\n#\206\307	\")\207" [name num ffap-rfc-directories ffap-rfc-path match-string 1 ffap-locate-file format "rfc%s.txt" t] 4])
#@440 Alist of (MODE CHARS BEG END), where MODE is a symbol,
possibly a major-mode name, or one of the symbols
`file', `url', `machine', and `nocolon'.
Function `ffap-string-at-point' uses the data fields as follows:
1. find a maximal string of CHARS around point,
2. strip BEG chars before point from the beginning,
3. strip END chars after point from the end.
The arguments CHARS, BEG and END are handled as described in
`skip-chars-forward'.
(defvar ffap-string-at-point-mode-alist '((file "--:\\\\${}+<>@-Z_[:alpha:]~*?" "{<@" "@>;.,!:}") (url "--:=&?$+@-Z_[:alpha:]~#,%;*()!'" "^[0-9a-zA-Z]" ":;.,!?") (nocolon "--9$+<>@-Z_[:alpha:]~" "<@" "@>;.,!?") (machine "-[:alnum:]." "" ".") (math-mode ",-:$+<>@-Z_[:lower:]~`" "<" "@>;.,!?`:") (latex-mode "--:\\\\$+<>@-Z_[:alpha:]~*?" "<@" "@>;.,!:") (tex-mode "--:\\\\$+<>@-Z_[:alpha:]~*?" "<@" "@>;.,!:")) (#$ . 27206))
#@62 Last string returned by the function `ffap-string-at-point'.
(defvar ffap-string-at-point nil (#$ . 28075))
#@697 Return a string of characters from around point.

MODE (defaults to value of `major-mode') is a symbol used to look up
string syntax parameters in `ffap-string-at-point-mode-alist'.

If MODE is not found, we use `file' instead of MODE.

If the region is active, return a string from the region.

If the point is in a comment, ensure that the returned string does not
contain the comment start characters (especially for major modes that
have '//' as comment start characters).

Set the variables `ffap-string-at-point' and
`ffap-string-at-point-region'.

When the region is active and larger than `ffap-max-region-length',
return an empty string, and set `ffap-string-at-point-region' to '(1 1).
(defalias 'ffap-string-at-point #[(&optional mode) "\206	\n\236\206
\306\n\236A\307 `\f\203\310 \202+\212@\311x\210A@
w\210`)\f\2036\312 \202D\212@\311w\210\3138
x\210`)]^Z\f\204\201\212\314\315!8)\203\201\212\315!\3148\204\200\316\311\211\317&\210`*\320!\203\243W\203\243D\321\"\211\202\254\322\211D\323\211.\207" [mode major-mode ffap-string-at-point-mode-alist args region-selected pt file use-region-p region-beginning nil region-end 2 4 syntax-ppss parse-partial-sexp :commentstop natnump buffer-substring-no-properties 1 "" beg end region-len state ffap-max-region-length ffap-string-at-point-region ffap-string-at-point] 7 (#$ . 28190)])
#@119 Return string of two chars around last result of function
`ffap-string-at-point'.
Assumes the buffer has not changed.
(defalias 'ffap-string-around #[nil "\212\301\302@b\210hA@b\210g#)\207" [ffap-string-at-point-region format "%c%c"] 4 (#$ . 29614)])
#@71 Call function `ffap-string-at-point', and copy result to `kill-ring'.
(defalias 'ffap-copy-string-as-kill #[(&optional mode) "\302!\211\303\232\203\304\305!\202\306	!\210\304\307	\")\207" [mode str ffap-string-at-point "" message "No string found around point." kill-new "Copied to kill ring: %s"] 4 (#$ . 29873) nil])
#@131 Return URL from around point if it exists, or nil.

Sets the variable `ffap-string-at-point-region' to the bounds of URL, if any.
(defalias 'ffap-url-at-point #[nil "\205:	\306=\203\307\310!\206:\n\311\312\313 \205#\314 \315 B\"\211\2038\316!\211@AD)+\207" [ffap-url-regexp major-mode ffap-foo-at-bar-prefix val thing-at-point-default-mail-uri-scheme thing-at-point-beginning-of-url-regexp w3-mode w3-view-this-url t nil thing-at-point-url-at-point use-region-p region-beginning region-end thing-at-point-bounds-of-url-at-point ffap-lax-url bounds ffap-string-at-point-region] 5 (#$ . 30205)])
#@94 Regexp matching a key in a gopher bookmark.
Set to nil to disable matching gopher bookmarks.
(defvar ffap-gopher-regexp "\\<\\(Type\\|Name\\|Path\\|Host\\|Port\\) *= *" (#$ . 30828))
#@58 Return (KEY . VALUE) of gopher bookmark on current line.
(defalias 'ffap--gopher-var-on-line #[nil "\212\305\210\306\305x\210`\307 \210`\310\n	\311#\205(\312\313!\314\315\225	\"\316\f\227!*B+\207" [bol eol ffap-gopher-regexp val key nil " " beginning-of-line re-search-forward t match-string 1 buffer-substring-no-properties 0 intern] 4 (#$ . 31017)])
#@140 If point is inside a gopher bookmark block, return its URL.

Sets the variable `ffap-string-at-point-region' to the bounds of URL, if any.
(defalias 'ffap-gopher-at-point #[nil ";\205\243\212\306 \210o\204\307 \203\310y\210\202	`\311\211\307 \211\203/\nB\312y\210\202\237*\211\205\242	`D\f\313\244\314\236A\315\236A\316\236A\317\236A\211\203{\320\321\"\203{\322\323\324\325\225S#\323\325\225\"Q\202\241G\312U\205\241\205\241\326\327\232\203\226\330\202\232\331P\332\260-+\207" [ffap-gopher-regexp beg keyval #1=#:--cl-var-- bookmark ffap-string-at-point-region beginning-of-line ffap--gopher-var-on-line -1 nil 1 ((type . "1") (port . "70")) path type host port string-match "\\`ftp:.*@" "ftp://" substring 4 0 "gopher://" "70" "" ":" "/" #2=#:alist \.port \.host \.type \.path] 7 (#$ . 31383)])
#@119 Strings matching this are coerced to FTP file names by ffap.
That is, ffap just prepends "/".  Set to nil to disable.
(defvar ffap-ftp-sans-slash-regexp (byte-code "\205\301\207" [ffap-ftp-regexp "\\`\\([^:@]+@[^:@]+:\\|[^@.:]+\\.[^@:]+:\\|[^:]+:[~/]\\)\\([^:]\\|\\'\\)"] 1) (#$ . 32252))
#@231 Return filename from around point if it exists, or nil.
Existence test is skipped for names that look remote.
If the filename is not obvious, it also tries `ffap-alist',
which may actually result in an URL rather than a filename.
(defalias 'ffap-file-at-point #[nil "\306\307 \310 \3111\312\313\n\"?\205\314\n!0\202\210\202\"\206#\n\315!
%\316\216\317\235\2039\320\202\322\f\204C\321!\206\322\f\204Y\312\322\"\203Y\321\323\324\211\224#!\206\322&\203t\f\204t\312&\"\203t\321\323\324\225\"!\206\322\f\203~\325!\206\322\f\203\210\321!\206\322\f\203\236\312\322\"\203\236\321\323\324\211\224#!\206\322\312'\"\203\273\310\326!\211\203\273G\324V\203\273\321!\206\322(\320\211\211)*++\203 )\204 +@*+A+,*@=\204\364*@;\203\307\312*@\"\203\307\3271*A!0\202\210\320\211)\203\307\330)!\206\325)!\206\321)!)\202\307),\206\322\f\204A-\203A\312-%\"\203A\325\331%P!\206\322\320.\325
!\206b,\332=\205b\312\333\334 \"\205b\331\323\334 \335\336#\337Q\211/\205\204\312\340\"\203}\321\341/\323\342\225\"\"!\206\204\321\341/\"!*\206\3220\203\247\3120\"\203\247\f\203\247\321\343\344!!!\203\247\206\32211\203\305\3211!\204\3051\343\3441!!\2111\232\203\2521\331\230?\205\321\3211!).\207" [case-fold-search data string name abs default-directory t match-data ffap-string-at-point (error) string-match "//" substitute-in-file-name file-name-absolute-p #[nil "\301!\207" [data set-match-data] 2] ("" "/" "//" "/*" ".") nil ffap-file-exists-string ":[0-9]" substring 0 ffap-file-remote-p nocolon (error) ffap-url-p "/" internal-ange-ftp-mode "^\\*ftp \\(.*\\)@\\(.*\\)\\*$" buffer-name 5 -1 ":" "\\`\\(/?~?ftp\\)/" ffap-replace-file-component 1 file-name-directory directory-file-name oname ffap-shell-prompt-regexp path-separator ffap-alist try tem alist major-mode ffap-ftp-sans-slash-regexp ffap-rfs-regexp remote-dir ffap-dired-wildcards dir] 7 (#$ . 32551)])
#@66 Read file or URL from minibuffer, with PROMPT and initial GUESS.
(defalias 'ffap-read-file-or-url #[(prompt guess) "\204	\303!\203\304\n\305\211\306%\207\307!\204 \310\311!!\312\n\313!\305\211\314!%\207" [guess default-directory prompt ffap-url-p read-string nil t ffap-file-remote-p abbreviate-file-name expand-file-name read-file-name file-name-directory file-name-nondirectory] 7 (#$ . 34537)])
#@59 If non-nil, ffap highlights the current buffer substring.
(defvar ffap-highlight t (#$ . 34955))
(custom-declare-face 'ffap '((t :inherit highlight)) "Face used to highlight the current buffer substring." :group 'ffap :version "22.1")
#@44 Overlay used by function `ffap-highlight'.
(defvar ffap-highlight-overlay nil (#$ . 35196))
#@257 If `ffap-highlight' is set, highlight the guess in this buffer.
That is, the last buffer substring found by `ffap-string-at-point'.
Optional argument REMOVE means to remove any such highlighting.
Uses the face `ffap' if it is defined, or else `highlight'.
(defalias 'ffap-highlight #[(&optional remove) "\203\f	\205*\304	!\207\n\204\305\207	\203 \306	@A@p$\207\307\310\"\311	\312\313#\207" [remove ffap-highlight-overlay ffap-highlight ffap-string-at-point-region delete-overlay nil move-overlay apply make-overlay overlay-put face ffap] 5 (#$ . 35295)])
#@60 Return file or URL or nil, guessed from text around point.
(defalias 'ffap-guesser #[nil "\203\301\302 \206\f\303 !\206\304 \206\305\306 !\207" [ffap-url-regexp ffap-fixup-url ffap-url-at-point ffap-gopher-at-point ffap-file-at-point ffap-fixup-machine ffap-machine-at-point] 2 (#$ . 35866)])
(defalias 'ffap-prompter #[(&optional guess suffix) "\304\216\30522\306\203\307\310	\206\311\"\202\307\312	\206\311\"\313\206&\314 \211)\2030\315 \210\"0)\207" [ffap-url-regexp suffix mark-active guess #[nil "\300\301!\207" [ffap-highlight t] 2] ffap-prompter ffap-read-file-or-url format "Find file or URL%s: " "" "Find file%s: " nil ffap-guesser ffap-highlight] 4])
#@444 Find FILENAME, guessing a default from text around point.
If `ffap-url-regexp' is not nil, the FILENAME may also be an URL.
With a prefix, this command behaves exactly like `ffap-file-finder'.
If `ffap-require-prefix' is set, the prefix meaning is reversed.
See also the variables `ffap-dired-wildcards', `ffap-newfile-prompt',
`ffap-url-unwrap-local', `ffap-url-unwrap-remote', and the functions
`ffap-file-at-point' and `ffap-url-at-point'.
(defalias 'find-file-at-point #[(&optional filename) "\306\307!\203\203	?\202	\203\310\311\n!)\207\204!\312 \313!\211\2032\310
\f!)\202\214\203K\203K\314\"\203K!\202\214\203l\314\"\203l\203l\n\315>\203l\n\316!\317\"\202\214\203}\320!\204}\321\322!\203\205\n\316!!\202\214\323\324\325\326E\")\207" [ffap-require-prefix current-prefix-arg ffap-file-finder filename url ffap-url-fetcher called-interactively-p interactive nil call-interactively ffap-prompter ffap-url-p string-match (find-file find-alternate-file) expand-file-name t file-exists-p y-or-n-p "File does not exist, create buffer? " signal file-missing "Opening file buffer" "No such file or directory" ffap-pass-wildcards-to-dired ffap-dired-wildcards ffap-directory-finder find-file-wildcards ffap-newfile-prompt] 6 (#$ . 36558) nil])
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\301&\207" [defalias ffap find-file-at-point custom-declare-variable ffap-menu-regexp nil "If non-nil, regexp overriding `ffap-next-regexp' in `ffap-menu'.\nMake this more restrictive for faster menu building.\nFor example, try \":/\" for URL (and some FTP) references." :type (choice (const nil) regexp) :group] 8)
#@54 Buffer local cache of menu presented by `ffap-menu'.
(defvar ffap-menu-alist nil (#$ . 38233))
(make-variable-buffer-local 'ffap-menu-alist)
#@126 Text properties applied to strings found by `ffap-menu-rescan'.
These properties may be used to fontify the menu references.
(defvar ffap-menu-text-plist (byte-code "\300 \203\301\207\302\207" [display-mouse-p (face bold mouse-face highlight) nil] 1) (#$ . 38381))
#@296 Put up a menu of files and URLs mentioned in this buffer.
Then set mark, jump to choice, and try to fetch it.  The menu is
cached in `ffap-menu-alist', and rebuilt by `ffap-menu-rescan'.
The optional RESCAN argument (a prefix, interactively) forces
a rebuild.  Searches with `ffap-menu-regexp'.
(defalias 'ffap-menu #[(&optional rescan) "\203	\204\203 @\212\nAb\210\n@\304 \232*\204 \305 \210\306\203)\307\202*\310\311\312BB\313#\207" [ffap-menu-alist rescan first ffap-url-regexp ffap-guesser ffap-menu-rescan ffap-menu-ask "Find file or URL" "Find file" "*Rescan Buffer*" -1 ffap-menu-cont] 4 (#$ . 38655) "P"])
(defalias 'ffap-menu-cont #[(choice) "A\302W\203\303\304!\207\305 \210Ab\210\306\216	\203 \307 \203 \301 \210\310\302!\210\311@!)\207" [choice ffap-highlight 0 ffap-menu t push-mark #[nil "\300\301!\207" [ffap-highlight t] 2] ffap-guesser sit-for find-file-at-point] 2])
#@378 Prompt from a menu of choices, and then apply some action.
Arguments are TITLE, ALIST, and CONT (a continuation function).
This uses either a menu or the minibuffer depending on invocation.
The TITLE string is used as either the prompt or menu title.
Each ALIST entry looks like (STRING . DATA) and defines one choice.
Function CONT is applied to the entry chosen by the user.
(defalias 'ffap-menu-ask #[(title alist cont) "\305\306\307!\203\310 \203\307\311\312	\313\314\n\"BD\"\202;\315\316\317\320	\n@@#\n\305\311\305%)\321\322!\210\323\n\"\206:\n@\203E\f!\202J\324\325!\210\305)\207" [choice title alist minibuffer-setup-hook cont nil fboundp x-popup-menu ffap-mouse-event t "" mapcar #[(i) "@B\207" [i] 2] minibuffer-completion-help completing-read format "%s (default %s): " sit-for 0 assoc message "No choice made!"] 7 (#$ . 39568)])
#@129 Search buffer for `ffap-menu-regexp' to build `ffap-menu-alist'.
Applies `ffap-menu-text-plist' text properties at all matches.
(defalias 'ffap-menu-rescan #[nil "\206	deZ\306 \307\310\n\236\203\n\202\311\310\312\216\212eb\210\313 \211\203Q\f`BB\314@`#\210\315\316\317\320`eZ_\"\f#\210\202(.\315\321!\210\322\323\"\211A\203\207@@A@@\232\203~\211AA\241\210\202aA\211\202c)\322\324\"\211\207" [ffap-menu-regexp ffap-next-regexp major-mode ffap-string-at-point-mode-alist item inhibit-read-only buffer-modified-p t nil file #[nil "\206\301\302!\207" [mod restore-buffer-modified-p nil] 2] ffap-next-guess add-text-properties message "Scanning...%2d%% <%s>" floor 100.0 "Scanning...done" sort #[(a b) "@	@\231\207" [a b] 2] #[(a b) "A	AW\207" [a b] 2] mod range ffap-menu-alist ffap-string-at-point-region ffap-menu-text-plist ptr] 8 (#$ . 40434) nil])
#@128 Command invoked by `ffap-at-mouse' if nothing found at click, or nil.
Ignored when `ffap-at-mouse' is called programmatically.
(defvar ffap-at-mouse-fallback nil (#$ . 41353))
(put 'ffap-at-mouse-fallback 'risky-local-variable t)
#@276 Find file or URL guessed from text around mouse click.
Interactively, calls `ffap-at-mouse-fallback' if no guess is found.
Return value:
  * if a guess string is found, return it (after finding it)
  * if the fallback is called, return whatever it returns
  * otherwise, nil
(defalias 'ffap-at-mouse #[(e) "\212\303!\210\304 )\211\203)\305!q\210\306 \210\307\216\310\311!\210\312\313	\"\210\314	!\210	)\202>\315\316!\205>\n\2039\317\n!\202>\312\320!\210\321)\207" [e guess ffap-at-mouse-fallback mouse-set-point ffap-guesser ffap-event-buffer ffap-highlight #[nil "\300\301!\207" [ffap-highlight t] 2] sit-for 0 message "Finding `%s'" find-file-at-point called-interactively-p interactive call-interactively "No file or URL found at mouse click." nil] 4 (#$ . 41590) "e"])
#@83 Like `ffap', but put buffer in another window.
Only intended for interactive use.
(defalias 'ffap-other-window #[(filename) "\305 \306\216\307	!*\310\n!\203\n\311!)\2022\n:\2031\n@\310\f!\205-\f\311!))\2022\312)\207" [#1=#:wconfig filename #2=#:val b #3=#:x151 current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] find-file-at-point bufferp switch-to-buffer-other-window nil] 2 (#$ . 42377) (list (ffap-prompter nil " other window"))])
#@82 Like `ffap', but put buffer in another frame.
Only intended for interactive use.
(defalias 'ffap-other-frame #[(filename) "\305 \306!\307\310\216\311\307\"\210\312\313 \314\216\315\f!\316\n!\204)\316\n\242!\204)pp*!\210)\n+\207" [win wdp value #1=#:wconfig filename selected-window window-dedicated-p nil #[nil "\302	\"\207" [win wdp set-window-dedicated-p] 3] set-window-dedicated-p switch-to-buffer-other-frame current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] find-file-at-point bufferp] 3 (#$ . 42861) (list (ffap-prompter nil " other frame"))])
(defalias 'ffap--toggle-read-only #[(buffer-or-list) "<\203	\202C\303\211\205&\n@r	q\210\304\305!\210)\nA\211\204\303*\207" [buffer-or-list buffer --dolist-tail-- nil read-only-mode 1] 3])
#@79 Like `ffap', but mark buffer as read-only.
Only intended for interactive use.
(defalias 'ffap-read-only #[(filename) "\302!\303	!\204\303	\242!\204p\304	!\210	)\207" [filename value find-file-at-point bufferp ffap--toggle-read-only] 2 (#$ . 43662) (list (ffap-prompter nil " read only"))])
#@105 Like `ffap', but put buffer in another window and mark as read-only.
Only intended for interactive use.
(defalias 'ffap-read-only-other-window #[(filename) "\302!\303	!\210	)\207" [filename value ffap-other-window ffap--toggle-read-only] 2 (#$ . 43966) (list (ffap-prompter nil " read only other window"))])
#@104 Like `ffap', but put buffer in another frame and mark as read-only.
Only intended for interactive use.
(defalias 'ffap-read-only-other-frame #[(filename) "\302!\303	!\210	)\207" [filename value ffap-other-frame ffap--toggle-read-only] 2 (#$ . 44283) (list (ffap-prompter nil " read only other frame"))])
#@75 Like `ffap' and `find-alternate-file'.
Only intended for interactive use.
(defalias 'ffap-alternate-file #[(filename) "\302\303	!)\207" [ffap-file-finder filename find-alternate-file find-file-at-point] 2 (#$ . 44595) (list (ffap-prompter nil " alternate file"))])
#@88 Like `ffap' and `find-alternate-file-other-window'.
Only intended for interactive use.
(defalias 'ffap-alternate-file-other-window #[(filename) "\302\303	!)\207" [ffap-file-finder filename find-alternate-file-other-window find-file-at-point] 2 (#$ . 44867) (list (ffap-prompter nil " alternate file other window"))])
#@83 Like `ffap' and command `find-file-literally'.
Only intended for interactive use.
(defalias 'ffap-literally #[(filename) "\302\303	!)\207" [ffap-file-finder filename find-file-literally find-file-at-point] 2 (#$ . 45191) (list (ffap-prompter nil " literally"))])
(byte-code "\300\301\302\"\210\300\303\304\305#\210\306\303\304\307#\210\300\310\304\305#\210\306\310\304\307#\207" [defalias find-file-literally-at-point ffap-literally ffap-bug report-emacs-bug nil make-obsolete "23.1" ffap-submit-bug] 4)
#@56 Bind `ffap-next' and `ffap-menu' to M-l and M-m, resp.
(defalias 'ffap-ro-mode-hook #[nil "\300\301\302\"\210\300\303\304\"\207" [local-set-key "\354" ffap-next "\355" ffap-menu] 3 (#$ . 45702)])
#@66 Bind `ffap-gnus-next' and `ffap-gnus-menu' to M-l and M-m, resp.
(defalias 'ffap-gnus-hook #[nil "\301\300!\210\302\303\304\305\"\210\303\306\307\"\207" [thing-at-point-default-mail-uri-scheme make-local-variable "news" local-set-key "\354" ffap-gnus-next "\355" ffap-gnus-menu] 3 (#$ . 45904)])
(defalias 'ffap-gnus-wrapper #[(form) "p\304!=\203\305 \210\306 \307\310!\210\311\n!\210~\210`e=\203$\312\313\314\315#\210\316\216\317!*\207" [gnus-summary-buffer sb gnus-article-buffer form get-buffer gnus-summary-select-article window-buffer gnus-configure-windows article pop-to-buffer search-forward "\n\n" nil t #[nil "\301!\207" [sb pop-to-buffer] 2] eval] 4])
#@45 Run `ffap-next' in the gnus article buffer.
(defalias 'ffap-gnus-next #[nil "\300\301!\207" [ffap-gnus-wrapper (ffap-next nil t)] 2 (#$ . 46581) nil])
#@45 Run `ffap-menu' in the gnus article buffer.
(defalias 'ffap-gnus-menu #[nil "\300\301!\207" [ffap-gnus-wrapper (ffap-menu)] 2 (#$ . 46738) nil])
#@131 Start Dired, defaulting to file at point.  See `ffap'.
If `dired-at-point-require-prefix' is set, the prefix meaning is reversed.
(defalias 'dired-at-point #[(&optional filename) "\306\307!\203\203	?\202	\203\310\311\n!)\207\204!\312 \313!\211\203/
\f!\202\205\203B\314\"\203B\n!\202\205\315!\203`\316!\203V\n\317!!\202\205\n\317!\320P!\202\205\321\322\323!!\206j!\203~\324\325!\203~\326!\210\n!\202\205\327\330\331\332E\")\207" [dired-at-point-require-prefix current-prefix-arg ffap-directory-finder filename url ffap-url-fetcher called-interactively-p interactive nil call-interactively dired-at-point-prompter ffap-url-p string-match file-exists-p file-directory-p expand-file-name "*" file-writable-p file-name-directory directory-file-name y-or-n-p "Directory does not exist, create it? " make-directory signal file-missing "Opening directory" "No such file or directory" ffap-dired-wildcards] 6 (#$ . 46890) nil])
(defalias 'dired-at-point-prompter #[(&optional guess) "\303\216\304\305=\203
\306\202	\203\307\202\310\n\206\311 \211\204%\312\202T\313\n!\206T\314\n!\2035\n\202T\315\316\n!!\317\n!\203G\320\n!\202T\321\n!\203S\322\n!\202T\n)\211\211\203^\323 \210\")\207" [ffap-directory-finder ffap-url-regexp guess #[nil "\300\301!\207" [ffap-highlight t] 2] ffap-read-file-or-url list-directory "List directory (brief): " "Dired file or URL: " "Dired file: " ffap-guesser nil ffap-url-p ffap-file-remote-p abbreviate-file-name expand-file-name file-directory-p file-name-as-directory file-regular-p file-name-directory ffap-highlight] 6])
#@93 Like `dired-at-point', but put buffer in another window.
Only intended for interactive use.
(defalias 'ffap-dired-other-window #[nil "\302\303\304 \305\216\306\307!p*!\210)\207" [value #1=#:wconfig nil switch-to-buffer-other-window current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] call-interactively dired-at-point] 3 (#$ . 48509) nil])
#@92 Like `dired-at-point', but put buffer in another frame.
Only intended for interactive use.
(defalias 'ffap-dired-other-frame #[nil "\304 \305!\306\307\216\310\306\"\210\311\312 \313\216\314\315!p*!\210)\n+\207" [win wdp value #1=#:wconfig selected-window window-dedicated-p nil #[nil "\302	\"\207" [win wdp set-window-dedicated-p] 3] set-window-dedicated-p switch-to-buffer-other-frame current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] call-interactively dired-at-point] 3 (#$ . 48889) nil])
#@80 Like `dired-at-point' and `list-directory'.
Only intended for interactive use.
(defalias 'ffap-list-directory #[nil "\301\302\303!)\207" [ffap-directory-finder list-directory call-interactively dired-at-point] 2 (#$ . 49427) nil])
#@101 Try to get a file name at point.
This hook is intended to be put in `file-name-at-point-functions'.
(defalias 'ffap-guess-file-name-at-point #[nil "\3021\n\303 0\202\f\210\304\211;\2054\305!\211\2063\306!\204&\307\310!!\311!\2032\312!\2023))\207" [guess url (error) ffap-guesser nil ffap-url-p ffap-file-remote-p abbreviate-file-name expand-file-name file-directory-p file-name-as-directory] 4 (#$ . 49666)])
#@202 List of binding forms evaluated by function `ffap-bindings'.
A reasonable ffap installation needs just this one line:
  (ffap-bindings)
Of course if you do not like these bindings, just roll your own!
(defvar ffap-bindings '((global-set-key [S-mouse-3] 'ffap-at-mouse) (global-set-key [C-S-mouse-3] 'ffap-menu) (global-set-key [remap find-file] 'find-file-at-point) (global-set-key [remap find-file-read-only] 'ffap-read-only) (global-set-key [remap find-alternate-file] 'ffap-alternate-file) (global-set-key [remap find-file-other-window] 'ffap-other-window) (global-set-key [remap find-file-other-frame] 'ffap-other-frame) (global-set-key [remap find-file-read-only-other-window] 'ffap-read-only-other-window) (global-set-key [remap find-file-read-only-other-frame] 'ffap-read-only-other-frame) (global-set-key [remap dired] 'dired-at-point) (global-set-key [remap dired-other-window] 'ffap-dired-other-window) (global-set-key [remap dired-other-frame] 'ffap-dired-other-frame) (global-set-key [remap list-directory] 'ffap-list-directory) (add-hook 'gnus-summary-mode-hook 'ffap-gnus-hook) (add-hook 'gnus-article-mode-hook 'ffap-gnus-hook) (add-hook 'vm-mode-hook 'ffap-ro-mode-hook) (add-hook 'rmail-mode-hook 'ffap-ro-mode-hook)) (#$ . 50098))
#@49 Evaluate the forms in variable `ffap-bindings'.
(defalias 'ffap-bindings #[nil "\301\302B!\207" [ffap-bindings eval progn] 3 (#$ . 51353) nil])
(provide 'ffap)

Youez - 2016 - github.com/yon3zu
LinuXploit