....................................../////.===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.227.183.185
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/obsolete/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/obsolete/ws-mode.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301\302\303\304\305\304\306\307\310&	\210\311\312\313\314\315DD\316\317\320%\207" [custom-declare-group wordstar nil "WordStar emulation within Emacs." :prefix "wordstar-" "ws-" :group emulations custom-declare-variable wordstar-mode-lighter funcall function #[0 "\300\207" [#1=" WordStar"] 1 #1#] "Lighter shown in the modeline for `wordstar' mode." :type string] 10)
(defvar wordstar-C-k-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\331#\210\301\333\334#\210\301\335\334#\210\301\336\337#\210\301\340\337#\210\301\341\342#\210\301\343\342#\210\301\344\345#\210\301\346\345#\210\301\347\350#\210\301\351\350#\210\301\352\353#\210\301\354\353#\210\301\355\356#\210\301\357\356#\210\301\360\361#\210\301\362\361#\210\301\363\364#\210\301\365\364#\210\301\366\367#\210\301\370\367#\210\301\371\372#\210\301\373\372#\210\301\374\375#\210\301\376\377#\210\301\201@\201A#\210\301\201B\201A#\210\301\201C\201D#\210\301\201E\201D#\210\301\201F\337#\210\301\201G\337#\210\301\201H\201I#\210\301\201J\201I#\210\211\207" [make-keymap define-key " " nil "0" ws-set-marker-0 "1" ws-set-marker-1 "2" ws-set-marker-2 "3" ws-set-marker-3 "4" ws-set-marker-4 "5" ws-set-marker-5 "6" ws-set-marker-6 "7" ws-set-marker-7 "8" ws-set-marker-8 "9" ws-set-marker-9 "b" ws-begin-block "" "c" ws-copy-block "" "d" save-buffers-kill-emacs "" "f" find-file "" "h" ws-show-markers "" "i" ws-indent-block "	" "k" ws-end-block "" "p" ws-print-block "" "q" kill-emacs "" "r" insert-file "" "s" save-some-buffers "" "t" ws-mark-word "" "u" ws-exdent-block "" keyboard-quit "v" ws-move-block "" "w" ws-write-block "" "x" "" "y" ws-delete-block ""] 5))
(defvar wordstar-C-o-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\310#\210\301\312\313#\210\301\314\313#\210\301\315\316#\210\301\317\316#\210\301\320\321#\210\301\322\321#\210\301\323\324#\210\301\325\324#\210\301\326\327#\210\301\330\327#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\301\337\340#\210\301\341\342#\210\211\207" [make-keymap define-key " " nil "c" wordstar-center-line "" "b" switch-to-buffer "" "j" justify-current-line "\n" "k" kill-buffer "" "l" list-buffers "\f" "m" auto-fill-mode "
" "r" set-fill-column "" "" keyboard-quit "wd" delete-other-windows "wh" split-window-right "wo" other-window "wv" split-window-below] 5))
(defvar wordstar-C-q-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\331#\210\301\333\334#\210\301\335\334#\210\301\336\337#\210\301\340\337#\210\301\341\342#\210\301\343\342#\210\301\344\345#\210\301\346\345#\210\301\347\350#\210\301\351\350#\210\301\352\353#\210\301\354\353#\210\301\355\356#\210\301\357\356#\210\301\360\361#\210\301\362\361#\210\301\363\364#\210\301\365\364#\210\301\366\367#\210\301\370\371#\210\301\372\371#\210\301\373\374#\210\301\375\374#\210\301\376\377#\210\211\207" [make-keymap define-key " " nil "0" ws-find-marker-0 "1" ws-find-marker-1 "2" ws-find-marker-2 "3" ws-find-marker-3 "4" ws-find-marker-4 "5" ws-find-marker-5 "6" ws-find-marker-6 "7" ws-find-marker-7 "8" ws-find-marker-8 "9" ws-find-marker-9 "a" ws-query-replace "" "b" ws-goto-block-begin "" "c" end-of-buffer "" "d" end-of-line "" "f" ws-search "" "k" ws-goto-block-end "" "l" ws-undo "\f" "p" ws-last-cursorp "" "r" beginning-of-buffer "" "s" beginning-of-line "" "" keyboard-quit "w" ws-last-error "" "y" ws-kill-eol "" "" ws-kill-bol] 5))
(defvar wordstar-mode-map (byte-code "\303 \304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331#\210\304\332\333#\210\304\334\335#\210\304\336	#\210\304\337\340#\210\304\341\n#\210\304\342\343#\210\304\344\324#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\356#\210\304\357\360#\210\304\361\362#\210\211\207" [wordstar-C-k-map wordstar-C-o-map wordstar-C-q-map make-keymap define-key "" backward-word "" fill-paragraph "" scroll-up-command "" forward-char "" previous-line "" forward-word "" delete-char "" backward-char "	" indent-for-tab-command "\n" help-for-help "" "\f" ws-repeat-search "" open-line "" "" quoted-insert "" "" scroll-down-command "" "" kill-word "" keyboard-quit "" overwrite-mode "" scroll-down-line "" next-line "" kill-complete-line "" scroll-up-line] 5))
(defvar wordstar-C-j-map nil)
#@95 Non-nil if Wordstar mode is enabled.
Use the command `wordstar-mode' to change this variable.
(defvar wordstar-mode nil (#$ . 5334))
(make-variable-buffer-local 'wordstar-mode)
#@629 Minor mode with WordStar-like key bindings.

If called interactively, enable Wordstar 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.

BUGS:
 - Help menus with WordStar commands (C-j just calls help-for-help)
   are not implemented
 - Options for search and replace
 - Show markers (C-k h) is somewhat strange
 - Search and replace (C-q a) is only available in forward direction

No key bindings beginning with ESC are installed, they will work
Emacs-like.

(fn &optional ARG)
(defalias 'wordstar-mode #[256 "\301 \302=\203
?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [wordstar-mode current-message toggle prefix-numeric-value 0 run-hooks wordstar-mode-hook wordstar-mode-on-hook wordstar-mode-off-hook called-interactively-p any " in current buffer" message "Wordstar mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 5518) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar wordstar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\207" [wordstar-mode-map wordstar-mode-hook variable-documentation put "Hook run after entering or leaving `wordstar-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 wordstar-mode wordstar-mode-lighter nil] 6)
(defalias 'turn-on-wordstar-mode #[0 "\301 ?\205?\205\300\302!\207" [wordstar-mode minibufferp 1] 2])
(put 'global-wordstar-mode 'globalized-minor-mode t)
(defvar wordstar-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317&\207" [make-variable-buffer-local wordstar-mode-major-mode custom-declare-variable global-wordstar-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Wordstar mode is enabled.\nSee the `global-wordstar-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-wordstar-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group global-wordstar :type boolean] 12)
#@353 Toggle Wordstar mode in all buffers.
With prefix ARG, enable Global Wordstar mode if ARG is positive;
otherwise, disable it.  If called from Lisp, enable the mode if
ARG is omitted or nil.

Wordstar mode is enabled in all buffers where
`turn-on-wordstar-mode' would do it.
See `wordstar-mode' for more information on Wordstar mode.

(fn &optional ARG)
(defalias 'global-wordstar-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\321 \210\202[	\203[\301\322!\210)A\266\202\202?\210\323\324\305\300!\203p\325\202q\326\"\210\327\330!\203\233\331\300!\210\302 \203\211\211\302 \232\203\233\332\333\334\305\300!\203\226\335\202\227\336#\266\210\337 \210\305\300!\207" [global-wordstar-mode wordstar-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-wordstar-mode-enable-in-buffers find-file-hook global-wordstar-mode-check-buffers change-major-mode-hook global-wordstar-mode-cmhh remove-hook buffer-list turn-on-wordstar-mode -1 run-hooks global-wordstar-mode-hook global-wordstar-mode-on-hook global-wordstar-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Wordstar mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 7927) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-wordstar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-wordstar-mode-map global-wordstar-mode-hook variable-documentation put "Hook run after entering or leaving `global-wordstar-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 global-wordstar-mode nil boundp] 6)
(defvar wordstar-mode-set-explicitly nil nil)
(make-variable-buffer-local 'wordstar-mode-set-explicitly)
(defalias 'wordstar-mode-set-explicitly #[0 "\301\211\207" [wordstar-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put wordstar-mode-set-explicitly definition-name global-wordstar-mode add-hook wordstar-mode-hook] 4)
(defvar global-wordstar-mode-buffers nil)
(defalias 'global-wordstar-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210	\204/\n=\204/\f\203,\304\307!\210\310 \210\202/\310 \210)A\266\202\202\262\207" [global-wordstar-mode-buffers wordstar-mode-set-explicitly wordstar-mode-major-mode major-mode wordstar-mode nil buffer-live-p -1 turn-on-wordstar-mode] 5])
(put 'global-wordstar-mode-enable-in-buffers 'definition-name 'global-wordstar-mode)
(defalias 'global-wordstar-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-wordstar-mode-enable-in-buffers remove-hook post-command-hook global-wordstar-mode-check-buffers] 3])
(put 'global-wordstar-mode-check-buffers 'definition-name 'global-wordstar-mode)
(defalias 'global-wordstar-mode-cmhh #[0 "p\211\235\203\f\210\202\211B\210\301\302\303\"\207" [global-wordstar-mode-buffers add-hook post-command-hook global-wordstar-mode-check-buffers] 3])
(put 'global-wordstar-mode-cmhh 'definition-name 'global-wordstar-mode)
#@96 Center each line in the paragraph at or after point.
See `wordstar-center-line' for more info.
(defalias 'wordstar-center-paragraph #[0 "\212\300 \210n\204\f\301\302!\210`\303 \210\304`\"\262)\207" [forward-paragraph newline 1 backward-paragraph wordstar-center-region] 4 (#$ . 11247) nil])
#@98 Center each line starting in the region.
See `wordstar-center-line' for more info.

(fn FROM TO)
(defalias 'wordstar-center-region #[514 "V\203\f\211\262\262\212\214}\210b\210m?\205#\300 \210\301y\210\202*\207" [wordstar-center-line 1] 4 (#$ . 11547) "r"])
#@181 Center the line point is on, within the width specified by `fill-column'.
This means adjusting the indentation to match
the distance between the end of the text and `fill-column'.
(defalias 'wordstar-center-line #[0 "\212\302\303 \210\304 \210\302\210\304 \210i\262\303 \210\305	#\306\245\\j\262)\207" [left-margin fill-column nil beginning-of-line delete-horizontal-space - 2] 6 (#$ . 11823) nil])
#@37 Position marker 0 in WordStar mode.
(defvar ws-marker-0 nil (#$ . 12234))
#@37 Position marker 1 in WordStar mode.
(defvar ws-marker-1 nil (#$ . 12314))
#@37 Position marker 2 in WordStar mode.
(defvar ws-marker-2 nil (#$ . 12394))
#@37 Position marker 3 in WordStar mode.
(defvar ws-marker-3 nil (#$ . 12474))
#@37 Position marker 4 in WordStar mode.
(defvar ws-marker-4 nil (#$ . 12554))
#@37 Position marker 5 in WordStar mode.
(defvar ws-marker-5 nil (#$ . 12634))
#@37 Position marker 6 in WordStar mode.
(defvar ws-marker-6 nil (#$ . 12714))
#@37 Position marker 7 in WordStar mode.
(defvar ws-marker-7 nil (#$ . 12794))
#@37 Position marker 8 in WordStar mode.
(defvar ws-marker-8 nil (#$ . 12874))
#@37 Position marker 9 in WordStar mode.
(defvar ws-marker-9 nil (#$ . 12954))
#@40 Beginning of "Block" in WordStar mode.
(defvar ws-block-begin-marker nil (#$ . 13034))
#@34 End of "Block" in WordStar mode.
(defvar ws-block-end-marker nil (#$ . 13127))
#@41 String of last search in WordStar mode.
(defvar ws-search-string nil (#$ . 13212))
#@76 Direction of last search in WordStar mode.  t if forward, nil if backward.
(defvar ws-search-direction t (#$ . 13301))
#@52 Position before last search etc. in WordStar mode.
(defvar ws-last-cursorposition nil (#$ . 13426))
#@56 Last error message issued by a WordStar mode function.
(defvar ws-last-errormessage nil (#$ . 13532))
#@133 Report error of a WordStar special function.
Error message is saved in `ws-last-errormessage' for recovery
with C-q w.

(fn STRING)
(defalias 'ws-error #[257 "\211\301!\207" [ws-last-errormessage error] 3 (#$ . 13641)])
#@70 In WordStar mode: Set block begin marker to current cursor position.
(defalias 'ws-begin-block #[0 "\301 \302\303!\207" [ws-block-begin-marker point-marker message "Block begin marker set"] 2 (#$ . 13869) nil])
#@39 In WordStar mode: Show block markers.
(defalias 'ws-show-markers #[0 "\204	\203>\212\203b\210\302\303!\210\304\305!\210\202#\302\306!\210\304\305!\210	\2035	b\210\302\307!\210\304\305!\210\2029\302\310!\210\302\311!)\207\302\312!\207" [ws-block-begin-marker ws-block-end-marker message "Block begin marker" sit-for 2 "Block begin marker not set" "Block end marker" "Block end marker not set" "" "Block markers not set"] 2 (#$ . 14087) nil])
#@55 In WordStar mode: Indent block (not yet implemented).
(defalias 'ws-indent-block #[0 "\300\301!\207" [ws-error "Indent block not yet implemented"] 2 (#$ . 14545) nil])
#@68 In WordStar mode: Set block end marker to current cursor position.
(defalias 'ws-end-block #[0 "\301 \302\303!\207" [ws-block-end-marker point-marker message "Block end marker set"] 2 (#$ . 14719) nil])
#@32 In WordStar mode: Print block.
(defalias 'ws-print-block #[0 "\300\301!\207" [message "Don't do this. Write block to a file (C-k w) and print this file"] 2 (#$ . 14929) nil])
#@47 In WordStar mode: Mark current word as block.
(defalias 'ws-mark-word #[0 "\212\300v\210\301\300!\210\302 \210\303v\210\301\300!\210\304 )\207" [1 sit-for ws-end-block -1 ws-begin-block] 2 (#$ . 15110) nil])
#@43 I don't know what this (C-k u) should do.
(defalias 'ws-exdent-block #[0 "\300\301!\207" [ws-error "This won't be done -- not yet implemented"] 2 (#$ . 15324) nil])
#@58 In WordStar mode: Move block to current cursor position.
(defalias 'ws-move-block #[0 "\203\"	\203\"\302	\"\210\303 \210\212\304 b\210\305 \306 b\210\305 \211)\207\307\203+\310\2024	\2033\311\2024\312!\207" [ws-block-begin-marker ws-block-end-marker kill-region yank region-beginning point-marker region-end ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 3 (#$ . 15495) nil])
#@40 In WordStar mode: Write block to file.
(defalias 'ws-write-block #[0 "\203	\203\302\303!\304	#\207\305\203\306\202#	\203\"\307\202#\310!\207" [ws-block-begin-marker ws-block-end-marker read-file-name "Write block to file: " write-region ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 5 (#$ . 15931) nil])
#@33 In WordStar mode: Delete block.
(defalias 'ws-delete-block #[0 "\203	\203\302	\"\210\303\211\211\207\304\203\305\202%	\203$\306\202%\307!\207" [ws-block-begin-marker ws-block-end-marker kill-region nil ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 4 (#$ . 16298) nil])
#@45 In WordStar mode: Go to block begin marker.
(defalias 'ws-goto-block-begin #[0 "\203\n\302 b\207\303\304!\207" [ws-block-begin-marker ws-last-cursorposition point-marker ws-error "Block begin marker not set"] 2 (#$ . 16631) nil])
#@79 In WordStar mode: Search string, remember string for repetition.

(fn STRING)
(defalias 'ws-search #[257 "\303\304!\210\305 \211\226\306\232\203\307\310 \311!\2020\211\226\312\232\203.\313\310 \314!\2020\315 \207" [ws-search-string ws-search-direction ws-last-cursorposition message "Forward (f) or backward (b)" read-char 70 t point-marker search-forward 66 nil search-backward keyboard-quit] 4 (#$ . 16871) "sSearch for: "])
#@43 In WordStar mode: Go to block end marker.
(defalias 'ws-goto-block-end #[0 "\203\n\302 b\207\303\304!\207" [ws-block-end-marker ws-last-cursorposition point-marker ws-error "Block end marker not set"] 2 (#$ . 17319) nil])
#@69 In WordStar mode: Undo and give message about undoing more changes.
(defalias 'ws-undo #[0 "\300 \210\301\302!\207" [undo message "Repeat C-q l to undo more changes"] 2 (#$ . 17551) nil])
#@54 In WordStar mode: Go to position before last search.
(defalias 'ws-goto-last-cursorposition #[0 "\203\n\301 \211b\207\302\303!\207" [ws-last-cursorposition point-marker ws-error "No last cursor position available"] 3 (#$ . 17745) nil])
#@112 In WordStar mode: repeat last error message.
This will only work for errors raised by WordStar mode functions.
(defalias 'ws-last-error #[0 "\203	\301\302\"\207\301\303!\207" [ws-last-errormessage message "%s" "No WordStar error yet"] 3 (#$ . 17991) nil])
#@72 In WordStar mode: Kill to end of line (like WordStar, not like Emacs).
(defalias 'ws-kill-eol #[0 "`\300\210\301`\"\207" [nil kill-region] 4 (#$ . 18256) nil])
#@78 In WordStar mode: Kill to beginning of line (like WordStar, not like Emacs).
(defalias 'ws-kill-bol #[0 "`\300 \210\301`\"\207" [beginning-of-line kill-region] 4 (#$ . 18424) nil])
#@25 Kill the complete line.
(defalias 'kill-complete-line #[0 "\300 \210m\203\301\302!\210`\303y\210\304`\"\207" [beginning-of-line error "End of buffer" 1 kill-region] 4 (#$ . 18612) nil])
#@39 In WordStar mode: Repeat last search.
(defalias 'ws-repeat-search #[0 "\303 	\203\n\203\304	!\207\305	!\207\306\307!\207" [ws-last-cursorposition ws-search-string ws-search-direction point-marker search-forward search-backward ws-error "No search to repeat"] 2 (#$ . 18807) nil])
#@80 In WordStar mode: Search string, remember string for repetition.

(fn FROM TO)
(defalias 'ws-query-replace #[514 "\303\304 \305\"\207" [ws-search-string ws-search-direction ws-last-cursorposition t point-marker query-replace] 5 (#$ . 19098) "sReplace: \nsWith: "])
#@58 In WordStar mode: Copy block to current cursor position.
(defalias 'ws-copy-block #[0 "\203\"	\203\"\302	\"\210\303 \210\212\304 b\210\305 \306 b\210\305 \211)\207\307\203+\310\2024	\2033\311\2024\312!\207" [ws-block-begin-marker ws-block-end-marker copy-region-as-kill yank region-beginning point-marker region-end ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 3 (#$ . 19375) nil])
#@22 

(fn &rest INDICES)
(defalias 'ws-set-marker '(macro . #[128 "\300\211\2037\211A\262\242\262\301\302\303\304\"!\300\303\305\"\306\307\302\303\310\n\"!\311BB\312\303\313\n\"D\257B\262\202\314\237B\207" [nil defun intern format "ws-set-marker-%d" "In WordStar mode: Set marker %d to current cursor position" (interactive) setq "ws-marker-%d" ((point-marker)) message "Marker %d set" progn] 13 (#$ . 19819)]))
#@59 In WordStar mode: Set marker 0 to current cursor position
(defalias 'ws-set-marker-0 #[0 "\301 \302\303!\207" [ws-marker-0 point-marker message "Marker 0 set"] 2 (#$ . 20249) nil])
#@59 In WordStar mode: Set marker 1 to current cursor position
(defalias 'ws-set-marker-1 #[0 "\301 \302\303!\207" [ws-marker-1 point-marker message "Marker 1 set"] 2 (#$ . 20437) nil])
#@59 In WordStar mode: Set marker 2 to current cursor position
(defalias 'ws-set-marker-2 #[0 "\301 \302\303!\207" [ws-marker-2 point-marker message "Marker 2 set"] 2 (#$ . 20625) nil])
#@59 In WordStar mode: Set marker 3 to current cursor position
(defalias 'ws-set-marker-3 #[0 "\301 \302\303!\207" [ws-marker-3 point-marker message "Marker 3 set"] 2 (#$ . 20813) nil])
#@59 In WordStar mode: Set marker 4 to current cursor position
(defalias 'ws-set-marker-4 #[0 "\301 \302\303!\207" [ws-marker-4 point-marker message "Marker 4 set"] 2 (#$ . 21001) nil])
#@59 In WordStar mode: Set marker 5 to current cursor position
(defalias 'ws-set-marker-5 #[0 "\301 \302\303!\207" [ws-marker-5 point-marker message "Marker 5 set"] 2 (#$ . 21189) nil])
#@59 In WordStar mode: Set marker 6 to current cursor position
(defalias 'ws-set-marker-6 #[0 "\301 \302\303!\207" [ws-marker-6 point-marker message "Marker 6 set"] 2 (#$ . 21377) nil])
#@59 In WordStar mode: Set marker 7 to current cursor position
(defalias 'ws-set-marker-7 #[0 "\301 \302\303!\207" [ws-marker-7 point-marker message "Marker 7 set"] 2 (#$ . 21565) nil])
#@59 In WordStar mode: Set marker 8 to current cursor position
(defalias 'ws-set-marker-8 #[0 "\301 \302\303!\207" [ws-marker-8 point-marker message "Marker 8 set"] 2 (#$ . 21753) nil])
#@59 In WordStar mode: Set marker 9 to current cursor position
(defalias 'ws-set-marker-9 #[0 "\301 \302\303!\207" [ws-marker-9 point-marker message "Marker 9 set"] 2 (#$ . 21941) nil])
#@22 

(fn &rest INDICES)
(defalias 'ws-find-marker '(macro . #[128 "\300\211\203A\211A\262\242\262\301\302\303\304\"!\300\303\305\"\306\307\302\303\310\n\"!\311\312\313\302\303\310\"!DE\314\303\315\f\"DF\257B\262\202\311\237B\207" [nil defun intern format "ws-find-marker-%d" "In WordStar mode: Go to marker %d." (interactive) if "ws-marker-%d" progn (setq ws-last-cursorposition (point-marker)) goto-char ws-error "Marker %d not set"] 17 (#$ . 22129)]))
#@35 In WordStar mode: Go to marker 0.
(defalias 'ws-find-marker-0 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-0 ws-last-cursorposition point-marker ws-error "Marker 0 not set"] 2 (#$ . 22604) nil])
#@35 In WordStar mode: Go to marker 1.
(defalias 'ws-find-marker-1 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-1 ws-last-cursorposition point-marker ws-error "Marker 1 not set"] 2 (#$ . 22811) nil])
#@35 In WordStar mode: Go to marker 2.
(defalias 'ws-find-marker-2 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-2 ws-last-cursorposition point-marker ws-error "Marker 2 not set"] 2 (#$ . 23018) nil])
#@35 In WordStar mode: Go to marker 3.
(defalias 'ws-find-marker-3 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-3 ws-last-cursorposition point-marker ws-error "Marker 3 not set"] 2 (#$ . 23225) nil])
#@35 In WordStar mode: Go to marker 4.
(defalias 'ws-find-marker-4 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-4 ws-last-cursorposition point-marker ws-error "Marker 4 not set"] 2 (#$ . 23432) nil])
#@35 In WordStar mode: Go to marker 5.
(defalias 'ws-find-marker-5 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-5 ws-last-cursorposition point-marker ws-error "Marker 5 not set"] 2 (#$ . 23639) nil])
#@35 In WordStar mode: Go to marker 6.
(defalias 'ws-find-marker-6 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-6 ws-last-cursorposition point-marker ws-error "Marker 6 not set"] 2 (#$ . 23846) nil])
#@35 In WordStar mode: Go to marker 7.
(defalias 'ws-find-marker-7 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-7 ws-last-cursorposition point-marker ws-error "Marker 7 not set"] 2 (#$ . 24053) nil])
#@35 In WordStar mode: Go to marker 8.
(defalias 'ws-find-marker-8 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-8 ws-last-cursorposition point-marker ws-error "Marker 8 not set"] 2 (#$ . 24260) nil])
#@35 In WordStar mode: Go to marker 9.
(defalias 'ws-find-marker-9 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-9 ws-last-cursorposition point-marker ws-error "Marker 9 not set"] 2 (#$ . 24467) nil])
(provide 'ws-mode)

Youez - 2016 - github.com/yon3zu
LinuXploit