....................................../////.===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 : 18.222.21.218
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/facemenu.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 "\301\302\303#\210\301\304\305#\210\306\307\310\311\312\313\314\315&\210\316\317\320\321\322\323\312\307&\210\316\324\325\326\322\327\312\307&\210\316\330\310\331\322\332\312\307\333\334&	\207" [global-map define-key [C-down-mouse-2] facemenu-menu "\357" facemenu-keymap custom-declare-group facemenu nil "Create a face menu for interactively adding fonts to text." :group faces :prefix "facemenu-" custom-declare-variable facemenu-keybindings (mapcar 'purecopy '((default . "d") (bold . "b") (italic . "i") (bold-italic . "l") (underline . "u"))) "Alist of interesting faces and keybindings.\nEach element is itself a list: the car is the name of the face,\nthe next element is the key to use as a keyboard equivalent of the menu item;\nthe binding is made in `facemenu-keymap'.\n\nThe faces specifically mentioned in this list are put at the top of\nthe menu, in the order specified.  All other faces which are defined\nin `facemenu-listed-faces' are listed after them, but get no\nkeyboard equivalents.\n\nIf you change this variable after loading facemenu.el, you will need to call\n`facemenu-update' to make it take effect." :type (repeat (cons face string)) facemenu-new-faces-at-end t "Where in the menu to insert newly-created faces.\nThis should be nil to put them at the top of the menu, or t to put them\njust before \"Other\" at the end." boolean facemenu-listed-faces "List of faces to include in the Face menu.\nEach element should be a symbol, the name of a face.\nThe \"basic \" faces in `facemenu-keybindings' are automatically\nadded to the Face menu, and need not be in this list.\n\nThis value takes effect when you load facemenu.el.  If the\nlist includes symbols which are not defined as faces, they\nare ignored; however, subsequently defining or creating\nthose faces adds them to the menu then.  You can call\n`facemenu-update' to recalculate the menu contents, such as\nif you change the value of this variable,\n\nIf this variable is t, all faces that you apply to text\nusing the face menu commands (even by name), and all faces\nthat you define or create, are added to the menu.  You may\nfind it useful to set this variable to t temporarily while\nyou define some faces, so that they will be added.  However,\nif the value is no longer t and you call `facemenu-update',\nit will remove any faces not explicitly in the list." (choice (const :tag "List all faces" t) (const :tag "None" nil) (repeat symbol)) :version "22.1"] 10)
#@24 Menu keymap for faces.
(defvar facemenu-face-menu (byte-code "\301\302!\303\304\305\306!\307B#\210)\207" [map make-sparse-keymap "Face" define-key "o" purecopy "Other..." facemenu-set-face] 5) (#$ . 2881))
(byte-code "\301\300\"\210\302\300\303\304#\207" [facemenu-face-menu defalias put menu-enable (facemenu-enable-faces-p)] 4)
#@36 Menu keymap for foreground colors.
(defvar facemenu-foreground-menu (byte-code "\301\302!\303\304\305\306!\307B#\210)\207" [map make-sparse-keymap "Foreground Color" define-key "o" purecopy "Other..." facemenu-set-foreground] 5) (#$ . 3221))
(byte-code "\301\300\"\210\302\300\303\304#\207" [facemenu-foreground-menu defalias put menu-enable (facemenu-enable-faces-p)] 4)
#@36 Menu keymap for background colors.
(defvar facemenu-background-menu (byte-code "\301\302!\303\304\305\306!\307B#\210)\207" [map make-sparse-keymap "Background Color" define-key "o" purecopy "Other..." facemenu-set-background] 5) (#$ . 3603))
(byte-code "\301\300\"\210\302\300\303\304#\207" [facemenu-background-menu defalias put menu-enable (facemenu-enable-faces-p)] 4)
(defalias 'facemenu-enable-faces-p #[nil "\205	?\206\n\n\207" [font-lock-mode font-lock-defaults facemenu-add-face-function] 1])
#@43 Menu keymap for non-face text-properties.
(defvar facemenu-special-menu (byte-code "\301\302!\303\304\305\306!\307B#\210\303\310\305\311!\312B#\210\303\313\305\314!\315B#\210\303\316\305\317!\320B#\210\303\321\305\322!\323B#\210)\207" [map make-sparse-keymap "Special" define-key [115] purecopy "Remove Special" facemenu-remove-special [99] "Charset" facemenu-set-charset [116] "Intangible" facemenu-set-intangible [118] "Invisible" facemenu-set-invisible [114] "Read-Only" facemenu-set-read-only] 5) (#$ . 4118))
(defalias 'facemenu-special-menu facemenu-special-menu)
#@42 Submenu for text justification commands.
(defvar facemenu-justification-menu (byte-code "\301\302!\303\304\305\306!\307B#\210\303\310\305\311!\312B#\210\303\313\305\314!\315B#\210\303\316\305\317!\320B#\210\303\321\305\322!\323B#\210)\207" [map make-sparse-keymap "Justification" define-key [99] purecopy "Center" set-justification-center [98] "Full" set-justification-full [114] "Right" set-justification-right [108] "Left" set-justification-left [117] "Unfilled" set-justification-none] 5) (#$ . 4701))
(defalias 'facemenu-justification-menu facemenu-justification-menu)
#@35 Submenu for indentation commands.
(defvar facemenu-indentation-menu (byte-code "\301\302!\303\304\305\306!\307B#\210\303\310\305\311!\312B#\210\303\313\305\314!\315B#\210\303\316\305\317!\320B#\210)\207" [map make-sparse-keymap "Indentation" define-key [decrease-right-margin] purecopy "Indent Right Less" decrease-right-margin [increase-right-margin] "Indent Right More" increase-right-margin [decrease-left-margin] "Indent Less" decrease-left-margin [increase-left-margin] "Indent More" increase-left-margin] 5) (#$ . 5287))
(defalias 'facemenu-indentation-menu facemenu-indentation-menu)
#@33 Facemenu top-level menu keymap.
(defvar facemenu-menu nil (#$ . 5890))
(byte-code "\302\303!\211\304	\305\306\307!\310B#\210\304	\311\306\312!\313B#\210\304	\314\306\315!\316B#\210\304	\317\320\306\321!\322\323\324\257#\210\304	\325\320\306\326!\327\323\324\257#\210\304	\330\306\331!C#\210)\304	\332\306\333!\334B#\210\304	\335\306\336!\337B#\210\304	\340\306\331!C#\210\304	\341\306\342!\343B#\210\304	\344\306\345!\346B#\210\304	\347\306\350!\351B#\210\304	\352\306\353!\354B#\210)\355\300\"\207" [facemenu-menu map make-sparse-keymap "Text Properties" define-key [dc] purecopy "Display Colors" list-colors-display [df] "Display Faces" list-faces-display [dp] "Describe Properties" describe-text-properties [ra] menu-item "Remove Text Properties" facemenu-remove-all :enable mark-active [rm] "Remove Face Properties" facemenu-remove-face-props [s1] "--" [in] "Indentation" facemenu-indentation-menu [ju] "Justification" facemenu-justification-menu [s2] [sp] "Special Properties" facemenu-special-menu [bg] "Background Color" facemenu-background-menu [fg] "Foreground Color" facemenu-foreground-menu [fc] "Face" facemenu-face-menu defalias] 9)
#@137 Keymap for face-changing commands.
`Facemenu-update' fills in the keymap according to the bindings
requested in `facemenu-keybindings'.
(defvar facemenu-keymap (byte-code "\301\302!\303\304\305\306!\307B#\210\303\310\311#\210)\207" [map make-sparse-keymap "Set face" define-key "o" purecopy "Other..." facemenu-set-face "\357" font-lock-fontify-block] 5) (#$ . 7050))
(byte-code "\301\300\"\210\302\303\304\305\306\307\310\311&\210\302\312\304\313\306\314\310\311&\210\302\315\304\316\306\317\310\311&\207" [facemenu-keymap defalias custom-declare-variable facemenu-add-face-function nil "Function called at beginning of text to change or nil.\nThis function is passed the FACE to set and END of text to change, and must\nreturn a string which is inserted.  It may set `facemenu-end-add-face'." :type (choice (const :tag "None" nil) function) :group facemenu facemenu-end-add-face "String to insert or function called at end of text to change or nil.\nThis function is passed the FACE to set, and must return a string which is\ninserted." (choice (const :tag "None" nil) string function) facemenu-remove-face-function "When non-nil, this is a function called to remove faces.\nThis function is passed the START and END of text to change.\nMay also be t meaning to use `facemenu-add-face-function'." (choice (const :tag "None" nil) (const :tag "Use add-face" t) function)] 8)
#@99 Alist of colors, used for completion.
If this is nil, then the value of (defined-colors) is used.
(defvar facemenu-color-alist nil (#$ . 8439))
#@138 Add or update the "Face" menu in the menu bar.
You can call this to update things if you change any of the menu configuration
variables.
(defalias 'facemenu-update #[nil "\301\302\303!\"\207" [facemenu-keybindings facemenu-iterate facemenu-add-new-face facemenu-complete-face-list] 4 (#$ . 8590) nil])
#@802 Apply FACE to the region or next character typed.

If the region is active (normally true except in Transient
Mark mode) and nonempty, and there is no prefix argument,
this command applies FACE to the region.  Otherwise, it applies FACE
to the faces to use for the next character
inserted.  (Moving point or switching buffers before typing
a character to insert cancels the specification.)

If FACE is `default', to "apply" it means clearing
the list of faces to be used.  For any other value of FACE,
to "apply" it means putting FACE at the front of the list
of faces to be used, and removing any faces further
along in the list that would be completely overridden by
preceding faces (including FACE).

This command can also add FACE to the menu of faces,
if `facemenu-listed-faces' says to do that.
(defalias 'facemenu-set-face #[(face &optional start end) "\303!\210\304	\n#\207" [face start end facemenu-add-new-face facemenu-add-face] 4 (#$ . 8900) (list (progn (barf-if-buffer-read-only) (read-face-name "Use face" (face-at-point t))) (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))])
#@444 Set the foreground COLOR of the region or next character typed.
This command reads the color in the minibuffer.

If the region is active (normally true except in Transient Mark mode)
and there is no prefix argument, this command sets the region to the
requested face.

Otherwise, this command specifies the face for the next character
inserted.  Moving point or switching buffers before
typing a character to insert cancels the specification.
(defalias 'facemenu-set-foreground #[(color &optional start end) "\303\304\305\"	\n#\207" [color start end facemenu-set-face-from-menu facemenu-add-new-color facemenu-foreground-menu] 4 (#$ . 10081) (list (progn (barf-if-buffer-read-only) (read-color "Foreground color: ")) (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))])
#@444 Set the background COLOR of the region or next character typed.
This command reads the color in the minibuffer.

If the region is active (normally true except in Transient Mark mode)
and there is no prefix argument, this command sets the region to the
requested face.

Otherwise, this command specifies the face for the next character
inserted.  Moving point or switching buffers before
typing a character to insert cancels the specification.
(defalias 'facemenu-set-background #[(color &optional start end) "\303\304\305\"	\n#\207" [color start end facemenu-set-face-from-menu facemenu-add-new-color facemenu-background-menu] 4 (#$ . 10937) (list (progn (barf-if-buffer-read-only) (read-color "Background color: ")) (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))])
#@718 Set the FACE of the region or next character typed.
This function is designed to be called from a menu; FACE is determined
using the event type of the menu entry.  If FACE is a symbol whose
name starts with "fg:" or "bg:", then this functions sets the
foreground or background to the color specified by the rest of the
symbol's name.  Any other symbol is considered the name of a face.

If the region is active (normally true except in Transient Mark mode)
and there is no prefix argument, this command sets the region to the
requested face.

Otherwise, this command specifies the face for the next character
inserted.  Moving point or switching buffers before typing a character
to insert cancels the specification.
(defalias 'facemenu-set-face-from-menu #[(face start end) "\304 \210\305\306!\307\310	\"\203&\311\312	\"\313\230\203\314\202\315\311\316	\"DC\202')\n#\207" [face fn start end barf-if-buffer-read-only facemenu-add-face symbol-name string-match "\\`\\([fb]\\)g:\\(.+\\)" match-string 1 "f" :foreground :background 2] 5 (#$ . 11793) (list last-command-event (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))])
#@118 Make the region invisible.
This sets the `invisible' text property; it can be undone with
`facemenu-remove-special'.
(defalias 'facemenu-set-invisible #[(start end) "\302	\303#\207" [start end add-text-properties (invisible t)] 4 (#$ . 13013) "r"])
#@145 Make the region intangible: disallow moving into it.
This sets the `intangible' text property; it can be undone with
`facemenu-remove-special'.
(defalias 'facemenu-set-intangible #[(start end) "\302	\303#\207" [start end add-text-properties (intangible t)] 4 (#$ . 13270) "r"])
#@121 Make the region unmodifiable.
This sets the `read-only' text property; it can be undone with
`facemenu-remove-special'.
(defalias 'facemenu-set-read-only #[(start end) "\302	\303#\207" [start end add-text-properties (read-only t)] 4 (#$ . 13556) "r"])
#@304 Apply CHARSET text property to the region or next character typed.

If the region is active (normally true except in Transient
Mark mode) and nonempty, and there is no prefix argument,
this command adds CHARSET property to the region.  Otherwise, it
sets the CHARSET property of the character at point.
(defalias 'facemenu-set-charset #[(cset &optional start end) "\204\f`dS^\211T\303	\304#\210\305	\306\n$\207" [start end cset remove-text-properties (charset nil) put-text-property charset] 6 (#$ . 13816) (list (progn (barf-if-buffer-read-only) (read-charset (format "Use charset (default %s): " (charset-after)) (charset-after))) (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))])
#@49 Remove `face' and `mouse-face' text properties.
(defalias 'facemenu-remove-face-props #[(start end) "\303\304	\n\305#)\207" [inhibit-read-only start end t remove-text-properties (face nil mouse-face nil)] 4 (#$ . 14592) "*r"])
#@45 Remove all text properties from the region.
(defalias 'facemenu-remove-all #[(start end) "\303\304	\n\305#)\207" [inhibit-read-only start end t set-text-properties nil] 4 (#$ . 14826) "*r"])
#@135 Remove all the "special" text properties from the region.
These special properties include `invisible', `intangible' and `read-only'.
(defalias 'facemenu-remove-special #[(start end) "\303\304	\n\305#)\207" [inhibit-read-only start end t remove-text-properties (invisible nil intangible nil read-only nil charset nil)] 4 (#$ . 15025) "*r"])
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312\313\314&	\207" [defalias facemenu-read-color read-color custom-declare-variable list-colors-sort nil "Color sort order for `list-colors-display'.\nnil means default implementation-dependent order (defined in `x-colors').\n`name' sorts by color name.\n`rgb' sorts by red, green, blue components.\n`(rgb-dist . COLOR)' sorts by the RGB distance to the specified color.\n`hsv' sorts by hue, saturation, value.\n`(hsv-dist . COLOR)' sorts by the HSV distance to the specified color\nand excludes grayscale colors.\n`luminance' sorts by relative luminance in the CIE XYZ color space." :type (choice (const :tag "Unsorted" nil) (const :tag "Color Name" name) (const :tag "Red-Green-Blue" rgb) (cons :tag "Distance on RGB cube" (const :tag "Distance from Color" rgb-dist) (color :tag "Source Color Name")) (const :tag "Hue-Saturation-Value" hsv) (cons :tag "Distance on HSV cylinder" (const :tag "Distance from Color" hsv-dist) (color :tag "Source Color Name")) (const :tag "Luminance" luminance)) :group facemenu :version "24.1"] 10)
#@172 Return a list of keys for sorting colors depending on `list-colors-sort'.
COLOR is the name of the color.  When return value is nil,
filter out the color from the output.
(defalias 'list-colors-sort-key #[(color) "\305\301!\210\204\n	\207\306\267\202	\227\207\307	!\207\242\310=\203$\311	A\"\207\312=\2031\313\314\315	!\"\207\242\316=\203\205\315	!\313\314\n\"\313\314\315A!\"\n@\nA@=\205Y\nA@\317\n8=?\205\203\320\321\322\323\322\323@\f@Z!Z!Z\317\"\321A@\fA@Z\317\"\321\3178\317\f8Z\317\"#+\207\324=\205\240\315	!\320\n@\325_\nA@\326_\317\n8\327_#)\207" [list-colors-sort color c-rgb c-hsv o-hsv require #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (name 16 rgb 19)) color-values rgb-dist color-distance hsv apply color-rgb-to-hsv color-name-to-rgb hsv-dist 2 + expt 180 abs luminance 0.21266729 0.7151522 0.072175] 8 (#$ . 16465)])
#@70 Value of CALLBACK arg passed to `list-colors-display'; internal use.
(defvar list-colors-callback nil (#$ . 17369))
#@121 Redisplay the colors using `list-colors-sort'.

This is installed as a `revert-buffer-function' in the *Colors* buffer.
(defalias 'list-colors-redisplay #[(_ignore-auto _noconfirm) "\301\302\303 #\207" [list-colors-callback list-colors-display nil buffer-name] 4 (#$ . 17492)])
#@681 Display names of defined colors, and show what they look like.
If the optional argument LIST is non-nil, it should be a list of
colors to display.  Otherwise, this command computes a list of
colors that the current display can handle.  Customize
`list-colors-sort' to change the order in which colors are shown.
Type `g' or \[revert-buffer] after customizing `list-colors-sort'
to redisplay colors in the new order.

If the optional argument BUFFER-NAME is nil, it defaults to *Colors*.

If the optional argument CALLBACK is non-nil, it should be a
function to call each time the user types RET or clicks on a
color.  The function should accept a single argument, the color name.
(defalias 'list-colors-display #[(&optional list buffer-name callback) "\2048\306 \307V\2038\310\311 !	\203\"\312\313\314\315\316\312\317\"\"\320\"\"\321 \322>\2038\306 S\233\211\2037\n\316\241\210)\204>\323\f\316\211\223\210\324
B\325%B%\326 &'\327'!\211()\316\211*+r)q\210\330 \210\331,\"\210\332\316!\210\333-\334\335!\210,\336\211.)+r(q\210\337(\316\"*)\340\341!\203\244\341*+\"\210\202\247+\210.,\205\265\342!\210\343\344!\207" [list list-colors-sort lc buffer-name help-window-point-marker temp-buffer-window-setup-hook display-color-cells 0 list-colors-duplicates defined-colors mapcar car sort delq nil #[(c) "\302@!\211\205	:\203	\202	CB)\207" [c key list-colors-sort-key] 3] #[(a b) "A\nA	@@\f\203)
\203)\f
\232\203)	A\211@A\211@\202\f\f\247\2039
\247\2039\f
W\202F\f;\205F
;\205F\f
\231,\207" [a a-keys b b-keys a-key b-key] 3] display-visual-class (gray-scale pseudo-color direct-color) "*Colors*" help-mode-setup help-mode-finish selected-frame temp-buffer-window-setup erase-buffer list-colors-print set-buffer-modified-p t make-local-variable list-colors-callback list-colors-redisplay temp-buffer-window-show functionp help-window-setup pop-to-buffer message "Click on a color to select it." temp-buffer-window-show-hook help-window-old-frame #1=#:vbuffer-or-name #2=#:buffer standard-output #3=#:window #4=#:value callback truncate-lines revert-buffer-function] 9 (#$ . 17778) nil])
(defalias 'list-colors-print #[(list &optional callback) "\205\f\306\307\310\311BBE\n\312\211\203\306\f@\211:\203*A\203-\313\314\"\202-C`\315@!
\316\317
\"\315\320!@\321_Y0@c\210\322j\210\323
`\324\325@D$\210\323`\326c\210\327\330\331#c\210`\324\332@D$\210\333\326\334\335#c\210\326c\210\333\316\336\337\340\341
\"#\342\343\344\316\345\346@!\"1\336\3471@1A@\35018$)%c\210\203\273\351
`\352\353\342\325@\3320\203\261\354\202\262\320F\355@\356	&\n\210+\357c\210\fA\211\204*eb)\207" [callback callback-fn list color --dolist-tail-- opoint lambda (button) funcall ((button-get button 'color-name)) nil sort #[(a b) "\227	\227\231\207" [a b] 2] color-values apply max "white" 0.5 22 put-text-property face :background " " mapconcat identity "," :foreground propertize display (space :align-to (- right 9)) format "#%02x%02x%02x" mapcar #[(c) "\301\302\"\207" [c ash -8] 3] mouse-face highlight help-echo color-rgb-to-hsv color-name-to-rgb "H:%.2f S:%.2f V:%.2f" 2 make-text-button follow-link t "black" color-name action "\n" light-p hsv] 12])
#@509 Return a list of colors with grouped duplicate colors.
If a color has no duplicates, then the element of the returned list
has the form (COLOR-NAME).  The element of the returned list with
duplicate colors has the form (COLOR-NAME DUPLICATE-COLOR-NAME ...).
This function uses the predicate `facemenu-color-equal' to compare
color names.  If the optional argument LIST is non-nil, it should
be a list of colors to display.  Otherwise, this function uses
a list of colors that the current display can handle.
(defalias 'list-colors-duplicates #[(&optional list) "\304\300\206\305 \"\211	A\203Q\306	@@	A@@\"\203J\n\307=\2035\310	@@\311\312\313#)\266\203\204J	@	A@@	@AB\241\210	\211AA\241\210\202\f	A\211\202
*\207" [list l system-type inhibit-changing-match-data mapcar defined-colors facemenu-color-equal windows-nt "^System" nil t string-match] 8 (#$ . 21022)])
#@251 Return t if colors A and B are the same color.
A and B should be strings naming colors.
This function queries the display system to find out what the color
names mean.  It returns nil if the colors differ or if it can't
determine the correct answer.
(defalias 'facemenu-color-equal #[(a b) "	\232\203\302\207\303!\303	!\232\207" [a b t color-values] 3 (#$ . 21908)])
(defvar facemenu-self-insert-data nil)
(defalias 'facemenu-post-self-insert-function #[nil "@\203	A=\203\302`S`\303@$\210\304\305\306\307\"\207" [facemenu-self-insert-data last-command put-text-property face nil remove-hook post-self-insert-hook facemenu-post-self-insert-function] 5])
#@62 Arrange for the next self-inserted char to have face `face'.
(defalias 'facemenu-set-self-insert-face #[(face) "	B\303\304\305\"\207" [face this-command facemenu-self-insert-data add-hook post-self-insert-hook facemenu-post-self-insert-function] 3 (#$ . 22579)])
#@625 Add FACE to text between START and END.
If START is nil or START to END is empty, add FACE to next typed character
instead.  For each section of that region that has a different face property,
FACE will be consed onto it, and other faces that are completely hidden by
that will be removed from the list.
If `facemenu-add-face-function' and maybe `facemenu-end-add-face' are non-nil,
they are used to set the face information.

As a special case, if FACE is `default', then the region is left with NO face
text property.  Otherwise, selecting the default face would not have any
effect.  See `facemenu-remove-face-function'.
(defalias 'facemenu-add-face #[(face &optional start end) "\306=\2032	\307=\2042	\203	\n\"\210\202\340\n\203+\nW\203+\310\n\311#\210\202\340\312\306!\210\202\340\f\203d\212\203>b\210\212\n\203F\nb\210\313\f\"!\210)
\203`
;\203[
\202^
!c\210)\202\340\n\203\275\nW\203\275\n\314\211U\204\271\315\300\314$\316\300\"\317\300\204\231\202\256\320\321!\203\247\202\252CB\322 \"$\210)\211\202u*\202\340\312A=\203\335@<\203\325@\202\331@CB\202\336!\210\323 ?\205\351\324\325!\207" [face facemenu-remove-face-function start end facemenu-add-face-function facemenu-end-add-face default t remove-list-of-text-properties (face) facemenu-set-self-insert-face insert-before-markers nil next-single-property-change get-text-property put-text-property facemenu-active-faces face-list-p selected-frame facemenu-enable-faces-p message "Font-lock mode will override any faces you set in this buffer" part-end part-start prev last-command facemenu-self-insert-data] 9 (#$ . 22851) "*xFace: \nr"])
#@363 Return from FACE-LIST those faces that would be used for display.
This means each face attribute is not specified in a face earlier in FACE-LIST
and such a face is therefore active when used to display text.
If the optional argument FRAME is given, use the faces in that frame; otherwise
use the selected frame.  If t, then the global, non-frame faces are used.
(defalias 'facemenu-active-faces #[(face-list &optional frame) "\306@:\203\307@!\202\310@	\"\206\311@!!@CA\nG\203\204@:\2037\307@!\202C\310@	\"\206C\311@!\f\312S\211\313Y\203sH\314>\204J\nH\315>\203J\n\316\211I\210\202J
+\203}@BA\211\204*\237,\207" [face-list frame mask-atts active-list mask-len useful copy-sequence face-attributes-as-vector internal-lisp-face-p check-face nil 0 (nil unspecified) (nil unspecified) t i face-atts] 5 (#$ . 24542)])
#@139 Add FACE (a face) to the Face menu if `facemenu-listed-faces' says so.
This is called whenever you create a new face, and at other times.
(defalias 'facemenu-add-new-face #[(face) "\306\211\306\211\307\f
\"A\306\211\f9\203#\310\f!\f\202)\f\311!\312\313\314\315\211#!\316\317\nKA\"\204\267\203o\311\320P!\211\321\306\322\323\324	D\325BB\257M\210\326\327B#\210\326\nB#\210\202\267 \330=\204}	 >\203\267\331	!\332\nK!\203\255G\333V\203\255\334BG\333Z8@$\210\202\267\326\nB#\210.\306\207" [name symbol menu docstring face facemenu-keybindings nil assoc symbol-name intern facemenu-face-menu purecopy format "Select face `%s' for subsequent insertion.\nIf the mark is active and there is no prefix argument,\napply face `%s' to the region instead.\nThis command was defined by `facemenu-add-new-face'." facemenu-iterate #[(m) "<\205@9\205\302@!\205\303@	\"\207" [m symbol facep face-equal] 3] "facemenu-set-" lambda (interactive) facemenu-set-face quote ((if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end))) define-key facemenu-keymap t vector facemenu-set-face-from-menu 3 define-key-after key function menu-val facemenu-listed-faces facemenu-new-faces-at-end] 9 (#$ . 25416)])
#@240 Add COLOR (a color name string) to the appropriate Face menu.
MENU should be `facemenu-foreground-menu' or `facemenu-background-menu'.
Return the event type (a symbol) of the added menu entry.

This is called whenever you use a new color.
(defalias 'facemenu-add-new-color #[(color menu) "\306\307	!\204
\310\311	\"\210\n\312\267\202%\313\314	P!\202)\313\315	P!\202)\310\316!\210\317\320\nKA\"\204b\321!\322\nK\203YG\323V\203Y\324
	\fBG\323Z8@$\210\202a\325\n
	\fB#\210+)\207" [symbol color menu menu-val function key nil color-defined-p error "Color `%s' undefined" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (facemenu-foreground-menu 19 facemenu-background-menu 28)) intern "fg:" "bg:" "MENU should be `facemenu-foreground-menu' or `facemenu-background-menu'" facemenu-iterate #[(m) "<\205	@	=\207" [m symbol] 2] vector facemenu-set-face-from-menu 3 define-key-after define-key facemenu-new-faces-at-end] 6 (#$ . 26756)])
#@249 Return list of all faces that look different.
Starts with given ALIST of faces, and adds elements only if they display
differently from any face already on the list.
The faces on ALIST will end up at the end of the returned list, in reverse
order.
(defalias 'facemenu-complete-face-list #[(&optional oldlist) "\302\303\"\237\304\305\306 \237\"\210	)\207" [oldlist list mapcar car facemenu-iterate #[(new-face) "	>\204\n	B\302\207" [new-face list nil] 2] face-list] 3 (#$ . 27754)])
#@123 Apply FUNC to each element of LIST until one returns non-nil.
Returns the non-nil value it found, or nil if all were nil.
(defalias 'facemenu-iterate #[(func list) "\203	@!\204A\211\204@\207" [list func] 3 (#$ . 28249)])
(byte-code "\300 \210\301\302!\207" [facemenu-update provide facemenu] 2)

Youez - 2016 - github.com/yon3zu
LinuXploit