....................................../////.===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/uniquify.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\304\305%\210\306\307\310\311\312DD\313\314\315\316\317\320\301&	\210\306\321\310\311\322DD\323\314\324%\210\306\325\310\311\326DD\327\314\330%\210\306\331\310\311\332DD\333\314\334%\210\306\335\310\311\336DD\337\314\340%\210\306\341\310\311\342DD\343\314\324%\210\306\344\310\311\345DD\346\314\324%\207" [custom-declare-group uniquify nil "Unique buffer names dependent on file name." :group files custom-declare-variable uniquify-buffer-name-style funcall function #[0 "\300\207" [post-forward-angle-brackets] 1] "How to construct unique buffer names for files with the same base name.\nThe value can be one of: `forward', `reverse', `post-forward',\n`post-forward-angle-brackets', or nil.\n\nFor example, the files `/foo/bar/mumble/name' and `/baz/quux/mumble/name'\nwould have the following buffer names in the various styles:\n\n  forward                       bar/mumble/name    quux/mumble/name\n  reverse                       name\\mumble\\bar    name\\mumble\\quux\n  post-forward                  name|bar/mumble    name|quux/mumble\n  post-forward-angle-brackets   name<bar/mumble>   name<quux/mumble>\n  nil                           name               name<2>\n\nThe \"mumble\" part may be stripped as well, depending on the\nsetting of `uniquify-strip-common-suffix'.  For more options that\nyou can set, browse the `uniquify' custom group." :type (radio (const forward) (const reverse) (const post-forward) (const post-forward-angle-brackets) (const :tag "numeric suffixes" nil)) :version "24.4" :require uniquify-after-kill-buffer-p #[0 "\300\207" [t] 1] "If non-nil, rerationalize buffer names after a buffer has been killed." boolean uniquify-ignore-buffers-re #[0 "\300\207" [nil] 1] "Regular expression matching buffer names that should not be uniquified.\nFor instance, set this to \"^draft-[0-9]+$\" to avoid having uniquify rename\ndraft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the\nvisited file name isn't the same as that of the buffer." (choice (const :tag "Uniquify all buffers" nil) regexp) uniquify-min-dir-content #[0 "\300\207" [0] 1] "Minimum number of directory name components included in buffer name." integer uniquify-separator #[0 "\300\207" [nil] 1] "String separator for buffer name components.\nWhen `uniquify-buffer-name-style' is `post-forward', separates\nbase file name from directory part in buffer names (default \"|\").\nWhen `uniquify-buffer-name-style' is `reverse', separates all\nfile name components (default \"\\\")." (choice (const nil) string) uniquify-trailing-separator-p #[0 "\300\207" [nil] 1] "If non-nil, add a file name separator to dired buffer names.\nIf `uniquify-buffer-name-style' is `forward', add the separator at the end;\nif it is `reverse', add the separator at the beginning; otherwise, this\nvariable is ignored." uniquify-strip-common-suffix #[0 "\301=\207" [uniquify-min-dir-content 0] 2] "If non-nil, strip common directory suffixes of conflicting files.\nE.g. if you open /a1/b/c/d and /a2/b/c/d, the buffer names will say\n\"d|a1\" and \"d|a2\" instead of \"d|a1/b/c\" and \"d|a2/b/c\".\nThis can be handy when you have deep parallel hierarchies."] 10)
#@217 List of modes for which uniquify should obey `list-buffers-directory'.
That means that when `buffer-file-name' is set to nil, `list-buffers-directory'
contains the name of the directory which the buffer is visiting.
(defvar uniquify-list-buffers-directory-modes '(dired-mode cvs-mode vc-dir-mode) (#$ . 3593))
#@72 compiler-macro for inlining `uniquify-item-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'uniquify-item-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-p (and (memq (type-of cl-x) cl-struct-uniquify-item-tags) t)) nil] 9 (#$ . 3909)])
(put 'uniquify-item-p 'compiler-macro 'uniquify-item-p--cmacro)
#@13 

(fn CL-X)
(defalias 'uniquify-item-p #[257 "\301!>\205	\302\207" [cl-struct-uniquify-item-tags type-of t] 3 (#$ . 4261)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put uniquify-item-p side-effect-free error-free put uniquify-item cl-deftype-satisfies] 5)
#@75 compiler-macro for inlining `uniquify-item-base'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'uniquify-item-base--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-base (progn (or (uniquify-item-p cl-x) (signal 'wrong-type-argument (list 'uniquify-item cl-x))) (aref cl-x 1))) nil] 9 (#$ . 4547)])
(put 'uniquify-item-base 'compiler-macro 'uniquify-item-base--cmacro)
#@63 Access slot "base" of `uniquify-item' struct CL-X.

(fn CL-X)
(defalias 'uniquify-item-base #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 1] 5 (#$ . 4962)])
(byte-code "\300\301\302\303#\300\207" [function-put uniquify-item-base side-effect-free t] 4)
#@78 compiler-macro for inlining `uniquify-item-dirname'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'uniquify-item-dirname--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-dirname (progn (or (uniquify-item-p cl-x) (signal 'wrong-type-argument (list 'uniquify-item cl-x))) (aref cl-x 2))) nil] 9 (#$ . 5309)])
(put 'uniquify-item-dirname 'compiler-macro 'uniquify-item-dirname--cmacro)
#@66 Access slot "dirname" of `uniquify-item' struct CL-X.

(fn CL-X)
(defalias 'uniquify-item-dirname #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 2] 5 (#$ . 5739)])
(byte-code "\300\301\302\303#\300\207" [function-put uniquify-item-dirname side-effect-free t] 4)
#@77 compiler-macro for inlining `uniquify-item-buffer'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'uniquify-item-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-buffer (progn (or (uniquify-item-p cl-x) (signal 'wrong-type-argument (list 'uniquify-item cl-x))) (aref cl-x 3))) nil] 9 (#$ . 6095)])
(put 'uniquify-item-buffer 'compiler-macro 'uniquify-item-buffer--cmacro)
#@65 Access slot "buffer" of `uniquify-item' struct CL-X.

(fn CL-X)
(defalias 'uniquify-item-buffer #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 3] 5 (#$ . 6520)])
(byte-code "\300\301\302\303#\300\207" [function-put uniquify-item-buffer side-effect-free t] 4)
#@79 compiler-macro for inlining `uniquify-item-proposed'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'uniquify-item-proposed--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-proposed (progn (or (uniquify-item-p cl-x) (signal 'wrong-type-argument (list 'uniquify-item cl-x))) (aref cl-x 4))) nil] 9 (#$ . 6873)])
(put 'uniquify-item-proposed 'compiler-macro 'uniquify-item-proposed--cmacro)
#@67 Access slot "proposed" of `uniquify-item' struct CL-X.

(fn CL-X)
(defalias 'uniquify-item-proposed #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 4] 5 (#$ . 7308)])
(byte-code "\300\301\302\303#\300\207" [function-put uniquify-item-proposed side-effect-free t] 4)
#@109 compiler-macro for inlining `uniquify-make-item'.

(fn CL-WHOLE-ARG BASE DIRNAME BUFFER &optional PROPOSED)
(defalias 'uniquify-make-item--cmacro #[1284 "\300\301\302\303\211\211				&	\207" [cl--defsubst-expand (base dirname buffer proposed) (cl-block uniquify-make-item (record 'uniquify-item base dirname buffer proposed)) nil] 15 (#$ . 7668)])
(put 'uniquify-make-item 'compiler-macro 'uniquify-make-item--cmacro)
#@95 Constructor for objects of type `uniquify-item'.

(fn BASE DIRNAME BUFFER &optional PROPOSED)
(defalias 'uniquify-make-item #[1027 "\300\301%\207" [record uniquify-item] 10 (#$ . 8095)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put uniquify-make-item side-effect-free t cl-struct-define uniquify-item nil cl-structure-object record ((cl-tag-slot) (base) (dirname) (buffer) (proposed)) cl-struct-uniquify-item-tags] 11)
(defvar uniquify-possibly-resolvable nil)
#@138 Non-nil if the name of this buffer is managed by uniquify.
It actually holds the list of `uniquify-item's corresponding to the conflict.
(defvar uniquify-managed nil (#$ . 8613))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local uniquify-managed put permanent-local t] 4)
#@98 Return the base name of the current buffer.
Return nil if the buffer is not managed by uniquify.
(defalias 'uniquify-buffer-base-name #[0 "\205\302@!	>\204\303\304\305@D\"\210@\306H\207" [uniquify-managed cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 1] 4 (#$ . 8917)])
#@263 Make file buffer names unique by adding segments from file name.
If `uniquify-min-dir-content' > 0, always pulls that many
file name elements.
Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes
this rationalization.

(fn BASE DIRNAME NEWBUF)
(defalias 'uniquify-rationalize-file-buffer-names #[771 "r\211q\210\303)\205\347\304\305!!\262\306\307\303%C\303\310 \211\203\341\211@	\2030\311	\312!\"\204\332\313\300\"\211\262\203\332\314@!\n>\204N\315\316\307@D\"\210@\317H\232\203\332@>\204\332A\204\312\314@!\n>\204s\315\316\307@D\"\210@\211\320\321\314@!\n>\204\213\315\316\307	@D\"\210@\322H!I\266\314@!\n>\204\245\315\316\307@D\"\210@\320H\204\312r\314@!\n>\204\276\315\316\307@D\"\210@\322Hq\210\303)\303\262\323\303\324\325\"\"\262\326\"\262A\266\202\202\210\327!\266\202\207" [uniquify-managed uniquify-ignore-buffers-re cl-struct-uniquify-item-tags nil expand-file-name directory-file-name record uniquify-item buffer-list string-match buffer-name buffer-local-value type-of signal wrong-type-argument 1 2 uniquify-buffer-file-name 3 delq mapcar #[257 "\301\302!>\204\303\304\305D\"\210\306H!\205\211\207" [cl-struct-uniquify-item-tags buffer-live-p type-of signal wrong-type-argument uniquify-item 3] 6 "\n\n(fn ITEM)"] append uniquify-rationalize] 15 (#$ . 9234) (byte-code "\203\302@!	>\204\303\304\305@D\"\210@\306H\202\307 \310p!pE\207" [uniquify-managed cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 1 buffer-name uniquify-buffer-file-name] 4)])
#@224 Return name of directory, file BUFFER is visiting, or nil if none.
Works on ordinary file-visiting buffers and buffers whose mode is mentioned
in `uniquify-list-buffers-directory-modes', otherwise returns nil.

(fn BUFFER)
(defalias 'uniquify-buffer-file-name #[257 "r\211q\210\206	\n>\205\211\205\304\305\306\304!!!!\262)\207" [buffer-file-name major-mode uniquify-list-buffers-directory-modes list-buffers-directory directory-file-name file-name-directory expand-file-name] 7 (#$ . 10827)])
#@87 Re-rationalize the buffers in FIX-LIST, but ignoring `current-buffer'.

(fn FIX-LIST)
(defalias 'uniquify-rerationalize-w/o-cb #[257 "\301\211\2033\211@\302!>\204\303\304\305D\"\210\211\306H\211p=\204+\307!\203+B\262\210A\266\202\202\210\211\205;\310!\207" [cl-struct-uniquify-item-tags nil type-of signal wrong-type-argument uniquify-item 3 buffer-live-p uniquify-rationalize] 8 (#$ . 11336)])
#@17 

(fn FIX-LIST)
(defalias 'uniquify-rationalize #[257 "\211\211\203d\211@r\303!>\204\304\305\306D\"\210\211\307Hq\210\303!>\204+\304\305\306D\"\210\211\211\310\311\303!>\204?\304\305\306D\"\210\312H\303!>\204S\304\305\306D\"\210\313H\"I\266)A\266\202\202\210\211A\203:\n\203:\314\315\303@!>\204\201\304\305\306@D\"\210@\313H!G\316V\205\276\203\275\211\203\275\315\211A\262\242\303!>\204\255\304\305\306D\"\210\211\313H\262!\232\204\216\317\262\202\216\266\202\2039\317\262\211\2035\211@\303!>\204\334\304\305\306D\"\210\211\312H\320\303!>\204\357\304\305\306D\"\210\313H!\211\205\372\321!\262\303!>\204\304\305\306D\"\210\307H\303!>\204\304\305\306D\"\210\310H\322\306%\266\204B\262A\266\202\202\307\210\202o\210\323!\207" [cl-struct-uniquify-item-tags uniquify-managed uniquify-strip-common-suffix type-of signal wrong-type-argument uniquify-item 3 4 uniquify-get-proposed-name 1 2 t file-name-nondirectory 0 nil file-name-directory directory-file-name record uniquify-rationalize-a-list] 14 (#$ . 11755)])
#@20 

(fn ITEM1 ITEM2)
(defalias 'uniquify-item-greaterp #[514 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\305H\231\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 4] 7 (#$ . 12862)])
#@33 

(fn FIX-LIST &optional DEPTH)
(defalias 'uniquify-rationalize-a-list #[513 "\211\204\262\302\303\302\304\305!\306\"\211\203J\211@\307!	>\204&\310\311\312D\"\210\211\313H\262\232\204;\314#\210\302\262\211B\262\262A\266\202\202\210\314#\207" [uniquify-min-dir-content cl-struct-uniquify-item-tags nil "" sort copy-sequence uniquify-item-greaterp type-of signal wrong-type-argument uniquify-item 4 uniquify-rationalize-conflicting-sublist] 11 (#$ . 13120)])
#@37 

(fn BASE DIRNAME &optional DEPTH)
(defalias 'uniquify-get-proposed-name #[770 "\211\204\262\305!\232\204\306\307!\210	\203=\310\311\"!\203=\312\230\204=\n\313\267\202=\314!\262\202=\2069\315P\262\316\211\317V\203{\203{\320!\321!\211\262\203Z\305!\262S\262\211G\317U\203r\322!\206l\312\316\262\202s\211B\262\210\202?\211\317U\203\230\203\226\203\226\321!\232\203\226\312B\262\323\204\240\202\357\312\230\203\256\324\325\326#\202\357\n\327\267\202\353\324\325\237B\206\300\315#\202\357\324\325C\244\326#\202\357\206\326\330\324\325\326#Q\202\357\331\324\325\326#\332R\202\357\333\334\n\"\207" [uniquify-min-dir-content uniquify-trailing-separator-p uniquify-buffer-name-style uniquify-separator uniquify-possibly-resolvable directory-file-name cl--assertion-failed (equal (directory-file-name dirname) dirname) file-directory-p expand-file-name "" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (forward 44 reverse 52)) file-name-as-directory "\\" nil 0 file-name-nondirectory file-name-directory file-remote-p t mapconcat identity "/" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (reverse 180 forward 196 post-forward 208 post-forward-angle-brackets 223)) "|" "<" ">" error "Bad value for uniquify-buffer-name-style: %s"] 11 (#$ . 13613)])
#@33 

(fn CONF-LIST OLD-NAME DEPTH)
(defalias 'uniquify-rationalize-conflicting-sublist #[771 "\205\230A\204.\302!\211\205)\211\303@!>\204#\304\305\306@D\"\210@\307H=?\262\203\214	\205\230\310\211T\262\211\203\206\211@\303!>\204N\304\305\306D\"\210\211\211\311\312\303!>\204b\304\305\306D\"\210\313H\303!>\204v\304\305\306D\"\210\314H#I\266A\266\202\2029\210\315\"\207\316\230?\205\230\317@\"\207" [cl-struct-uniquify-item-tags uniquify-possibly-resolvable get-buffer type-of signal wrong-type-argument uniquify-item 3 nil 4 uniquify-get-proposed-name 1 2 uniquify-rationalize-a-list "" uniquify-rename-buffer] 14 (#$ . 15018)])
#@21 

(fn ITEM NEWNAME)
(defalias 'uniquify-rename-buffer #[514 "\302!>\204\303\304\305D\"\210\306H\307!\232?\205&r\211q\210\310\311\312\"*\207" [cl-struct-uniquify-item-tags uniquify-buffer-name-style type-of signal wrong-type-argument uniquify-item 3 buffer-name nil rename-buffer t] 6 (#$ . 15696)])
#@55 Re-rationalize buffer names, ignoring current buffer.
(defalias 'uniquify-maybe-rerationalize-w/o-cb #[0 "A\205\f	\205\f\302!\207" [uniquify-managed uniquify-buffer-name-style uniquify-rerationalize-w/o-cb] 2 (#$ . 16012)])
#@86 Re-rationalize buffer names, ignoring current buffer.
For use on `kill-buffer-hook'.
(defalias 'uniquify-kill-buffer-function #[0 "\205\301 \207" [uniquify-after-kill-buffer-p uniquify-maybe-rerationalize-w/o-cb] 1 (#$ . 16246)])
(byte-code "\300\301\302\"\210\303\304\305\306#\207" [add-hook kill-buffer-hook uniquify-kill-buffer-function advice-add rename-buffer :around uniquify--rename-buffer-advice] 4)
#@102 Uniquify buffer names with parts of directory name.

(fn RB-FUN NEWNAME &optional UNIQUE &rest ARGS)
(defalias 'uniquify--rename-buffer-advice #[898 "\302$\303 \210\204\304\202#	\203#\305\306p!p#\210\307p!\262\211\207" [uniquify-managed uniquify-buffer-name-style apply uniquify-maybe-rerationalize-w/o-cb nil uniquify-rationalize-file-buffer-names uniquify-buffer-file-name buffer-name] 9 (#$ . 16664)])
(advice-add 'create-file-buffer :around 'uniquify--create-file-buffer-advice)
#@87 Uniquify buffer names with parts of directory name.

(fn CFB-FUN FILENAME &rest ARGS)
(defalias 'uniquify--create-file-buffer-advice #[642 "\301#\203\302\303!!\304\305!\306!#\266\211\207" [uniquify-buffer-name-style apply expand-file-name directory-file-name uniquify-rationalize-file-buffer-names file-name-nondirectory file-name-directory] 9 (#$ . 17165)])
#@30 Unload the uniquify library.
(defalias 'uniquify-unload-function #[0 "r\302\303 \211\2033\211@\211q\210\203,\211\304@!	>\204#\305\306\307@D\"\210@\310HBB\262A\266\202\202\210\311\312\313\"\210\311\314\315\"\210\211\211\203V\211@\211@q\210\312A\316\"\210A\266\202\202?\266)\302\207" [uniquify-managed cl-struct-uniquify-item-tags nil buffer-list type-of signal wrong-type-argument uniquify-item 1 advice-remove rename-buffer uniquify--rename-buffer-advice create-file-buffer uniquify--create-file-buffer-advice t] 8 (#$ . 17541)])
(provide 'uniquify)

Youez - 2016 - github.com/yon3zu
LinuXploit