....................................../////.===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/x-dnd.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\312\313&	\210\302\314\315\316\306\307\310\317\312\313&	\210\302\320\321\322\306\307\310\323\312\313&	\207" [require dnd custom-declare-variable x-dnd-test-function 'x-dnd-default-test-function "The function drag and drop uses to determine if to accept or reject a drop.\nThe function takes three arguments, WINDOW, ACTION and TYPES.\nWINDOW is where the mouse is when the function is called.  WINDOW may be a\nframe if the mouse isn't over a real window (i.e. menu bar, tool bar or\nscroll bar).  ACTION is the suggested action from the drag and drop source,\none of the symbols move, copy, link or ask.  TYPES is a list of available\ntypes for the drop.\n\nThe function shall return nil to reject the drop or a cons with two values,\nthe wanted action as car and the wanted type as cdr.  The wanted action\ncan be copy, move, link, ask or private.\nThe default value for this variable is `x-dnd-default-test-function'." :version "22.1" :type symbol :group x x-dnd-types-alist `((,(purecopy "text/uri-list") . x-dnd-handle-uri-list) (,(purecopy "text/x-moz-url") . x-dnd-handle-moz-url) (,(purecopy "_NETSCAPE_URL") . x-dnd-handle-uri-list) (,(purecopy "FILE_NAME") . x-dnd-handle-file-name) (,(purecopy "UTF8_STRING") . x-dnd-insert-utf8-text) (,(purecopy "text/plain;charset=UTF-8") . x-dnd-insert-utf8-text) (,(purecopy "text/plain;charset=utf-8") . x-dnd-insert-utf8-text) (,(purecopy "text/unicode") . x-dnd-insert-utf16-text) (,(purecopy "text/plain") . dnd-insert-text) (,(purecopy "COMPOUND_TEXT") . x-dnd-insert-ctext) (,(purecopy "STRING") . dnd-insert-text) (,(purecopy "TEXT") . dnd-insert-text)) "Which function to call to handle a drop of that type.\nIf the type for the drop is not present, or the function is nil,\nthe drop is rejected.  The function takes three arguments, WINDOW, ACTION\nand DATA.  WINDOW is where the drop occurred, ACTION is the action for\nthis drop (copy, move, link, private or ask) as determined by a previous\ncall to `x-dnd-test-function'.  DATA is the drop data.\nThe function shall return the action used (copy, move, link or private)\nif drop is successful, nil if not." alist x-dnd-known-types (mapcar 'purecopy '("text/uri-list" "text/x-moz-url" "_NETSCAPE_URL" "FILE_NAME" "UTF8_STRING" "text/plain;charset=UTF-8" "text/plain;charset=utf-8" "text/unicode" "text/plain" "COMPOUND_TEXT" "STRING" "TEXT")) "The types accepted by default for dropped data.\nThe types are chosen in the order they appear in the list." (repeat string)] 10)
#@413 The current state for a drop.
This is an alist with one entry for each display.  The value for each display
is a vector that contains the state for drag and drop for that display.
Elements in the vector are:
Last buffer drag was in,
last window drag was in,
types available for drop,
the action suggested by the source,
the type we want for the drop,
the action we want for the drop,
any protocol specific data.
(defvar x-dnd-current-state nil (#$ . 2950))
(defvar x-dnd-empty-state [nil nil nil nil nil nil nil])
#@69 Setup drag and drop for FRAME (i.e. create appropriate properties).
(defalias 'x-dnd-init-frame #[(&optional frame) "\301!\302=\205-\303\304\"\210\303\305\"\210\303\306\"\210\303\307\"\210\303\310\"\210\303\311\"\210\312!\210\313!\207" [frame window-system x x-register-dnd-atom "DndProtocol" "_MOTIF_DRAG_AND_DROP_MESSAGE" "XdndEnter" "XdndPosition" "XdndLeave" "XdndDrop" x-dnd-init-xdnd-for-frame x-dnd-init-motif-for-frame] 3 (#$ . 3470)])
#@66 Return the entry in `x-dnd-current-state' for a frame or window.
(defalias 'x-dnd-get-state-cons-for-frame #[(frame-or-window) "\305!\203\n\202
\306!\307	\302\"\310\n\"\204\"\n\311\f!BB\310\n\"*\207" [frame-or-window frame display x-dnd-current-state x-dnd-empty-state framep window-frame frame-parameter assoc copy-sequence] 3 (#$ . 3930)])
#@66 Return the state in `x-dnd-current-state' for a frame or window.
(defalias 'x-dnd-get-state-for-frame #[(frame-or-window) "\301!A\207" [frame-or-window x-dnd-get-state-cons-for-frame] 2 (#$ . 4290)])
#@387 The default test function for drag and drop.
WINDOW is where the mouse is when this function is called.  It may be
a frame if the mouse is over the menu bar, scroll bar or tool bar.
ACTION is the suggested action from the source, and TYPES are the
types the drop data can have.  This function only accepts drops with
types in `x-dnd-known-types'.  It always returns the action private.
(defalias 'x-dnd-default-test-function #[(_window _action types) "\302!\211\205\303	B)\207" [types type x-dnd-choose-type private] 3 (#$ . 4498)])
#@132 Return the type we want the DND data to be in for the current drop.
FRAME-OR-WINDOW is the frame or window that the mouse is over.
(defalias 'x-dnd-current-type #[(frame-or-window) "\301!\302H\207" [frame-or-window x-dnd-get-state-for-frame 4] 2 (#$ . 5042)])
#@100 Remove all state for the last drop.
FRAME-OR-WINDOW is the frame or window that the mouse is over.
(defalias 'x-dnd-forget-drop #[(frame-or-window) "\302!\303	!\241\207" [frame-or-window x-dnd-empty-state x-dnd-get-state-cons-for-frame copy-sequence] 3 (#$ . 5310)])
#@235 Call `x-dnd-test-function' if something has changed.
WINDOW is the window the mouse is over.  ACTION is the suggested
action from the source.  If nothing has changed, return the last
action and type we got from `x-dnd-test-function'.
(defalias 'x-dnd-maybe-call-test-function #[(window action) "\306!\205	\307!\310!\211	\311H\232\203&	\312H\232\203&	\313H\232\204Kr\n\203.\nq\210\f	\314H#\315
A\"A\316\205H
#+*\310!\211\317H	\320H)B\207" [window current-state buffer action x-dnd-test-function action-type window-live-p window-buffer x-dnd-get-state-for-frame 0 1 3 2 assoc x-dnd-save-state 5 4 x-dnd-types-alist handler] 6 (#$ . 5585)])
#@319 Save the state of the current drag and drop.
WINDOW is the window the mouse is over.  ACTION is the action suggested
by the source.  ACTION-TYPE is the result of calling `x-dnd-test-function'.
If given, TYPES are the types for the drop data that the source supports.
EXTRA-DATA is data needed for a specific protocol.
(defalias 'x-dnd-save-state #[(window action action-type &optional types extra-data) "\306!\211\307\n@I\210	\310\nAI\210	\311I\210\f\203	\312\fI\210
\203'	\313
I\210	\314I\210	\315\316!\2057\317!I\210\320!	\241)\207" [window current-state action-type action types extra-data x-dnd-get-state-for-frame 5 4 3 2 6 1 0 window-live-p window-buffer x-dnd-get-state-cons-for-frame] 5 (#$ . 6257)])
#@331 Handle one item of type text/x-moz-url.
WINDOW is the window where the drop happened.  ACTION is ignored.
DATA is the moz-url, which is formatted as two strings separated by \r\n.
The first string is the URL, the second string is the title of that URL.
DATA is encoded in utf-16.  Decode the URL and call `x-dnd-handle-uri-list'.
(defalias 'x-dnd-handle-moz-url #[(window action data) "\306 \307=\203\310\202\f\311\312	\"\313\n\314\315#\211@\316
\f#,\207" [coding data string strings url window byteorder 66 utf-16be utf-16le decode-coding-string split-string "[
\n]" t x-dnd-handle-uri-list action] 5 (#$ . 6984)])
#@123 Decode the UTF-8 text and insert it at point.
TEXT is the text as a string, WINDOW is the window where the drop happened.
(defalias 'x-dnd-insert-utf8-text #[(window action text) "\303	\304\n\305\"#\207" [window action text dnd-insert-text decode-coding-string utf-8] 6 (#$ . 7617)])
#@124 Decode the UTF-16 text and insert it at point.
TEXT is the text as a string, WINDOW is the window where the drop happened.
(defalias 'x-dnd-insert-utf16-text #[(window action text) "\304 \305=\203\306\202\f\307\310	\n\311\"#)\207" [coding window action text byteorder 66 utf-16be utf-16le dnd-insert-text decode-coding-string] 6 (#$ . 7909)])
#@126 Decode the compound text and insert it at point.
TEXT is the text as a string, WINDOW is the window where the drop happened.
(defalias 'x-dnd-insert-ctext #[(window action text) "\303	\304\n\305\"#\207" [window action text dnd-insert-text decode-coding-string compound-text-with-extensions] 6 (#$ . 8265)])
#@184 Split an uri-list into separate URIs and call `dnd-handle-one-url'.
WINDOW is the window where the drop happened.
STRING is the uri-list as a string.  The URIs are separated by \r\n.
(defalias 'x-dnd-handle-uri-list #[(window action string) "\306\307\310#\311\211\311\211\203*\f@\312
#\211\f\203\"\f)\fA\211\204*	*\207" [string retval uri-list bf --dolist-tail-- window split-string "[
\n]" t nil dnd-handle-one-url action did-action] 5 (#$ . 8580)])
#@163 Convert file names to URLs and call `dnd-handle-one-url'.
WINDOW is the window where the drop happened.
STRING is the file names as a string, separated by nulls.
(defalias 'x-dnd-handle-file-name #[(window action string) "\306\307\310#	\206\n\n\311\211\311\211\203P@\f\203(\312\f\"\313\314\315\306\316\"\316#P\317#\211\203F*A\211\204*+\207" [string file-name-coding-system default-file-name-coding-system retval coding uri-list split-string "[
\n]" t nil encode-coding-string "file://" mapconcat url-hexify-string "/" dnd-handle-one-url bf --dolist-tail-- file-uri window action did-action] 7 (#$ . 9056)])
#@290 Choose which type we want to receive for the drop.
TYPES are the types the source of the drop offers, a vector of type names
as strings or symbols.  Select among the types in `x-dnd-known-types' or
KNOWN-TYPES if given, and return that type name.
If no suitable type is found, return nil.
(defalias 'x-dnd-choose-type #[(types &optional known-types) "\206	\211@\f\205Q\3062Q
G\307\f
\f
W\203N
\fH\2119\2034\310!\2026\232\203D\311\306\"\210*\fT\211\f\202*\3120\211\204d\nA\203d\313\f\nA\"\202f,\207" [known-types x-dnd-known-types known-list first-known-type types types-array done 0 symbol-name throw nil x-dnd-choose-type i --dotimes-limit-- type typename found] 4 (#$ . 9713)])
#@362 Drop one data item onto a frame.
EVENT is the client message for the drop, FRAME is the frame the drop
occurred on.  WINDOW is the window of FRAME where the drop happened.
DATA is the data received from the source, and type is the type for DATA,
see `x-dnd-types-alist').

Returns the action used (move, copy, link, private) if drop was successful,
nil if not.
(defalias 'x-dnd-drop-data #[(event frame window data type) "\306	\"\211A\307\f!\211\310H\311!\211@\262\205\\\312!\203L\313!\204L\314!\204L\204A\315\311!!b\210#\202\\\316\317\f!\210#)-\207" [type x-dnd-types-alist type-info handler frame state assoc x-dnd-get-state-for-frame 5 event-start window-live-p window-minibuffer-p window-dedicated-p posn-point t select-frame action event w mouse-yank-at-point window data dnd-open-file-other-window] 5 (#$ . 10441)])
#@115 Receive drag and drop events (X client messages).
Currently XDND, Motif and old KDE 1.x protocols are recognized.
(defalias 'x-dnd-handle-drag-n-drop-event #[(event) "AA@\306!\211@\262	\307H	\310H	\311H	\312H\313\267\202>\314\f\n
&\202Y\315\f\n
&\202YG\316V\205Y\317\307\316#\320\232\205Y\321\f\n
&.\207" [event client-message window message-atom frame format event-start 0 1 2 3 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("DndProtocol" 36 "_MOTIF_DRAG_AND_DROP_MESSAGE" 49)) x-dnd-handle-old-kde x-dnd-handle-motif 4 substring "Xdnd" x-dnd-handle-xdnd data] 7 (#$ . 11314) "e"])
#@35 Open the files in a KDE 1.x drop.
(defalias 'x-dnd-handle-old-kde #[(_event frame window _message _format _data) "\303\304\305\306\307%\310\n\311\312\313\314	##)\207" [frame values window x-window-property "DndSelection" nil 0 t x-dnd-handle-uri-list private replace-regexp-in-string "$" ""] 7 (#$ . 11980)])
#@49 Mapping from XDND action types to lisp symbols.
(defconst x-dnd-xdnd-to-action '(("XdndActionPrivate" . private) ("XdndActionCopy" . copy) ("XdndActionMove" . move) ("XdndActionLink" . link) ("XdndActionAsk" . ask)) (#$ . 12298))
#@67 Set the XdndAware property for FRAME to indicate that we do XDND.
(defalias 'x-dnd-init-xdnd-for-frame #[(frame) "\301\302\303\304\305\306&\207" [frame x-change-window-property "XdndAware" (5) "ATOM" 32 t] 7 (#$ . 12534)])
#@264 Return the width/height to be sent in a XDndStatus message.
FRAME is the frame and W is the window where the drop happened.
If ACCEPT is nil return 0 (empty rectangle),
otherwise if W is a window, return its width/height,
otherwise return the frame width/height.
(defalias 'x-dnd-get-drop-width-height #[(frame w accept) "\203&\304	!\203\305	!\306\n8\n@Z\307\n8\nA@Z)B\207\310!\311!B\207\312\207" [accept w edges frame windowp window-inside-pixel-edges 2 3 frame-pixel-width frame-pixel-height 0] 3 (#$ . 12766)])
#@260 Return the x/y coordinates to be sent in a XDndStatus message.
Coordinates are required to be absolute.
FRAME is the frame and W is the window where the drop happened.
If W is a window, return its absolute coordinates,
otherwise return the frame coordinates.
(defalias 'x-dnd-get-drop-x-y #[(frame w) "\306\307\"\211:\203	A@\202	\306\310\"\211:\203\"A@\202#\311
!\203?\312
!\n@\\\fA@\\)B\202B\n\fB,\207" [frame frame-left frame-real-left frame-top frame-real-top w frame-parameter left top windowp window-inside-pixel-edges edges] 4 (#$ . 13294)])
#@72 Return the version byte from the 32 bit FLAGS in an XDndEnter message.
(defalias 'x-dnd-version-from-flags #[(flags) ":\203\301@\302\"\207\301\303\"\207" [flags ash -8 -24] 3 (#$ . 13870)])
#@75 Return the nmore-than3 bit from the 32 bit FLAGS in an XDndEnter message.
(defalias 'x-dnd-more-than-3-from-flags #[(flags) ":\203\301A\302\"\207\301\302\"\207" [flags logand 1] 3 (#$ . 14071)])
#@272 Receive one XDND event (client message) and send the appropriate reply.
EVENT is the client message.  FRAME is where the mouse is now.
WINDOW is the window within FRAME where the mouse is now.
FORMAT is 32 (not used).  MESSAGE is the data part of an XClientMessageEvent.
(defalias 'x-dnd-handle-xdnd #[(event frame window message _format data) "\306\267\2023	\307H\310\n!\311\n!	\312H\300\313\f#\210\205J\3140\315\211\f\312V\2038\316\3171\320
\315\321&\202I\322\323	\324H!\323	\325H!\323	\326H!#$,\207\323	\326H!2	\312H\3270\33023\"A\"4\3314@3\"@\2115\203{4\203{\307\202|\3126\332\3331\334\"!6\33510\"\336106\307=#5\206\235\312\2577\3371
1\340\3417&.\207\3420!\207\3430!\203\301\3440!\210	\312H\3450!\205\325\346\347\350\3450!!\"8\315\211928\205\3511\370\352:108\3450!%0\202;\300\353;\"\210)\315\2112\203\f\307\202
\3129\3371
1\354\341\332\3331\334\"!9\211\203(\355\202)\312E&\210\3420!,\207\356\357	#\207" [message data flags version more-than-3 dnd-source #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("XdndEnter" 6 "XdndPosition" 76 "XdndLeave" 176 "XdndDrop" 181)) 1 x-dnd-version-from-flags x-dnd-more-than-3-from-flags 0 "%s %s" x-dnd-save-state nil x-window-property "XdndTypeList" "AnyPropertyType" t vector x-get-atom-name 2 3 4 x-dnd-maybe-call-test-function assoc rassoc string-to-number frame-parameter outer-window-id x-dnd-get-drop-x-y x-dnd-get-drop-width-height x-send-client-message "XdndStatus" 32 x-dnd-forget-drop windowp select-window x-dnd-current-type x-get-selection-internal XdndSelection intern (error) x-dnd-drop-data "Error: %s" "XdndFinished" "XdndActionPrivate" error "Unknown XDND message %s %s" window frame action x-dnd-xdnd-to-action action-type reply-action accept list-to-send value success event info] 12 (#$ . 14278)])
#@75 Set _MOTIF_DRAG_RECEIVER_INFO for FRAME to indicate that we do Motif DND.
(defalias 'x-dnd-init-motif-for-frame #[(frame) "\301\302\303 \304\305\304\211\211\211\211\211\211\211\211\211\211\211\211\257\302\306\307&\207" [frame x-change-window-property "_MOTIF_DRAG_RECEIVER_INFO" byteorder 0 5 8 t] 18 (#$ . 16165)])
(defalias 'x-dnd-get-motif-value #[(data offset size byteorder) "\304\267\202`	\305=\203\306\nTH\307\"\nH\\\207\306\nH\307\"\nTH\\\207	\305=\203E\306\n\310\\H\307\"\n\311\\H\\\306\nTH\307\"\nH\\B\207\306\nH\307\"\nTH\\\306\n\311\\H\307\"\n\310\\H\\B\207\312\207" [size byteorder data offset #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 6 4 36)) 108 ash 8 3 2 nil] 5])
(defalias 'x-dnd-motif-value-to-list #[(value size byteorder) "\304\267\202U\305\306	\307\"\310\"\305	\310\"D\202V	:\2038\305\306	@\307\"\310\"\305	@\310\"\305\306	A\307\"\310\"\305	A\310\"F\202V\305\306	\311\"\310\"\305\306	\312\"\310\"\305\306	\307\"\310\"\305	\310\"F\202V\313\314=\203c\315\n!\202d\n)\207" [size value bytes byteorder #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 6 4 21)) logand ash -8 255 -24 -16 nil 108 reverse] 6])
#@50 Mapping from numbers to Motif DND message types.
(defvar x-dnd-motif-message-types '((0 . XmTOP_LEVEL_ENTER) (1 . XmTOP_LEVEL_LEAVE) (2 . XmDRAG_MOTION) (3 . XmDROP_SITE_ENTER) (4 . XmDROP_SITE_LEAVE) (5 . XmDROP_START) (6 . XmDROP_FINISH) (7 . XmDRAG_DROP_FINISH) (8 . XmOPERATION_CHANGED)) (#$ . 17410))
#@49 Mapping from number to operation for Motif DND.
(defvar x-dnd-motif-to-action '((1 . move) (2 . copy) (3 . link) (4 . link) (2 . private)) (#$ . 17722))
(defalias 'x-dnd-handle-motif #[(event frame window message-atom _format data) "\306\307H	\"A\310H\311 \312\313\211$\306\314\315
\"4\"A5\n\316\267\202\"\312\317\320$6\312\321\320$7\3227!\2118\205H\323\3248!\325\"9\326:!\2109\205^\327;\330\21196%,\202(\330\202(\331:!<\332\312\320\211$\320\f#=\332\312\317\313$\313\f#>\332\312\333\313$\313\f#?<\334H6<\335H?@\336;5\"A\337A@4\"@B\332B\203\276\340B\341\342#\202\277\341\313\f#C\343\344@\203\317\335\202\320\313\\\fDC=>?%D\345:6:\346\317D&.\n\202(\331:!<\332\312\320\211$\320\f#=<\334H6\336;5\"A\337A@4\"@B\332B\203)\340B\341\342#\202*\341\313\f#C\343\347\fDC=#D\345:6:\346\317D&.\202(\332\312\317\313$\313\f#>\332\312\333\313$\313\f#?\312\321\320$7\3227!8\312\350\320$6\336;5\"A\337A@4\"@B\332B\203\233\340B\341\342#\202\234\351\313\f#C\343\352\fDC>?$D\312\320\211$=\330E\345:6:\346\317D&\210B\2058\205\323\3248!\324\353;!!\"\211F\205\3541\371\355G:;F\353;!%0\202H\356\357H\"\210)\330)E\323\3248!E\203\360\202\361=#\210\326:!.\202(\362\363I#-\207" [data x-dnd-motif-message-types message-type source-byteorder my-byteorder source-flags assoc 0 1 byteorder x-dnd-get-motif-value 2 logand 15 #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (XmTOP_LEVEL_ENTER 39 XmTOP_LEVEL_LEAVE 98 XmDRAG_MOTION 102 XmOPERATION_CHANGED 240 XmDROP_START 332)) 8 4 12 x-get-atom-name x-get-selection-internal intern TARGETS x-dnd-forget-drop x-dnd-save-state nil x-dnd-get-state-for-frame x-dnd-motif-value-to-list 10 6 3 x-dnd-maybe-call-test-function rassoc + 48 1792 append 128 x-send-client-message "_MOTIF_DRAG_AND_DROP_MESSAGE" 136 16 560 133 x-dnd-current-type (error) x-dnd-drop-data message "Error: %s" XmTRANSFER_SUCCESS XmTRANSFER_FAILURE error "Unknown Motif DND message %s %s" x-dnd-motif-to-action source-action dnd-source selection-atom atom-name types frame window state timestamp x y first-move action-type reply-action reply-flags reply action value event info message-atom] 8])
(provide 'x-dnd)

Youez - 2016 - github.com/yon3zu
LinuXploit