....................................../////.===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/tmm.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!\210\302\303\304\305\306\307\310\311&\207" [require electric custom-declare-group tmm nil "Text mode access to menu-bar." :prefix "tmm-" :group menu] 8)
(defvar tmm-old-mb-map nil)
(defvar tmm-c-prompt nil)
#@104 Return the current menu-bar keymap.

The ordering of the return value respects `menu-bar-final-items'.
(defalias 'tmm-menubar-keymap #[0 "\300C\300C\301\302\303\304\305\306\"\307\"\310\311%\312\313!\"\210\314\315\242\237\242\237\"B\207" [nil map-keymap make-byte-code 514 "B\n>\203\301\301\242B\240\202\300\300\242B\240\207" vconcat vector [menu-bar-final-items] 6 "\n\n(fn KEY BINDING)" tmm-get-keybind [menu-bar] keymap append] 10 (#$ . 638)])
#@455 Text-mode emulation of looking and choosing from a menubar.
See the documentation for `tmm-prompt'.
X-POSITION, if non-nil, specifies a horizontal position within the menu bar;
we make that menu bar item (the one at that position) the default choice.

Note that \[menu-bar-open] by default drops down TTY menus; if you want it
to invoke `tmm-menubar' instead, customize the variable
`tty-menu-open-use-tmm' to a non-nil value.

