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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301\302\303#\210\304\305\302\306\307\310\311\312&\210\304\313\302\314\315\316\311\305&\210\317\320\321\322\323DD\324\325\326\311\305&\210\317\327\321\322\330DD\331\311\305\325\332&\210\317\333\321\322\334DD\335\311\305\325\336&\210\317\337\321\322\340DD\341\311\305\325\342&\210\317\343\321\322\344DD\345\311\305\325\336&\210\317\346\321\322\347DD\350\311\305\325\336&\210\317\351\321\322\352DD\353\325\354\311\313&\210\317\355\321\322\356DD\357\325\360\311\305&\210\317\361\321\322\362DD\363\325\364\311\313&\210\317\365\321\322\366DD\367\325\370\311\313&\210\317\371\321\322\372DD\373\325\374\311\313&\210\317\375\321\322\376DD\377\325\201@\311\313&\210\317\201A\321\322\201BDD\201C\325\201D\311\305&\210\317\201E\321\322\201FDD\201G\325\354\311\305&\210\201H\201I\201J\302#\210\201K\211\2038\211@\201IN\2031\201JN\2041\201L\201J\201IN#\210A\266\202\202
\210\201M\201I\201J\201N#\210\201H\201O\201P\302#\210\201K\211\203\201\211@\201ON\203z\201PN\204z\201L\201P\201ON#\210A\266\202\202V\210\201M\201O\201P\201N#\210\317\201Q\321\322\201RDD\201S\311\305\325\201T&\210\317\201U\321\322\201VDD\201W\311\305\325\201T&\210\317\201X\321\322\201YDD\201Z\311\305\325\201T&\210\317\201[\321\322\201\\DD\201]\311\305\325\201T&\210\317\201^\321\322\201_DD\201`\311\305\325\201T\201a\201b&	\210\317\201c\321\322\201dDD\201e\325\201f\201a\201g\311\305&	\210\317\201h\321\322\201iDD\201j\325\354\201a\201b\311\305&	\210\317\201k\321\322\201lDD\201m\325\354\201a\201b\311\305&	\210\317\201n\321\322\201oDD\201p\325\354\201a\201q\311\305&	\207" [require dired-loaddefs nil t custom-declare-group dired "Directory editing." :link (custom-manual "(emacs)Dired") :group files dired-mark "Handling marks in Dired." :prefix "dired-" custom-declare-variable dired-listing-switches funcall function #[0 "\300\301!\207" [purecopy "-al"] 2] "Switches passed to `ls' for Dired.  MUST contain the `l' option.\nMay contain all other options that don't contradict `-l';\nmay contain even `F', `b', `i' and `s'.  See also the variable\n`dired-ls-F-marks-symlinks' concerning the `F' switch.\nOptions that include embedded whitespace must be quoted\nlike this: \"--option=value with spaces\"; you can use\n`combine-and-quote-strings' to produce the correct quoting of\neach option.\nOn systems such as MS-DOS and MS-Windows, which use `ls' emulation in Lisp,\nsome of the `ls' switches are not supported; see the doc string of\n`insert-directory' in `ls-lisp.el' for more details." :type string dired-subdir-switches #[0 "\300\207" [nil] 1] "If non-nil, switches passed to `ls' for inserting subdirectories.\nIf nil, `dired-listing-switches' is used." (choice (const :tag "Use dired-listing-switches" nil) (string :tag "Switches")) dired-chown-program #[0 "\300\301\302!\203\302\202 \303\304!\203\304\202 \303\305!\203\305\202 \302!\207" [purecopy executable-find "chown" file-executable-p "/usr/sbin/chown" "/etc/chown"] 3] "Name of chown command (usually `chown')." file dired-use-ls-dired #[0 "\300\207" [unspecified] 1] "Non-nil means Dired should pass the \"--dired\" option to \"ls\".\nIf nil, don't pass \"--dired\" to \"ls\".\nThe special value of `unspecified' means to check whether \"ls\"\nsupports the \"--dired\" option, and save the result in this\nvariable.  This is performed the first time `dired-insert-directory'\nis invoked.\n\nNote that if you set this option to nil, either through choice or\nbecause your \"ls\" program does not support \"--dired\", Dired\nwill fail to parse some \"unusual\" file names, e.g. those with leading\nspaces.  You might want to install ls from GNU Coreutils, which does\nsupport this option.  Alternatively, you might want to use Emacs's\nown emulation of \"ls\", by using:\n  (setq ls-lisp-use-insert-directory-program nil)\n  (require \\='ls-lisp)\nThis is used by default on MS Windows, which does not have an \"ls\" program.\nNote that `ls-lisp' does not support as many options as GNU ls, though.\nFor more details, see Info node `(emacs)ls in Lisp'." (choice (const :tag "Use --dired only if `ls' supports it" unspecified) (const :tag "Do not use --dired" nil) (other :tag "Always use --dired" t)) dired-chmod-program #[0 "\300\207" [#1="chmod"] 1 #1#] "Name of chmod command (usually `chmod')." dired-touch-program #[0 "\300\207" [#2="touch"] 1 #2#] "Name of touch command (usually `touch')." dired-ls-F-marks-symlinks #[0 "\300\207" [nil] 1] "Informs Dired about how `ls -lF' marks symbolic links.\nSet this to t if `ls' (or whatever program is specified by\n`insert-directory-program') with `-lF' marks the symbolic link\nitself with a trailing @ (usually the case under Ultrix).\n\nExample: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to\nnil (the default), if it gives `bar@ -> foo', set it to t.\n\nDired checks if there is really a @ appended.  Thus, if you have a\nmarking `ls' program on one host and a non-marking on another host, and\ndon't care about symbolic links which really end in a @, you can\nalways set this variable to t." boolean dired-trivial-filenames #[0 "\300\301!\207" [purecopy "\\`\\.\\.?\\'\\|\\`#"] 2] "Regexp of files to skip when finding first file of a directory.\nA value of nil means move to the subdir line.\nA value of t means move to first file." (choice (const :tag "Move to subdir" nil) (const :tag "Move to first" t) regexp) dired-keep-marker-rename #[0 "\300\207" [t] 1] "Controls marking of renamed files.\nIf t, files keep their previous marks when they are renamed.\nIf a character, renamed files (whether previously marked or not)\nare afterward marked with that character.\nThis option affects only files renamed by `dired-do-rename' and\n`dired-do-rename-regexp'.  See `wdired-keep-marker-rename'\nif you want to do the same for files renamed in WDired mode." (choice (const :tag "Keep" t) (character :tag "Mark" :value 82)) dired-keep-marker-copy #[0 "\300\207" [67] 1] "Controls marking of copied files.\nIf t, copied files are marked if and as the corresponding original files were.\nIf a character, copied files are unconditionally marked with that character." (choice (const :tag "Keep" t) (character :tag "Mark")) dired-keep-marker-hardlink #[0 "\300\207" [72] 1] "Controls marking of newly made hard links.\nIf t, they are marked if and as the files linked to were marked.\nIf a character, new links are unconditionally marked with that character." (choice (const :tag "Keep" t) (character :tag "Mark")) dired-keep-marker-symlink #[0 "\300\207" [89] 1] "Controls marking of newly made symbolic links.\nIf t, they are marked if and as the files linked to were marked.\nIf a character, new links are unconditionally marked with that character." (choice (const :tag "Keep" t) (character :tag "Mark")) dired-dwim-target #[0 "\300\207" [nil] 1] "If non-nil, Dired tries to guess a default target directory.\nThis means: if there is a Dired buffer displayed in some window,\nuse its current directory, instead of this Dired buffer's\ncurrent directory.\n\nYou can customize it to prefer either the next window with a Dired buffer,\nor the most recently used window with a Dired buffer, or to use any other\nfunction.  When the value is a function, it will be called with no\narguments and is expected to return a list of directories which will\nbe used as defaults (i.e. default target and \"future history\")\n(though, `dired-dwim-target-defaults' might modify it a bit).\nThe value t prefers the next windows on the same frame.\n\nThe target is used in the prompt for file copy, rename etc." (choice (const :tag "No guess" nil) (function-item :tag "Prefer next windows on the same frame" dired-dwim-target-next) (function-item :tag "Prefer next windows on visible frames" dired-dwim-target-next-visible) (function-item :tag "Prefer most recently used windows" dired-dwim-target-recent) (function :tag "Custom function") (other :tag "Try to guess" t)) dired-copy-preserve-time #[0 "\300\207" [t] 1] "If non-nil, Dired preserves the last-modified time in a file copy.\n(This works on only some systems.)" defvaralias dired-free-space-program directory-free-space-program (saved-value saved-variable-comment) put make-obsolete-variable "27.1" dired-free-space-args directory-free-space-args dired-load-hook #[0 "\300\207" [nil] 1] "Run after loading Dired.\nYou can customize key bindings or load extensions with this." hook dired-mode-hook #[0 "\300\207" [nil] 1] "Run at the very end of `dired-mode'." dired-before-readin-hook #[0 "\300\207" [nil] 1] "This hook is run before a Dired buffer is read in (created or reverted)." dired-after-readin-hook #[0 "\300\207" [nil] 1] "Hook run after each time a file or directory is read by Dired.\nAfter each listing of a file or directory, this hook is run\nwith the buffer narrowed to the listing." dired-initial-position-hook #[0 "\300\207" [nil] 1] "This hook is used to position the point.\nIt is run by the function `dired-initial-position'." :version "24.4" dired-dnd-protocol-alist #[0 "\300\207" [(("^file:///" . dired-dnd-handle-local-file) ("^file://" . dired-dnd-handle-file) ("^file:" . dired-dnd-handle-local-file))] 1] "The functions to call when a drop in `dired-mode' is made.\nSee `dnd-protocol-alist' for more information.  When nil, behave\nas in other buffers.  Changing this option is effective only for\nnew Dired buffers." (choice (repeat (cons (regexp) (function))) (const :tag "Behave as in other buffers" nil)) "22.1" dired-hide-details-hide-symlink-targets #[0 "\300\207" [t] 1] "Non-nil means `dired-hide-details-mode' hides symbolic link targets." dired-hide-details-hide-information-lines #[0 "\300\207" [t] 1] "Non-nil means `dired-hide-details-mode' hides all but header and file lines." dired-always-read-filesystem #[0 "\300\207" [nil] 1] "Non-nil means revert buffers visiting files before searching them.\n By default,  commands like `dired-mark-files-containing-regexp' will\n search any buffers visiting the marked files without reverting them,\n even if they were changed on disk.  When this option is non-nil, such\n buffers are always reverted in a temporary buffer before searching\n them: the search is performed on the temporary buffer, the original\n buffer visiting the file is not modified." "26.1"] 10)
#@112 In Dired, the current mark character.
This is what the do-commands look for, and what the mark-commands store.
(defvar dired-marker-char 42 (#$ . 10736))
#@44 Character used to flag files for deletion.
(defvar dired-del-marker 68 (#$ . 10896))
#@73 Non-nil means Dired shrinks the display buffer to fit the marked files.
(defvar dired-shrink-to-fit t (#$ . 10987))
(make-obsolete-variable 'dired-shrink-to-fit "use the Customization interface to add a new rule\nto `display-buffer-alist' where condition regexp is \"^ \\*Marked Files\\*$\",\naction argument symbol is `window-height' and its value is nil." "24.3")
#@272 The directory name or wildcard spec that this Dired directory lists.
Local to each Dired buffer.  May be a list, in which case the car is the
directory name and the cdr is the list of files to mention.
The directory name must be absolute, but need not be fully expanded.
(defvar dired-directory nil (#$ . 11360))
#@81 Return non-nil if string SWITCHES does not look risky for Dired.

(fn SWITCHES)
(defalias 'dired-safe-switches-p #[257 "\211?\206\211;\205\211G\301W\205\302\303\304\305#)\266\203\207" [inhibit-changing-match-data 100 "\\` *-[- [:alnum:]]+\\'" nil t string-match] 8 (#$ . 11679)])
#@72 The value of `dired-listing-switches' used to make this buffer's text.
(defvar dired-actual-switches nil (#$ . 11976))
(put 'dired-actual-switches 'safe-local-variable 'dired-safe-switches-p)
#@72 Regexp for optional initial inode and file size as made by `ls -i -s'.
(defvar dired-re-inode-size "[0-9 	]*[.,0-9]*[BkKMGTPEZY]?[ 	]*" (#$ . 12174))
(defvar dired-re-mark "^[^ \n]")
(defvar dired-re-maybe-mark "^. ")
(defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d[^:]"))
(defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l[^:]"))
(defvar dired-re-special (concat dired-re-maybe-mark dired-re-inode-size "[bcsp][^:]"))
(defvar dired-re-exe (mapconcat #[257 "	Q\207" [dired-re-maybe-mark dired-re-inode-size] 4 "\n\n(fn X)"] '("-[-r][-w][xs][-r][-w].[-r][-w]." "-[-r][-w].[-r][-w][xs][-r][-w]." "-[-r][-w].[-r][-w].[-r][-w][xst]") "\\|"))
(defvar dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w].")
(defvar dired-re-dot "^.* \\.\\.?/?$")
#@386 Alist of listed directories and their buffer positions.
Alist elements have the form (DIRNAME . STARTMARKER), where
DIRNAME is the absolute name of the directory and STARTMARKER is
a marker at the beginning of DIRNAME.

The order of elements is the reverse of the order in the buffer.
If no subdirectories are listed then the alist contains only one
element, for the listed directory.
(defvar dired-subdir-alist nil (#$ . 12968))
#@117 Keeps track of which switches to use for inserted subdirectories.
This is an alist of the form (SUBDIR . SWITCHES).
(defvar dired-switches-alist nil (#$ . 13405))
(byte-code "\300\301!\210\302\303\304\"\207" [make-variable-buffer-local dired-switches-alist defvaralias dired-move-to-filename-regexp directory-listing-before-filename-regexp] 3)
#@261 Regexp matching a maybe hidden subdirectory line in `ls -lR' output.
Subexpression 1 is the subdirectory proper, no trailing colon.
The match starts at the beginning of the line and ends after the end
of the line.
Subexpression 2 must end right before the \n.
(defvar dired-subdir-regexp "^. \\(.+\\)\\(:\\)\n" (#$ . 13756))
(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\304\301\313\314&\207" [custom-declare-group dired-faces nil "Faces used by Dired." :group dired faces custom-declare-face dired-header ((t (:inherit font-lock-type-face))) "Face used for directory headers." :version "22.1"] 8)
#@39 Face name used for directory headers.
(defvar dired-header-face 'dired-header (#$ . 14382))
(custom-declare-face 'dired-mark '((t (:inherit font-lock-constant-face))) "Face used for Dired marks." :group 'dired-faces :version "22.1")
#@33 Face name used for Dired marks.
(defvar dired-mark-face 'dired-mark (#$ . 14621))
(custom-declare-face 'dired-marked '((t (:inherit warning))) "Face used for marked files." :group 'dired-faces :version "22.1")
#@34 Face name used for marked files.
(defvar dired-marked-face 'dired-marked (#$ . 14837))
(custom-declare-face 'dired-flagged '((t (:inherit error))) "Face used for files flagged for deletion." :group 'dired-faces :version "22.1")
#@48 Face name used for files flagged for deletion.
(defvar dired-flagged-face 'dired-flagged (#$ . 15071))
(custom-declare-face 'dired-warning '((t (:inherit font-lock-warning-face))) "Face used to highlight a part of a buffer that needs user attention." :group 'dired-faces :version "22.1")
#@66 Face name used for a part of a buffer that needs user attention.
(defvar dired-warning-face 'dired-warning (#$ . 15365))
(custom-declare-face 'dired-perm-write '((((type w32 pc)) :inherit default) (t (:inherit font-lock-comment-delimiter-face))) "Face used to highlight permissions of group- and world-writable files." :group 'dired-faces :version "22.2")
#@68 Face name used for permissions of group- and world-writable files.
(defvar dired-perm-write-face 'dired-perm-write (#$ . 15727))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-face dired-set-id ((((type w32 pc)) :inherit default) (t (:inherit font-lock-warning-face))) "Face used to highlight permissions of suid and guid files." :group dired-faces :version "27.1" dired-directory ((t (:inherit font-lock-function-name-face))) "Face used for subdirectories." "22.1"] 8)
#@36 Face name used for subdirectories.
(defvar dired-directory-face 'dired-directory (#$ . 16262))
(custom-declare-face 'dired-symlink '((t (:inherit font-lock-keyword-face))) "Face used for symbolic links." :group 'dired-faces :version "22.1")
#@36 Face name used for symbolic links.
(defvar dired-symlink-face 'dired-symlink (#$ . 16509))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-face dired-special ((t (:inherit font-lock-variable-name-face))) "Face used for sockets, pipes, block devices and char devices." :group dired-faces :version "27.1" dired-ignored ((t (:inherit shadow))) "Face used for files suffixed with `completion-ignored-extensions'." "22.1"] 8)
#@73 Face name used for files suffixed with `completion-ignored-extensions'.
(defvar dired-ignored-face 'dired-ignored (#$ . 16994))
#@52 Additional expressions to highlight in Dired mode.
(defvar dired-font-lock-keywords (byte-code "\306D\307\310	!\311Q\312D\307\310\n!\311Q\313D\f\314Q\315D\f\316Q\317D\f\320Q\321D\f\322Q\323D
\324D$\325\326\327\330\331\257D$\332\333\327\334\335\257D%\336D\337\340\f&\341R\342D'\343D\257\207" [dired-re-mark dired-marker-char dired-del-marker dired-re-maybe-mark dired-re-inode-size dired-re-dir (0 dired-mark-face) "^[" char-to-string "]" (".+" (dired-move-to-filename) nil (0 dired-marked-face)) (".+" (dired-move-to-filename) nil (0 dired-flagged-face)) "[-d]....\\(w\\)...." (1 dired-perm-write-face) "[-d].......\\(w\\)." (1 dired-perm-write-face) "[-d]..\\(s\\)......" (1 'dired-set-id) "[-d].....\\([sS]\\)..." (1 'dired-set-id) (".+" (dired-move-to-filename) nil (0 dired-directory-face)) #[257 "\300 \211\205\3011\302!0\202\210\303\211\205\"\304!\205\"\305\306\307#\207" [dired-file-name-at-point (error) file-truename nil file-directory-p search-forward-regexp "\\(.+-> ?\\)\\(.+\\)" t] 7 "\n\n(fn END)"] (dired-move-to-filename) nil (1 dired-symlink-face) (2 dired-directory-face) #[257 "\300 \211\205%\3011\302!0\202\210\303\211\203\304!?\205#\305\306\307#\262\207" [dired-file-name-at-point (error) file-truename nil file-directory-p search-forward-regexp "\\(.+-> ?\\)\\(.+\\)" t] 7 "\n\n(fn END)"] (dired-move-to-filename) (1 dired-symlink-face) (2 'default) (".+" (dired-move-to-filename) nil (0 'dired-special)) (eval list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)$") '(".+" (dired-move-to-filename) nil (0 dired-ignored-face))) (eval list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)[*=|]$") '(".+" (progn (end-of-line) (unless (get-text-property (1- (point)) 'mouse-face) (dired-move-to-filename))) nil (0 dired-ignored-face))) ".*:$" (".+" (dired-move-to-filename) nil (0 'default)) (1 dired-header-face) dired-re-sym dired-re-special dired-re-perms dired-subdir-regexp] 17) (#$ . 17128))
#@344 Mark files for PREDICATE, according to `dired-marker-char'.
PREDICATE is evaluated on each line, with point at beginning of line.
MSG is a noun phrase for the type of files being marked.
It should end with a noun that can be pluralized by adding `s'.
Return value is the number of files marked, or nil if none were marked.

(fn PREDICATE MSG)
(defalias 'dired-mark-if '(macro . #[514 "\300\301\302\303\304\305\306\307	\310BBBBE\311\312\313\304\n\314BB\315BBB\304\305\316\317\f\320BBBBE\257\321BBB\207" [let ((inhibit-read-only t) count) save-excursion (setq count 0) when message "%s %ss%s..." (cond ((eq dired-marker-char 32) "Unmarking") ((eq dired-del-marker dired-marker-char) "Flagging") (t "Marking")) ((if (eq dired-del-marker dired-marker-char) " for deletion" #1="")) (goto-char (point-min)) while (not (eobp)) ((unless (= (following-char) dired-marker-char) (delete-char 1) (insert dired-marker-char) (setq count (1+ count)))) ((forward-line 1)) "%s %s%s %s%s" count ((dired-plural-s count) (if (eq dired-marker-char 32) "un" #1#) (if (eq dired-marker-char dired-del-marker) "flagged" "marked")) ((and (> count 0) count))] 16 (#$ . 19124)]))
#@1154 Eval BODY with point on each marked line.  Return a list of BODY's results.
If no marked file could be found, execute BODY on the current
line.  ARG, if non-nil, specifies the files to use instead of the
marked files.

If ARG is an integer, use the next ARG (or previous -ARG, if
ARG<0) files.  In that case, point is dragged along.  This is so
that commands on the next ARG (instead of the marked) files can
be chained easily.
For any other non-nil value of ARG, use the current file.

If optional third arg SHOW-PROGRESS evaluates to non-nil,
redisplay the dired buffer after each file is processed.

No guarantee is made about the position on the marked line.
BODY must ensure this itself if it depends on this.

Search starts at the beginning of the buffer, thus the car of the
list corresponds to the line nearest to the buffer's bottom.
This is also true for (positive and negative) integer values of
ARG.

BODY should not be too long as it is expanded four times.

If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one
marked file, return (t FILENAME) instead of (FILENAME).

(fn BODY ARG &optional SHOW-PROGRESS DISTINGUISH-ONE-MARKED)
(defalias 'dired-map-over-marks '(macro . #[1026 "\300\301\302\303\303\304	D\305\306\307\310\303\311BB\312\313\314\315BBEFE\303\316
\317BB\320BBE\321\fDF\301\322\323\324\325\326\327\330\303\331BB\312\313\314\332BBE\333BBBBBF\303\334\335BB\336BB\303\337\313\321DF\257FE\340BB\207" [prog1 let ((inhibit-read-only t) case-fold-search found results) if integerp progn dired-repeat-over-lines lambda nil ((sit-for 0)) setq results cons (results) < (0) ((nreverse results) results) list ((regexp (dired-marker-regexp)) next-position) save-excursion (goto-char (point-min)) (setq next-position (and (re-search-forward regexp nil t) (point-marker)) found (not (null next-position))) while next-position (goto-char next-position) ((sit-for 0)) (results) ((goto-char next-position) (forward-line 1) (set-marker next-position nil) (setq next-position (and (re-search-forward regexp nil t) (point-marker)))) and ((= (length results) 1)) ((setq results (cons t results))) found ((dired-move-to-filename))] 24 (#$ . 20291)]))
#@1058 Return the marked files' names as list of strings.
The list is in the same order as the buffer, that is, the car is the
  first marked file.
Values returned are normally absolute file names.
Optional arg LOCALP as in `dired-get-filename'.
Optional second argument ARG, if non-nil, specifies files near
 point instead of marked files.  It usually comes from the prefix
 argument.
  If ARG is an integer, use the next ARG files.
  If ARG is any other non-nil value, return the current file name.
  If no files are marked, and ARG is nil, also return the current file name.
Optional third argument FILTER, if non-nil, is a function to select
  some of the files--those for which (funcall FILTER FILENAME) is non-nil.

If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one marked file,
return (t FILENAME) instead of (FILENAME).
Don't use that together with FILTER.

If ERROR is non-nil, signal an error when the list of found files is empty.
ERROR can be a string with the error message.

(fn &optional LOCALP ARG FILTER DISTINGUISH-ONE-MARKED ERROR)
(defalias 'dired-get-marked-files #[1280 "\212\302\303\304\303\211\211C	\203E	\250\203<\305\n\306\307\310\311\312\"\313\"\314$\"\210	\307W\2037\211\242\237\202\257\211\242\202\257\315\316\"C\202\257\317 \303\212eb\210\320\303\304#\205V\321 \262\211??\262\211\203\211\211b\210\315\316\"\242B\240\210\211b\210\322y\210\211\303\211\223\210\320\303\304#\205\204\321 \262\202])	\203\236\242G\322U\203\236\304\242B\240\210\203\247\242\202\255\315
\316\"C\266\202*\266\204\323 \210\")\303\324\232\203\301\303\262\204\333\203\324@\304=\203\324\202\326\237\262\202\366\211\203\365\211@!\203\356\211B\262A\266\202\202\334\210\211\204\203\325;\203\202	\326!\210\207" [case-fold-search inhibit-read-only delq nil t dired-repeat-over-lines make-byte-code 0 "\301\302\300\303\"\301\242B\240\207" vconcat vector [dired-get-filename no-error-if-not-filep] 4 dired-get-filename no-error-if-not-filep dired-marker-regexp re-search-forward point-marker 1 dired-move-to-filename (t) user-error "No files specified"] 20 (#$ . 22484)])
#@12 

(fn STR)
(defalias 'dired-read-dir-and-switches #[257 "\303\205	\304\305	\"\306 \203\307\310\311\"\312\n\312$\202#\313\310\311\"\312\n\312$D!\207" [current-prefix-arg dired-listing-switches default-directory reverse read-string "Dired listing switches: " next-read-file-uses-dialog-p read-directory-name format "Dired %s(directory): " nil read-file-name] 8 (#$ . 24639)])
#@226 Try to get a file name at point in the current dired buffer.
This hook is intended to be put in `file-name-at-point-functions'.
Note that it returns an abbreviated name that can't be used
as an argument to `dired-goto-file'.
(defalias 'dired-file-name-at-point #[0 "\300\301\302\"\211\205\303!\203\304\305!!\202\305!\207" [dired-get-filename nil t file-directory-p file-name-as-directory abbreviate-file-name] 4 (#$ . 25027)])
#@137 Use file at point as the file for grep's default file-name pattern suggestion.
If a directory or nothing is found at point, return nil.
(defalias 'dired-grep-read-files #[0 "\300 \211\205\301!?\205\211\207" [dired-file-name-at-point file-directory-p] 3 (#$ . 25470)])
(put 'dired-mode 'grep-read-files 'dired-grep-read-files)
#@974 "Edit" directory DIRNAME--delete, rename, print, etc. some files in it.
Optional second argument SWITCHES specifies the `ls' options used.
(Interactively, use a prefix argument to be able to specify SWITCHES.)

If DIRNAME is a string, Dired displays a list of files in DIRNAME (which
may also have shell wildcards appended to select certain files).

If DIRNAME is a cons, its first element is taken as the directory name
and the rest as an explicit list of files to make directory entries for.
In this case, SWITCHES are applied to each of the files separately, and
therefore switches that control the order of the files in the produced
listing have no effect.

\<dired-mode-map>You can flag files for deletion with \[dired-flag-file-deletion] and then
delete them by typing \[dired-do-flagged-delete].
Type \[describe-mode] after entering Dired for more info.

If DIRNAME is already in a Dired buffer, that buffer is used without refresh.

(fn DIRNAME &optional SWITCHES)
(defalias 'dired #[513 "\300\301\"!\207" [pop-to-buffer-same-window dired-noselect] 6 (#$ . 25808) (dired-read-dir-and-switches "")])
#@105 "Edit" directory DIRNAME.  Like `dired' but selects in another window.

(fn DIRNAME &optional SWITCHES)
(defalias 'dired-other-window #[513 "\300\301\"!\207" [switch-to-buffer-other-window dired-noselect] 6 (#$ . 26924) (dired-read-dir-and-switches "in other window ")])
#@97 "Edit" directory DIRNAME.  Like `dired' but makes a new frame.

(fn DIRNAME &optional SWITCHES)
(defalias 'dired-other-frame #[513 "\300\301\"!\207" [switch-to-buffer-other-frame dired-noselect] 6 (#$ . 27203) (dired-read-dir-and-switches "in other frame ")])
#@95 "Edit" directory DIRNAME.  Like `dired' but makes a new tab.

(fn DIRNAME &optional SWITCHES)
(defalias 'dired-other-tab #[513 "\300\301\"!\207" [switch-to-buffer-other-tab dired-noselect] 6 (#$ . 27471) (dired-read-dir-and-switches "in other tab ")])
#@110 Like `dired' but returns the Dired buffer as value, does not select it.

(fn DIR-OR-LIST &optional SWITCHES)
(defalias 'dired-noselect #[513 "\204\262\302\211:\203@\262\202\262\303!\230\262\304\305\306!!!\262	\2031\307!\262\211\204;\310!\203@\303!\262:\203NAB\262\202Q\262\311\"\207" [default-directory find-file-visit-truename nil file-name-as-directory abbreviate-file-name expand-file-name directory-file-name file-truename file-directory-p dired-internal-noselect] 8 (#$ . 27732)])
#@16 

(fn DIRNAME)
(defalias 'dired-directory-changed-p #[257 "\300!\301 \211\302=\206\211@\262\303=?\206\3048\262\232\266\202?\207" [file-attributes visited-file-modtime 0 t 5] 6 (#$ . 28261)])
#@250 Return non-nil if current Dired buffer needs updating.
If NOCONFIRM is non-nil, then this function returns nil for a
remote directory, unless `auto-revert-remote-files' is non-nil.
This feature is used by Auto Revert mode.

(fn &optional NOCONFIRM)
(defalias 'dired-buffer-stale-p #[256 ":\203\n@\202\211;\205-\205	?\205\303!?\205-\304!\205-\n\205-\305!\207" [dired-directory auto-revert-remote-files buffer-read-only file-remote-p file-readable-p dired-directory-changed-p] 4 (#$ . 28470)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable dired-auto-revert-buffer funcall function #[0 "\300\207" [nil] 1] "Automatically revert Dired buffers on revisiting their directory.\nThis option controls whether to refresh the directory listing in a\nDired buffer when the directory that is already in some Dired buffer\nis revisited by commands such as \\[dired] and \\[dired-find-file].\nIf the value is t, revisiting an existing Dired buffer always reverts it.\nIf the value is a function, it is called with the directory name as a\nsingle argument, and the buffer is reverted if the function returns non-nil.\nOne such function is `dired-directory-changed-p', which returns non-nil\nif the directory has been changed since it was last revisited.\nOtherwise, Emacs prompts whether to revert the changed Dired buffer.\nNote that this is not the same as `auto-revert-mode' that\nperiodically reverts at specified time intervals." :type (choice (const :tag "Don't revert" nil) (const :tag "Always revert visited Dired buffer" t) (const :tag "Revert changed Dired buffer" dired-directory-changed-p) (function :tag "Predicate function")) :group dired :version "23.2"] 10)
#@109 Return non-nil if some file names are misaligned.
The return value is the target column for the file names.
(defalias 'dired--need-align-p #[0 "\212eb\210\300 \210`\301 Z\211m\204/\302y\210\303 \203/`\301 Z\211\205#\211V\211\203*\262\266\202\fU?\2057\211\266\202)\207" [dired-goto-next-file point-at-bol nil dired-move-to-filename] 5 (#$ . 30203)])
#@60 Align all files adding spaces in front of the size column.
(defalias 'dired--align-all-files #[0 "\302 \205D\212eb\210\303 \210\304 \205C`\305 ZZ\306\211\307U\204;\310\311\306#\210\307\224b\210\312\313\311\306#\210\314\311w\210\315\316\317#\210\311y\210)\210\202)\207" [directory-listing-before-filename-regexp inhibit-read-only dired--need-align-p dired-goto-next-file dired-move-to-filename point-at-bol t 0 re-search-backward nil search-backward-regexp "[[:space:]]" "[:space:]" insert-char 32 inherit] 7 (#$ . 30570)])
#@44 

(fn DIR-OR-LIST &optional SWITCHES MODE)
(defalias 'dired-internal-noselect #[769 "p:\203@\202\f\304\"C\211\242?\242\204!\305\306!!\240\210\242q\210\211\204~\2038\307!\210\202\302:\204C:\203L\310 \210\202\302	\311=\203X\310 \210\202\302\312	!\203n	!\203\302\310 \210\313\314!\210\202\302\315!\203\302\313\316\317\320!\"\210\202\302\321!\242\206\210\322!\204\220\262\203\232 \210\202\241\323\"\210\311C\324\325\326\327\330\"\331\"\332$\216\333 \210\211\334\240\210)\210eb\210\335!\210:\203\312\336 \210q\210\242\207" [dired-directory dired-auto-revert-buffer default-directory dired-listing-switches dired-find-buffer-nocreate create-file-buffer directory-file-name dired-sort-other revert-buffer t functionp message "Changed directory automatically updated" dired-directory-changed-p "%s" substitute-command-keys "Directory has changed on disk; type \\[revert-buffer] to update Dired" insert-directory-wildcard-in-dir-p file-name-directory dired-mode make-byte-code 0 "\301\242\205	\302\300\242!\207" vconcat vector [kill-buffer] 2 dired-readin nil dired-initial-position dired--align-all-files] 15 (#$ . 31110)])
#@67 Alist of expanded directories and their associated Dired buffers.
(defvar dired-buffers nil (#$ . 32298))
#@31 

(fn DIRNAME &optional MODE)
(defalias 'dired-find-buffer-nocreate #[513 "\304\305!\2036\2036\306!\230\2036p\307\310!!\237>\205\"	\232\311\"\262\312\313\"@\2065\211\2055\207\310!\262\314\n\204D\315\262\211\203\214\316@A!\204W\211A\262\202Dr\211@Aq\210=\203\204	\203\204\310	:\203s	@\202t	!\232\203\204\211@A\262\314\262\202\210\211A\262)\202D\207" [dired-find-subdir dired-directory dired-buffers major-mode featurep dired-x file-name-directory dired-buffers-for-dir expand-file-name delq sort dired-buffer-more-recently-used-p nil dired-mode buffer-name] 8 (#$ . 32410)])
#@204 Read in a new Dired buffer.
Differs from `dired-insert-subdir' in that it accepts
wildcards, erases the buffer, and builds the subdir-alist anew
(including making it buffer-local and clearing it first).
(defalias 'dired-readin #[0 "\306\307	:\203	@\262\202	\262\310!\262\212\311\312!\210\n:\203#\306\313\304!\210\206,\f\307\211~\210\314 \210\315 \210*eb\210\313\316!\210\306\317 \210\320!\211@\307=\203Z\321\3228\262!\210\210\323\306!\210\311\324!*\207" [inhibit-modification-hooks dired-directory buffer-undo-list coding-system-for-read file-name-coding-system inhibit-read-only nil t expand-file-name run-hooks dired-before-readin-hook make-local-variable erase-buffer dired-readin-insert dired-subdir-alist dired-build-subdir-alist file-attributes set-visited-file-modtime 5 set-buffer-modified-p dired-after-readin-hook] 6 (#$ . 33033)])
(defalias 'dired-readin-insert #[0 "\302\211:\203@\262A\262\202\262\302\262\303!\262\304!\305\232\2033\211\2043\306	\302\211\307%\202P\310!\204H\311\312\313!!!\204H\314\315\"\210\306	\211?\307%\207" [dired-directory dired-actual-switches nil expand-file-name file-name-nondirectory "" dired-insert-directory t insert-directory-wildcard-in-dir-p file-readable-p directory-file-name file-name-directory error "Directory %s inaccessible or nonexistent"] 8])
#@129 Align the fields of a file to the ones of surrounding lines.
BEG..END is the line where the file info is located.

(fn BEG END)
(defalias 'dired-align-file #[514 "\212\301\211\211\211b\210\302\301\"\211\262\205*i\211\262\205*b\203+\303y\304U\203+\302 \2069b\2059\305y\304U\2059\302 \211\262\205*i\211\262\205*U?\205*\211V\205*W\203xb\203x\305y\304U\203x\302 \203xi\211W\203w\211\262`\262\210V\203\203\306!\262\306!\262b\210\307\301w\210\211V\203&`V\203&i\310\311\312!)\262\212b\210\313!\210\312`Sf\314=\203\272\315\202\273\316\205\300\317P!\205\312\304\225\304\224Z)\204\323\211\202\342\211\205\342\212\320\301w\210\211iZZ)\211\203\211\304V\203\211\\\262V\203\211ZZ\262\321\314\322#\210\212\302 \323	!)=\204\324[!\210\266\320\301w\210\307\301w\210\202\217\301\211\223\266\204)\207" [inhibit-changing-match-data nil dired-move-to-filename -1 0 1 copy-marker " " "[0-9]" t looking-at move-to-column 32 " *" "[^ ]* *" "[0-9][^ ]*" "^ " insert-char inherit marker-position delete-char] 14 (#$ . 34386)])
#@105 Return non-nil if the string SWITCHES matches LONG or SHORT format.

(fn SWITCHES SHORT &optional LONG)
(defalias 'dired-check-switches #[770 "\302;\205\"\303\203\304\305Q\202\306Q\302\307\310#)\266\203)\207" [case-fold-search inhibit-changing-match-data nil "\\(\\`\\| \\)-[[:alnum:]]*" "\\|--" "\\>" "" t string-match] 10 (#$ . 35479)])
#@79 Return non-nil if the string SWITCHES contains -b or --escape.

(fn SWITCHES)
(defalias 'dired-switches-escape-p #[257 "\300\301\302#\207" [dired-check-switches "b" "escape"] 5 (#$ . 35839)])
#@82 Return non-nil if the string SWITCHES contains -R or --recursive.

(fn SWITCHES)
(defalias 'dired-switches-recursive-p #[257 "\300\301\302#\207" [dired-check-switches "R" "recursive"] 5 (#$ . 36038)])
#@436 Insert a directory listing of DIR, Dired style.
Use SWITCHES to make the listings.
If FILE-LIST is non-nil, list only those files.
Otherwise, if WILDCARD is non-nil, expand wildcards;
 in that case, DIR should be a file name that uses wildcards.
In other cases, DIR should be a directory name or a directory filename.
If HDR is non-nil, insert a header line with the directory name.

(fn DIR SWITCHES &optional FILE-LIST WILDCARD HDR)
(defalias 'dired-insert-directory #[1282 "`\306!\307\310\311!\203	\203G\312\302!\203\n\204G\313!\204A\314=\203=\315\f\307\211\211\316%\317=\211\204A\320\321!\210\202G\203G\322P\262\323!\211\203\273\324P\262\313	!\203d\325\316\326\n#\262\211@\327\330	A#\313\n!\211\203z\331\202\217\312\332!\203\214\203\214\333!\206\217\333\334!\203\227\335\202\231@\336\307p\307	&\317U\204\257\337\340A\"\210\341`
\"\210)\266\202\355\203\342\211\203\336\211@`\342\f\307\211$\210\343`\"\266A\266\202\202\302\210\202\355\342		\211?$\210\210\344A!\2049\212\345 \262b\210\346\347\350#\203\351\352\353\354\355\317\224!#\307\350#\210\202\375b\210\346\356\350#\2030\351\352\353\357\355\317\224!#\307\350#\210\202\211\307\211\223\210)\202M\360\354\211\n\307\350%\262\360\361\362\n\307\350%\262\212b\210\363\350B\364!)\262)\204i\307C\365`\366#\210)\212b\210\204v\203\232\364\367!\203\204\370\371\372!!\204\232\363\323\n!\242\206\223\373\374!!\375\261\210`\262\203\257\376\323\n!\243\206\253\377\n!\361\261\210)\201D`\"\262)\207" [process-environment ls-lisp-use-insert-directory-program eshell-ls-use-in-dired dired-use-ls-dired insert-directory-program default-directory copy-sequence nil featurep ls-lisp boundp file-remote-p unspecified call-process "--dired" 0 message "ls does not support --dired; see `dired-use-ls-dired' for more details." "--dired " insert-directory-wildcard-in-dir-p "-d " dired-replace-in-string "" format "ls %s %s" "/bin/sh" explicit-shell-file-name executable-find "sh" "-c" process-file user-error "%s: No files matching wildcard" insert-directory-clean insert-directory dired-align-file dired-switches-escape-p point-marker search-forward "\\" t replace-match apply propertize "\\\\" text-properties-at "
" "\\015" replace-regexp-in-string "\n" "\\n" "  " looking-at indent-rigidly 2 "^  \\(.*\\):$" file-name-absolute-p match-string 1 directory-file-name file-name-directory ":\n" "  wildcard " file-name-nondirectory shell-command-switch dired-actual-switches inhibit-changing-match-data indent-tabs-mode dired-insert-set-properties] 20 (#$ . 36247)])
#@71 Add various text properties to the lines in the region.

(fn BEG END)
(defalias 'dired-insert-set-properties #[514 "\212b\210`W\205l\3021a\303 \2048\304\305\306!)\262\206(	\305\306!)\262?\205]\307\310 \311 T\312\313$\202]\307\310 T`S\312\314$\210\315`\316 \210`\317#\210`\320\\\311 W\205]\307`\320\\\311 \312\321$0\202e\210\202f\210\322y\210\202)\207" [inhibit-changing-match-data dired-subdir-regexp (error) dired-move-to-filename "^$" t looking-at put-text-property line-beginning-position line-end-position invisible dired-hide-details-information dired-hide-details-detail add-text-properties dired-move-to-end-of-filename (mouse-face highlight dired-filename t help-echo "mouse-2: visit this file in other window") 4 dired-hide-details-link 1] 7 (#$ . 38872)])
#@344 Reread the Dired buffer.
Must also be called after `dired-actual-switches' have changed.
Should not fail even on completely garbaged buffers.
Preserves old cursor, marks/flags, hidden-p.

Dired sets `revert-buffer-function' to this function.  The args
ARG and NOCONFIRM, passed from `revert-buffer', are ignored.

(fn &optional ARG NOCONFIRM)
(defalias 'dired-revert #[512 "~\210\305 \306 \307\310 \311!A\307\312eb\210\313ed\"\262:\204&\314!\210\202E\314@!\210A\211\203D\211@\315!\203=\314!\210A\266\202\202-\210\307\316 \210\317!\210)\320!\210\321\304!\210\322!\210\212\211\203t\211@\323!\203m\324\325!\210A\266\202\202]\210)\204~\326\307!\210\327 *\207" [dired-subdir-alist inhibit-read-only case-fold-search dired-directory dired-after-readin-hook buffer-modified-p dired-save-positions nil dired-remember-hidden reverse t dired-remember-marks dired-uncache file-name-absolute-p dired-readin dired-insert-old-subdirs dired-mark-remembered run-hooks dired-restore-positions dired-goto-subdir dired-hide-subdir 1 restore-buffer-modified-p hack-dir-local-variables-non-file-buffer] 11 (#$ . 39664)])
#@596 Return current positions in the buffer and all windows with this directory.
The positions have the form (BUFFER-POSITION WINDOW-POSITIONS).

BUFFER-POSITION is the point position in the current Dired buffer.
It has the form (BUFFER DIRED-FILENAME BUFFER-LINE-NUMBER).

WINDOW-POSITIONS are current positions in all windows displaying
this dired buffer.  The window positions have the form (WINDOW
DIRED-FILENAME WINDOW-LINE-NUMBER).

We store line numbers instead of point positions because the header
lines might change as well: when this happen the line number doesn't
change; the point does.
(defalias 'dired-save-positions #[0 "p\300\301\302\"\303 E\304\305\306\301\307\302#\"p\301C\310\311\312\313\314\315\"\316\"\317\320%\321\302#\210\211\242\266\202E\207" [dired-get-filename nil t line-number-at-pos mapcar #[257 "\300!r\301\302\303\304\305!\306\"\307$\216\310@\311\"\210\312\313\314\"\315\316!!E*\207" [internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord dired-get-filename nil t line-number-at-pos window-point] 8 "\n\n(fn W)"] get-buffer-window-list 0 walk-windows make-byte-code 257 "\300\302!\236\211\205$r\300q\210\212\3038b\210\301\3038\304\305\306\"\307`!E\301\242B\240*\207" vconcat vector [window-prev-buffers 2 dired-get-filename nil t line-number-at-pos] 7 "\n\n(fn WINDOW)" nomini] 12 (#$ . 40799)])
#@70 Restore POSITIONS saved with `dired-save-positions'.

(fn POSITIONS)
(defalias 'dired-restore-positions #[257 "\211@\211@\3008A@\203\301A@!\204!eb\210\3008Sy\210\302 \210A@\211\203m\211@\303@!=\203f\304@!r\305\306\307\310\311!\312\"\300$\216\313@\314\"\210A@\203X\301A@!\204deb\210\3008Sy\210\302 \210*\210A\266\202\202$\210\211\205\271rq\210\212\211\211\205\266\211@\211@\315!\203\256\316!=\203\256A@\203\234\301A@!\204\245eb\210\3008Sy\210\302 \210\211`\223\210\210A\266\202\202x\262*\207" [2 dired-goto-file dired-move-to-filename window-buffer internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] select-window norecord markerp marker-buffer] 13 (#$ . 42237)])
#@71 Return alist of files and their marks, from BEG to END.

(fn BEG END)
(defalias 'dired-remember-marks #[514 "\301ed\"\203\f\302ed\"\210\303\211\211\212b\210\304\305#\2032\306\303\305\"\211\262\203h\262BB\262\202)\207" [dired-re-mark dired--find-hidden-pos dired--unhide nil re-search-forward t dired-get-filename] 9 (#$ . 43020)])
#@103 Mark all files remembered in ALIST.
Each element of ALIST looks like (FILE . MARKERCHAR).

(fn ALIST)
(defalias 'dired-mark-remembered #[257 "\300\211\211\212\205+@\262A\262@\262A\262\301!\203\302 \210\303\304!\210\211c\210\202)\207" [nil dired-goto-file beginning-of-line delete-char 1] 6 (#$ . 43373)])
#@53 Return a list of names of subdirs currently hidden.
(defalias 'dired-remember-hidden #[0 "\301\211\203(\211@\211@A\211b\210\301\210\302 \203\211B\262\266A\266\202\202\210\211\207" [dired-subdir-alist nil dired--hidden-p] 9 (#$ . 43699)])
#@139 Try to insert all subdirs that were displayed before.
Do so according to the former subdir alist OLD-SUBDIR-ALIST.

(fn OLD-SUBDIR-ALIST)
(defalias 'dired-insert-old-subdirs #[257 "\301!\2061\302\211\205/@\262A\262@\262\3031'\304!\210\305!0\202+\210\202\210\202\266\202\207" [dired-actual-switches dired-switches-recursive-p nil (error) dired-uncache dired-insert-subdir] 5 (#$ . 43959)])
#@58 Remove directory DIR from any directory cache.

(fn DIR)
(defalias 'dired-uncache #[257 "\300\301\"\211\205\f\211\301\"\207" [find-file-name-handler dired-uncache] 5 (#$ . 44372)])
#@38 Local keymap for Dired mode buffers.
(defvar dired-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\303\360\353#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\303\367\370#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@#\210\303\201A\201B#\210\303\201C\201D#\210\303\201E\201F#\210\303\201G\201H#\210\303\201I\201J#\210\303\201K\201L#\210\303\201M\201N#\210\303\201O\201P#\210\303\201Q\201R#\210\303\201S\201T#\210\303\201U\201P#\210\303\201V\201W#\210\303\201X\201Y#\210\303\201Z\201D#\210\303\201[\201\\#\210\303\201]\201^#\210\303\201_\201`#\210\303\201a\201N#\210\303\201b\201c#\210\303\201d\201e#\210\303\201f\201g#\210\303\201h\201i#\210\303\201j\201k#\210\303\201l\366#\210\303\201m\201n#\210\303\201o\201n#\210\303\201p\201q#\210\303\201r\201B#\210\303\201s\201@#\210\303\201t\201u#\210\303\201v\201w#\210\303\201x\201y#\210\303\201z\201{#\210\303\201|\201{#\210\303\201}\201{#\210\201~\201{\201\201}#\210\303\201\200\201\201#\210\303\201\202\201\203#\210\303\201\204\201\205#\210\303\201\206\201\207#\210\303\201\210\201\211#\210\303\201\212\201i#\210\303\201\213\201\214#\210\303\201\215\201\216#\210\303\201\217\201\220#\210\303\201\221\201\222#\210\303\201\223\201\224#\210\303\201\225\201u#\210\303\201\226\201k#\210\303\201\227\201\230#\210\303\201\231\201\232#\210\303\201\233\201\234#\210\303\201\235\201\236#\210\303\201\237\201\240#\210\303\201\241\201\242#\210\303\201\243\201\244#\210\303\201\245\201\246#\210\303\201\247\201\250#\210\303\201\251\201\214#\210\303\201\252\201\222#\210\303\201\253\201\214#\210\303\201\254\201\222#\210\303\201\255\201\256#\210\303\201\257\201\260#\210\303\201\261\201\262#\210\303\201\263\201\264#\210\303\201\265\201\266#\210\303\201\267\201\270#\210\303\201\271\201\272#\210\303\201\273\201\274#\210\303\201\275\201\274#\210\303\201\276\201\277#\210\303\201\300\201q#\210\303\201\301\201\302#\210\303\201\303\201\302#\210\303\201\304\201\305#\210\303\201\306\201\307#\210\303\201\310\201\311#\210\303\201\312\201\313#\210\303\201\314\201\315#\210\303\201\316\201\317#\210\303\201\320\201\321#\210\303\201\322\201\323#\210\303\201\324\201\325#\210\303\201\326\201\327#\210\303\201\330\201\331#\210\303\201\332\201\333#\210\303\201\334\201\335#\210\303\201\336\201\337#\210\303\201\340\201\341#\210\303\201\342\201\343#\210\303\201\344\201\345\201\346\201\345!B#\210\303\201\347\201\350#\210\303\201\351\201\352#\210\303\201\353\201\354#\210\303\201\355\201\356#\210\303\201\357\201\360#\210\303\201\361\201\362#\210\303\201\363\201\364#\210\303\201\365\201\366#\210\303\201\367\201\370#\210\303\201\371\201\372#\210\303\201\373\201\374\201\346\201\374!B#\210\303\201\375\201\376#\210\303\201\377\201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201	\201\n#\210\303\201\201\f#\210\303\201
\201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201 #\210\303\201!\201\"#\210\303\201#\201$\201\346\201$!B#\210\303\201%\201&#\210\303\201'\201(#\210\303\201)\201*#\210\303\201+\201,#\210\303\201-\201.#\210\303\201/\2010#\210\303\2011\2012#\210\303\2013\2014#\210\303\2015\2016#\210\303\2017\2018#\210\303\2019\201:#\210\303\201;\201<\201\346\201<!B#\210\303\201=\201>#\210\303\201?\201@#\210\303\201A\201B#\210\303\201C\201D#\210\303\201E\201F#\210\303\201G\201H#\210\303\201I\201J#\210\303\201K\201L#\210\303\201M\201N#\210\303\201O\201P#\210\303\201Q\201R#\210\303\201S\201T#\210\303\201U\201V#\210\303\201W\201X#\210\303\201Y\201Z#\210\303\201[\201\\\201\346\201\\!B#\210\303\201]\201^#\210\303\201_\201`#\210\303\201a\201b#\210\303\201c\201d#\210\303\201e\201f#\210\303\201g\201h#\210\303\201i\201j#\210\303\201k\201l#\210\303\201m\201n#\210\303\201o\201p#\210\303\201q\201r#\210\303\201s\201t#\210\303\201u\201v#\210\303\201w\201x#\210\303\201y\201z#\210\303\201{\201|#\210\303\201}\201~#\210\303\201\201\200#\210\303\201\201\201\202#\210\303\201\203\201\204#\210\303\201\205\201\206#\210\303\201\207\201\210#\210\303\201\211\201\212#\210\303\201\213\201\214#\210\303\201\215\201\216#\210\303\201\217\201\220#\210\303\201\221\201\222#\210\303\201\223\201\224#\210\303\201\225\201\226#\210\211\207" [special-mode-map make-keymap set-keymap-parent define-key [mouse-2] dired-mouse-find-file-other-window [follow-link] mouse-face "#" dired-flag-auto-save-files "." dired-clean-directory "~" dired-flag-backup-files "A" dired-do-find-regexp "C" dired-do-copy "B" dired-do-byte-compile "D" dired-do-delete "G" dired-do-chgrp "H" dired-do-hardlink "L" dired-do-load "M" dired-do-chmod "O" dired-do-chown "P" dired-do-print "Q" dired-do-find-regexp-and-replace "R" dired-do-rename "S" dired-do-symlink "T" dired-do-touch "X" dired-do-shell-command "Z" dired-do-compress "c" dired-do-compress-to "!" "&" dired-do-async-shell-command "=" dired-diff "\377" dired-unmark-all-files "\204" dired-tree-down "\225" dired-tree-up "\216" dired-next-subdir "\220" dired-prev-subdir "\373" dired-prev-marked-file "\375" dired-next-marked-file "%" nil "%u" dired-upcase "%l" dired-downcase "%d" dired-flag-files-regexp "%g" dired-mark-files-containing-regexp "%m" dired-mark-files-regexp "%r" dired-do-rename-regexp "%C" dired-do-copy-regexp "%H" dired-do-hardlink-regexp "%R" "%S" dired-do-symlink-regexp "%&" dired-flag-garbage-files "*" "**" dired-mark-executables "*/" dired-mark-directories "*@" dired-mark-symlinks "*%" "*N" dired-number-of-marked-files "*c" dired-change-marks "*s" dired-mark-subdir-files "*m" dired-mark "*u" dired-unmark "*?" "*!" dired-unmark-all-marks "U" "*" dired-unmark-backward "*" "*" "*t" dired-toggle-marks "a" dired-find-alternate-file "d" dired-flag-file-deletion "e" dired-find-file "f" "
" put :advertised-binding "g" revert-buffer "i" dired-maybe-insert-subdir "j" dired-goto-file "k" dired-do-kill-lines "l" dired-do-redisplay "m" "n" dired-next-line "o" dired-find-file-other-window "" dired-display-file "p" dired-previous-line "s" dired-sort-toggle-or-edit "t" "u" "v" dired-view-file "w" dired-copy-filename-as-kill "W" browse-url-of-dired-file "x" dired-do-flagged-delete "y" dired-show-file-type "+" dired-create-directory "<" dired-prev-dirline ">" dired-next-dirline "^" dired-up-directory " " [33554464] [remap next-line] [remap previous-line] "$" dired-hide-subdir "\244" dired-hide-all "(" dired-hide-details-mode [134217843 97 19] dired-do-isearch [134217843 97 134217747] dired-do-isearch-regexp [134217843 102 19] dired-isearch-filenames [134217843 102 134217747] dired-isearch-filenames-regexp [remap read-only-mode] dired-toggle-read-only [remap toggle-read-only] "?" dired-summary "" [remap undo] dired-undo [remap advertised-undo] "d" image-dired-display-thumbs "t" image-dired-tag-files "r" image-dired-delete-tag "j" image-dired-jump-thumbnail-buffer "i" image-dired-dired-display-image "x" image-dired-dired-display-external "a" image-dired-display-thumbs-append "." image-dired-display-thumb "c" image-dired-dired-comment-files "f" image-dired-mark-tagged-files "" image-dired-dired-toggle-marked-thumbs "e" image-dired-dired-edit-comment-and-tags ":d" epa-dired-do-decrypt ":v" epa-dired-do-verify ":s" epa-dired-do-sign ":e" epa-dired-do-encrypt [menu-bar subdir] "Subdir" make-sparse-keymap [menu-bar subdir hide-all] (menu-item "Hide All" dired-hide-all :help "Hide all subdirectories, leave only header lines") [menu-bar subdir hide-subdir] (menu-item "Hide/UnHide Subdir" dired-hide-subdir :help "Hide or unhide current directory listing") [menu-bar subdir tree-down] (menu-item "Tree Down" dired-tree-down :help "Go to first subdirectory header down the tree") [menu-bar subdir tree-up] (menu-item "Tree Up" dired-tree-up :help "Go to first subdirectory header up the tree") [menu-bar subdir up] (menu-item "Up Directory" dired-up-directory :help "Edit the parent directory") [menu-bar subdir prev-subdir] (menu-item "Prev Subdir" dired-prev-subdir :help "Go to previous subdirectory header line") [menu-bar subdir next-subdir] (menu-item "Next Subdir" dired-next-subdir :help "Go to next subdirectory header line") [menu-bar subdir prev-dirline] (menu-item "Prev Dirline" dired-prev-dirline :help "Move to next directory-file line") [menu-bar subdir next-dirline] (menu-item "Next Dirline" dired-next-dirline :help "Move to previous directory-file line") [menu-bar subdir insert] (menu-item "Insert This Subdir" dired-maybe-insert-subdir :help "Insert contents of subdirectory" :enable (let ((f (dired-get-filename nil t))) (and f (file-directory-p f)))) [menu-bar immediate] "Immediate" [menu-bar immediate image-dired-dired-display-external] (menu-item "Display Image Externally" image-dired-dired-display-external :help "Display image in external viewer") [menu-bar immediate image-dired-dired-display-image] (menu-item "Display Image" image-dired-dired-display-image :help "Display sized image in a separate window") [menu-bar immediate image-dired-dired-toggle-marked-thumbs] (menu-item "Toggle Image Thumbnails in This Buffer" image-dired-dired-toggle-marked-thumbs :help "Add or remove image thumbnails in front of marked file names") [menu-bar immediate hide-details] (menu-item "Hide Details" dired-hide-details-mode :help "Hide details in buffer" :button (:toggle . dired-hide-details-mode)) [menu-bar immediate revert-buffer] (menu-item "Refresh" revert-buffer :help "Update contents of shown directories") [menu-bar immediate dired-number-of-marked-files] (menu-item "#Marked Files" dired-number-of-marked-files :help "Display the number and size of the marked files") [menu-bar immediate dashes] ("--") [menu-bar immediate isearch-filenames-regexp] (menu-item "Isearch Regexp in File Names..." dired-isearch-filenames-regexp :help "Incrementally search for regexp in file names only") [menu-bar immediate isearch-filenames] (menu-item "Isearch in File Names..." dired-isearch-filenames :help "Incrementally search for string in file names only.") [menu-bar immediate compare-directories] (menu-item "Compare Directories..." dired-compare-directories :help "Mark files with different attributes in two Dired buffers") [menu-bar immediate backup-diff] (menu-item "Compare with Backup" dired-backup-diff :help "Diff file at cursor with its latest backup") [menu-bar immediate diff] (menu-item "Diff..." dired-diff :help "Compare file at cursor with another file") [menu-bar immediate view] (menu-item "View This File" dired-view-file :help "Examine file at cursor in read-only mode") [menu-bar immediate display] (menu-item "Display in Other Window" dired-display-file :help "Display file at cursor in other window") [menu-bar immediate find-file-other-window] (menu-item "Find in Other Window" dired-find-file-other-window :help "Edit file at cursor in other window") [menu-bar immediate find-file] (menu-item "Find This File" dired-find-file :help "Edit file at cursor") [menu-bar immediate create-directory] (menu-item "Create Directory..." dired-create-directory :help "Create a directory") [menu-bar immediate create-empty-file] (menu-item "Create Empty file..." dired-create-empty-file :help "Create an empty file") [menu-bar immediate wdired-mode] (menu-item "Edit File Names" wdired-change-to-wdired-mode :help "Put a Dired buffer in a mode in which filenames are editable" :keys "C-x C-q" :filter (lambda (x) (if (eq major-mode 'dired-mode) x))) [menu-bar regexp] "Regexp" [menu-bar regexp image-dired-mark-tagged-files] (menu-item "Mark From Image Tag..." image-dired-mark-tagged-files :help "Mark files whose image tags matches regexp") [menu-bar regexp dashes-1] ("--") [menu-bar regexp downcase] (menu-item "Downcase" dired-downcase :enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names)) :help "Rename marked files to lower-case name") [menu-bar regexp upcase] (menu-item "Upcase" dired-upcase :enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names)) :help "Rename marked files to upper-case name") [menu-bar regexp hardlink] (menu-item "Hardlink..." dired-do-hardlink-regexp :help "Make hard links for files matching regexp") [menu-bar regexp symlink] (menu-item "Symlink..." dired-do-symlink-regexp :visible (fboundp 'make-symbolic-link) :help "Make symbolic links for files matching regexp") [menu-bar regexp rename] (menu-item "Rename..." dired-do-rename-regexp :help "Rename marked files matching regexp") [menu-bar regexp copy] (menu-item "Copy..." dired-do-copy-regexp :help "Copy marked files matching regexp") [menu-bar regexp flag] (menu-item "Flag..." dired-flag-files-regexp :help "Flag files matching regexp for deletion") [menu-bar regexp mark] (menu-item "Mark..." dired-mark-files-regexp :help "Mark files matching regexp for future operations") [menu-bar regexp mark-cont] (menu-item "Mark Containing..." dired-mark-files-containing-regexp :help "Mark files whose contents matches regexp") [menu-bar mark] "Mark" [menu-bar mark prev] (menu-item "Previous Marked" dired-prev-marked-file :help "Move to previous marked file") [menu-bar mark next] (menu-item "Next Marked" dired-next-marked-file :help "Move to next marked file") [menu-bar mark marks] (menu-item "Change Marks..." dired-change-marks :help "Replace marker with another character") [menu-bar mark unmark-all] (menu-item "Unmark All" dired-unmark-all-marks) [menu-bar mark symlinks] (menu-item "Mark Symlinks" dired-mark-symlinks :visible (fboundp 'make-symbolic-link) :help "Mark all symbolic links") [menu-bar mark directories] (menu-item "Mark Directories" dired-mark-directories :help "Mark all directories except `.' and `..'") [menu-bar mark directory] (menu-item "Mark Old Backups" dired-clean-directory :help "Flag old numbered backups for deletion") [menu-bar mark executables] (menu-item "Mark Executables" dired-mark-executables :help "Mark all executable files") [menu-bar mark garbage-files] (menu-item "Flag Garbage Files" dired-flag-garbage-files :help "Flag unneeded files for deletion") [menu-bar mark backup-files] (menu-item "Flag Backup Files" dired-flag-backup-files :help "Flag all backup files for deletion") [menu-bar mark auto-save-files] (menu-item "Flag Auto-save Files" dired-flag-auto-save-files :help "Flag auto-save files for deletion") [menu-bar mark deletion] (menu-item "Flag" dired-flag-file-deletion :help "Flag current line's file for deletion") [menu-bar mark unmark] (menu-item "Unmark" dired-unmark :help "Unmark or unflag current line's file") [menu-bar mark mark] (menu-item "Mark" dired-mark :help "Mark current line's file for future operations") [menu-bar mark toggle-marks] (menu-item "Toggle Marks" dired-toggle-marks :help "Mark unmarked files, unmark marked ones") [menu-bar operate] "Operate" [menu-bar operate image-dired-delete-tag] (menu-item "Delete Image Tag..." image-dired-delete-tag :help "Delete image tag from current or marked files") [menu-bar operate image-dired-tag-files] (menu-item "Add Image Tags..." image-dired-tag-files :help "Add image tags to current or marked files") [menu-bar operate image-dired-dired-comment-files] (menu-item "Add Image Comment..." image-dired-dired-comment-files :help "Add image comment to current or marked files") [menu-bar operate image-dired-display-thumbs] (menu-item "Display Image Thumbnails" image-dired-display-thumbs :help "Display image thumbnails for current or marked image files") [menu-bar operate dashes-4] ("--") [menu-bar operate epa-dired-do-decrypt] (menu-item "Decrypt..." epa-dired-do-decrypt :help "Decrypt current or marked files") [menu-bar operate epa-dired-do-verify] (menu-item "Verify" epa-dired-do-verify :help "Verify digital signature of current or marked files") [menu-bar operate epa-dired-do-sign] (menu-item "Sign..." epa-dired-do-sign :help "Create digital signature of current or marked files") [menu-bar operate epa-dired-do-encrypt] (menu-item "Encrypt..." epa-dired-do-encrypt :help "Encrypt current or marked files") [menu-bar operate dashes-3] ("--") [menu-bar operate query-replace] (menu-item "Query Replace in Files..." dired-do-find-regexp-and-replace :help "Replace regexp matches in marked files") [menu-bar operate search] (menu-item "Search Files..." dired-do-find-regexp :help "Search marked files for matches of regexp") [menu-bar operate isearch-regexp] (menu-item "Isearch Regexp Files..." dired-do-isearch-regexp :help "Incrementally search marked files for regexp") [menu-bar operate isearch] (menu-item "Isearch Files..." dired-do-isearch :help "Incrementally search marked files for string") [menu-bar operate chown] (menu-item "Change Owner..." dired-do-chown :visible (not (memq system-type '(ms-dos windows-nt))) :help "Change the owner of marked files") [menu-bar operate chgrp] (menu-item "Change Group..." dired-do-chgrp :visible (not (memq system-type '(ms-dos windows-nt))) :help "Change the group of marked files") [menu-bar operate chmod] (menu-item "Change Mode..." dired-do-chmod :help "Change mode (attributes) of marked files") [menu-bar operate touch] (menu-item "Change Timestamp..." dired-do-touch :help "Change timestamp of marked files") [menu-bar operate load] (menu-item "Load" dired-do-load :help "Load marked Emacs Lisp files") [menu-bar operate compile] (menu-item "Byte-compile" dired-do-byte-compile :help "Byte-compile marked Emacs Lisp files") [menu-bar operate compress] (menu-item "Compress" dired-do-compress :help "Compress/uncompress marked files") [menu-bar operate print] (menu-item "Print..." dired-do-print :help "Ask for print command and print marked files") [menu-bar operate hardlink] (menu-item "Hardlink to..." dired-do-hardlink :help "Make hard links for current or marked files") [menu-bar operate symlink] (menu-item "Symlink to..." dired-do-symlink :visible (fboundp 'make-symbolic-link) :help "Make symbolic links for current or marked files") [menu-bar operate async-command] (menu-item "Asynchronous Shell Command..." dired-do-async-shell-command :help "Run a shell command asynchronously on current or marked files") [menu-bar operate command] (menu-item "Shell Command..." dired-do-shell-command :help "Run a shell command on current or marked files") [menu-bar operate delete] (menu-item "Delete" dired-do-delete :help "Delete current file or all marked files") [menu-bar operate rename] (menu-item "Rename to..." dired-do-rename :help "Rename current file or move marked files") [menu-bar operate copy] (menu-item "Copy to..." dired-do-copy :help "Copy current file or all marked files")] 7) (#$ . 44562))
(put 'dired-mode 'mode-class 'special)
#@2967 Mode for "editing" directory listings.
In Dired, you are "editing" a list of the files in a directory and
  (optionally) its subdirectories, in the format of `ls -lR'.
  Each directory is a page: use \[backward-page] and \[forward-page] to move pagewise.
"Editing" means that you can run shell commands on files, visit,
  compress, load or byte-compile them, change their file attributes
  and insert subdirectories into the same buffer.  You can "mark"
  files for later commands or "flag" them for deletion, either file
  by file or all files matching certain criteria.
You can move using the usual cursor motion commands.\<dired-mode-map>
The buffer is read-only.  Digits are prefix arguments.
Type \[dired-flag-file-deletion] to flag a file `D' for deletion.
Type \[dired-mark] to Mark a file or subdirectory for later commands.
  Most commands operate on the marked files and use the current file
  if no files are marked.  Use a numeric prefix argument to operate on
  the next ARG (or previous -ARG if ARG<0) files, or just `1'
  to operate on the current file only.  Prefix arguments override marks.
  Mark-using commands display a list of failures afterwards.  Type \[dired-summary]
  to see why something went wrong.
Type \[dired-unmark] to Unmark a file or all files of an inserted subdirectory.
Type \[dired-unmark-backward] to back up one line and unmark or unflag.
Type \[dired-do-flagged-delete] to delete (eXpunge) the files flagged `D'.
Type \[dired-find-file] to Find the current line's file
  (or dired it in another buffer, if it is a directory).
Type \[dired-find-file-other-window] to find file or Dired directory in Other window.
Type \[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer.
Type \[dired-do-rename] to Rename a file or move the marked files to another directory.
Type \[dired-do-copy] to Copy files.
Type \[dired-sort-toggle-or-edit] to toggle Sorting by name/date or change the `ls' switches.
Type \[revert-buffer] to read all currently expanded directories aGain.
  This retains all marks and hides subdirs again that were hidden before.
Use `SPC' and `DEL' to move down and up by lines.

If Dired ever gets confused, you can either type \[revert-buffer] to read the
directories again, type \[dired-do-redisplay] to relist the file at point or the marked files or a
subdirectory, or type \[dired-build-subdir-alist] to parse the buffer
again for the directory tree.

Customization variables (rename this buffer and type \[describe-variable] on each line
for more info):

  `dired-listing-switches'
  `dired-trivial-filenames'
  `dired-marker-char'
  `dired-del-marker'
  `dired-keep-marker-rename'
  `dired-keep-marker-copy'
  `dired-keep-marker-hardlink'
  `dired-keep-marker-symlink'

Hooks (use \[describe-variable] to see their documentation):

  `dired-before-readin-hook'
  `dired-after-readin-hook'
  `dired-mode-hook'
  `dired-load-hook'

Keybindings:
\{dired-mode-map}

(fn &optional DIRNAME SWITCHES)
(defalias 'dired-mode #[512 "\306 \210\307!\210\310 \210\311\312\313\314\315!\316\317!\210
\313=\203!\313C\320\321!\210\322\320\323!\210\324\320\325!\210\313\320\326!\210\327\320\330!\210\206G-\331<\203V@\202X!.\320\332!\210\211\206e/\320\333!\210\334\320\335!\210\336\3370\340 \210\341\313\"\210\342\343!\203\223\320\344!\210\3451$\"$\346\347\350\337\313$\210\346\351\352\337\313$\210\353\354!\207" [dired-mode-map major-mode mode-name buffer-read-only mode-line-buffer-identification buffer-invisibility-spec kill-all-local-variables use-local-map dired-advertise dired-mode "Dired" t propertized-buffer-identification "%17b" add-to-invisibility-spec (dired . t) make-local-variable revert-buffer-function dired-revert buffer-stale-function dired-buffer-stale-p buffer-auto-revert-by-notification page-delimiter "\n\n" dired-directory expand-file-name dired-actual-switches font-lock-defaults (dired-font-lock-keywords t nil nil beginning-of-line) desktop-save-buffer dired-desktop-buffer-misc-data nil hack-dir-local-variables-non-file-buffer dired-sort-other featurep dnd dnd-protocol-alist append add-hook file-name-at-point-functions dired-file-name-at-point isearch-mode-hook dired-isearch-filenames-setup run-mode-hooks dired-mode-hook default-directory list-buffers-directory dired-listing-switches dired-switches-alist dired-dnd-protocol-alist] 7 (#$ . 64025)])
#@62 Summarize basic Dired commands and show recent Dired errors.
(defalias 'dired-summary #[0 "\300 \210\301\302!\207" [dired-why message "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"] 2 (#$ . 68413) nil])
#@161 Undo in a Dired buffer.
This doesn't recover lost files, it just undoes changes in the buffer itself.
You can use it to recover marks, killed lines or subdirs.
(defalias 'dired-undo #[0 "\301\302 \210)\303 \210\304\305!\207" [inhibit-read-only t undo dired-build-subdir-alist message "Change in Dired buffer undone.\nActual changes in files cannot be undone by Emacs."] 2 (#$ . 68651) nil])
#@215 Edit Dired buffer with Wdired, or make it read-only.
If the current buffer can be edited with Wdired, (i.e. the major
mode is `dired-mode'), call `wdired-change-to-wdired-mode'.
Otherwise, toggle `read-only-mode'.
(defalias 'dired-toggle-read-only #[0 "\300\301!\203	\302 \207\303\304!\207" [derived-mode-p dired-mode wdired-change-to-wdired-mode read-only-mode toggle] 2 (#$ . 69050) nil])
#@124 Move down lines then position at filename.
Optional prefix ARG says how many lines to move; default is one line.

(fn ARG)
(defalias 'dired-next-line #[257 "\302\211\303\304\"\210*\305`!\2036\211\203\211\306W\203o\202m\2046\211\2030\211\306W\2030\307\2021\310u\210\202\n\311 \207" [goal-column line-move-visual nil line-move t invisible-p 0 -1 1 dired-move-to-filename] 4 (#$ . 69449) "^p"])
#@122 Move up lines then position at filename.
Optional prefix ARG says how many lines to move; default is one line.

(fn ARG)
(defalias 'dired-previous-line #[257 "\300\206\301[!\207" [dired-next-line 1] 3 (#$ . 69863) "^p"])
#@65 Goto ARGth next directory file line.

(fn ARG &optional OPOINT)
(defalias 'dired-next-dirline #[513 "\211\204`\262\301V\203\302\303\304$\202 \305 \210\306\303\304[$\203&\307 \207\211b\210\310\311!\207" [dired-re-dir 0 re-search-forward nil t beginning-of-line re-search-backward dired-move-to-filename error "No more subdirectories"] 7 (#$ . 70093) "p"])
#@52 Goto ARGth previous directory file line.

(fn ARG)
(defalias 'dired-prev-dirline #[257 "\300[!\207" [dired-next-dirline] 3 (#$ . 70466) "p"])
#@271 Run Dired on parent directory of current directory.
Find the parent directory either in this buffer or another buffer.
Creates a buffer if necessary.
If OTHER-WINDOW (the optional prefix arg), display the parent
directory in another window.

(fn &optional OTHER-WINDOW)
(defalias 'dired-up-directory #[256 "\301 \302\303!!\304\303!!\206,A\203\305!\206,\203%\306!\210\202)\307!\210\304!\207" [dired-subdir-alist dired-current-directory file-name-directory directory-file-name dired-goto-file dired-goto-subdir dired-other-window dired] 6 (#$ . 70616) "P"])
#@73 Get the current line's file name, with an error if file does not exist.
(defalias 'dired-get-file-for-visit #[0 "\300\301\302\"\301\204
\303\304!\210\305\302\"\262\306!\203\211\202,\307!\203)\310\311!\202,\310\312!\207" [dired-get-filename nil t user-error "No file on this line" file-name-sans-versions file-exists-p file-symlink-p error "File is a symlink to a nonexistent target" "File no longer exists; type `g' to update Dired buffer"] 5 (#$ . 71192) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias dired-advertised-find-file dired-find-file nil make-obsolete "23.2"] 4)
#@59 In Dired, visit the file or directory named on this line.
(defalias 'dired-find-file #[0 "\303?\205	\304\305 !*\207" [dired-auto-revert-buffer switch-to-buffer-preserve-window-point find-file-run-dired t find-file dired-get-file-for-visit] 2 (#$ . 71809) nil])
#@157 In Dired, visit file or directory on current line via `find-alternate-file'.
This kills the Dired buffer, then visits the current line's file or directory.
(defalias 'dired-find-alternate-file #[0 "\300\301!\210\302\303 !\207" [set-buffer-modified-p nil find-alternate-file dired-get-file-for-visit] 2 (#$ . 72082) nil])
#@316 In Dired, visit the file or directory name you click on.
The optional arguments FIND-FILE-FUNC and FIND-DIR-FUNC specify
functions to visit the file and directory, respectively.  If
omitted or nil, these arguments default to `find-file' and `dired',
respectively.

(fn EVENT &optional FIND-FILE-FUNC FIND-DIR-FUNC)
(defalias 'dired-mouse-find-file #[769 "\204\301\262\211\204\302\262\303\211\211\212\304!\211@\262\262\305\304!!\262\306!\204.\307\310!\210\311!q\210b\210\312 \262)\313!\203VA\203L\314!\206`\315!\210!\202`\315!\210\316\317\"!\207" [dired-subdir-alist find-file dired nil event-end posn-point windowp error "No file chosen" window-buffer dired-get-file-for-visit file-directory-p dired-goto-subdir select-window file-name-sans-versions t] 10 (#$ . 72410) "e"])
#@88 In Dired, visit the file or directory name you click on in another window.

(fn EVENT)
(defalias 'dired-mouse-find-file-other-window #[257 "\300\301\302#\207" [dired-mouse-find-file find-file-other-window dired-other-window] 5 (#$ . 73223) "e"])
#@87 In Dired, visit the file or directory name you click on in another frame.

(fn EVENT)
(defalias 'dired-mouse-find-file-other-frame #[257 "\300\301\302#\207" [dired-mouse-find-file find-file-other-frame dired-other-frame] 5 (#$ . 73476) "e"])
#@179 In Dired, examine a file in view mode, returning to Dired when done.
When file is a directory, show it in this buffer if it is inserted.
Otherwise, display it in another buffer.
(defalias 'dired-view-file #[0 "\301 \302!\203A\203\303!\206\304!\202\305!\207" [dired-subdir-alist dired-get-file-for-visit file-directory-p dired-goto-subdir dired view-file] 3 (#$ . 73726) nil])
#@59 In Dired, visit this file or directory in another window.
(defalias 'dired-find-file-other-window #[0 "\300\301 !\207" [find-file-other-window dired-get-file-for-visit] 2 (#$ . 74121) nil])
#@61 In Dired, display this file or directory in another window.
(defalias 'dired-display-file #[0 "\300\301\302 !\303\"\207" [display-buffer find-file-noselect dired-get-file-for-visit t] 3 (#$ . 74317) nil])
#@616 In Dired, return name of file mentioned on this line.
Value returned normally includes the directory name.
Optional arg LOCALP with value `no-dir' means don't include directory
name in result.  A value of `verbatim' means to return the name exactly as
it occurs in the buffer, and a value of t means construct name relative to
`default-directory', which still may contain slashes if in a subdirectory.
Optional arg NO-ERROR-IF-NOT-FILEP means treat `.' and `..' as
regular filenames and return nil if no filename on this line.
Otherwise, an error occurs in these cases.

(fn &optional LOCALP NO-ERROR-IF-NOT-FILEP)
(defalias 'dired-get-filename #[512 "\303\211\211\211\211\212\304?!\211\262\203\305!\262)\205%\205%{\211\262\203\262\306\307G\303$\210\310\311\"\203H\312\313\303\314\315%\262\2024\316	!\203|\307\317\320	\321=\203^\322\262\315\262\310\323#\203z\312\303\314\n\315%\262\211\307\225\\\262\202^\266\n\324=\203\252\325 \326\307\327\330\331!\332\"\333$\216\307\310\322#\203\247\307\224\334I\210\307\225\262\202\221\210)\210\335\336\336Q!\262\203\277\337!\203\277\314\262\204\307\303\202K\321=\203\322\202K\204\342\340\235\203\342\341\342!\202K\343=\203\363\211\203\363\344!\202K\211\203\345\303\"\211\203\211\346N\204\347P\202\f\262\202K\343=\203\202K\350 \351\232\203E\350!P\262\345\303\"\211\203?\211\346N\204?\347P\202@\262\202K\350!P)\207" [case-fold-search dired-actual-switches system-type nil dired-move-to-filename dired-move-to-end-of-filename set-text-properties 0 string-match "\\(?:[^\\]\\|\\`\\)\\(\"\\)" replace-match "\\\"" t 1 dired-switches-escape-p "" -1 verbatim "\\\\" "\\(\\\\\\) " windows-nt match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 47 read "\"" files--name-absolute-system-p ("." "..") error "Cannot operate on `.' or `..'" no-dir file-name-nondirectory find-file-name-handler safe-magic "/:" dired-current-directory "/"] 16 (#$ . 74529)])
#@277 Replace first match of REGEXP in STRING with NEWTEXT.
If it does not match, nil is returned instead of the new string.
Optional arg LITERAL means to take NEWTEXT literally.
Optional arg GLOBAL means to replace all matches.

(fn REGEXP STRING NEWTEXT &optional LITERAL GLOBAL)
(defalias 'dired-string-replace-match #[1283 "\211\203/\300\301\302#\203.G\300\225Z\303\304\n$\211\262\262GZ\262\210\202\207\302\300#\205>\303\304$\207" [0 nil string-match replace-match t] 13 (#$ . 76568)])
#@27 

(fn FILE &optional DIR)
(defalias 'dired-make-absolute #[513 "\211\206P\207" [default-directory] 4 (#$ . 77086)])
#@220 Convert FILE (an absolute file name) to a name relative to DIR.
If DIR is omitted or nil, it defaults to `default-directory'.
If FILE is not in the directory tree of DIR, return FILE
unchanged.

(fn FILE &optional DIR)
(defalias 'dired-make-relative #[513 "\211\204\262\211G\301V\203\211\301H\302U\203\303!\262\304\305\306!P\"\203,\307\301\225\"\207\207" [default-directory 0 126 expand-file-name string-match "^" regexp-quote substring] 6 (#$ . 77213)])
#@115 Non-nil if Dired-Hide-Details mode is enabled.
Use the command `dired-hide-details-mode' to change this variable.
(defvar dired-hide-details-mode nil (#$ . 77690))
(make-variable-buffer-local 'dired-hide-details-mode)
#@546 Toggle visibility of detailed information in current Dired buffer.
When this minor mode is enabled, details such as file ownership and
permissions are hidden from view.

If called interactively, enable Dired-Hide-Details 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.

See options: `dired-hide-details-hide-symlink-targets' and
`dired-hide-details-hide-information-lines'.

(fn &optional ARG)
(defalias 'dired-hide-details-mode #[256 "\301 \302=\203
?\202\303!\304V\305\306!\204\307\310!\210\311 \210\203.\312\313\311\314\315$\210\2024\316\313\311\315#\210\317\320\203>\321\202?\322\"\210\323\324!\203c\301 \203S\211\301 \232\203c\325\326\327\203^\330\202_\331#\266\210\332 \210\207" [dired-hide-details-mode current-message toggle prefix-numeric-value 0 derived-mode-p dired-mode error "Not a Dired buffer" dired-hide-details-update-invisibility-spec add-hook wdired-mode-hook nil t remove-hook run-hooks dired-hide-details-mode-hook dired-hide-details-mode-on-hook dired-hide-details-mode-off-hook called-interactively-p any " in current buffer" message "Dired-Hide-Details mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 77915) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar dired-hide-details-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [dired-hide-details-mode-map dired-hide-details-mode-hook variable-documentation put "Hook run after entering or leaving `dired-hide-details-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 dired-hide-details-mode nil boundp] 6)
(defalias 'dired-hide-details-update-invisibility-spec #[0 "\203\303\202	\304\305!\210\203	\203\303\202\304\306!\210\203.\n\203.\307\310!\204.\303\202/\304\311!\207" [dired-hide-details-mode dired-hide-details-hide-information-lines dired-hide-details-hide-symlink-targets add-to-invisibility-spec remove-from-invisibility-spec dired-hide-details-detail dired-hide-details-information derived-mode-p wdired-mode dired-hide-details-link] 2])
#@18 

(fn START END)
(defalias 'dired--find-hidden-pos #[514 "\300\301\302$\207" [text-property-any invisible dired] 7 (#$ . 80223)])
#@22 

(fn &optional POS)
(defalias 'dired--hidden-p #[256 "\300\206`\301\"\302=\207" [get-char-property invisible dired] 4 (#$ . 80361)])
#@18 

(fn START END)
(defalias 'dired--hide #[514 "\212\300b\210\301 b\210\301 \302\303$)\207" [put-text-property line-end-position invisible dired] 7 (#$ . 80504)])
#@18 

(fn START END)
(defalias 'dired--unhide #[514 "\212\300b\210\301 b\210\301 \302#)\207" [remove-list-of-text-properties line-end-position (invisible)] 6 (#$ . 80674)])
#@62 Regular expression to match the permission flags in `ls -l'.
(defvar dired-permission-flags-regexp "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)" (#$ . 80851))
#@348 Move to the beginning of the filename on the current line.
Return the position of the beginning of the filename, or nil if none found.

If RAISE-ERROR, signal an error if we can't find the filename on
the current line.

If EOL, it should be an position to use instead of
`line-end-position' as the end of the line.

(fn &optional RAISE-ERROR EOL)
(defalias 'dired-move-to-filename #[512 "\211\204\302 \262\303 \210\304`\305\306$\211\203 \211W\203 \211b\202L\307\310#\203.\311\225b\202L\307	\310#\203E\203>\312\313!\210\303 \210\306\202L\205L\312\314!\207" [directory-listing-before-filename-regexp dired-permission-flags-regexp line-end-position beginning-of-line next-single-property-change dired-filename nil re-search-forward t 0 error "Unrecognized line!  Check directory-listing-before-filename-regexp" "No file on this line"] 7 (#$ . 81038)])
#@27 

(fn &optional NO-ERROR)
(defalias 'dired-move-to-end-of-filename #[256 "\303`\304\"\203
\305`\304\"b\207`\306\307\310#\311 \312 \313\211\211\204\211\212\314	\313\315#\203G\316\224f\262\317=\262\205B\320\321\322\323!\322\324!\322\325!Q\"\262\202P\204P\326\327!\210)\211\203u\330\331\315#\203\211\332u\210\203\211\n\203\211h\333=\203\211\334u\210\202\211b\210\203\211\335>\204\206\203\211\334u\210\204\244`=\203\244\326\336\203\241\337\340!\202\242\327\"\210`=?\205\255`\207" [dired-actual-switches dired-permission-flags-regexp dired-ls-F-marks-symlinks get-text-property dired-filename next-single-property-change dired-check-switches "F" "classify" line-end-position dired--hidden-p nil re-search-backward t 1 108 string-match "[xst]" match-string 2 3 4 error "No file on this line" search-forward " -> " -4 64 -1 (100 115 112) "%s" substitute-command-keys "File line is hidden, type \\[dired-hide-subdir] to unhide"] 14 (#$ . 81912)])
#@527 Copy names of marked (or next ARG) files into the kill ring.
The names are separated by a space.
With a zero prefix arg, use the absolute file name of each marked file.
With \[universal-argument], use the file name relative to the Dired buffer's
`default-directory'.  (This still may contain slashes if in a subdirectory.)

If on a subdir headerline, use absolute subdirname instead;
prefix arg and marked files are ignored in this case.

You can then feed the file name(s) to other commands with \[yank].

(fn &optional ARG)
(defalias 'dired-copy-filename-as-kill #[256 "\301 \2061\302\303\203,\304!\305U\203\306 \202/:\203#\306\307!\202/\306\310\304!\"\202/\306\310!\311#\211\312\230?\205N\313=\203F\314\315\"\210\202J\316!\210\317\320\"\207" [last-command dired-get-subdir mapconcat identity prefix-numeric-value 0 dired-get-marked-files t no-dir " " "" kill-region kill-append nil kill-new message "%s"] 7 (#$ . 82901) "P"])
#@27 

(fn DIR &optional FILE)
(defalias 'dired-buffers-for-dir #[513 "\304!\262\305\211\211\203u\211@\211A\262\306!\204 \307\"\202n\310@\"\203nrq\210\311	\"\203m\203h\n;\203]\312\n!\211G\313U\206X\314!\305\315\316#)\266\203\262\202e\317\"\nA\235\203mB\262)A\266\202\202\210\207" [dired-buffers dired-subdir-alist dired-directory inhibit-changing-match-data file-name-as-directory nil buffer-name delq dired-in-this-tree-p assoc file-name-nondirectory 0 dired-glob-regexp t string-match expand-file-name] 14 (#$ . 83855)])
#@69 Convert glob-pattern PATTERN to a regular expression.

(fn PATTERN)
(defalias 'dired-glob-regexp #[257 "\301\302\303\304#\203\200\301\225\301\224H\305\306\301\224#!P\262\211\307U\203/\310P\262\262\202{\211\311U\203m\301\224TH\312U\203F\313\\\202I\314\\\315\316\303#)\266\203\306T#P\262T\262\266\202{\211\317U\203{\320P\262\262\266\202\321\305\306\"!\322R\207" [inhibit-changing-match-data 0 nil string-match "[[?*]" regexp-quote substring 63 "." 91 94 3 2 "]" t 42 ".*" "\\`" "\\'"] 14 (#$ . 84422)])
(defalias 'dired-advertise #[0 "\302!p\303!>\203\304\202\211pB	B\211\207" [default-directory dired-buffers expand-file-name dired-buffers-for-dir t] 4])
#@12 

(fn DIR)
(defalias 'dired-unadvertise #[257 "\301\302\303!\"\"\211\207" [dired-buffers delq assoc expand-file-name] 5 (#$ . 85144)])
#@17 

(fn FILE DIR)
(defalias 'dired-in-this-tree-p #[514 "\302\303\304!P\302\305\306#)\266\203)\207" [case-fold-search inhibit-changing-match-data nil "^" regexp-quote t string-match] 9 (#$ . 85289)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias dired-in-this-tree dired-in-this-tree-p nil make-obsolete "27.1"] 4)
#@12 

(fn DIR)
(defalias 'dired-normalize-subdir #[257 "\301\302!\203\202\303\"!\207" [default-directory file-name-as-directory file-name-absolute-p expand-file-name] 5 (#$ . 85635)])
(defalias 'dired-get-subdir #[0 "\212\301 \302 \210`\303\"AZ\304U\205\211\262)\207" [dired-subdir-alist dired-current-directory beginning-of-line assoc 0] 5])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias dired-get-subdir-min cdr nil make-obsolete "27.1"] 4)
#@12 

(fn ELT)
(defalias 'dired-get-subdir-max #[257 "\212\211Ab\210\300 )\207" [dired-subdir-max] 2 (#$ . 86113)])
(defalias 'dired-clear-alist #[0 "\205@A\301\211\223\210A\211\204\301\207" [dired-subdir-alist nil] 4])
#@12 

(fn DIR)
(defalias 'dired-subdir-index #[257 "\301\302\211\203#@@\230\203\301\262\303\262\202\211A\262T\262\202\205(\207" [dired-subdir-alist nil 0 t] 6 (#$ . 86343)])
#@97 Go to next subdirectory, regardless of level.

(fn ARG &optional NO-ERROR-IF-NOT-FOUND NO-SKIP)
(defalias 'dired-next-subdir #[769 "\301 \302\211\303!Z\262\211\304Y\205\2118A\262\203*b\210\204&\302\210`\202>?\205>\305\306\304V\203<\307\202=\310\"\207" [dired-subdir-alist dired-current-directory nil dired-subdir-index 0 error "%s directory" "Last" "First"] 10 (#$ . 86537) "p"])
#@199 Build `dired-subdir-alist' by parsing the buffer.
Returns the new value of the alist.
If optional arg SWITCHES is non-nil, use its value
instead of `dired-actual-switches'.

(fn &optional SWITCHES)
(defalias 'dired-build-subdir-alist #[256 "\306 \210\212\307\310\211\206\n\311\312!\205\"\313\314\"\205\"\315\316\317\"Peb\210\311\320
\311\310#\203\331\212\307\224b\210\321 \210\322u\210,\310-\323!)\262)\204'\212\317\224b\210\324`\317\225\"\262\325 \326\307\327\330\331!\332\"\333$\216\203~\230\204~\313\"\203~\334\307\225\"P\202\201\335!)\262\262`\317\225|\210c\210)T\262\336!\203\307\337\311\310-\313#)\266\203\203\307\311C\311C\340\326\341\342\330\331\"\343\"\344\345%\"\210\211\242\262\266\346\212\307\224b\210\321 \210\347 )\"\210\202'\317V\203\352\350\351!\203\352\352\353\"\210*\266\f)\207" [inhibit-read-only buffer-undo-list dired-actual-switches default-directory dired-subdir-alist dired-subdir-regexp dired-clear-alist 0 t nil dired-switches-recursive-p string-match "\\`/.*:\\(/.*\\)" "\\`" match-string 1 re-search-forward beginning-of-line 2 looking-at buffer-substring-no-properties match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 substring expand-file-name dired-switches-escape-p "\\\\" mapc 257 "\211\302\232\203\300\242\203\301\211\242\303P\240\210\300\304\240\207\300\303\240\207\300\242\2030\211\305\232\2030\301\211\242\306P\240\210\300\304\240\207\301\211\242\300\242\307!Q\240\210\300\304\240\207" [92 "\\" nil 110 "\n" char-to-string] 6 "\n\n(fn CHAR)" dired-alist-add-1 point-marker called-interactively-p interactive message "Buffer includes %d directories" dired-re-perms inhibit-changing-match-data] 16 (#$ . 86945) nil])
#@23 

(fn DIR NEW-MARKER)
(defalias 'dired-alist-add-1 #[514 "\301!BB\211\207" [dired-subdir-alist dired-normalize-subdir] 4 (#$ . 88710)])
(defalias 'dired-goto-next-nontrivial-file #[0 "\302 \210;\205/m?\205/\303\304\305\306\"\206\307!\305\306\310#)\266\203\205/\311y\210\312 \210\202\207" [dired-trivial-filenames inhibit-changing-match-data dired-goto-next-file file-name-nondirectory dired-get-filename nil t "" string-match 1 dired-move-to-filename] 7])
(defalias 'dired-goto-next-file #[0 "\300 S\301 ?\205`W\205\302y\210\202\207" [dired-subdir-max dired-move-to-filename 1] 3])
#@66 Go to line describing file FILE in this Dired buffer.

(fn FILE)
(defalias 'dired-goto-file #[257 "\303!\204\304\305\"\210\306!\262\307\310!\212eb\210\311\211d#)\206T\212eb\210\311\312	\"d#)\206T\212\211\313	!\230\203@eb\202H\nA\205S\314!\205S\311\315!\316 #)\211\205Z\211b)\207" [case-fold-search default-directory dired-subdir-alist file-name-absolute-p error "File name `%s' is not absolute" directory-file-name nil file-name-directory dired-goto-file-1 file-relative-name expand-file-name dired-goto-subdir file-name-nondirectory dired-subdir-max] 6 (#$ . 89322) (byte-code "\300\301\302\303 \"!C\304 \210\207" [expand-file-name read-file-name "Goto file: " dired-current-directory push-mark] 4)])
#@386 Advance to the Dired listing labeled by FILE; return its position.
Return nil if the listing is not found.  If FILE contains
characters that would not appear in a Dired buffer, search using
the quoted forms of those characters.

FULL-NAME specifies the actual file name the listing must have,
as returned by `dired-get-filename'.  LIMIT is the search limit.

(fn FILE FULL-NAME LIMIT)
(defalias 'dired-goto-file-1 #[771 "\302\303\304\305\302\306%\262\303\307\211\302\306%\262\310!\203E\311\302\306\312#)\266\203\203E\303\313\314\302\306%\262\303\315\316\302\306%\262\303\317\320\302\306%\262\302\313P\204k\321\322#\203k\323\302\306\"\232\203e\324 \262\202I\325y\210\202I\266\202\207" [dired-actual-switches inhibit-changing-match-data nil replace-regexp-in-string "
" "\\^m" t "\\\\" dired-switches-escape-p "[ 	\n]" string-match " " "\\ " "	" "\\t" "\n" "\\n" search-forward move dired-get-filename dired-move-to-filename 1] 11 (#$ . 90052)])
#@174 Where point should go in a new listing of DIRNAME.
Point is assumed to be at the beginning of new subdir line.
It runs the hook `dired-initial-position-hook'.

(fn DIRNAME)
(defalias 'dired-initial-position #[257 "\302\210\303\304!\203\203\305!\210	\203\306 \210\307\310!\207" [dired-find-subdir dired-trivial-filenames nil featurep dired-x dired-goto-subdir dired-goto-next-nontrivial-file run-hooks dired-initial-position-hook] 3 (#$ . 91034)])
#@359 Return the name of the subdirectory to which this line belongs.
This returns a string with trailing slash, like `default-directory'.
Optional argument means return a file name relative to `default-directory',
in which case the value could be an empty string if `default-directory'
is the directory where the file on this line resides.

(fn &optional LOCALP)
(defalias 'dired-current-directory #[256 "`\206	\302\303p\"\304\211\203&@\262@\262AX?\205!A\262\202\2031\305	\"\2022\211\207" [dired-subdir-alist default-directory error "No subdir-alist in %s" nil dired-make-relative] 8 (#$ . 91497)])
(defalias 'dired-subdir-max #[0 "\212A\203\301\302\303\211#\204d\202`)\207" [dired-subdir-alist dired-next-subdir 1 t] 4])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dired-recursive-deletes funcall function #[0 "\300\207" [top] 1] "Whether Dired deletes directories recursively.\nIf nil, Dired will not delete non-empty directories.\n`always' means to delete non-empty directories recursively,\nwithout asking.  This is dangerous!\n`top' means to ask for each top-level directory specified by the\nDired deletion command, and delete its subdirectories without\nasking.\nAny other value means to ask for each directory." :type (choice :tag "Delete non-empty directories" (const :tag "Yes" always) (const :tag "No--only delete empty directories" nil) (const :tag "Confirm for each directory" t) (const :tag "Confirm for each top directory only" top)) :group dired] 8)
(defvar dired-re-no-dot "[^.]\\|\\.\\.\\.")
#@529 Delete FILE or directory (possibly recursively if optional RECURSIVE is true.)
RECURSIVE determines what to do with a non-empty directory.  The effect of
its possible values is:

  nil           -- do not delete.
  `always'      -- delete recursively without asking.
  `top'         -- ask for each directory at top level.
  Anything else -- ask for each sub-directory.

TRASH non-nil means to trash the file instead of deleting, provided
`delete-by-moving-to-trash' (which see) is non-nil.

(fn FILE &optional RECURSIVE TRASH)
(defalias 'dired-delete-file #[769 "\303!@\304=\204\305\"\207\306\304#?\203h\211\204h\307=\204k\310\311\2030	\2030\312\2021\313\314!#\315\316\"\211\317\267\202`\307\262\202c\320=\203c\307\262\202c\321\262\202c\322 \210\202c\322 \210\266\202k\321\262\323#\207" [dired-re-no-dot delete-by-moving-to-trash dired-recursive-deletes file-attributes t delete-file directory-files always format "Recursively %s %s? " "trash" "delete" dired-make-relative read-answer (("yes" 121 "delete recursively the current directory") ("no" 110 "skip to next") ("all" 33 "delete all remaining directories with no more questions") ("quit" 113 "exit")) #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("all" 64 "yes" 72 "no" 84 "quit" 90)) top nil keyboard-quit delete-directory] 9 (#$ . 93078)])
#@250 In Dired, delete the files flagged for deletion.
If NOMESSAGE is non-nil, we don't display any message
if there are no flagged files.
`dired-recursive-deletes' controls whether deletion of
non-empty directories is allowed.

(fn &optional NOMESSAGE)
(defalias 'dired-do-flagged-delete #[256 "\304 \305\212eb\210\306\305\307#)\203~\310\307\305\211\211C\304 \305\212eb\210\306\305\307#\205.\311 \262\211??\262\211\203`\211b\210\312 `B\242B\240\210\211b\210\313y\210\211\305\211\223\210\306\305\307#\205[\311 \262\2025)\203j\242\202o\312 `BC\266\202*\266\204\314 \210\237\305\307#\202\205\206\205\315\316!*\207" [dired-del-marker dired-marker-char case-fold-search inhibit-read-only dired-marker-regexp nil re-search-forward t dired-internal-do-deletions point-marker dired-get-filename 1 dired-move-to-filename message "(No deletions requested)"] 13 (#$ . 94464) nil])
#@149 Delete all marked (or next ARG) files.
`dired-recursive-deletes' controls whether deletion of
non-empty directories is allowed.

(fn &optional ARG)
(defalias 'dired-do-delete #[256 "\302\303\304\211\211C\203=\250\2035\305\306\307\310\311\312!\313\"\314$\"\210\307W\2030\211\242\237\202\221\211\242\202\221\315 `BC\202\221\316 \304\212eb\210\317\304\303#\205N\320 \262\211??\262\211\203\200\211b\210\315 `B\242B\240\210\211b\210\321y\210\211\304\211\223\210\317\304\303#\205{\320 \262\202U)\203\212\242\202\217\315 `BC\266\202*\266\204\322 \210\237\303#\207" [case-fold-search inhibit-read-only dired-internal-do-deletions t nil dired-repeat-over-lines make-byte-code 0 "\300\301 `B\300\242B\240\207" vconcat vector [dired-get-filename] 3 dired-get-filename dired-marker-regexp re-search-forward point-marker 1 dired-move-to-filename] 14 (#$ . 95364) "P"])
(defvar dired-deletion-confirmer 'yes-or-no-p)
#@30 

(fn L ARG &optional TRASH)
(defalias 'dired-internal-do-deletions #[770 "\304\305\"G\306\205	\304\307\"\262\310\311\312\n\313\314\203%\315\202&\316\317
\"#%\203\332\212\3202\325\321\203?\322\202@\323#\324\203\271@Ab\210\325\3261\233\3271\217@@\330\n#\210T\262\324\247\203w@Y\205|\331#\266\332\333!\334!\335$\26200\202\2570\336\320\337\340!\"\262\202\257\341\342@\343!#\210	@@B\211\262\262\210)A\262	\202D\211\204\303\344!\202\322\345\313\346\347\350	#G#\"\266\2020\210)\202\336\337\351!\210)\266\352 \207" [dired-recursive-deletes delete-by-moving-to-trash dired-deletion-confirmer inhibit-read-only mapcar car 0 dired-make-relative dired-mark-pop-up " *Deletions*" delete format "%s %s " "Trash" "Delete" dired-mark-prompt --delete-cancel make-progress-reporter "Trashing..." "Deleting..." nil t (error) (quit) dired-delete-file progress-reporter-do-update dired-fun-in-all-buffers file-name-directory file-name-nondirectory dired-delete-entry throw message "OK, canceled" dired-log "%s: %s\n" error-message-string progress-reporter-done dired-log-summary ngettext "%d of %d deletion failed" "%d of %d deletions failed" "(No deletions performed)" dired-move-to-filename] 18 (#$ . 96306)])
#@316 In all buffers dired'ing DIRECTORY, run FUN with ARGS.
If the buffer has a wildcard pattern, check that it matches FILE.
(FILE does not include a directory component.)
FILE may be nil, in which case ignore it.
Return list of buffers where FUN succeeded (i.e., returned non-nil).

(fn DIRECTORY FILE FUN &rest ARGS)
(defalias 'dired-fun-in-all-buffers #[899 "\300\301\302!\"\211\203&\211@r\211q\210\303\"\203\211B\262)A\266\202\202\210\211\207" [nil dired-buffers-for-dir expand-file-name apply] 10 (#$ . 97582)])
#@13 

(fn FILE)
(defalias 'dired-delete-entry #[257 "\212\301!\203\302\303 \210`\212\304y\210`)|\210))\305!\207" [inhibit-read-only dired-goto-file t beginning-of-line 1 dired-clean-up-after-deletion] 3 (#$ . 98114)])
#@330 Clean up after a deleted file or directory FN.
Removes any expanded subdirectory of deleted directory.  If
`dired-x' is loaded and `dired-clean-up-buffers-too' is non-nil,
kill any buffers visiting those files, prompting for
confirmation.  To disable the confirmation, see
`dired-clean-confirm-killing-deleted-buffers'.

(fn FN)
(defalias 'dired-clean-up-after-deletion #[257 "\212A\203\303!\203\304 \210)\305\306!\205h	\205h\307!\211\2034\n\2034\310\311\312\313!\"!\2034\314!\210\210\315\316!!\211\205f\n\205f\310\311\317\320\321G#\313!\"!\205f\211\211\205d\211@\314!\210A\266\202\202S\262\262\207" [dired-subdir-alist dired-clean-up-buffers-too dired-clean-confirm-killing-deleted-buffers dired-goto-subdir dired-kill-subdir featurep dired-x get-file-buffer y-or-n-p format "Kill buffer of %s, too? " file-name-nondirectory kill-buffer dired-buffers-for-dir expand-file-name ngettext "Kill Dired buffer of %s, too? " "Kill Dired buffers of %s, too? "] 8 (#$ . 98340)])
(defalias 'dired-marker-regexp #[0 "\301\302\303!!P\207" [dired-marker-char "^" regexp-quote char-to-string] 4])
#@14 

(fn COUNT)
(defalias 'dired-plural-s #[257 "\211\300U\203\301\207\302\207" [1 "" "s"] 3 (#$ . 99457)])
#@249 Return a string suitable for use in a Dired prompt.
ARG is normally the prefix argument for the calling command.
FILES should be a list of file names.

The return value has a form like "foo.txt", "[next 3 files]",
or "* [3 files]".

(fn ARG FILES)
(defalias 'dired-mark-prompt #[514 "\211@\301=\203\211A\262\211G\211\302U\203@\202)\250\203$\303\304\"\202)\303\305#\207" [dired-marker-char t 1 format "[next %d files]" "%c [%d files]"] 7 (#$ . 99571)])
#@58 Pop up buffer BUF in a way suitable for Dired.

(fn BUF)
(defalias 'dired-pop-to-buffer #[257 "\303\304\305\306!!\210*\307\304e\"\210\n\205\310\311!\304\312\304\211\313&\207" [pop-up-frames split-window-preferred-function dired-shrink-to-fit #[257 "\301\302\303 !)\203\304 \206\305!\207" [split-height-threshold 0 window-splittable-p selected-window split-window-below split-window-sensibly] 3 "\n\n(fn WINDOW)"] nil pop-to-buffer get-buffer-create set-window-start fit-window-to-buffer get-buffer-window 1 t] 8 (#$ . 100042)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [make-obsolete dired-pop-to-buffer pop-to-buffer "24.3" custom-declare-variable dired-no-confirm funcall function #[0 "\300\207" [nil] 1] "A list of symbols for commands Dired should not confirm, or t.\nCommand symbols are `byte-compile', `chgrp', `chmod', `chown', `compress',\n`copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink',\n`touch' and `uncompress'.\nIf t, confirmation is never needed." :group dired :type (choice (const :tag "Confirmation never needed" t) (set (const byte-compile) (const chgrp) (const chmod) (const chown) (const compress) (const copy) (const delete) (const hardlink) (const load) (const move) (const print) (const shell) (const symlink) (const touch) (const uncompress)))] 8)
#@897 Return FUNCTION's result on ARGS after showing which files are marked.
Displays the file names in a window showing a buffer named
BUFFER-OR-NAME; the default name being " *Marked Files*".  The
window is not shown if there is just one file, `dired-no-confirm'
is t, or OP-SYMBOL is a member of the list in `dired-no-confirm'.

By default, Dired shrinks the display buffer to fit the marked files.
To disable this, use the Customization interface to add a new rule
to `display-buffer-alist' where condition regexp is "^ \*Marked Files\*$",
action argument symbol is `window-height' and its value is nil.

FILES is the list of marked files.  It can also be (t FILENAME)
in the case of one marked file, to distinguish that from using
just the current file.

FUNCTION should not manipulate files, just read input (an
argument or confirmation).

(fn BUFFER-OR-NAME OP-SYMBOL FILES FUNCTION &rest ARGS)
(defalias 'dired-mark-pop-up #[1156 "\306=\204>\204G\307U\203\310\"\207\311\206\312!\313\211\314\315B\316\317\320\321\322		\"\323\"\324\325%\326!\211\327A\236\330A!\205F\211A\262\211\205Y@\331\332\327\333!A\"BB\334\211rq\210\335\206g\"\262)\306\211rq\210\336\f@\306=\203\203\fA\202\205\f!\210\337ed\340#\210\334\211)\262*\341e\"\210\203\263\3421\256\343\344\334#\210!0\202\262\210\202\263\210\344A\236A:\203\325\345\306\344\nA\236A@#\210\345\334\344\nA\236AA#\210\330!\203\343\"\202\344\211)\266\210)\207" [dired-no-confirm display-buffer-mark-dedicated standard-output inhibit-modification-hooks inhibit-read-only tab-line-exclude t 1 apply get-buffer-create " *Marked Files*" soft display-buffer-below-selected ((window-height . fit-window-to-buffer) (preserve-size nil . t)) make-byte-code 514 "\302!r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210\303\304\314\306\307!\315\"\316$\216\317\300\301\"+\207" vconcat vector [internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord "\301\300!\205\n\302\300\303\"\207" [window-live-p quit-restore-window kill] 3 apply] 9 "\n\n(fn WINDOW VALUE)" temp-buffer-window-setup window-height functionp (window-height . t) assq-delete-all copy-sequence nil temp-buffer-window-show dired-format-columns-of-files remove-text-properties (mouse-face nil help-echo nil) set-window-point (error) set-window-parameter preserve-size window-preserve-size] 19 (#$ . 101401)])
#@14 

(fn FILES)
(defalias 'dired-format-columns-of-files #[257 "`\300!\210\301`\302\303$\207" [completion--insert-strings put-text-property mouse-face nil] 7 (#$ . 103880)])
#@21 

(fn ARG FUNCTION)
(defalias 'dired-repeat-over-lines #[514 "\300 \301 \210\302V\203;m\204;S\262\301 \210m\204%\303 \203%\304y\210\202\212\304y\210\211`T\305\223\210)\212 \210)\211b\210\202\302W\203fo\204fT\262\306y\210o\204[\303 \203[\306y\210\202L\301 \210\212 \210)\202;\211\305\211\223\210\307 \207" [make-marker beginning-of-line 0 dired-between-files 1 nil -1 dired-move-to-filename] 6 (#$ . 104059)])
(defalias 'dired-between-files #[0 "\212\300 )?\207" [dired-move-to-filename] 1])
#@444 Move to the ARGth next marked file.
ARG is the numeric prefix argument and defaults to 1.
If WRAP is non-nil, which happens interactively, wrap around
to the beginning of the buffer and search from there, if no
marked file is found after this line.
Optional argument OPOINT specifies the buffer position to
return to if no ARGth marked file is found; it defaults to
the position where this command was invoked.

(fn ARG &optional WRAP OPOINT)
(defalias 'dired-next-marked-file #[769 "\211\204`\262\301V\203\302\303\304$\202\"\305 \210\306\303\304[$\203(\307 \207\2043\211b\210\310\311!\207\312\313!\210\301V\203Ae\202Bdb\210\314\303#\207" [dired-re-mark 0 re-search-forward nil t beginning-of-line re-search-backward dired-move-to-filename error "No next marked file" message "(Wraparound for next marked file)" dired-next-marked-file] 8 (#$ . 104579) "p\np"])
#@290 Move to the ARGth previous marked file.
ARG is the numeric prefix argument and defaults to 1.
If WRAP is non-nil, which happens interactively, wrap around
to the end of the buffer and search backwards from there, if
no ARGth marked file is found before this line.

(fn ARG &optional WRAP)
(defalias 'dired-prev-marked-file #[513 "\300[\"\207" [dired-next-marked-file] 5 (#$ . 105468) "p\np"])
#@13 

(fn FILE)
(defalias 'dired-file-marker #[257 "\212\300!\205\301 \210g\302\232?\205g)\207" [dired-goto-file beginning-of-line 32] 3 (#$ . 105869)])
#@18 

(fn START END)
(defalias 'dired-mark-files-in-region #[514 "\304V\203\f\305\306!\210b\210`W\205F`W\203&\307 \203&\310y\210\202	\304\311!)\262\204@\312\313\304\"\203@\314\310!\210c\210\310y\210\202)\207" [inhibit-read-only dired-re-dot inhibit-changing-match-data dired-marker-char t error "start > end" dired-between-files 1 looking-at dired-get-filename nil delete-char] 5 (#$ . 106029)])
#@383 Mark the file at point in the Dired buffer.
If the region is active, mark all files in the region.
Otherwise, with a prefix arg, mark files on the next ARG lines.

If on a subdir headerline, mark all its files except `.' and `..'.

Use \[dired-unmark-all-files] to remove all marks
and \[dired-unmark] on a subdir to remove the marks in
this subdir.

(fn ARG &optional INTERACTIVE)
(defalias 'dired-mark #[513 "\211\203\301 \203\212\302 \303 \304b\210\305 b\210\305 \"\266\202)\207\306 \203(\212\307 )\207\310\311\312!\313\")\207" [inhibit-read-only use-region-p region-beginning region-end dired-mark-files-in-region line-beginning-position dired-get-subdir dired-mark-subdir-files t dired-repeat-over-lines prefix-numeric-value #[0 "\301\302!\210c\207" [dired-marker-char delete-char 1] 2]] 7 (#$ . 106448) (list current-prefix-arg t)])
#@356 Unmark the file at point in the Dired buffer.
If the region is active, unmark all files in the region.
Otherwise, with a prefix arg, unmark files on the next ARG lines.

If looking at a subdir, unmark all its files except `.' and `..'.
If the region is active in Transient Mark mode, unmark all files
in the active region.

(fn ARG &optional INTERACTIVE)
(defalias 'dired-unmark #[513 "\301\302\")\207" [dired-marker-char 32 dired-mark] 5 (#$ . 107304) (list current-prefix-arg t)])
#@358 In Dired, flag the current line's file for deletion.
If the region is active, flag all files in the region.
Otherwise, with a prefix arg, flag files on the next ARG lines.

If on a subdir headerline, flag all its files except `.' and `..'.
If the region is active in Transient Mark mode, flag all files
in the active region.

(fn ARG &optional INTERACTIVE)
(defalias 'dired-flag-file-deletion #[513 "\302\")\207" [dired-del-marker dired-marker-char dired-mark] 5 (#$ . 107797) (list current-prefix-arg t)])
#@243 In Dired, move up lines and remove marks or deletion flags there.
Optional prefix ARG says how many lines to unmark/unflag; default
is one line.
If the region is active in Transient Mark mode, unmark all files
in the active region.

(fn ARG)
(defalias 'dired-unmark-backward #[257 "\300[\301\"\207" [dired-unmark t] 4 (#$ . 108315) "p"])
#@230 Toggle marks: marked files become unmarked, and vice versa.
Flagged files (indicated with flags such as `C' and `D', not
with `*') are not affected, and `.' and `..' are never toggled.
As always, hidden subdirs are not affected.
(defalias 'dired-toggle-marks #[0 "\212eb\210\304m?\2058\305 \2042	\304\306!)\262\2042\307\310``Tg\311=\203-\311D\2020\311D$\210\312y\210\202*\207" [inhibit-read-only dired-re-dot inhibit-changing-match-data dired-marker-char t dired-between-files looking-at apply subst-char-in-region 32 1] 6 (#$ . 108661) nil])
#@61 History list of regular expressions used in Dired commands.
(defvar dired-regexp-history nil (#$ . 109223))
#@75 Read a regexp using `read-regexp'.

(fn PROMPT &optional DEFAULT HISTORY)
(defalias 'dired-read-regexp #[769 "\300\206\301#\207" [read-regexp dired-regexp-history] 7 (#$ . 109337)])
(make-obsolete 'dired-read-regexp 'read-regexp "24.5")
#@306 Mark all files matching REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.

REGEXP is an Emacs regexp, not a shell wildcard.  Thus, use `\.o$' for
object files--just `.o' will mark more than you might think.

(fn REGEXP &optional MARKER-CHAR)
(defalias 'dired-mark-files-regexp #[513 "\211\206\305\306\212\307\262\310\311\312=\203\313\202%\n=\203$\314\202%\315\316\n=\2030\317\2021\320$\210eb\210m\204{\305\321!)\262\204ul\204u\322\305\211\"\211\205_\306\305\323#)\266\203\262\203ugU\204u\324\325!\210c\210\211T\262\325y\210\2026\310\326\316\327!\312=\203\214\330\202\215\320\n=\203\227\331\202\230\332&\210)\211\307V\205\243\211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-dot inhibit-changing-match-data t nil 0 message "%s %ss%s..." 32 "Unmarking" "Flagging" "Marking" "matching file" " for deletion" "" looking-at dired-get-filename string-match delete-char 1 "%s %s%s %s%s" dired-plural-s "un" "flagged" "marked"] 12 (#$ . 109586) (byte-code "\301\203	\302\202\n\303\304P\305\306\307\211\"\306\305\307\"\205#\310\311\306\305\307\"\307\"!\312PDB\313#\205,\314D\207" [current-prefix-arg read-regexp "Unmark" "Mark" " files (regexp): " nil dired-get-filename t regexp-quote file-name-extension "\\'" dired-regexp-history 32] 9)])
#@56 Display the number and total size of the marked files.
(defalias 'dired-number-of-marked-files #[0 "\301\302\211\211\303$\211A\204\304\202#\211G\305U\203!\211@\303=\203!\306\202#\211G\302\304:\203G@\262;\203@\211\307!\3108\262\\\262A\262\202&\266\202\304U\203S\311\312!\210\311\313\211\306U\203`\314\202a\315!$\207" [byte-count-to-string-function dired-get-marked-files nil t 0 2 1 file-attributes 7 message "No marked files" "%d marked file%s (%s total size)" "" "s"] 9 (#$ . 110974) nil])
#@464 Mark all files with contents containing REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.

Note that if a file is visited in an Emacs buffer, and
`dired-always-read-filesystem' is nil, this command will
look in the buffer without revisiting the file, so the results might
be inconsistent with the file on disk if its contents has changed
since it was last visited.

(fn REGEXP &optional MARKER-CHAR)
(defalias 'dired-mark-files-containing-regexp #[513 "\211\206\306\307\212\310\262\311\312\313=\203\314\202%\n=\203$\315\202%\316\317\n=\2030\320\2021\321$\210eb\210m\204\302\306\322!)\262\204\274l\204\274\323\307\306\"\211\205\246\324!\205\246\325!?\205\246\326!\311\327\"\210\211\203\201
\204\201r\211q\210\212eb\210\330\307\306#*\202\244\331\332!r\211q\210\333\310\334\335\336!\337\"\340$\216\341!\210eb\210\330\307\306#*\262\262\262\203\274gU\204\274\342\343!\210c\210\211T\262\343y\210\2026\311\344\317\345!\313=\203\323\346\202\324\321\n=\203\336\347\202\337\350&\210)\211\310V\205\352\211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-dot inhibit-changing-match-data dired-always-read-filesystem t nil 0 message "%s %ss%s..." 32 "Unmarking" "Flagging" "Marking" "matching file" " for deletion" "" looking-at dired-get-filename file-readable-p file-directory-p get-file-buffer "Checking %s" re-search-forward generate-new-buffer " *temp*" make-byte-code "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents delete-char 1 "%s %s%s %s%s" dired-plural-s "un" "flagged" "marked"] 13 (#$ . 111499) (byte-code "\301\203	\302\202\n\303\304P\305\306#\205\307D\207" [current-prefix-arg read-regexp "Unmark" "Mark" " files containing (regexp): " nil dired-regexp-history 32] 4)])
#@249 In Dired, flag all files containing the specified REGEXP for deletion.
The match is against the non-directory part of the filename.  Use `^'
  and `$' to anchor matches.  Exclude subdirs by hiding them.
`.' and `..' are never flagged.

(fn REGEXP)
(defalias 'dired-flag-files-regexp #[257 "\301\"\207" [dired-del-marker dired-mark-files-regexp] 4 (#$ . 113383) (byte-code "\300\301\302\303#C\207" [read-regexp "Flag for deletion (regexp): " nil dired-regexp-history] 4)])
#@97 Mark all symbolic links.
With prefix argument, unmark or unflag all those files.

(fn UNFLAG-P)
(defalias 'dired-mark-symlinks #[257 "\211\203\305\202	\306\307\212\310\262\311\312\305=\203\313\202)\n=\203(\314\202)\315\316\n=\2034\317\2025\320$\210eb\210m\204a\306\321!)\262\203[gU\204[\322\323!\210c\210\211T\262\323y\210\202:\311\324\316\325!\305=\203r\326\202s\320\n=\203}\327\202~\330&\210)\211\310V\205\211\211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-sym inhibit-changing-match-data 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "symbolic link" " for deletion" "" looking-at delete-char 1 "%s %s%s %s%s" dired-plural-s "un" "flagged" "marked"] 11 (#$ . 113863) "P"])
#@123 Mark all directory file lines except `.' and `..'.
With prefix argument, unmark or unflag all those files.

(fn UNFLAG-P)
(defalias 'dired-mark-directories #[257 "\211\203\306\202	\307\310\212\311\262\312\313\306=\203\314\202)\n=\203(\315\202)\316\317\n=\2034\320\2025\321$\210eb\210m\204m\307\322!)\262\203g
\307\322!)\262\204ggU\204g\323\324!\210c\210\211T\262\324y\210\202:\312\325\317\326!\306=\203~\327\202\321\n=\203\211\330\202\212\331&\210)\211\311V\205\225\211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-dir inhibit-changing-match-data dired-re-dot 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "directory file" " for deletion" "" looking-at delete-char 1 "%s %s%s %s%s" dired-plural-s "un" "flagged" "marked"] 11 (#$ . 114639) "P"])
#@99 Mark all executable files.
With prefix argument, unmark or unflag all those files.

(fn UNFLAG-P)
(defalias 'dired-mark-executables #[257 "\211\203\305\202	\306\307\212\310\262\311\312\305=\203\313\202)\n=\203(\314\202)\315\316\n=\2034\317\2025\320$\210eb\210m\204a\306\321!)\262\203[gU\204[\322\323!\210c\210\211T\262\323y\210\202:\311\324\316\325!\305=\203r\326\202s\320\n=\203}\327\202~\330&\210)\211\310V\205\211\211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-exe inhibit-changing-match-data 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "executable file" " for deletion" "" looking-at delete-char 1 "%s %s%s %s%s" dired-plural-s "un" "flagged" "marked"] 11 (#$ . 115487) "P"])
#@160 Flag for deletion files whose names suggest they are auto save files.
A prefix argument says to unmark or unflag those files instead.

(fn &optional UNFLAG-P)
(defalias 'dired-flag-auto-save-files #[256 "\211\203\305\202	\306\307\212\310\262\311\312	\305=\203\313\202)	=\203(\314\202)\315\316	=\2034\317\2025\320$\210eb\210m\204\215\212\307\210h\321=\206Th\322=\205T\323u\210h\321=)\203\207\306\324!)\262\204\207\325\306\211\"\211\205q\326\327!!\262\203\207g	U\204\207\330\331!\210	c\210\211T\262\331y\210\202:\311\332\316\333!	\305=\203\236\334\202\237\320	=\203\251\335\202\252\336&\210)\211\310V\205\265\211)\266\202)\207" [dired-del-marker dired-marker-char inhibit-read-only dired-re-dir inhibit-changing-match-data 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "auto save file" " for deletion" "" 35 42 -1 looking-at dired-get-filename auto-save-file-name-p file-name-nondirectory delete-char 1 "%s %s%s %s%s" dired-plural-s "un" "flagged" "marked"] 11 (#$ . 116270) "P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dired-garbage-files-regexp funcall function #[0 "\300\207" ["\\(?:\\.\\(?:aux\\|bak\\|dvi\\|log\\|orig\\|rej\\|toc\\)\\)\\'"] 1] "Regular expression to match \"garbage\" files for `dired-flag-garbage-files'." :type regexp :group dired] 8)
#@70 Flag for deletion all files that match `dired-garbage-files-regexp'.
(defalias 'dired-flag-garbage-files #[0 "\301!\207" [dired-garbage-files-regexp dired-flag-files-regexp] 2 (#$ . 117644) nil])
#@138 Flag all backup files (names ending with `~') for deletion.
With prefix argument, unmark or unflag these files.

(fn &optional UNFLAG-P)
(defalias 'dired-flag-backup-files #[256 "\211\203\305\202	\306\307\212\310\262\311\312	\305=\203\313\202)	=\203(\314\202)\315\316	=\2034\317\2025\320$\210eb\210m\204\205\212\307\210h\321=\203K\322u\210h)\323=\203\306\324!)\262\204\325\306\211\"\211\205i\326!\262\203g	U\204\327\330!\210	c\210\211T\262\330y\210\202:\311\331\316\332!	\305=\203\226\333\202\227\320	=\203\241\334\202\242\335&\210)\211\310V\205\255\211)\266\202)\207" [dired-del-marker dired-marker-char inhibit-read-only dired-re-dir inhibit-changing-match-data 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "backup file" " for deletion" "" 42 -1 126 looking-at dired-get-filename backup-file-name-p delete-char 1 "%s %s%s %s%s" dired-plural-s "un" "flagged" "marked"] 11 (#$ . 117848) "P"])
#@112 Change all OLD marks to NEW marks.
OLD and NEW are both characters used to mark files.

(fn &optional OLD NEW)
(defalias 'dired-change-marks #[512 "\301=\204\f\211\301=\203\302 \207\303\304\"\305\212eb\210\306\307\305#\205O\310U\203?\311 \312\313\314\315\316!\317\"\320$\216\321\322\305\")\262\202@\305\203\323\313\224\313\225$\210\202*\207" [inhibit-read-only 13 ding format "\n%c" t search-forward nil 32 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 dired-get-filename no-dir subst-char-in-region] 10 (#$ . 118815) (byte-code "\301\302\303!\210\304 \302\305\"\210\304 )D\207" [cursor-in-echo-area t message "Change (old mark): " read-char "Change %c marks to (new mark): "] 4)])
#@54 Remove all marks from all files in the Dired buffer.
(defalias 'dired-unmark-all-marks #[0 "\300\301!\207" [dired-unmark-all-files 13] 2 (#$ . 119573) nil])
#@257 Remove a specific mark (or any mark) from every file.
After this command, type the mark character to remove,
or type RET to remove all marks.
With prefix arg, query for each marked file.
Type \[help-command] at that time for help.

(fn MARK &optional ARG)
(defalias 'dired-unmark-all-files #[513 "\212\305\306\307\211\310\311\"\312eb\210\313=\203\314\f\307\306#\202$\315\307\306#\203L\203=\316\306\211\"\211\2058\317\302\320#\262\203\321`S`h\322$\210T\262\202\323\324U\203W\325\202X\326\",\266\202)\207" [inhibit-read-only case-fold-search dired-unmark-all-files-query help-form dired-re-mark 0 t nil format "\n%c" "Type SPC or `y' to unmark one file, DEL or `n' to skip to next,\n`!' to unmark all remaining files with no more questions." 13 re-search-forward search-forward dired-get-filename dired-query "Unmark file `%s'? " subst-char-in-region 32 message 1 "1 mark removed" "%d marks removed"] 10 (#$ . 119737) "cRemove marks (RET means all): \nP"])
(defvar dired-log-buffer "*Dired log*")
#@184 Pop up a buffer with error log output from Dired.
A group of errors from a single command ends with a formfeed.
Thus, use \[backward-page] to find the beginning of a group of errors.
(defalias 'dired-why #[0 "\301!\205.\302 \303\301!!\304\305\306\307\310!\311\"\312$\216\313!\210db\210\314y\210\315\316!\210\317\305!)\266\202\207" [dired-log-buffer get-buffer selected-window display-buffer make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window -1 backward-page 1 recenter] 8 (#$ . 120765) nil])
#@23 

(fn LOG &rest ARGS)
(defalias 'dired-log #[385 "pr\302!q\210db\210\303;\203\"\203\304\305#\202c\202O\306!\203.\307!\202O\303=\205O\310\311!\210n\204?\312c\210\313 \305\314\315!\"\261\210db\210\316c*\207" [dired-log-buffer inhibit-read-only get-buffer-create t apply format-message bufferp insert-buffer-substring backward-page 1 "\n" current-time-string "	Buffer `%s'\n" buffer-name "\f\n"] 8 (#$ . 121299)])
#@243 State a summary of a command's failures, in echo area and log buffer.
STRING is an overall summary of the failures.
FAILURES is a list of file names that we failed to operate on,
or nil if file names are not applicable.

(fn STRING FAILURES)
(defalias 'dired-log-summary #[514 "\211G\301U\203$\302\303rq\210db\210\304\301!\210l\203\301y\210`d{)\"\210\2022\302\203-\305\202.\306#\210\307\310\310Q!\210\307\311!\207" [dired-log-buffer 1 message "%s" backward-page "%s--type ? for details (%s)" "%s--type ? for details" dired-log "\n" t] 6 (#$ . 121739)])
#@391 String of `ls' switches (single letters) except "t" that influence sorting.

This indicates to Dired which option switches to watch out for because they
will change the sorting order behavior of `ls'.

To change the default sorting order (e.g. add a `-v' option), see the
variable `dired-listing-switches'.  To temporarily override the listing
format, use `\[universal-argument] \[dired]'.
(defvar dired-ls-sorting-switches "SXU" (#$ . 122310))
#@51 Regexp recognized by Dired to set `by date' mode.
(defvar dired-sort-by-date-regexp (concat "\\(\\`\\| \\)-[^- ]*t[^ " dired-ls-sorting-switches "]*\\(\\(\\`\\| +\\)\\(--[^ ]+\\|-[^- t" dired-ls-sorting-switches "]+\\)\\)* *$") (#$ . 122761))
#@51 Regexp recognized by Dired to set `by name' mode.
(defvar dired-sort-by-name-regexp (concat "\\`\\(\\(\\`\\| +\\)\\(--[^ ]+\\|-[^- t" dired-ls-sorting-switches "]+\\)\\)* *$") (#$ . 123010))
#@116 Non-nil means the Dired sort command is disabled.
The idea is to set this buffer-locally in special Dired buffers.
(defvar dired-sort-inhibit nil (#$ . 123208))
(defalias 'dired-sort-set-mode-line #[0 "\306=\2058\307\n\307\310\311#)\266\203\203\312\2023
\307\310\311#)\266\203\2030\313\2023\314P)\315 \207" [major-mode case-fold-search dired-sort-by-name-regexp dired-actual-switches inhibit-changing-match-data dired-sort-by-date-regexp dired-mode nil t string-match "Dired by name" "Dired by date" "Dired " force-mode-line-update mode-name] 7])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias dired-sort-set-modeline dired-sort-set-mode-line nil make-obsolete "24.3"] 4)
#@142 Toggle sorting by date, and refresh the Dired buffer.
With a prefix argument, edit the current listing switches instead.

(fn &optional ARG)
(defalias 'dired-sort-toggle-or-edit #[256 "\203\302\303!\210\211\203\304\305\306	\"!\207\307 \207" [dired-sort-inhibit dired-actual-switches error "Cannot sort this Dired buffer" dired-sort-other read-string "ls switches (must contain -l): " dired-sort-toggle] 5 (#$ . 123927) "P"])
(defalias 'dired-sort-toggle #[0 "	\304\305\306#)\266\203\307\304\306	\"\203>\310\311	\"\312\232\2033\310\313	\"\312\232\2033\314\312\305\211	$\202\314\312\305\211	\315%\202\204Z	\316	\304\305\306#)\266\203\203W\317\202X\320P)\266\321 \210\322 \207" [dired-sort-by-date-regexp dired-actual-switches inhibit-changing-match-data case-fold-search nil t string-match "\\(\\`\\| \\)-\\([a-su-zA-Z]*\\)\\(t\\)\\([^ ]*\\)" match-string 2 "" 4 replace-match 3 "\\`-[[:alnum:]]+\\'" "t" " -t" dired-sort-set-mode-line revert-buffer] 10])
#@30 

(fn REGEXP NEWTEXT STRING)
(defalias 'dired-replace-in-string #[771 "\300\301\302\211\303#\203(\301\224\262\301\225\262\304#Q\262\211\262\202\304\"P\207" ["" 0 nil string-match substring] 12 (#$ . 124918)])
#@311 Specify new `ls' SWITCHES for current Dired buffer.
Values matching `dired-sort-by-date-regexp' or `dired-sort-by-name-regexp'
set the minor mode accordingly, others appear literally in the mode line.
With optional second arg NO-REVERT, don't refresh the listing afterwards.

(fn SWITCHES &optional NO-REVERT)
(defalias 'dired-sort-other #[513 "\301!\210\302 \210\211\206\303 \207" [dired-actual-switches dired-sort-R-check dired-sort-set-mode-line revert-buffer] 4 (#$ . 125157)])
#@55 Value of `dired-subdir-alist' before -R switch added.
(defvar dired-subdir-alist-pre-R nil (#$ . 125650))
(make-variable-buffer-local 'dired-subdir-alist-pre-R)
#@255 Additional processing of -R in ls option string SWITCHES.
Saves `dired-subdir-alist' when R is set and restores saved value
minus any directories explicitly deleted when R is cleared.
To be called first in body of `dired-sort-other', etc.

(fn SWITCHES)
(defalias 'dired-sort-R-check #[257 "\303!\203\303!\204	\211\207\303!\205K\303!?\205K\n\203D\304\n\203<\305\n@@	\"\2035\n@B\262\nA\211\204&\306!\262\202I\306	!@C\211\207" [dired-actual-switches dired-subdir-alist dired-subdir-alist-pre-R dired-switches-recursive-p nil assoc reverse] 6 (#$ . 125818)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dired-recursive-copies funcall function #[0 "\300\207" [top] 1] "Whether Dired copies directories recursively.\nIf nil, never copy recursively.\n`always' means to copy recursively without asking.\n`top' means to ask for each directory at top level.\nAny other value means to ask for each directory." :type (choice :tag "Copy directories" (const :tag "No recursive copies" nil) (const :tag "Ask for each directory" t) (const :tag "Ask for each top directory only" top) (const :tag "Copy directories without asking" always)) :group dired] 8)
(defalias 'dired-dnd-popup-notice #[0 "\300\301!\207" [message-box "Dired recursive copies are currently disabled.\nSee the variable `dired-recursive-copies'."] 2])
#@12 

(fn URI)
(defalias 'dired-dnd-do-ask-action #[257 "\300\301\302\303\304BD\"\211\205\305\"\207" [x-popup-menu t "What action?" "" (("Copy here" . copy) ("Move here" . move) ("Link here" . link) "--" ("Cancel")) dired-dnd-handle-local-file] 6 (#$ . 127194)])
#@211 Copy, move or link a file to the Dired directory.
URI is the file to handle, ACTION is one of copy, move, link or ask.
Ask means pop up a menu for the user to select one of copy, move or link.

(fn URI ACTION)
(defalias 'dired-dnd-handle-local-file #[514 "\303\304!\210\305\306\"\211\205\307 \310!P\205\245\311=\203\"\312!\202\245\313>\2037\314!\2037\2047\315 \202\245\316>\205\245\317!\205I\320\321\322\"!\323\211\203\324\302!\203\n\203\325!@\211\262\203\n\326=\204u\320\321\327\"!\203\330\331#\210\332!\210\333\267\202\235\334#\210\202\235\335#\210\202\235\336#\210\332!\210)\266\203\207" [dired-recursive-copies dired-overwrite-confirmed dired-backup-overwrite require dired-aux dnd-get-local-file-name t dired-current-directory file-name-nondirectory ask dired-dnd-do-ask-action (copy private) file-directory-p dired-dnd-popup-notice (copy private move link) file-exists-p y-or-n-p format-message "Overwrite existing file `%s'? " nil boundp find-backup-file-name always "Make backup for existing file `%s'? " rename-file 0 dired-relist-entry #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copy 133 private 133 move 142 link 151)) dired-copy-file dired-rename-file make-symbolic-link] 11 (#$ . 127464)])
#@286 Copy, move or link a file to the Dired directory if it is a local file.
URI is the file to handle.  If the hostname in the URI isn't local, do nothing.
ACTION is one of copy, move, link or ask.
Ask means pop up a menu for the user to select one of copy, move or link.

(fn URI ACTION)
(defalias 'dired-dnd-handle-file #[514 "\300!\211\205\301\"\207" [dnd-get-local-file-uri dired-dnd-handle-local-file] 6 (#$ . 128775)])
#@66 Auxiliary information to be saved in desktop file.

(fn DIRNAME)
(defalias 'dired-desktop-buffer-misc-data #[257 ":\203\302@\"AB\202\302\"\303\304\305\306\307\310!\311\"\312\313%	\"\237AB\207" [dired-directory dired-subdir-alist desktop-file-name mapcar make-byte-code 257 "\301@\300\"\207" vconcat vector [desktop-file-name] 4 "\n\n(fn F)"] 9 (#$ . 129207)])
#@91 Restore a Dired buffer specified in a desktop file.

(fn FILE-NAME BUFFER-NAME MISC-DATA)
(defalias 'dired-restore-desktop-buffer #[771 "\211@\211:\203\f\211@\202
\211\301\302!!\2033\3031(\304!\210\305\306A\"\210p0\202A\307\310\"\210\311\262\202A\307\312\"\210\203@\313\314!\210\311\207" [desktop-missing-file-warning file-directory-p file-name-directory (debug error) dired mapc dired-maybe-insert-subdir message "Desktop: Problem restoring directory: %S" nil "Desktop: Directory %s no longer exists." sit-for 1] 9 (#$ . 129586)])
(byte-code "\300\301\302\"\210\303\304!\210\305\306!\207" [add-to-list desktop-buffer-mode-handlers (dired-mode . dired-restore-desktop-buffer) provide dired run-hooks dired-load-hook] 3)

Youez - 2016 - github.com/yon3zu
LinuXploit