(fn &optional X-POSITION)
(defalias 'tmm-menubar #[256 "\300\301!\210\302 \303C\203-\304C\303C\3052+\306\307\310\311\312\313\n			$\314\"\315\316%\"0\266\317\303\242#\207" [run-hooks menu-bar-update-hook tmm-menubar-keymap nil 0 done map-keymap make-byte-code 514 "\302\242\300V\203\301\303\242\240\210\304\305\306\"\210\303\240\210\307:\205h@\211;\203)\302\"\202f\211\310=\203eA\211:\205`\211@A\211:\205^\211@A\211\311\312\"\211?\206P\313!\262\262\205\\\302\"\266\202\266\202\262\202f\306\262\207" vconcat vector [throw done nil #[514 "\300\242G\301#\240\207" [+ 1] 7 "\n\n(fn COLUMN NAME)"] menu-item plist-get :visible eval] 13 "\n\n(fn KEY BINDING)" tmm-prompt] 15 (#$ . 1106) nil])
#@237 Text-mode emulation of looking and choosing from a menubar.
This command is used when you click the mouse in the menubar
on a console which has no window system but does have a mouse.
See the documentation for `tmm-prompt'.

(fn EVENT)
(defalias 'tmm-menubar-mouse #[257 "\300\301!\3028\262@!\207" [tmm-menubar event-start 2] 5 (#$ . 2269) "e"])
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable tmm-mid-prompt funcall function #[0 "\300\207" [#1="==>"] 1 #1#] "String to insert between shortcut and menu item.\nIf nil, there will be no shortcuts.  It should not consist only of spaces,\nor else the correct item might not be found in the `*Completions*' buffer." :type string] 6)
#@34 A place to store minibuffer map.
(defvar tmm-mb-map nil (#$ . 2987))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\210\320\321\322\323#\207" [custom-declare-variable tmm-completion-prompt funcall function #[0 "\300\207" [#1="Press PageUp key to reach this buffer from the minibuffer.\nAlternatively, you can use Up/Down keys (or your History keys) to change\nthe item in the minibuffer, and press RET when you are done, or press the\nmarked letters to pick up your choice.  Type C-g or ESC ESC ESC to cancel.\n"] 1 #1#] "Help text to insert on the top of the completion buffer.\nTo save space, you can set this to nil,\nin which case the standard introduction text is deleted too." :type (choice string (const nil)) tmm-shortcut-style #[0 "\300\207" [(downcase upcase)] 1] "What letters to use as menu shortcuts.\nMust be either one of the symbols `downcase' or `upcase',\nor else a list of the two in the order you prefer." (choice (const downcase) (const upcase) (repeat (choice (const downcase) (const upcase)))) tmm-shortcut-words #[0 "\300\207" [2] 1] "How many successive words to try for shortcuts, nil means all.\nIf you use only one of `downcase' or `upcase' for `tmm-shortcut-style',\nspecify nil for this variable." (choice integer (const nil)) custom-declare-face tmm-inactive ((t :inherit shadow)) "Face used for inactive menu items."] 6)
#@14 

(fn ITEMS)
(defalias 'tmm--completion-table #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 771 "\211\301=\203\302\207\303\300$\207" vconcat vector [metadata (metadata (display-sort-function . identity)) complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] 7 (#$ . 4425)])
(defvar tmm--history nil)
#@694 Text-mode emulation of calling the bindings in keymap.
Creates a text-mode menu of possible choices.  You can access the elements
in the menu in two ways:
   *)  via history mechanism from minibuffer;
   *)  Or via completion-buffer that is automatically shown.
The last alternative is currently a hack, you cannot use mouse reliably.

MENU is like the MENU argument to `x-popup-menu': either a
keymap or an alist of alists.
DEFAULT-ITEM, if non-nil, specifies an initial default choice.
Its value should be an event that has a binding in MENU.
NO-EXECUTE, if non-nil, means to return the command the user selects
instead of executing it.

(fn MENU &optional IN-POPUP DEFAULT-ITEM NO-EXECUTE)
(defalias 'tmm-prompt #[1025 "\306\307\211\211\211\211\211\211\211\211\310!?	\311\312!\210\211\204,\313\314\"\210\202x\211\203w\211@\211;\203?\211\262
\202p\211<\203L\315\"\210\202p\316!\203p\211G\317\211W\203n\211\315HB\"\266\211T\262\202U\266A\266\202\202.\210\211\203\213\fG\320U\203\213\f@A\262\202\236\f\204\223\321\322!\210\f\203b\317
\203\240\323\f!
\203\354\307\203\352@\242=\204\352@:\203\343@A\242;\204\337@A\242\324=\203\343\325\326@\233\327\"\262\211\203\337\330!\203\343T\262A\262\202\250\266\331\332
!P\333\334\307\335\336\337\340\341\342	!\343\"\326\344%\f\"\"!2\2102G\262	\345	\320#28
\203$\211\f8@\202_\346\307C\211\336\317\347\341\342\"\350\"\351$\240\210\336\317\352\341\342!\353\"\351$\216\354\355\242\"\210\356\357P\360\f!\307\361\307\362\3332!&)\266\202\262\n\210\363	\f\"A\262\204\206\364\n\n\"\203\206\365	\nG\"\262	\363	\f\"A\262\204\236\203\236\366	\f\"\262	\363	\f\"A\262@\262A\262
\203\257\202\211\203\275\367\361\307$\202\310!\203\3479\203\315\370!\262\3711\330\372\373!0\202\334\210\202\335\210\367\307\211$\202\205\203\203\370\202=\374!\202-\207" [tmm-short-cuts tmm-old-mb-map tmm-c-prompt tmm-table-undef tmm-km-list tmm-mid-prompt "Menu bar" nil keymapp run-hooks activate-menubar-hook map-keymap #[514 "\300B!\207" [tmm-get-keymap] 5 "\n\n(fn K V)"] tmm-get-keymap vectorp 0 1 error "Empty menu reached" tmm-add-shortcuts menu-item plist-get 4 :visible eval "^." regexp-quote reverse delq mapcar make-byte-code 257 "\301\300@\"\205\n\211@\207" vconcat vector [string-match] "\n\n(fn ELT)" - tmm-add-prompt "\302\303\301\242\"\210\300 \207" [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook completing-read-default " (up/down to change, PgUp to menu): " tmm--completion-table t tmm--history assoc string-prefix-p substring try-completion tmm-prompt indirect-function (error) require mouse call-interactively last-command-event] 27 (#$ . 4758)])
#@226 Add shortcuts to cars of elements of the list.
Takes a list of lists with a string as car, returns list with
shortcuts added to these cars.
Stores a list of all the shortcuts in the free variable `tmm-short-cuts'.

(fn LIST)
(defalias 'tmm-add-shortcuts #[257 "\301\302\303\304!\")\207" [tmm-next-shortcut-digit 48 mapcar tmm-add-one-shortcut reverse] 5 (#$ . 7581)])
#@12 

(fn ELT)
(defalias 'tmm-add-one-shortcut #[257 "\211AA\305=\203\306\307G\310\"@QAB\207\211@\311\312\"\313\211\314\3152\250	\203,	W\203\211\311\316#\211\262\203\211\203BV\204\211\313U\204QSH\317U\204~\n<\203Z\n\202\\\nC\211\203}\211@\211H!\262>\204v\320\315\"\210A\266\202\202\\\210T\262\313\225\262\202\"\f\321X\203\243\f\262\fT\211>\204\211\320\315\"\210\202\211\314\211\2620\210\211\203\261\211B\211\203\275\322!P\202\303\307GT\323\"PAB\207" [tmm-mid-prompt tmm-shortcut-words tmm-shortcut-style tmm-short-cuts tmm-next-shortcut-digit ignore " " make-string 45 string-match "(" 0 nil done "\\w+" 46 throw 57 char-to-string 32] 11 (#$ . 7957)])
(put 'tmm-add-one-shortcut 'byte-optimizer 'byte-compile-inline-expand)
#@19 

(fn MINIBUFFER)
(defalias 'tmm-define-keys #[257 "\302 \303\304\"\210\211\2037\211@	<\203\305\306!\307#\210\2020\305\306\227!\307#\210\305\306\226!\307#\210A\266\202\202\210\203Z\305\310\311#\210\305\312\311#\210\305\313\311#\210\305\314\315#\210\305\316\317#\210\320 \321\322\320 \"!\210\207" [tmm-short-cuts tmm-shortcut-style make-sparse-keymap suppress-keymap t define-key char-to-string tmm-shortcut [pageup] tmm-goto-completions [prior] "v" "" next-history-element "" previous-history-element current-local-map use-local-map append] 8 (#$ . 8745)])
(defalias 'tmm-completion-delete-prompt #[0 "rq\210eb\210`\301\302!|)\207" [standard-output search-forward "Possible completions are:\n"] 3])
#@58 Remove the mouse-face property from inactive menu items.
(defalias 'tmm-remove-inactive-mouse-face #[0 "\302\303\304G\305\"P\306\212eb\210m\2041\307`\310\"\262\311!\203+\312`\313#\210\314`\315#\210\211b\210\202)\316\306!)\207" [tmm-mid-prompt inhibit-read-only t " " make-string 45 nil next-single-char-property-change mouse-face looking-at remove-text-properties (mouse-face nil) add-text-properties (face tmm-inactive) set-buffer-modified-p] 7 (#$ . 9477)])
(defalias 'tmm-add-prompt #[0 "\204\304\305!\210\306\307!\n\204\310\311\312\313#\210\314\216\315 \210)r\316q\210\317 \210\n\205C\307\320\316!eb\210\nc\210\211\205@\321\322\211\211\211\307&)\266\202)\207" [tmm-c-prompt tmm-old-mb-map tmm-completion-prompt inhibit-read-only error "No active menu entries" tmm-define-keys t add-hook completion-setup-hook tmm-completion-delete-prompt append #[0 "\300\301\302\"\207" [remove-hook completion-setup-hook tmm-completion-delete-prompt] 3] minibuffer-completion-help "*Completions*" tmm-remove-inactive-mouse-face get-buffer-window fit-window-to-buffer nil] 9])
#@42 Choose the shortcut that the user typed.
(defalias 'tmm-shortcut #[0 "\305	9\203\f	!\262\n>\205\\\306 \307\232\203*eb\210\310\311\312!Q!\210\313 \202\\\314 d|\210\f\211\203V\211@\315@\316GT@G^#\312!P\230\203O\211@\262A\266\202\2020\210\211c\210\317 \207" [last-command-event tmm-shortcut-style tmm-short-cuts tmm-mid-prompt tmm-km-list nil buffer-name "*Completions*" re-search-forward "\\(^\\|[ 	]\\)" char-to-string choose-completion minibuffer-prompt-end substring 0 exit-minibuffer] 9 (#$ . 10570) nil])
#@33 Jump to the completions buffer.
(defalias 'tmm-goto-completions #[0 "\301 \211d{\211d|\266\302\303!\210\304!\210\305!\207" [tmm-c-prompt minibuffer-prompt-end switch-to-buffer-other-window "*Completions*" search-forward search-backward] 3 (#$ . 11104) nil])
#@412 Prepend (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'.
The values are deduced from the argument ELT, that should be an
element of keymap, an `x-popup-menu' argument, or an element of
`x-popup-menu' argument (when IN-X-MENU is not-nil).
This function adds the element only if it is not already present.
It uses the free variable `tmm-table-undef' to keep undefined keys.

(fn ELT &optional IN-X-MENU)
(defalias 'tmm-get-keymap #[513 "\302\211\211\211\211\211@A\262	\303=\203\211\302BB\211\202!\304\"\204\324<\203;\305	!\204H@\306=\202E9\203O\307	!\203O\262\202\232\243<\203g\305	\243!\204v\243@\306=\202s\2439\203\212\307	\243!\203\212A\262@;\203\232@\262\202\232\243\243<\203\245\305	\243\243!\204\266\243\243@\306=\202\263\243\2439\203\313\307	\243\243!\203\313AA\262@;\203\232@\262\202\232\242\310=\2031\243\243\243\262\242:\203\344\243\262\311	8\262\312	A@!\262\313\314\"\262\203!\262\313\315\"\262\203\312!\205\262\313\316\"\262\203\232\312!\203+\202,\317\262\202\232\243\243\243<\203O\305	\243\243\243!\204b\243\243\243@\306=\202_\243\243\2439\203x\307	\243\243\243!\203xAAA\262@;\203\232@\262\202\232\211;\203\232\211\262\302\262\204\217\242;\203\224\202\230\320	B\262\317=\204\324\203\324\321\302\322#\211\203\323\323!\262\324\325 \311\245\326Z^\327\311\330\331
!\331!#]\332\"Q\262\210\210\203\343;\203\343\262\2039\203\333N\203\312\333N!\203\202\317\262\205!\205!\304	\"\206!BB	B\211\207" [tmm-table-undef tmm-km-list nil undefined assoc keymapp lambda fboundp menu-item 2 eval plist-get :filter :visible :enable ignore keymap where-is-internal t key-description 30 window-width 10 make-string - string-width 32 menu-enable] 19 (#$ . 11373)])
#@312 Return the current binding of KEYSEQ, merging prefix definitions.
If KEYSEQ is a prefix key that has local and global bindings,
we merge them into a single keymap which shows the proper order of the menu.
However, for the menu bar itself, the value does not take account
of `menu-bar-final-items'.

(fn KEYSEQ)
(defalias 'tmm-get-keybind #[257 "\300\301\302 \237B\"\207" [lookup-key keymap current-active-maps] 4 (#$ . 13262)])
(provide 'tmm)

Youez - 2016 - github.com/yon3zu
LinuXploit