Simple image host.
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

keyboard-select 200KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995
  1. <!DOCTYPE html>
  2. <html lang="en" class="">
  3. <head prefix="og: http://ogp.me/ns# fb: http://ogp.me/ns/fb# object: http://ogp.me/ns/object# article: http://ogp.me/ns/article# profile: http://ogp.me/ns/profile#">
  4. <meta charset='utf-8'>
  5. <meta http-equiv="X-UA-Compatible" content="IE=edge">
  6. <meta http-equiv="Content-Language" content="en">
  7. <title>urxvt-perls/keyboard-select at master · muennich/urxvt-perls · GitHub</title>
  8. <link rel="search" type="application/opensearchdescription+xml" href="/opensearch.xml" title="GitHub">
  9. <link rel="fluid-icon" href="https://github.com/fluidicon.png" title="GitHub">
  10. <link rel="apple-touch-icon" sizes="57x57" href="/apple-touch-icon-114.png">
  11. <link rel="apple-touch-icon" sizes="114x114" href="/apple-touch-icon-114.png">
  12. <link rel="apple-touch-icon" sizes="72x72" href="/apple-touch-icon-144.png">
  13. <link rel="apple-touch-icon" sizes="144x144" href="/apple-touch-icon-144.png">
  14. <meta property="fb:app_id" content="1401488693436528">
  15. <meta content="@github" name="twitter:site" /><meta content="summary" name="twitter:card" /><meta content="muennich/urxvt-perls" name="twitter:title" /><meta content="urxvt-perls - Perl extensions for the rxvt-unicode terminal emulator" name="twitter:description" /><meta content="https://avatars0.githubusercontent.com/u/181552?v=3&amp;s=400" name="twitter:image:src" />
  16. <meta content="GitHub" property="og:site_name" /><meta content="object" property="og:type" /><meta content="https://avatars0.githubusercontent.com/u/181552?v=3&amp;s=400" property="og:image" /><meta content="muennich/urxvt-perls" property="og:title" /><meta content="https://github.com/muennich/urxvt-perls" property="og:url" /><meta content="urxvt-perls - Perl extensions for the rxvt-unicode terminal emulator" property="og:description" />
  17. <meta name="browser-stats-url" content="https://api.github.com/_private/browser/stats">
  18. <meta name="browser-errors-url" content="https://api.github.com/_private/browser/errors">
  19. <link rel="assets" href="https://assets-cdn.github.com/">
  20. <meta name="pjax-timeout" content="1000">
  21. <meta name="msapplication-TileImage" content="/windows-tile.png">
  22. <meta name="msapplication-TileColor" content="#ffffff">
  23. <meta name="selected-link" value="repo_source" data-pjax-transient>
  24. <meta name="google-analytics" content="UA-3769691-2">
  25. <meta content="collector.githubapp.com" name="octolytics-host" /><meta content="collector-cdn.github.com" name="octolytics-script-host" /><meta content="github" name="octolytics-app-id" /><meta content="B90D5C14:0FF0:386B507:5591266E" name="octolytics-dimension-request_id" />
  26. <meta content="Rails, view, blob#show" name="analytics-event" />
  27. <meta class="js-ga-set" name="dimension1" content="Logged Out">
  28. <meta name="is-dotcom" content="true">
  29. <meta name="hostname" content="github.com">
  30. <meta name="user-login" content="">
  31. <link rel="icon" sizes="any" mask href="https://assets-cdn.github.com/pinned-octocat.svg">
  32. <meta name="theme-color" content="#4078c0">
  33. <link rel="icon" type="image/x-icon" href="https://assets-cdn.github.com/favicon.ico">
  34. <meta content="authenticity_token" name="csrf-param" />
  35. <meta content="gR8mdQ0+71fOsP6FJvqA4aHe8en418VA0YjmzOOkROom1BBPW292Aj89PA85RGdcYCIwkLHtgYXGKSFtuIyvvA==" name="csrf-token" />
  36. <link crossorigin="anonymous" href="https://assets-cdn.github.com/assets/github/index-4157068649cead58a7dd42dc9c0f2dc5b01bcc77921bc077b357e48be23aa237.css" media="all" rel="stylesheet" />
  37. <link crossorigin="anonymous" href="https://assets-cdn.github.com/assets/github2/index-53b81bbd58011083c0ec0ad891de925f2dc177a927a56ebeed25af072f386e72.css" media="all" rel="stylesheet" />
  38. <meta http-equiv="x-pjax-version" content="8d6b5bc802e290f9d4b2adb34211ee85">
  39. <meta name="description" content="urxvt-perls - Perl extensions for the rxvt-unicode terminal emulator">
  40. <meta name="go-import" content="github.com/muennich/urxvt-perls git https://github.com/muennich/urxvt-perls.git">
  41. <meta content="181552" name="octolytics-dimension-user_id" /><meta content="muennich" name="octolytics-dimension-user_login" /><meta content="811687" name="octolytics-dimension-repository_id" /><meta content="muennich/urxvt-perls" name="octolytics-dimension-repository_nwo" /><meta content="true" name="octolytics-dimension-repository_public" /><meta content="false" name="octolytics-dimension-repository_is_fork" /><meta content="811687" name="octolytics-dimension-repository_network_root_id" /><meta content="muennich/urxvt-perls" name="octolytics-dimension-repository_network_root_nwo" />
  42. <link href="https://github.com/muennich/urxvt-perls/commits/master.atom" rel="alternate" title="Recent Commits to urxvt-perls:master" type="application/atom+xml">
  43. </head>
  44. <body class="logged_out env-production vis-public page-blob">
  45. <a href="#start-of-content" tabindex="1" class="accessibility-aid js-skip-to-content">Skip to content</a>
  46. <div class="wrapper">
  47. <div class="header header-logged-out" role="banner">
  48. <div class="container clearfix">
  49. <a class="header-logo-wordmark" href="https://github.com/" data-ga-click="(Logged out) Header, go to homepage, icon:logo-wordmark">
  50. <span class="mega-octicon octicon-logo-github"></span>
  51. </a>
  52. <div class="header-actions" role="navigation">
  53. <a class="btn btn-primary" href="/join" data-ga-click="(Logged out) Header, clicked Sign up, text:sign-up">Sign up</a>
  54. <a class="btn" href="/login?return_to=%2Fmuennich%2Furxvt-perls%2Fblob%2Fmaster%2Fkeyboard-select" data-ga-click="(Logged out) Header, clicked Sign in, text:sign-in">Sign in</a>
  55. </div>
  56. <div class="site-search repo-scope js-site-search" role="search">
  57. <form accept-charset="UTF-8" action="/muennich/urxvt-perls/search" class="js-site-search-form" data-global-search-url="/search" data-repo-search-url="/muennich/urxvt-perls/search" method="get"><div style="margin:0;padding:0;display:inline"><input name="utf8" type="hidden" value="&#x2713;" /></div>
  58. <label class="js-chromeless-input-container form-control">
  59. <div class="scope-badge">This repository</div>
  60. <input type="text"
  61. class="js-site-search-focus js-site-search-field is-clearable chromeless-input"
  62. data-hotkey="s"
  63. name="q"
  64. placeholder="Search"
  65. data-global-scope-placeholder="Search GitHub"
  66. data-repo-scope-placeholder="Search"
  67. tabindex="1"
  68. autocapitalize="off">
  69. </label>
  70. </form>
  71. </div>
  72. <ul class="header-nav left" role="navigation">
  73. <li class="header-nav-item">
  74. <a class="header-nav-link" href="/explore" data-ga-click="(Logged out) Header, go to explore, text:explore">Explore</a>
  75. </li>
  76. <li class="header-nav-item">
  77. <a class="header-nav-link" href="/features" data-ga-click="(Logged out) Header, go to features, text:features">Features</a>
  78. </li>
  79. <li class="header-nav-item">
  80. <a class="header-nav-link" href="https://enterprise.github.com/" data-ga-click="(Logged out) Header, go to enterprise, text:enterprise">Enterprise</a>
  81. </li>
  82. <li class="header-nav-item">
  83. <a class="header-nav-link" href="/blog" data-ga-click="(Logged out) Header, go to blog, text:blog">Blog</a>
  84. </li>
  85. </ul>
  86. </div>
  87. </div>
  88. <div id="start-of-content" class="accessibility-aid"></div>
  89. <div class="site" itemscope itemtype="http://schema.org/WebPage">
  90. <div id="js-flash-container">
  91. </div>
  92. <div class="pagehead repohead instapaper_ignore readability-menu">
  93. <div class="container">
  94. <ul class="pagehead-actions">
  95. <li>
  96. <a href="/login?return_to=%2Fmuennich%2Furxvt-perls"
  97. class="btn btn-sm btn-with-count tooltipped tooltipped-n"
  98. aria-label="You must be signed in to watch a repository" rel="nofollow">
  99. <span class="octicon octicon-eye"></span>
  100. Watch
  101. </a>
  102. <a class="social-count" href="/muennich/urxvt-perls/watchers">
  103. 34
  104. </a>
  105. </li>
  106. <li>
  107. <a href="/login?return_to=%2Fmuennich%2Furxvt-perls"
  108. class="btn btn-sm btn-with-count tooltipped tooltipped-n"
  109. aria-label="You must be signed in to star a repository" rel="nofollow">
  110. <span class="octicon octicon-star"></span>
  111. Star
  112. </a>
  113. <a class="social-count js-social-count" href="/muennich/urxvt-perls/stargazers">
  114. 389
  115. </a>
  116. </li>
  117. <li>
  118. <a href="/login?return_to=%2Fmuennich%2Furxvt-perls"
  119. class="btn btn-sm btn-with-count tooltipped tooltipped-n"
  120. aria-label="You must be signed in to fork a repository" rel="nofollow">
  121. <span class="octicon octicon-repo-forked"></span>
  122. Fork
  123. </a>
  124. <a href="/muennich/urxvt-perls/network" class="social-count">
  125. 52
  126. </a>
  127. </li>
  128. </ul>
  129. <h1 itemscope itemtype="http://data-vocabulary.org/Breadcrumb" class="entry-title public">
  130. <span class="mega-octicon octicon-repo"></span>
  131. <span class="author"><a href="/muennich" class="url fn" itemprop="url" rel="author"><span itemprop="title">muennich</span></a></span><!--
  132. --><span class="path-divider">/</span><!--
  133. --><strong><a href="/muennich/urxvt-perls" data-pjax="#js-repo-pjax-container">urxvt-perls</a></strong>
  134. <span class="page-context-loader">
  135. <img alt="" height="16" src="https://assets-cdn.github.com/images/spinners/octocat-spinner-32.gif" width="16" />
  136. </span>
  137. </h1>
  138. </div><!-- /.container -->
  139. </div><!-- /.repohead -->
  140. <div class="container">
  141. <div class="repository-with-sidebar repo-container new-discussion-timeline ">
  142. <div class="repository-sidebar clearfix">
  143. <nav class="sunken-menu repo-nav js-repo-nav js-sidenav-container-pjax js-octicon-loaders"
  144. role="navigation"
  145. data-pjax="#js-repo-pjax-container"
  146. data-issue-count-url="/muennich/urxvt-perls/issues/counts">
  147. <ul class="sunken-menu-group">
  148. <li class="tooltipped tooltipped-w" aria-label="Code">
  149. <a href="/muennich/urxvt-perls" aria-label="Code" class="selected js-selected-navigation-item sunken-menu-item" data-hotkey="g c" data-selected-links="repo_source repo_downloads repo_commits repo_releases repo_tags repo_branches /muennich/urxvt-perls">
  150. <span class="octicon octicon-code"></span> <span class="full-word">Code</span>
  151. <img alt="" class="mini-loader" height="16" src="https://assets-cdn.github.com/images/spinners/octocat-spinner-32.gif" width="16" />
  152. </a> </li>
  153. <li class="tooltipped tooltipped-w" aria-label="Issues">
  154. <a href="/muennich/urxvt-perls/issues" aria-label="Issues" class="js-selected-navigation-item sunken-menu-item" data-hotkey="g i" data-selected-links="repo_issues repo_labels repo_milestones /muennich/urxvt-perls/issues">
  155. <span class="octicon octicon-issue-opened"></span> <span class="full-word">Issues</span>
  156. <span class="js-issue-replace-counter"></span>
  157. <img alt="" class="mini-loader" height="16" src="https://assets-cdn.github.com/images/spinners/octocat-spinner-32.gif" width="16" />
  158. </a> </li>
  159. <li class="tooltipped tooltipped-w" aria-label="Pull requests">
  160. <a href="/muennich/urxvt-perls/pulls" aria-label="Pull requests" class="js-selected-navigation-item sunken-menu-item" data-hotkey="g p" data-selected-links="repo_pulls /muennich/urxvt-perls/pulls">
  161. <span class="octicon octicon-git-pull-request"></span> <span class="full-word">Pull requests</span>
  162. <span class="js-pull-replace-counter"></span>
  163. <img alt="" class="mini-loader" height="16" src="https://assets-cdn.github.com/images/spinners/octocat-spinner-32.gif" width="16" />
  164. </a> </li>
  165. </ul>
  166. <div class="sunken-menu-separator"></div>
  167. <ul class="sunken-menu-group">
  168. <li class="tooltipped tooltipped-w" aria-label="Pulse">
  169. <a href="/muennich/urxvt-perls/pulse" aria-label="Pulse" class="js-selected-navigation-item sunken-menu-item" data-selected-links="pulse /muennich/urxvt-perls/pulse">
  170. <span class="octicon octicon-pulse"></span> <span class="full-word">Pulse</span>
  171. <img alt="" class="mini-loader" height="16" src="https://assets-cdn.github.com/images/spinners/octocat-spinner-32.gif" width="16" />
  172. </a> </li>
  173. <li class="tooltipped tooltipped-w" aria-label="Graphs">
  174. <a href="/muennich/urxvt-perls/graphs" aria-label="Graphs" class="js-selected-navigation-item sunken-menu-item" data-selected-links="repo_graphs repo_contributors /muennich/urxvt-perls/graphs">
  175. <span class="octicon octicon-graph"></span> <span class="full-word">Graphs</span>
  176. <img alt="" class="mini-loader" height="16" src="https://assets-cdn.github.com/images/spinners/octocat-spinner-32.gif" width="16" />
  177. </a> </li>
  178. </ul>
  179. </nav>
  180. <div class="only-with-full-nav">
  181. <div class="js-clone-url clone-url open"
  182. data-protocol-type="http">
  183. <h3><span class="text-emphasized">HTTPS</span> clone URL</h3>
  184. <div class="input-group js-zeroclipboard-container">
  185. <input type="text" class="input-mini input-monospace js-url-field js-zeroclipboard-target"
  186. value="https://github.com/muennich/urxvt-perls.git" readonly="readonly">
  187. <span class="input-group-button">
  188. <button aria-label="Copy to clipboard" class="js-zeroclipboard btn btn-sm zeroclipboard-button tooltipped tooltipped-s" data-copied-hint="Copied!" type="button"><span class="octicon octicon-clippy"></span></button>
  189. </span>
  190. </div>
  191. </div>
  192. <div class="js-clone-url clone-url "
  193. data-protocol-type="subversion">
  194. <h3><span class="text-emphasized">Subversion</span> checkout URL</h3>
  195. <div class="input-group js-zeroclipboard-container">
  196. <input type="text" class="input-mini input-monospace js-url-field js-zeroclipboard-target"
  197. value="https://github.com/muennich/urxvt-perls" readonly="readonly">
  198. <span class="input-group-button">
  199. <button aria-label="Copy to clipboard" class="js-zeroclipboard btn btn-sm zeroclipboard-button tooltipped tooltipped-s" data-copied-hint="Copied!" type="button"><span class="octicon octicon-clippy"></span></button>
  200. </span>
  201. </div>
  202. </div>
  203. <div class="clone-options">You can clone with
  204. <form accept-charset="UTF-8" action="/users/set_protocol?protocol_selector=http&amp;protocol_type=clone" class="inline-form js-clone-selector-form " data-remote="true" method="post"><div style="margin:0;padding:0;display:inline"><input name="utf8" type="hidden" value="&#x2713;" /><input name="authenticity_token" type="hidden" value="ALqkrQuVO34eiCUU9b/SPENSDblR8/2MUHwoYRwkaRboclN8TYgmZPpqlr/eYTqUYmFI9RSkvCZ1rIOQ421SKw==" /></div><button class="btn-link js-clone-selector" data-protocol="http" type="submit">HTTPS</button></form> or <form accept-charset="UTF-8" action="/users/set_protocol?protocol_selector=subversion&amp;protocol_type=clone" class="inline-form js-clone-selector-form " data-remote="true" method="post"><div style="margin:0;padding:0;display:inline"><input name="utf8" type="hidden" value="&#x2713;" /><input name="authenticity_token" type="hidden" value="cWnB/fKwM7+Vs+Zsx9IvuXGWO98rEmbJ5SmFqViIosK3bkl+IO7D30fIX1gaQkOKOAxrQuTzayfJ0tO/r42ONw==" /></div><button class="btn-link js-clone-selector" data-protocol="subversion" type="submit">Subversion</button></form>.
  205. <a href="https://help.github.com/articles/which-remote-url-should-i-use" class="help tooltipped tooltipped-n" aria-label="Get help on which URL is right for you.">
  206. <span class="octicon octicon-question"></span>
  207. </a>
  208. </div>
  209. <a href="/muennich/urxvt-perls/archive/master.zip"
  210. class="btn btn-sm sidebar-button"
  211. aria-label="Download the contents of muennich/urxvt-perls as a zip file"
  212. title="Download the contents of muennich/urxvt-perls as a zip file"
  213. rel="nofollow">
  214. <span class="octicon octicon-cloud-download"></span>
  215. Download ZIP
  216. </a>
  217. </div>
  218. </div><!-- /.repository-sidebar -->
  219. <div id="js-repo-pjax-container" class="repository-content context-loader-container" data-pjax-container>
  220. <a href="/muennich/urxvt-perls/blob/e4dbde31edd19e2f4c2b6c91117ee91e2f83ddd7/keyboard-select" class="hidden js-permalink-shortcut" data-hotkey="y">Permalink</a>
  221. <!-- blob contrib key: blob_contributors:v21:661c68088a2d73ec6ae29bc0de91880e -->
  222. <div class="file-navigation js-zeroclipboard-container">
  223. <div class="select-menu js-menu-container js-select-menu left">
  224. <span class="btn btn-sm select-menu-button js-menu-target css-truncate" data-hotkey="w"
  225. data-ref="master"
  226. title="master"
  227. role="button" aria-label="Switch branches or tags" tabindex="0" aria-haspopup="true">
  228. <span class="octicon octicon-git-branch"></span>
  229. <i>branch:</i>
  230. <span class="js-select-button css-truncate-target">master</span>
  231. </span>
  232. <div class="select-menu-modal-holder js-menu-content js-navigation-container" data-pjax aria-hidden="true">
  233. <div class="select-menu-modal">
  234. <div class="select-menu-header">
  235. <span class="select-menu-title">Switch branches/tags</span>
  236. <span class="octicon octicon-x js-menu-close" role="button" aria-label="Close"></span>
  237. </div>
  238. <div class="select-menu-filters">
  239. <div class="select-menu-text-filter">
  240. <input type="text" aria-label="Filter branches/tags" id="context-commitish-filter-field" class="js-filterable-field js-navigation-enable" placeholder="Filter branches/tags">
  241. </div>
  242. <div class="select-menu-tabs">
  243. <ul>
  244. <li class="select-menu-tab">
  245. <a href="#" data-tab-filter="branches" data-filter-placeholder="Filter branches/tags" class="js-select-menu-tab">Branches</a>
  246. </li>
  247. <li class="select-menu-tab">
  248. <a href="#" data-tab-filter="tags" data-filter-placeholder="Find a tag…" class="js-select-menu-tab">Tags</a>
  249. </li>
  250. </ul>
  251. </div>
  252. </div>
  253. <div class="select-menu-list select-menu-tab-bucket js-select-menu-tab-bucket" data-tab-filter="branches">
  254. <div data-filterable-for="context-commitish-filter-field" data-filterable-type="substring">
  255. <a class="select-menu-item js-navigation-item js-navigation-open selected"
  256. href="/muennich/urxvt-perls/blob/master/keyboard-select"
  257. data-name="master"
  258. data-skip-pjax="true"
  259. rel="nofollow">
  260. <span class="select-menu-item-icon octicon octicon-check"></span>
  261. <span class="select-menu-item-text css-truncate-target" title="master">
  262. master
  263. </span>
  264. </a>
  265. </div>
  266. <div class="select-menu-no-results">Nothing to show</div>
  267. </div>
  268. <div class="select-menu-list select-menu-tab-bucket js-select-menu-tab-bucket" data-tab-filter="tags">
  269. <div data-filterable-for="context-commitish-filter-field" data-filterable-type="substring">
  270. <div class="select-menu-item js-navigation-item ">
  271. <span class="select-menu-item-icon octicon octicon-check"></span>
  272. <a href="/muennich/urxvt-perls/tree/2.2/keyboard-select"
  273. data-name="2.2"
  274. data-skip-pjax="true"
  275. rel="nofollow"
  276. class="js-navigation-open select-menu-item-text css-truncate-target"
  277. title="2.2">2.2</a>
  278. </div>
  279. <div class="select-menu-item js-navigation-item ">
  280. <span class="select-menu-item-icon octicon octicon-check"></span>
  281. <a href="/muennich/urxvt-perls/tree/2.1/keyboard-select"
  282. data-name="2.1"
  283. data-skip-pjax="true"
  284. rel="nofollow"
  285. class="js-navigation-open select-menu-item-text css-truncate-target"
  286. title="2.1">2.1</a>
  287. </div>
  288. <div class="select-menu-item js-navigation-item ">
  289. <span class="select-menu-item-icon octicon octicon-check"></span>
  290. <a href="/muennich/urxvt-perls/tree/2.0/keyboard-select"
  291. data-name="2.0"
  292. data-skip-pjax="true"
  293. rel="nofollow"
  294. class="js-navigation-open select-menu-item-text css-truncate-target"
  295. title="2.0">2.0</a>
  296. </div>
  297. </div>
  298. <div class="select-menu-no-results">Nothing to show</div>
  299. </div>
  300. </div>
  301. </div>
  302. </div>
  303. <div class="btn-group right">
  304. <a href="/muennich/urxvt-perls/find/master"
  305. class="js-show-file-finder btn btn-sm empty-icon tooltipped tooltipped-s"
  306. data-pjax
  307. data-hotkey="t"
  308. aria-label="Quickly jump between files">
  309. <span class="octicon octicon-list-unordered"></span>
  310. </a>
  311. <button aria-label="Copy file path to clipboard" class="js-zeroclipboard btn btn-sm zeroclipboard-button tooltipped tooltipped-s" data-copied-hint="Copied!" type="button"><span class="octicon octicon-clippy"></span></button>
  312. </div>
  313. <div class="breadcrumb js-zeroclipboard-target">
  314. <span class="repo-root js-repo-root"><span itemscope="" itemtype="http://data-vocabulary.org/Breadcrumb"><a href="/muennich/urxvt-perls" class="" data-branch="master" data-pjax="true" itemscope="url"><span itemprop="title">urxvt-perls</span></a></span></span><span class="separator">/</span><strong class="final-path">keyboard-select</strong>
  315. </div>
  316. </div>
  317. <div class="commit file-history-tease">
  318. <div class="file-history-tease-header">
  319. <img alt="@seletskiy" class="avatar" height="24" src="https://avatars1.githubusercontent.com/u/674812?v=3&amp;s=48" width="24" />
  320. <span class="author"><a href="/seletskiy" rel="contributor">seletskiy</a></span>
  321. <time datetime="2015-01-22T16:28:44Z" is="relative-time">Jan 22, 2015</time>
  322. <div class="commit-title">
  323. <a href="/muennich/urxvt-perls/commit/10c64a552fad22de0b6e7f1f8da81b445e7abc70" class="message" data-pjax="true" title="compatibility with urxvt 9.21+">compatibility with urxvt 9.21+</a>
  324. </div>
  325. </div>
  326. <div class="participation">
  327. <p class="quickstat">
  328. <a href="#blob_contributors_box" rel="facebox">
  329. <strong>2</strong>
  330. contributors
  331. </a>
  332. </p>
  333. <a class="avatar-link tooltipped tooltipped-s" aria-label="muennich" href="/muennich/urxvt-perls/commits/master/keyboard-select?author=muennich"><img alt="@muennich" class="avatar" height="20" src="https://avatars0.githubusercontent.com/u/181552?v=3&amp;s=40" width="20" /> </a>
  334. <a class="avatar-link tooltipped tooltipped-s" aria-label="seletskiy" href="/muennich/urxvt-perls/commits/master/keyboard-select?author=seletskiy"><img alt="@seletskiy" class="avatar" height="20" src="https://avatars3.githubusercontent.com/u/674812?v=3&amp;s=40" width="20" /> </a>
  335. </div>
  336. <div id="blob_contributors_box" style="display:none">
  337. <h2 class="facebox-header">Users who have contributed to this file</h2>
  338. <ul class="facebox-user-list">
  339. <li class="facebox-user-list-item">
  340. <img alt="@muennich" height="24" src="https://avatars2.githubusercontent.com/u/181552?v=3&amp;s=48" width="24" />
  341. <a href="/muennich">muennich</a>
  342. </li>
  343. <li class="facebox-user-list-item">
  344. <img alt="@seletskiy" height="24" src="https://avatars1.githubusercontent.com/u/674812?v=3&amp;s=48" width="24" />
  345. <a href="/seletskiy">seletskiy</a>
  346. </li>
  347. </ul>
  348. </div>
  349. </div>
  350. <div class="file">
  351. <div class="file-header">
  352. <div class="file-actions">
  353. <div class="btn-group">
  354. <a href="/muennich/urxvt-perls/raw/master/keyboard-select" class="btn btn-sm " id="raw-url">Raw</a>
  355. <a href="/muennich/urxvt-perls/blame/master/keyboard-select" class="btn btn-sm js-update-url-with-hash">Blame</a>
  356. <a href="/muennich/urxvt-perls/commits/master/keyboard-select" class="btn btn-sm " rel="nofollow">History</a>
  357. </div>
  358. <button type="button" class="octicon-btn disabled tooltipped tooltipped-n" aria-label="You must be signed in to make or propose changes">
  359. <span class="octicon octicon-pencil"></span>
  360. </button>
  361. <button type="button" class="octicon-btn octicon-btn-danger disabled tooltipped tooltipped-n" aria-label="You must be signed in to make or propose changes">
  362. <span class="octicon octicon-trashcan"></span>
  363. </button>
  364. </div>
  365. <div class="file-info">
  366. 587 lines (499 sloc)
  367. <span class="file-info-divider"></span>
  368. 14.79 kB
  369. </div>
  370. </div>
  371. <div class="blob-wrapper data type-perl">
  372. <table class="highlight tab-size js-file-line-container" data-tab-size="8">
  373. <tr>
  374. <td id="L1" class="blob-num js-line-number" data-line-number="1"></td>
  375. <td id="LC1" class="blob-code blob-code-inner js-file-line"><span class="pl-c">#! perl -w</span></td>
  376. </tr>
  377. <tr>
  378. <td id="L2" class="blob-num js-line-number" data-line-number="2"></td>
  379. <td id="LC2" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># Author: Bert Muennich</span></td>
  380. </tr>
  381. <tr>
  382. <td id="L3" class="blob-num js-line-number" data-line-number="3"></td>
  383. <td id="LC3" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># Website: http://www.github.com/muennich/urxvt-perls</span></td>
  384. </tr>
  385. <tr>
  386. <td id="L4" class="blob-num js-line-number" data-line-number="4"></td>
  387. <td id="LC4" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># License: GPLv2</span></td>
  388. </tr>
  389. <tr>
  390. <td id="L5" class="blob-num js-line-number" data-line-number="5"></td>
  391. <td id="LC5" class="blob-code blob-code-inner js-file-line">
  392. </td>
  393. </tr>
  394. <tr>
  395. <td id="L6" class="blob-num js-line-number" data-line-number="6"></td>
  396. <td id="LC6" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># Use keyboard shortcuts to select and copy text.</span></td>
  397. </tr>
  398. <tr>
  399. <td id="L7" class="blob-num js-line-number" data-line-number="7"></td>
  400. <td id="LC7" class="blob-code blob-code-inner js-file-line">
  401. </td>
  402. </tr>
  403. <tr>
  404. <td id="L8" class="blob-num js-line-number" data-line-number="8"></td>
  405. <td id="LC8" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># Usage: put the following lines in your .Xdefaults/.Xresources:</span></td>
  406. </tr>
  407. <tr>
  408. <td id="L9" class="blob-num js-line-number" data-line-number="9"></td>
  409. <td id="LC9" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># URxvt.perl-ext-common: ...,keyboard-select</span></td>
  410. </tr>
  411. <tr>
  412. <td id="L10" class="blob-num js-line-number" data-line-number="10"></td>
  413. <td id="LC10" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># URxvt.keysym.M-Escape: perl:keyboard-select:activate</span></td>
  414. </tr>
  415. <tr>
  416. <td id="L11" class="blob-num js-line-number" data-line-number="11"></td>
  417. <td id="LC11" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># The following line overwrites the default Meta-s binding and allows to</span></td>
  418. </tr>
  419. <tr>
  420. <td id="L12" class="blob-num js-line-number" data-line-number="12"></td>
  421. <td id="LC12" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># activate keyboard-select directly in backward search mode:</span></td>
  422. </tr>
  423. <tr>
  424. <td id="L13" class="blob-num js-line-number" data-line-number="13"></td>
  425. <td id="LC13" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># URxvt.keysym.M-s: perl:keyboard-select:search</span></td>
  426. </tr>
  427. <tr>
  428. <td id="L14" class="blob-num js-line-number" data-line-number="14"></td>
  429. <td id="LC14" class="blob-code blob-code-inner js-file-line">
  430. </td>
  431. </tr>
  432. <tr>
  433. <td id="L15" class="blob-num js-line-number" data-line-number="15"></td>
  434. <td id="LC15" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># Use Meta-Escape to activate selection mode, then use the following keys:</span></td>
  435. </tr>
  436. <tr>
  437. <td id="L16" class="blob-num js-line-number" data-line-number="16"></td>
  438. <td id="LC16" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># h/j/k/l: Move cursor left/down/up/right (also with arrow keys)</span></td>
  439. </tr>
  440. <tr>
  441. <td id="L17" class="blob-num js-line-number" data-line-number="17"></td>
  442. <td id="LC17" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># g/G/0/^/$/H/M/L/f/F/;/,/w/W/b/B/e/E: More vi-like cursor movement keys</span></td>
  443. </tr>
  444. <tr>
  445. <td id="L18" class="blob-num js-line-number" data-line-number="18"></td>
  446. <td id="LC18" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># &#39;/&#39;/?: Start forward/backward search</span></td>
  447. </tr>
  448. <tr>
  449. <td id="L19" class="blob-num js-line-number" data-line-number="19"></td>
  450. <td id="LC19" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># n/N: Repeat last search, N: in reverse direction</span></td>
  451. </tr>
  452. <tr>
  453. <td id="L20" class="blob-num js-line-number" data-line-number="20"></td>
  454. <td id="LC20" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># Ctrl-f/b: Scroll down/up one screen</span></td>
  455. </tr>
  456. <tr>
  457. <td id="L21" class="blob-num js-line-number" data-line-number="21"></td>
  458. <td id="LC21" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># Ctrl-d/u: Scroll down/up half a screen</span></td>
  459. </tr>
  460. <tr>
  461. <td id="L22" class="blob-num js-line-number" data-line-number="22"></td>
  462. <td id="LC22" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># v/V/Ctrl-v: Toggle normal/linewise/blockwise selection</span></td>
  463. </tr>
  464. <tr>
  465. <td id="L23" class="blob-num js-line-number" data-line-number="23"></td>
  466. <td id="LC23" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># y/Return: Copy selection to primary buffer, Return: deactivate afterwards</span></td>
  467. </tr>
  468. <tr>
  469. <td id="L24" class="blob-num js-line-number" data-line-number="24"></td>
  470. <td id="LC24" class="blob-code blob-code-inner js-file-line"><span class="pl-c"># q/Escape: Deactivate keyboard selection mode</span></td>
  471. </tr>
  472. <tr>
  473. <td id="L25" class="blob-num js-line-number" data-line-number="25"></td>
  474. <td id="LC25" class="blob-code blob-code-inner js-file-line">
  475. </td>
  476. </tr>
  477. <tr>
  478. <td id="L26" class="blob-num js-line-number" data-line-number="26"></td>
  479. <td id="LC26" class="blob-code blob-code-inner js-file-line">
  480. </td>
  481. </tr>
  482. <tr>
  483. <td id="L27" class="blob-num js-line-number" data-line-number="27"></td>
  484. <td id="LC27" class="blob-code blob-code-inner js-file-line"><span class="pl-k">use</span> strict;</td>
  485. </tr>
  486. <tr>
  487. <td id="L28" class="blob-num js-line-number" data-line-number="28"></td>
  488. <td id="LC28" class="blob-code blob-code-inner js-file-line">
  489. </td>
  490. </tr>
  491. <tr>
  492. <td id="L29" class="blob-num js-line-number" data-line-number="29"></td>
  493. <td id="LC29" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> on_start{</td>
  494. </tr>
  495. <tr>
  496. <td id="L30" class="blob-num js-line-number" data-line-number="30"></td>
  497. <td id="LC30" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>) = <span class="pl-smi">@_</span>;</td>
  498. </tr>
  499. <tr>
  500. <td id="L31" class="blob-num js-line-number" data-line-number="31"></td>
  501. <td id="LC31" class="blob-code blob-code-inner js-file-line">
  502. </td>
  503. </tr>
  504. <tr>
  505. <td id="L32" class="blob-num js-line-number" data-line-number="32"></td>
  506. <td id="LC32" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-s"><span class="pl-pds">&#39;</span>w<span class="pl-pds">&#39;</span></span>} = <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span><span class="pl-cce">\w</span>[^<span class="pl-cce">\w\s</span>]|<span class="pl-cce">\W\w</span>|<span class="pl-cce">\s\S</span><span class="pl-pds">/</span></span>;</td>
  507. </tr>
  508. <tr>
  509. <td id="L33" class="blob-num js-line-number" data-line-number="33"></td>
  510. <td id="LC33" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-s"><span class="pl-pds">&#39;</span>W<span class="pl-pds">&#39;</span></span>} = <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span><span class="pl-cce">\s\S</span><span class="pl-pds">/</span></span>;</td>
  511. </tr>
  512. <tr>
  513. <td id="L34" class="blob-num js-line-number" data-line-number="34"></td>
  514. <td id="LC34" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-s"><span class="pl-pds">&#39;</span>b<span class="pl-pds">&#39;</span></span>} = <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span>.*(?:<span class="pl-cce">\w</span>[^<span class="pl-cce">\w\s</span>]|<span class="pl-cce">\W\w</span>|<span class="pl-cce">\s\S</span>)<span class="pl-pds">/</span></span>;</td>
  515. </tr>
  516. <tr>
  517. <td id="L35" class="blob-num js-line-number" data-line-number="35"></td>
  518. <td id="LC35" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-s"><span class="pl-pds">&#39;</span>B<span class="pl-pds">&#39;</span></span>} = <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span>.*<span class="pl-cce">\s\S</span><span class="pl-pds">/</span></span>;</td>
  519. </tr>
  520. <tr>
  521. <td id="L36" class="blob-num js-line-number" data-line-number="36"></td>
  522. <td id="LC36" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-s"><span class="pl-pds">&#39;</span>e<span class="pl-pds">&#39;</span></span>} = <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span>[^<span class="pl-cce">\w\s</span>](?=<span class="pl-cce">\w</span>)|<span class="pl-cce">\w</span>(?=<span class="pl-cce">\W</span>)|<span class="pl-cce">\S</span>(?=<span class="pl-cce">\s</span>|<span class="pl-k">$</span>)<span class="pl-pds">/</span></span>;</td>
  523. </tr>
  524. <tr>
  525. <td id="L37" class="blob-num js-line-number" data-line-number="37"></td>
  526. <td id="LC37" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-s"><span class="pl-pds">&#39;</span>E<span class="pl-pds">&#39;</span></span>} = <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span><span class="pl-cce">\S</span>(?=<span class="pl-cce">\s</span>|<span class="pl-k">$</span>)<span class="pl-pds">/</span></span>;</td>
  527. </tr>
  528. <tr>
  529. <td id="L38" class="blob-num js-line-number" data-line-number="38"></td>
  530. <td id="LC38" class="blob-code blob-code-inner js-file-line">
  531. </td>
  532. </tr>
  533. <tr>
  534. <td id="L39" class="blob-num js-line-number" data-line-number="39"></td>
  535. <td id="LC39" class="blob-code blob-code-inner js-file-line"> ()</td>
  536. </tr>
  537. <tr>
  538. <td id="L40" class="blob-num js-line-number" data-line-number="40"></td>
  539. <td id="LC40" class="blob-code blob-code-inner js-file-line">}</td>
  540. </tr>
  541. <tr>
  542. <td id="L41" class="blob-num js-line-number" data-line-number="41"></td>
  543. <td id="LC41" class="blob-code blob-code-inner js-file-line">
  544. </td>
  545. </tr>
  546. <tr>
  547. <td id="L42" class="blob-num js-line-number" data-line-number="42"></td>
  548. <td id="LC42" class="blob-code blob-code-inner js-file-line">
  549. </td>
  550. </tr>
  551. <tr>
  552. <td id="L43" class="blob-num js-line-number" data-line-number="43"></td>
  553. <td id="LC43" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">on_action</span> {</td>
  554. </tr>
  555. <tr>
  556. <td id="L44" class="blob-num js-line-number" data-line-number="44"></td>
  557. <td id="LC44" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$action</span>) = <span class="pl-smi">@_</span>;</td>
  558. </tr>
  559. <tr>
  560. <td id="L45" class="blob-num js-line-number" data-line-number="45"></td>
  561. <td id="LC45" class="blob-code blob-code-inner js-file-line">
  562. </td>
  563. </tr>
  564. <tr>
  565. <td id="L46" class="blob-num js-line-number" data-line-number="46"></td>
  566. <td id="LC46" class="blob-code blob-code-inner js-file-line"> on_user_command(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&quot;</span>keyboard-select:<span class="pl-pds">&quot;</span></span> . <span class="pl-smi">$action</span>);</td>
  567. </tr>
  568. <tr>
  569. <td id="L47" class="blob-num js-line-number" data-line-number="47"></td>
  570. <td id="LC47" class="blob-code blob-code-inner js-file-line">}</td>
  571. </tr>
  572. <tr>
  573. <td id="L48" class="blob-num js-line-number" data-line-number="48"></td>
  574. <td id="LC48" class="blob-code blob-code-inner js-file-line">
  575. </td>
  576. </tr>
  577. <tr>
  578. <td id="L49" class="blob-num js-line-number" data-line-number="49"></td>
  579. <td id="LC49" class="blob-code blob-code-inner js-file-line">
  580. </td>
  581. </tr>
  582. <tr>
  583. <td id="L50" class="blob-num js-line-number" data-line-number="50"></td>
  584. <td id="LC50" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">on_user_command</span> {</td>
  585. </tr>
  586. <tr>
  587. <td id="L51" class="blob-num js-line-number" data-line-number="51"></td>
  588. <td id="LC51" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$cmd</span>) = <span class="pl-smi">@_</span>;</td>
  589. </tr>
  590. <tr>
  591. <td id="L52" class="blob-num js-line-number" data-line-number="52"></td>
  592. <td id="LC52" class="blob-code blob-code-inner js-file-line">
  593. </td>
  594. </tr>
  595. <tr>
  596. <td id="L53" class="blob-num js-line-number" data-line-number="53"></td>
  597. <td id="LC53" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-k">not</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">active</span>}) {</td>
  598. </tr>
  599. <tr>
  600. <td id="L54" class="blob-num js-line-number" data-line-number="54"></td>
  601. <td id="LC54" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$cmd</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>keyboard-select:activate<span class="pl-pds">&#39;</span></span>) {</td>
  602. </tr>
  603. <tr>
  604. <td id="L55" class="blob-num js-line-number" data-line-number="55"></td>
  605. <td id="LC55" class="blob-code blob-code-inner js-file-line"> activate(<span class="pl-smi">$self</span>);</td>
  606. </tr>
  607. <tr>
  608. <td id="L56" class="blob-num js-line-number" data-line-number="56"></td>
  609. <td id="LC56" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$cmd</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>keyboard-select:search<span class="pl-pds">&#39;</span></span>) {</td>
  610. </tr>
  611. <tr>
  612. <td id="L57" class="blob-num js-line-number" data-line-number="57"></td>
  613. <td id="LC57" class="blob-code blob-code-inner js-file-line"> activate(<span class="pl-smi">$self</span>, 1);</td>
  614. </tr>
  615. <tr>
  616. <td id="L58" class="blob-num js-line-number" data-line-number="58"></td>
  617. <td id="LC58" class="blob-code blob-code-inner js-file-line"> }</td>
  618. </tr>
  619. <tr>
  620. <td id="L59" class="blob-num js-line-number" data-line-number="59"></td>
  621. <td id="LC59" class="blob-code blob-code-inner js-file-line"> }</td>
  622. </tr>
  623. <tr>
  624. <td id="L60" class="blob-num js-line-number" data-line-number="60"></td>
  625. <td id="LC60" class="blob-code blob-code-inner js-file-line">
  626. </td>
  627. </tr>
  628. <tr>
  629. <td id="L61" class="blob-num js-line-number" data-line-number="61"></td>
  630. <td id="LC61" class="blob-code blob-code-inner js-file-line"> ()</td>
  631. </tr>
  632. <tr>
  633. <td id="L62" class="blob-num js-line-number" data-line-number="62"></td>
  634. <td id="LC62" class="blob-code blob-code-inner js-file-line">}</td>
  635. </tr>
  636. <tr>
  637. <td id="L63" class="blob-num js-line-number" data-line-number="63"></td>
  638. <td id="LC63" class="blob-code blob-code-inner js-file-line">
  639. </td>
  640. </tr>
  641. <tr>
  642. <td id="L64" class="blob-num js-line-number" data-line-number="64"></td>
  643. <td id="LC64" class="blob-code blob-code-inner js-file-line">
  644. </td>
  645. </tr>
  646. <tr>
  647. <td id="L65" class="blob-num js-line-number" data-line-number="65"></td>
  648. <td id="LC65" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">key_press</span> {</td>
  649. </tr>
  650. <tr>
  651. <td id="L66" class="blob-num js-line-number" data-line-number="66"></td>
  652. <td id="LC66" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$event</span>, <span class="pl-smi">$keysym</span>, <span class="pl-smi">$char</span>) = <span class="pl-smi">@_</span>;</td>
  653. </tr>
  654. <tr>
  655. <td id="L67" class="blob-num js-line-number" data-line-number="67"></td>
  656. <td id="LC67" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$key</span> = <span class="pl-c1">chr</span>(<span class="pl-smi">$keysym</span>);</td>
  657. </tr>
  658. <tr>
  659. <td id="L68" class="blob-num js-line-number" data-line-number="68"></td>
  660. <td id="LC68" class="blob-code blob-code-inner js-file-line">
  661. </td>
  662. </tr>
  663. <tr>
  664. <td id="L69" class="blob-num js-line-number" data-line-number="69"></td>
  665. <td id="LC69" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-c1">lc</span>(<span class="pl-smi">$key</span>) <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>c<span class="pl-pds">&#39;</span></span> &amp;&amp; <span class="pl-smi">$event</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">state</span>} &amp; urxvt::ControlMask) {</td>
  666. </tr>
  667. <tr>
  668. <td id="L70" class="blob-num js-line-number" data-line-number="70"></td>
  669. <td id="LC70" class="blob-code blob-code-inner js-file-line"> deactivate(<span class="pl-smi">$self</span>);</td>
  670. </tr>
  671. <tr>
  672. <td id="L71" class="blob-num js-line-number" data-line-number="71"></td>
  673. <td id="LC71" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>}) {</td>
  674. </tr>
  675. <tr>
  676. <td id="L72" class="blob-num js-line-number" data-line-number="72"></td>
  677. <td id="LC72" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$keysym</span> == 0xff1b) {</td>
  678. </tr>
  679. <tr>
  680. <td id="L73" class="blob-num js-line-number" data-line-number="73"></td>
  681. <td id="LC73" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_mode</span>}) {</td>
  682. </tr>
  683. <tr>
  684. <td id="L74" class="blob-num js-line-number" data-line-number="74"></td>
  685. <td id="LC74" class="blob-code blob-code-inner js-file-line"> deactivate(<span class="pl-smi">$self</span>);</td>
  686. </tr>
  687. <tr>
  688. <td id="L75" class="blob-num js-line-number" data-line-number="75"></td>
  689. <td id="LC75" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  690. </tr>
  691. <tr>
  692. <td id="L76" class="blob-num js-line-number" data-line-number="76"></td>
  693. <td id="LC76" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} = <span class="pl-s"><span class="pl-pds">&#39;</span><span class="pl-pds">&#39;</span></span>;</td>
  694. </tr>
  695. <tr>
  696. <td id="L77" class="blob-num js-line-number" data-line-number="77"></td>
  697. <td id="LC77" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  698. </tr>
  699. <tr>
  700. <td id="L78" class="blob-num js-line-number" data-line-number="78"></td>
  701. <td id="LC78" class="blob-code blob-code-inner js-file-line"> }</td>
  702. </tr>
  703. <tr>
  704. <td id="L79" class="blob-num js-line-number" data-line-number="79"></td>
  705. <td id="LC79" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$keysym</span> == 0xff08) {</td>
  706. </tr>
  707. <tr>
  708. <td id="L80" class="blob-num js-line-number" data-line-number="80"></td>
  709. <td id="LC80" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} = <span class="pl-c1">substr</span>(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>}, 0, -1);</td>
  710. </tr>
  711. <tr>
  712. <td id="L81" class="blob-num js-line-number" data-line-number="81"></td>
  713. <td id="LC81" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-k">not</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} <span class="pl-k">and</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_mode</span>}) {</td>
  714. </tr>
  715. <tr>
  716. <td id="L82" class="blob-num js-line-number" data-line-number="82"></td>
  717. <td id="LC82" class="blob-code blob-code-inner js-file-line"> deactivate(<span class="pl-smi">$self</span>);</td>
  718. </tr>
  719. <tr>
  720. <td id="L83" class="blob-num js-line-number" data-line-number="83"></td>
  721. <td id="LC83" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  722. </tr>
  723. <tr>
  724. <td id="L84" class="blob-num js-line-number" data-line-number="84"></td>
  725. <td id="LC84" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  726. </tr>
  727. <tr>
  728. <td id="L85" class="blob-num js-line-number" data-line-number="85"></td>
  729. <td id="LC85" class="blob-code blob-code-inner js-file-line"> }</td>
  730. </tr>
  731. <tr>
  732. <td id="L86" class="blob-num js-line-number" data-line-number="86"></td>
  733. <td id="LC86" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$keysym</span> == 0xff0d) {</td>
  734. </tr>
  735. <tr>
  736. <td id="L87" class="blob-num js-line-number" data-line-number="87"></td>
  737. <td id="LC87" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$txt</span> = <span class="pl-c1">substr</span>(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>}, 1);</td>
  738. </tr>
  739. <tr>
  740. <td id="L88" class="blob-num js-line-number" data-line-number="88"></td>
  741. <td id="LC88" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$txt</span>) {</td>
  742. </tr>
  743. <tr>
  744. <td id="L89" class="blob-num js-line-number" data-line-number="89"></td>
  745. <td id="LC89" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">pattern</span>} = (<span class="pl-smi">$txt</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span>[[:upper:]]<span class="pl-pds">/</span></span>) ? <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span><span class="pl-cce">\Q</span><span class="pl-smi">$txt</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span> :</td>
  746. </tr>
  747. <tr>
  748. <td id="L90" class="blob-num js-line-number" data-line-number="90"></td>
  749. <td id="LC90" class="blob-code blob-code-inner js-file-line"> <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span><span class="pl-cce">\Q</span><span class="pl-smi">$txt</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span><span class="pl-sr"><span class="pl-pds"><span class="pl-k">i</span></span></span>;</td>
  750. </tr>
  751. <tr>
  752. <td id="L91" class="blob-num js-line-number" data-line-number="91"></td>
  753. <td id="LC91" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">pattern</span>}) {</td>
  754. </tr>
  755. <tr>
  756. <td id="L92" class="blob-num js-line-number" data-line-number="92"></td>
  757. <td id="LC92" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">delete</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">pattern</span>};</td>
  758. </tr>
  759. <tr>
  760. <td id="L93" class="blob-num js-line-number" data-line-number="93"></td>
  761. <td id="LC93" class="blob-code blob-code-inner js-file-line"> }</td>
  762. </tr>
  763. <tr>
  764. <td id="L94" class="blob-num js-line-number" data-line-number="94"></td>
  765. <td id="LC94" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} = <span class="pl-s"><span class="pl-pds">&#39;</span><span class="pl-pds">&#39;</span></span>;</td>
  766. </tr>
  767. <tr>
  768. <td id="L95" class="blob-num js-line-number" data-line-number="95"></td>
  769. <td id="LC95" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">srhcr</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">srhcc</span>});</td>
  770. </tr>
  771. <tr>
  772. <td id="L96" class="blob-num js-line-number" data-line-number="96"></td>
  773. <td id="LC96" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-k">not</span> find_next(<span class="pl-smi">$self</span>)) {</td>
  774. </tr>
  775. <tr>
  776. <td id="L97" class="blob-num js-line-number" data-line-number="97"></td>
  777. <td id="LC97" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_mode</span>}) {</td>
  778. </tr>
  779. <tr>
  780. <td id="L98" class="blob-num js-line-number" data-line-number="98"></td>
  781. <td id="LC98" class="blob-code blob-code-inner js-file-line"> deactivate(<span class="pl-smi">$self</span>);</td>
  782. </tr>
  783. <tr>
  784. <td id="L99" class="blob-num js-line-number" data-line-number="99"></td>
  785. <td id="LC99" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  786. </tr>
  787. <tr>
  788. <td id="L100" class="blob-num js-line-number" data-line-number="100"></td>
  789. <td id="LC100" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  790. </tr>
  791. <tr>
  792. <td id="L101" class="blob-num js-line-number" data-line-number="101"></td>
  793. <td id="LC101" class="blob-code blob-code-inner js-file-line"> }</td>
  794. </tr>
  795. <tr>
  796. <td id="L102" class="blob-num js-line-number" data-line-number="102"></td>
  797. <td id="LC102" class="blob-code blob-code-inner js-file-line"> }</td>
  798. </tr>
  799. <tr>
  800. <td id="L103" class="blob-num js-line-number" data-line-number="103"></td>
  801. <td id="LC103" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-c1">length</span>(<span class="pl-smi">$char</span>) &gt; 0) {</td>
  802. </tr>
  803. <tr>
  804. <td id="L104" class="blob-num js-line-number" data-line-number="104"></td>
  805. <td id="LC104" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} .= <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>locale_decode(<span class="pl-smi">$char</span>);</td>
  806. </tr>
  807. <tr>
  808. <td id="L105" class="blob-num js-line-number" data-line-number="105"></td>
  809. <td id="LC105" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$txt</span> = <span class="pl-c1">substr</span>(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>}, 1);</td>
  810. </tr>
  811. <tr>
  812. <td id="L106" class="blob-num js-line-number" data-line-number="106"></td>
  813. <td id="LC106" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$txt</span>) {</td>
  814. </tr>
  815. <tr>
  816. <td id="L107" class="blob-num js-line-number" data-line-number="107"></td>
  817. <td id="LC107" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">pattern</span>} = (<span class="pl-smi">$txt</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span>[[:upper:]]<span class="pl-pds">/</span></span>) ? <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span><span class="pl-cce">\Q</span><span class="pl-smi">$txt</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span> :</td>
  818. </tr>
  819. <tr>
  820. <td id="L108" class="blob-num js-line-number" data-line-number="108"></td>
  821. <td id="LC108" class="blob-code blob-code-inner js-file-line"> <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span><span class="pl-cce">\Q</span><span class="pl-smi">$txt</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span><span class="pl-sr"><span class="pl-pds"><span class="pl-k">i</span></span></span>;</td>
  822. </tr>
  823. <tr>
  824. <td id="L109" class="blob-num js-line-number" data-line-number="109"></td>
  825. <td id="LC109" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">pattern</span>}) {</td>
  826. </tr>
  827. <tr>
  828. <td id="L110" class="blob-num js-line-number" data-line-number="110"></td>
  829. <td id="LC110" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">delete</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">pattern</span>};</td>
  830. </tr>
  831. <tr>
  832. <td id="L111" class="blob-num js-line-number" data-line-number="111"></td>
  833. <td id="LC111" class="blob-code blob-code-inner js-file-line"> }</td>
  834. </tr>
  835. <tr>
  836. <td id="L112" class="blob-num js-line-number" data-line-number="112"></td>
  837. <td id="LC112" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">srhcr</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">srhcc</span>});</td>
  838. </tr>
  839. <tr>
  840. <td id="L113" class="blob-num js-line-number" data-line-number="113"></td>
  841. <td id="LC113" class="blob-code blob-code-inner js-file-line"> find_next(<span class="pl-smi">$self</span>);</td>
  842. </tr>
  843. <tr>
  844. <td id="L114" class="blob-num js-line-number" data-line-number="114"></td>
  845. <td id="LC114" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  846. </tr>
  847. <tr>
  848. <td id="L115" class="blob-num js-line-number" data-line-number="115"></td>
  849. <td id="LC115" class="blob-code blob-code-inner js-file-line"> }</td>
  850. </tr>
  851. <tr>
  852. <td id="L116" class="blob-num js-line-number" data-line-number="116"></td>
  853. <td id="LC116" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">move_to</span>}) {</td>
  854. </tr>
  855. <tr>
  856. <td id="L117" class="blob-num js-line-number" data-line-number="117"></td>
  857. <td id="LC117" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$keysym</span> == 0xff1b) {</td>
  858. </tr>
  859. <tr>
  860. <td id="L118" class="blob-num js-line-number" data-line-number="118"></td>
  861. <td id="LC118" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">move_to</span>} = 0;</td>
  862. </tr>
  863. <tr>
  864. <td id="L119" class="blob-num js-line-number" data-line-number="119"></td>
  865. <td id="LC119" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  866. </tr>
  867. <tr>
  868. <td id="L120" class="blob-num js-line-number" data-line-number="120"></td>
  869. <td id="LC120" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-c1">length</span>(<span class="pl-smi">$char</span>) &gt; 0) {</td>
  870. </tr>
  871. <tr>
  872. <td id="L121" class="blob-num js-line-number" data-line-number="121"></td>
  873. <td id="LC121" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">move_to</span>} = 0;</td>
  874. </tr>
  875. <tr>
  876. <td id="L122" class="blob-num js-line-number" data-line-number="122"></td>
  877. <td id="LC122" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-s"><span class="pl-pds">&#39;</span>f-1<span class="pl-pds">&#39;</span></span>} = <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span>^.*<span class="pl-cce">\Q</span><span class="pl-smi">$key</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span>;</td>
  878. </tr>
  879. <tr>
  880. <td id="L123" class="blob-num js-line-number" data-line-number="123"></td>
  881. <td id="LC123" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-s"><span class="pl-pds">&#39;</span>f+1<span class="pl-pds">&#39;</span></span>} = <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">qr</span>/</span>^.+?<span class="pl-cce">\Q</span><span class="pl-smi">$key</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span>;</td>
  882. </tr>
  883. <tr>
  884. <td id="L124" class="blob-num js-line-number" data-line-number="124"></td>
  885. <td id="LC124" class="blob-code blob-code-inner js-file-line"> move_to(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&#39;</span>;<span class="pl-pds">&#39;</span></span>);</td>
  886. </tr>
  887. <tr>
  888. <td id="L125" class="blob-num js-line-number" data-line-number="125"></td>
  889. <td id="LC125" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  890. </tr>
  891. <tr>
  892. <td id="L126" class="blob-num js-line-number" data-line-number="126"></td>
  893. <td id="LC126" class="blob-code blob-code-inner js-file-line"> }</td>
  894. </tr>
  895. <tr>
  896. <td id="L127" class="blob-num js-line-number" data-line-number="127"></td>
  897. <td id="LC127" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$keysym</span> == 0xff1b || <span class="pl-c1">lc</span>(<span class="pl-smi">$key</span>) <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>q<span class="pl-pds">&#39;</span></span>) {</td>
  898. </tr>
  899. <tr>
  900. <td id="L128" class="blob-num js-line-number" data-line-number="128"></td>
  901. <td id="LC128" class="blob-code blob-code-inner js-file-line"> deactivate(<span class="pl-smi">$self</span>);</td>
  902. </tr>
  903. <tr>
  904. <td id="L129" class="blob-num js-line-number" data-line-number="129"></td>
  905. <td id="LC129" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>y<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$keysym</span> == 0xff0d) {</td>
  906. </tr>
  907. <tr>
  908. <td id="L130" class="blob-num js-line-number" data-line-number="130"></td>
  909. <td id="LC130" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>}) {</td>
  910. </tr>
  911. <tr>
  912. <td id="L131" class="blob-num js-line-number" data-line-number="131"></td>
  913. <td id="LC131" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>b<span class="pl-pds">&#39;</span></span>) {</td>
  914. </tr>
  915. <tr>
  916. <td id="L132" class="blob-num js-line-number" data-line-number="132"></td>
  917. <td id="LC132" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">selection</span>});</td>
  918. </tr>
  919. <tr>
  920. <td id="L133" class="blob-num js-line-number" data-line-number="133"></td>
  921. <td id="LC133" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_grab(<span class="pl-smi">$event</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">time</span>});</td>
  922. </tr>
  923. <tr>
  924. <td id="L134" class="blob-num js-line-number" data-line-number="134"></td>
  925. <td id="LC134" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  926. </tr>
  927. <tr>
  928. <td id="L135" class="blob-num js-line-number" data-line-number="135"></td>
  929. <td id="LC135" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>, <span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>) = calc_span(<span class="pl-smi">$self</span>);</td>
  930. </tr>
  931. <tr>
  932. <td id="L136" class="blob-num js-line-number" data-line-number="136"></td>
  933. <td id="LC136" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$ec</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$er</span>)<span class="pl-k">-&gt;</span>l <span class="pl-k">if</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>l<span class="pl-pds">&#39;</span></span>;</td>
  934. </tr>
  935. <tr>
  936. <td id="L137" class="blob-num js-line-number" data-line-number="137"></td>
  937. <td id="LC137" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_beg(<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>);</td>
  938. </tr>
  939. <tr>
  940. <td id="L138" class="blob-num js-line-number" data-line-number="138"></td>
  941. <td id="LC138" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_end(<span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>);</td>
  942. </tr>
  943. <tr>
  944. <td id="L139" class="blob-num js-line-number" data-line-number="139"></td>
  945. <td id="LC139" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_make(<span class="pl-smi">$event</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">time</span>});</td>
  946. </tr>
  947. <tr>
  948. <td id="L140" class="blob-num js-line-number" data-line-number="140"></td>
  949. <td id="LC140" class="blob-code blob-code-inner js-file-line"> }</td>
  950. </tr>
  951. <tr>
  952. <td id="L141" class="blob-num js-line-number" data-line-number="141"></td>
  953. <td id="LC141" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>y<span class="pl-pds">&#39;</span></span>) {</td>
  954. </tr>
  955. <tr>
  956. <td id="L142" class="blob-num js-line-number" data-line-number="142"></td>
  957. <td id="LC142" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">ne</span> <span class="pl-s"><span class="pl-pds">&#39;</span>b<span class="pl-pds">&#39;</span></span>) {</td>
  958. </tr>
  959. <tr>
  960. <td id="L143" class="blob-num js-line-number" data-line-number="143"></td>
  961. <td id="LC143" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_beg(1, 0);</td>
  962. </tr>
  963. <tr>
  964. <td id="L144" class="blob-num js-line-number" data-line-number="144"></td>
  965. <td id="LC144" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_end(1, 0);</td>
  966. </tr>
  967. <tr>
  968. <td id="L145" class="blob-num js-line-number" data-line-number="145"></td>
  969. <td id="LC145" class="blob-code blob-code-inner js-file-line"> }</td>
  970. </tr>
  971. <tr>
  972. <td id="L146" class="blob-num js-line-number" data-line-number="146"></td>
  973. <td id="LC146" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} = <span class="pl-s"><span class="pl-pds">&#39;</span><span class="pl-pds">&#39;</span></span>;</td>
  974. </tr>
  975. <tr>
  976. <td id="L147" class="blob-num js-line-number" data-line-number="147"></td>
  977. <td id="LC147" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  978. </tr>
  979. <tr>
  980. <td id="L148" class="blob-num js-line-number" data-line-number="148"></td>
  981. <td id="LC148" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>want_refresh();</td>
  982. </tr>
  983. <tr>
  984. <td id="L149" class="blob-num js-line-number" data-line-number="149"></td>
  985. <td id="LC149" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  986. </tr>
  987. <tr>
  988. <td id="L150" class="blob-num js-line-number" data-line-number="150"></td>
  989. <td id="LC150" class="blob-code blob-code-inner js-file-line"> deactivate(<span class="pl-smi">$self</span>);</td>
  990. </tr>
  991. <tr>
  992. <td id="L151" class="blob-num js-line-number" data-line-number="151"></td>
  993. <td id="LC151" class="blob-code blob-code-inner js-file-line"> }</td>
  994. </tr>
  995. <tr>
  996. <td id="L152" class="blob-num js-line-number" data-line-number="152"></td>
  997. <td id="LC152" class="blob-code blob-code-inner js-file-line"> }</td>
  998. </tr>
  999. <tr>
  1000. <td id="L153" class="blob-num js-line-number" data-line-number="153"></td>
  1001. <td id="LC153" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>V<span class="pl-pds">&#39;</span></span>) {</td>
  1002. </tr>
  1003. <tr>
  1004. <td id="L154" class="blob-num js-line-number" data-line-number="154"></td>
  1005. <td id="LC154" class="blob-code blob-code-inner js-file-line"> toggle_select(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&#39;</span>l<span class="pl-pds">&#39;</span></span>);</td>
  1006. </tr>
  1007. <tr>
  1008. <td id="L155" class="blob-num js-line-number" data-line-number="155"></td>
  1009. <td id="LC155" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>v<span class="pl-pds">&#39;</span></span>) {</td>
  1010. </tr>
  1011. <tr>
  1012. <td id="L156" class="blob-num js-line-number" data-line-number="156"></td>
  1013. <td id="LC156" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$event</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">state</span>} &amp; urxvt::ControlMask) {</td>
  1014. </tr>
  1015. <tr>
  1016. <td id="L157" class="blob-num js-line-number" data-line-number="157"></td>
  1017. <td id="LC157" class="blob-code blob-code-inner js-file-line"> toggle_select(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&#39;</span>b<span class="pl-pds">&#39;</span></span>);</td>
  1018. </tr>
  1019. <tr>
  1020. <td id="L158" class="blob-num js-line-number" data-line-number="158"></td>
  1021. <td id="LC158" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  1022. </tr>
  1023. <tr>
  1024. <td id="L159" class="blob-num js-line-number" data-line-number="159"></td>
  1025. <td id="LC159" class="blob-code blob-code-inner js-file-line"> toggle_select(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&#39;</span>n<span class="pl-pds">&#39;</span></span>);</td>
  1026. </tr>
  1027. <tr>
  1028. <td id="L160" class="blob-num js-line-number" data-line-number="160"></td>
  1029. <td id="LC160" class="blob-code blob-code-inner js-file-line"> }</td>
  1030. </tr>
  1031. <tr>
  1032. <td id="L161" class="blob-num js-line-number" data-line-number="161"></td>
  1033. <td id="LC161" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>k<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$keysym</span> == 0xff52) {</td>
  1034. </tr>
  1035. <tr>
  1036. <td id="L162" class="blob-num js-line-number" data-line-number="162"></td>
  1037. <td id="LC162" class="blob-code blob-code-inner js-file-line"> move_cursor(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&#39;</span>k<span class="pl-pds">&#39;</span></span>);</td>
  1038. </tr>
  1039. <tr>
  1040. <td id="L163" class="blob-num js-line-number" data-line-number="163"></td>
  1041. <td id="LC163" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>j<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$keysym</span> == 0xff54) {</td>
  1042. </tr>
  1043. <tr>
  1044. <td id="L164" class="blob-num js-line-number" data-line-number="164"></td>
  1045. <td id="LC164" class="blob-code blob-code-inner js-file-line"> move_cursor(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&#39;</span>j<span class="pl-pds">&#39;</span></span>);</td>
  1046. </tr>
  1047. <tr>
  1048. <td id="L165" class="blob-num js-line-number" data-line-number="165"></td>
  1049. <td id="LC165" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>h<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$keysym</span> == 0xff51) {</td>
  1050. </tr>
  1051. <tr>
  1052. <td id="L166" class="blob-num js-line-number" data-line-number="166"></td>
  1053. <td id="LC166" class="blob-code blob-code-inner js-file-line"> move_cursor(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&#39;</span>h<span class="pl-pds">&#39;</span></span>);</td>
  1054. </tr>
  1055. <tr>
  1056. <td id="L167" class="blob-num js-line-number" data-line-number="167"></td>
  1057. <td id="LC167" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>l<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$keysym</span> == 0xff53) {</td>
  1058. </tr>
  1059. <tr>
  1060. <td id="L168" class="blob-num js-line-number" data-line-number="168"></td>
  1061. <td id="LC168" class="blob-code blob-code-inner js-file-line"> move_cursor(<span class="pl-smi">$self</span>, <span class="pl-s"><span class="pl-pds">&#39;</span>l<span class="pl-pds">&#39;</span></span>);</td>
  1062. </tr>
  1063. <tr>
  1064. <td id="L169" class="blob-num js-line-number" data-line-number="169"></td>
  1065. <td id="LC169" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-s"><span class="pl-pds">&#39;</span>gG0^$HML<span class="pl-pds">&#39;</span></span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span><span class="pl-cce">\Q</span><span class="pl-smi">$key</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span> ||</td>
  1066. </tr>
  1067. <tr>
  1068. <td id="L170" class="blob-num js-line-number" data-line-number="170"></td>
  1069. <td id="LC170" class="blob-code blob-code-inner js-file-line"> (<span class="pl-s"><span class="pl-pds">&#39;</span>fbdu<span class="pl-pds">&#39;</span></span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span><span class="pl-cce">\Q</span><span class="pl-smi">$key</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span> &amp;&amp; <span class="pl-smi">$event</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">state</span>} &amp; urxvt::ControlMask)) {</td>
  1070. </tr>
  1071. <tr>
  1072. <td id="L171" class="blob-num js-line-number" data-line-number="171"></td>
  1073. <td id="LC171" class="blob-code blob-code-inner js-file-line"> move_cursor(<span class="pl-smi">$self</span>, <span class="pl-smi">$key</span>);</td>
  1074. </tr>
  1075. <tr>
  1076. <td id="L172" class="blob-num js-line-number" data-line-number="172"></td>
  1077. <td id="LC172" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-c1">lc</span>(<span class="pl-smi">$key</span>) <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>f<span class="pl-pds">&#39;</span></span>) {</td>
  1078. </tr>
  1079. <tr>
  1080. <td id="L173" class="blob-num js-line-number" data-line-number="173"></td>
  1081. <td id="LC173" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">move_to</span>} = 1;</td>
  1082. </tr>
  1083. <tr>
  1084. <td id="L174" class="blob-num js-line-number" data-line-number="174"></td>
  1085. <td id="LC174" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">move_dir</span>} = <span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>F<span class="pl-pds">&#39;</span></span> ? -1 : 1;</td>
  1086. </tr>
  1087. <tr>
  1088. <td id="L175" class="blob-num js-line-number" data-line-number="175"></td>
  1089. <td id="LC175" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>, <span class="pl-smi">$key</span>);</td>
  1090. </tr>
  1091. <tr>
  1092. <td id="L176" class="blob-num js-line-number" data-line-number="176"></td>
  1093. <td id="LC176" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-s"><span class="pl-pds">&#39;</span>;,wWbBeE<span class="pl-pds">&#39;</span></span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span><span class="pl-cce">\Q</span><span class="pl-smi">$key</span><span class="pl-cce">\E</span><span class="pl-pds">/</span></span>) {</td>
  1094. </tr>
  1095. <tr>
  1096. <td id="L177" class="blob-num js-line-number" data-line-number="177"></td>
  1097. <td id="LC177" class="blob-code blob-code-inner js-file-line"> move_to(<span class="pl-smi">$self</span>, <span class="pl-smi">$key</span>);</td>
  1098. </tr>
  1099. <tr>
  1100. <td id="L178" class="blob-num js-line-number" data-line-number="178"></td>
  1101. <td id="LC178" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>/<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>?<span class="pl-pds">&#39;</span></span>) {</td>
  1102. </tr>
  1103. <tr>
  1104. <td id="L179" class="blob-num js-line-number" data-line-number="179"></td>
  1105. <td id="LC179" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} = <span class="pl-smi">$key</span>;</td>
  1106. </tr>
  1107. <tr>
  1108. <td id="L180" class="blob-num js-line-number" data-line-number="180"></td>
  1109. <td id="LC180" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_dir</span>} = <span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>?<span class="pl-pds">&#39;</span></span> ? -1 : 1;</td>
  1110. </tr>
  1111. <tr>
  1112. <td id="L181" class="blob-num js-line-number" data-line-number="181"></td>
  1113. <td id="LC181" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">srhcr</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">srhcc</span>}) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  1114. </tr>
  1115. <tr>
  1116. <td id="L182" class="blob-num js-line-number" data-line-number="182"></td>
  1117. <td id="LC182" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  1118. </tr>
  1119. <tr>
  1120. <td id="L183" class="blob-num js-line-number" data-line-number="183"></td>
  1121. <td id="LC183" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-c1">lc</span>(<span class="pl-smi">$key</span>) <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>n<span class="pl-pds">&#39;</span></span>) {</td>
  1122. </tr>
  1123. <tr>
  1124. <td id="L184" class="blob-num js-line-number" data-line-number="184"></td>
  1125. <td id="LC184" class="blob-code blob-code-inner js-file-line"> find_next(<span class="pl-smi">$self</span>, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_dir</span>} * (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>N<span class="pl-pds">&#39;</span></span> ? -1 : 1));</td>
  1126. </tr>
  1127. <tr>
  1128. <td id="L185" class="blob-num js-line-number" data-line-number="185"></td>
  1129. <td id="LC185" class="blob-code blob-code-inner js-file-line"> }</td>
  1130. </tr>
  1131. <tr>
  1132. <td id="L186" class="blob-num js-line-number" data-line-number="186"></td>
  1133. <td id="LC186" class="blob-code blob-code-inner js-file-line">
  1134. </td>
  1135. </tr>
  1136. <tr>
  1137. <td id="L187" class="blob-num js-line-number" data-line-number="187"></td>
  1138. <td id="LC187" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">return</span> 1;</td>
  1139. </tr>
  1140. <tr>
  1141. <td id="L188" class="blob-num js-line-number" data-line-number="188"></td>
  1142. <td id="LC188" class="blob-code blob-code-inner js-file-line">}</td>
  1143. </tr>
  1144. <tr>
  1145. <td id="L189" class="blob-num js-line-number" data-line-number="189"></td>
  1146. <td id="LC189" class="blob-code blob-code-inner js-file-line">
  1147. </td>
  1148. </tr>
  1149. <tr>
  1150. <td id="L190" class="blob-num js-line-number" data-line-number="190"></td>
  1151. <td id="LC190" class="blob-code blob-code-inner js-file-line">
  1152. </td>
  1153. </tr>
  1154. <tr>
  1155. <td id="L191" class="blob-num js-line-number" data-line-number="191"></td>
  1156. <td id="LC191" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">move_cursor</span> {</td>
  1157. </tr>
  1158. <tr>
  1159. <td id="L192" class="blob-num js-line-number" data-line-number="192"></td>
  1160. <td id="LC192" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$key</span>) = <span class="pl-smi">@_</span>;</td>
  1161. </tr>
  1162. <tr>
  1163. <td id="L193" class="blob-num js-line-number" data-line-number="193"></td>
  1164. <td id="LC193" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  1165. </tr>
  1166. <tr>
  1167. <td id="L194" class="blob-num js-line-number" data-line-number="194"></td>
  1168. <td id="LC194" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>);</td>
  1169. </tr>
  1170. <tr>
  1171. <td id="L195" class="blob-num js-line-number" data-line-number="195"></td>
  1172. <td id="LC195" class="blob-code blob-code-inner js-file-line">
  1173. </td>
  1174. </tr>
  1175. <tr>
  1176. <td id="L196" class="blob-num js-line-number" data-line-number="196"></td>
  1177. <td id="LC196" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>k<span class="pl-pds">&#39;</span></span> &amp;&amp; <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>beg &gt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row) {</td>
  1178. </tr>
  1179. <tr>
  1180. <td id="L197" class="blob-num js-line-number" data-line-number="197"></td>
  1181. <td id="LC197" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>beg - 1;</td>
  1182. </tr>
  1183. <tr>
  1184. <td id="L198" class="blob-num js-line-number" data-line-number="198"></td>
  1185. <td id="LC198" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>j<span class="pl-pds">&#39;</span></span> &amp;&amp; <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>end &lt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow - 1) {</td>
  1186. </tr>
  1187. <tr>
  1188. <td id="L199" class="blob-num js-line-number" data-line-number="199"></td>
  1189. <td id="LC199" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>end + 1;</td>
  1190. </tr>
  1191. <tr>
  1192. <td id="L200" class="blob-num js-line-number" data-line-number="200"></td>
  1193. <td id="LC200" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>h<span class="pl-pds">&#39;</span></span> &amp;&amp; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} &gt; 0) {</td>
  1194. </tr>
  1195. <tr>
  1196. <td id="L201" class="blob-num js-line-number" data-line-number="201"></td>
  1197. <td id="LC201" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>offset_of(<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>) - 1;</td>
  1198. </tr>
  1199. <tr>
  1200. <td id="L202" class="blob-num js-line-number" data-line-number="202"></td>
  1201. <td id="LC202" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = 0;</td>
  1202. </tr>
  1203. <tr>
  1204. <td id="L203" class="blob-num js-line-number" data-line-number="203"></td>
  1205. <td id="LC203" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>l<span class="pl-pds">&#39;</span></span> &amp;&amp; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} &lt; <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l - 1) {</td>
  1206. </tr>
  1207. <tr>
  1208. <td id="L204" class="blob-num js-line-number" data-line-number="204"></td>
  1209. <td id="LC204" class="blob-code blob-code-inner js-file-line"> ++<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>};</td>
  1210. </tr>
  1211. <tr>
  1212. <td id="L205" class="blob-num js-line-number" data-line-number="205"></td>
  1213. <td id="LC205" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>f<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>d<span class="pl-pds">&#39;</span></span>) {</td>
  1214. </tr>
  1215. <tr>
  1216. <td id="L206" class="blob-num js-line-number" data-line-number="206"></td>
  1217. <td id="LC206" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$vs</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start() +</td>
  1218. </tr>
  1219. <tr>
  1220. <td id="L207" class="blob-num js-line-number" data-line-number="207"></td>
  1221. <td id="LC207" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>d<span class="pl-pds">&#39;</span></span> ? <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow / 2 : <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow - 1);</td>
  1222. </tr>
  1223. <tr>
  1224. <td id="L208" class="blob-num js-line-number" data-line-number="208"></td>
  1225. <td id="LC208" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$vs</span> = 0 <span class="pl-k">if</span> <span class="pl-smi">$vs</span> &gt; 0;</td>
  1226. </tr>
  1227. <tr>
  1228. <td id="L209" class="blob-num js-line-number" data-line-number="209"></td>
  1229. <td id="LC209" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> += <span class="pl-smi">$vs</span> - <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start(<span class="pl-smi">$vs</span>);</td>
  1230. </tr>
  1231. <tr>
  1232. <td id="L210" class="blob-num js-line-number" data-line-number="210"></td>
  1233. <td id="LC210" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>b<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>u<span class="pl-pds">&#39;</span></span>) {</td>
  1234. </tr>
  1235. <tr>
  1236. <td id="L211" class="blob-num js-line-number" data-line-number="211"></td>
  1237. <td id="LC211" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$vs</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start() -</td>
  1238. </tr>
  1239. <tr>
  1240. <td id="L212" class="blob-num js-line-number" data-line-number="212"></td>
  1241. <td id="LC212" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>u<span class="pl-pds">&#39;</span></span> ? <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow / 2 : <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow - 1);</td>
  1242. </tr>
  1243. <tr>
  1244. <td id="L213" class="blob-num js-line-number" data-line-number="213"></td>
  1245. <td id="LC213" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$vs</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row <span class="pl-k">if</span> <span class="pl-smi">$vs</span> &lt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row;</td>
  1246. </tr>
  1247. <tr>
  1248. <td id="L214" class="blob-num js-line-number" data-line-number="214"></td>
  1249. <td id="LC214" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> += <span class="pl-smi">$vs</span> - <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start(<span class="pl-smi">$vs</span>);</td>
  1250. </tr>
  1251. <tr>
  1252. <td id="L215" class="blob-num js-line-number" data-line-number="215"></td>
  1253. <td id="LC215" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>g<span class="pl-pds">&#39;</span></span>) {</td>
  1254. </tr>
  1255. <tr>
  1256. <td id="L216" class="blob-num js-line-number" data-line-number="216"></td>
  1257. <td id="LC216" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$cr</span>, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>}) = (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row, 0);</td>
  1258. </tr>
  1259. <tr>
  1260. <td id="L217" class="blob-num js-line-number" data-line-number="217"></td>
  1261. <td id="LC217" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = 0;</td>
  1262. </tr>
  1263. <tr>
  1264. <td id="L218" class="blob-num js-line-number" data-line-number="218"></td>
  1265. <td id="LC218" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>G<span class="pl-pds">&#39;</span></span>) {</td>
  1266. </tr>
  1267. <tr>
  1268. <td id="L219" class="blob-num js-line-number" data-line-number="219"></td>
  1269. <td id="LC219" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$cr</span>, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>}) = (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow - 1, 0);</td>
  1270. </tr>
  1271. <tr>
  1272. <td id="L220" class="blob-num js-line-number" data-line-number="220"></td>
  1273. <td id="LC220" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = 0;</td>
  1274. </tr>
  1275. <tr>
  1276. <td id="L221" class="blob-num js-line-number" data-line-number="221"></td>
  1277. <td id="LC221" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>0<span class="pl-pds">&#39;</span></span>) {</td>
  1278. </tr>
  1279. <tr>
  1280. <td id="L222" class="blob-num js-line-number" data-line-number="222"></td>
  1281. <td id="LC222" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} = 0;</td>
  1282. </tr>
  1283. <tr>
  1284. <td id="L223" class="blob-num js-line-number" data-line-number="223"></td>
  1285. <td id="LC223" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = 0;</td>
  1286. </tr>
  1287. <tr>
  1288. <td id="L224" class="blob-num js-line-number" data-line-number="224"></td>
  1289. <td id="LC224" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>^<span class="pl-pds">&#39;</span></span>) {</td>
  1290. </tr>
  1291. <tr>
  1292. <td id="L225" class="blob-num js-line-number" data-line-number="225"></td>
  1293. <td id="LC225" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$ltxt</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>special_decode(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>t);</td>
  1294. </tr>
  1295. <tr>
  1296. <td id="L226" class="blob-num js-line-number" data-line-number="226"></td>
  1297. <td id="LC226" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">while</span> (<span class="pl-smi">$ltxt</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">s</span>/</span>^( *)<span class="pl-cce">\t</span></span><span class="pl-sr"><span class="pl-pds">/</span><span class="pl-smi">$1</span> . &quot; &quot; x (8 - length(<span class="pl-smi">$1</span>) % 8)<span class="pl-pds">/</span></span><span class="pl-sr"><span class="pl-pds"><span class="pl-k">e</span></span></span>) {}</td>
  1298. </tr>
  1299. <tr>
  1300. <td id="L227" class="blob-num js-line-number" data-line-number="227"></td>
  1301. <td id="LC227" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} = <span class="pl-smi">$ltxt</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span>^ +<span class="pl-pds">/</span></span> ? <span class="pl-smi">$+</span>[0] : 0;</td>
  1302. </tr>
  1303. <tr>
  1304. <td id="L228" class="blob-num js-line-number" data-line-number="228"></td>
  1305. <td id="LC228" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = 0;</td>
  1306. </tr>
  1307. <tr>
  1308. <td id="L229" class="blob-num js-line-number" data-line-number="229"></td>
  1309. <td id="LC229" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>$<span class="pl-pds">&#39;</span></span>) {</td>
  1310. </tr>
  1311. <tr>
  1312. <td id="L230" class="blob-num js-line-number" data-line-number="230"></td>
  1313. <td id="LC230" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$co</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>offset_of(<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>);</td>
  1314. </tr>
  1315. <tr>
  1316. <td id="L231" class="blob-num js-line-number" data-line-number="231"></td>
  1317. <td id="LC231" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = <span class="pl-smi">$co</span> + 1;</td>
  1318. </tr>
  1319. <tr>
  1320. <td id="L232" class="blob-num js-line-number" data-line-number="232"></td>
  1321. <td id="LC232" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l - 1;</td>
  1322. </tr>
  1323. <tr>
  1324. <td id="L233" class="blob-num js-line-number" data-line-number="233"></td>
  1325. <td id="LC233" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>H<span class="pl-pds">&#39;</span></span>) {</td>
  1326. </tr>
  1327. <tr>
  1328. <td id="L234" class="blob-num js-line-number" data-line-number="234"></td>
  1329. <td id="LC234" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start();</td>
  1330. </tr>
  1331. <tr>
  1332. <td id="L235" class="blob-num js-line-number" data-line-number="235"></td>
  1333. <td id="LC235" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>M<span class="pl-pds">&#39;</span></span>) {</td>
  1334. </tr>
  1335. <tr>
  1336. <td id="L236" class="blob-num js-line-number" data-line-number="236"></td>
  1337. <td id="LC236" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start() + <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow / 2;</td>
  1338. </tr>
  1339. <tr>
  1340. <td id="L237" class="blob-num js-line-number" data-line-number="237"></td>
  1341. <td id="LC237" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>L<span class="pl-pds">&#39;</span></span>) {</td>
  1342. </tr>
  1343. <tr>
  1344. <td id="L238" class="blob-num js-line-number" data-line-number="238"></td>
  1345. <td id="LC238" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start() + <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow - 1;</td>
  1346. </tr>
  1347. <tr>
  1348. <td id="L239" class="blob-num js-line-number" data-line-number="239"></td>
  1349. <td id="LC239" class="blob-code blob-code-inner js-file-line"> }</td>
  1350. </tr>
  1351. <tr>
  1352. <td id="L240" class="blob-num js-line-number" data-line-number="240"></td>
  1353. <td id="LC240" class="blob-code blob-code-inner js-file-line">
  1354. </td>
  1355. </tr>
  1356. <tr>
  1357. <td id="L241" class="blob-num js-line-number" data-line-number="241"></td>
  1358. <td id="LC241" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>);</td>
  1359. </tr>
  1360. <tr>
  1361. <td id="L242" class="blob-num js-line-number" data-line-number="242"></td>
  1362. <td id="LC242" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cc</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} || <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} &gt;= <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l ? <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l - 1 :</td>
  1363. </tr>
  1364. <tr>
  1365. <td id="L243" class="blob-num js-line-number" data-line-number="243"></td>
  1366. <td id="LC243" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>};</td>
  1367. </tr>
  1368. <tr>
  1369. <td id="L244" class="blob-num js-line-number" data-line-number="244"></td>
  1370. <td id="LC244" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>coord_of(<span class="pl-smi">$cc</span>));</td>
  1371. </tr>
  1372. <tr>
  1373. <td id="L245" class="blob-num js-line-number" data-line-number="245"></td>
  1374. <td id="LC245" class="blob-code blob-code-inner js-file-line">
  1375. </td>
  1376. </tr>
  1377. <tr>
  1378. <td id="L246" class="blob-num js-line-number" data-line-number="246"></td>
  1379. <td id="LC246" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  1380. </tr>
  1381. <tr>
  1382. <td id="L247" class="blob-num js-line-number" data-line-number="247"></td>
  1383. <td id="LC247" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>want_refresh();</td>
  1384. </tr>
  1385. <tr>
  1386. <td id="L248" class="blob-num js-line-number" data-line-number="248"></td>
  1387. <td id="LC248" class="blob-code blob-code-inner js-file-line"> </td>
  1388. </tr>
  1389. <tr>
  1390. <td id="L249" class="blob-num js-line-number" data-line-number="249"></td>
  1391. <td id="LC249" class="blob-code blob-code-inner js-file-line"> ()</td>
  1392. </tr>
  1393. <tr>
  1394. <td id="L250" class="blob-num js-line-number" data-line-number="250"></td>
  1395. <td id="LC250" class="blob-code blob-code-inner js-file-line">}</td>
  1396. </tr>
  1397. <tr>
  1398. <td id="L251" class="blob-num js-line-number" data-line-number="251"></td>
  1399. <td id="LC251" class="blob-code blob-code-inner js-file-line">
  1400. </td>
  1401. </tr>
  1402. <tr>
  1403. <td id="L252" class="blob-num js-line-number" data-line-number="252"></td>
  1404. <td id="LC252" class="blob-code blob-code-inner js-file-line">
  1405. </td>
  1406. </tr>
  1407. <tr>
  1408. <td id="L253" class="blob-num js-line-number" data-line-number="253"></td>
  1409. <td id="LC253" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">move_to</span> {</td>
  1410. </tr>
  1411. <tr>
  1412. <td id="L254" class="blob-num js-line-number" data-line-number="254"></td>
  1413. <td id="LC254" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$key</span>) = <span class="pl-smi">@_</span>;</td>
  1414. </tr>
  1415. <tr>
  1416. <td id="L255" class="blob-num js-line-number" data-line-number="255"></td>
  1417. <td id="LC255" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  1418. </tr>
  1419. <tr>
  1420. <td id="L256" class="blob-num js-line-number" data-line-number="256"></td>
  1421. <td id="LC256" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>);</td>
  1422. </tr>
  1423. <tr>
  1424. <td id="L257" class="blob-num js-line-number" data-line-number="257"></td>
  1425. <td id="LC257" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$offset</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>};</td>
  1426. </tr>
  1427. <tr>
  1428. <td id="L258" class="blob-num js-line-number" data-line-number="258"></td>
  1429. <td id="LC258" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$dir</span>, <span class="pl-smi">$pattern</span>);</td>
  1430. </tr>
  1431. <tr>
  1432. <td id="L259" class="blob-num js-line-number" data-line-number="259"></td>
  1433. <td id="LC259" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$wrap</span>, <span class="pl-smi">$found</span>) = (0, 0);</td>
  1434. </tr>
  1435. <tr>
  1436. <td id="L260" class="blob-num js-line-number" data-line-number="260"></td>
  1437. <td id="LC260" class="blob-code blob-code-inner js-file-line">
  1438. </td>
  1439. </tr>
  1440. <tr>
  1441. <td id="L261" class="blob-num js-line-number" data-line-number="261"></td>
  1442. <td id="LC261" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>;<span class="pl-pds">&#39;</span></span> || <span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>,<span class="pl-pds">&#39;</span></span>) {</td>
  1443. </tr>
  1444. <tr>
  1445. <td id="L262" class="blob-num js-line-number" data-line-number="262"></td>
  1446. <td id="LC262" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$dir</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">move_dir</span>} * (<span class="pl-smi">$key</span> <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>,<span class="pl-pds">&#39;</span></span> ? -1 : 1);</td>
  1447. </tr>
  1448. <tr>
  1449. <td id="L263" class="blob-num js-line-number" data-line-number="263"></td>
  1450. <td id="LC263" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$pattern</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-c1">sprintf</span>(<span class="pl-s"><span class="pl-pds">&#39;</span>f%+d<span class="pl-pds">&#39;</span></span>, <span class="pl-smi">$dir</span>)};</td>
  1451. </tr>
  1452. <tr>
  1453. <td id="L264" class="blob-num js-line-number" data-line-number="264"></td>
  1454. <td id="LC264" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">return</span> <span class="pl-k">if</span> <span class="pl-k">not</span> <span class="pl-smi">$pattern</span>;</td>
  1455. </tr>
  1456. <tr>
  1457. <td id="L265" class="blob-num js-line-number" data-line-number="265"></td>
  1458. <td id="LC265" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  1459. </tr>
  1460. <tr>
  1461. <td id="L266" class="blob-num js-line-number" data-line-number="266"></td>
  1462. <td id="LC266" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-c1">lc</span>(<span class="pl-smi">$key</span>) <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>b<span class="pl-pds">&#39;</span></span>) {</td>
  1463. </tr>
  1464. <tr>
  1465. <td id="L267" class="blob-num js-line-number" data-line-number="267"></td>
  1466. <td id="LC267" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$dir</span> = -1;</td>
  1467. </tr>
  1468. <tr>
  1469. <td id="L268" class="blob-num js-line-number" data-line-number="268"></td>
  1470. <td id="LC268" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  1471. </tr>
  1472. <tr>
  1473. <td id="L269" class="blob-num js-line-number" data-line-number="269"></td>
  1474. <td id="LC269" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$dir</span> = 1;</td>
  1475. </tr>
  1476. <tr>
  1477. <td id="L270" class="blob-num js-line-number" data-line-number="270"></td>
  1478. <td id="LC270" class="blob-code blob-code-inner js-file-line"> ++<span class="pl-smi">$offset</span> <span class="pl-k">if</span> <span class="pl-c1">lc</span>(<span class="pl-smi">$key</span>) <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>e<span class="pl-pds">&#39;</span></span>;</td>
  1479. </tr>
  1480. <tr>
  1481. <td id="L271" class="blob-num js-line-number" data-line-number="271"></td>
  1482. <td id="LC271" class="blob-code blob-code-inner js-file-line"> }</td>
  1483. </tr>
  1484. <tr>
  1485. <td id="L272" class="blob-num js-line-number" data-line-number="272"></td>
  1486. <td id="LC272" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$pattern</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">patterns</span>}{<span class="pl-smi">$key</span>};</td>
  1487. </tr>
  1488. <tr>
  1489. <td id="L273" class="blob-num js-line-number" data-line-number="273"></td>
  1490. <td id="LC273" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$wrap</span> = 1;</td>
  1491. </tr>
  1492. <tr>
  1493. <td id="L274" class="blob-num js-line-number" data-line-number="274"></td>
  1494. <td id="LC274" class="blob-code blob-code-inner js-file-line"> }</td>
  1495. </tr>
  1496. <tr>
  1497. <td id="L275" class="blob-num js-line-number" data-line-number="275"></td>
  1498. <td id="LC275" class="blob-code blob-code-inner js-file-line">
  1499. </td>
  1500. </tr>
  1501. <tr>
  1502. <td id="L276" class="blob-num js-line-number" data-line-number="276"></td>
  1503. <td id="LC276" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$dir</span> &gt; 0) {</td>
  1504. </tr>
  1505. <tr>
  1506. <td id="L277" class="blob-num js-line-number" data-line-number="277"></td>
  1507. <td id="LC277" class="blob-code blob-code-inner js-file-line"> NEXTDOWN: <span class="pl-k">my</span> <span class="pl-smi">$text</span> = <span class="pl-c1">substr</span>(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>t, <span class="pl-smi">$offset</span>);</td>
  1508. </tr>
  1509. <tr>
  1510. <td id="L278" class="blob-num js-line-number" data-line-number="278"></td>
  1511. <td id="LC278" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$text</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span><span class="pl-smi">$pattern</span><span class="pl-pds">/</span></span>) {</td>
  1512. </tr>
  1513. <tr>
  1514. <td id="L279" class="blob-num js-line-number" data-line-number="279"></td>
  1515. <td id="LC279" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> += <span class="pl-smi">$+</span>[0] - 1;</td>
  1516. </tr>
  1517. <tr>
  1518. <td id="L280" class="blob-num js-line-number" data-line-number="280"></td>
  1519. <td id="LC280" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$found</span> = 1;</td>
  1520. </tr>
  1521. <tr>
  1522. <td id="L281" class="blob-num js-line-number" data-line-number="281"></td>
  1523. <td id="LC281" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$wrap</span> &amp;&amp; <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>end + 1 &lt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow) {</td>
  1524. </tr>
  1525. <tr>
  1526. <td id="L282" class="blob-num js-line-number" data-line-number="282"></td>
  1527. <td id="LC282" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>end + 1;</td>
  1528. </tr>
  1529. <tr>
  1530. <td id="L283" class="blob-num js-line-number" data-line-number="283"></td>
  1531. <td id="LC283" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>);</td>
  1532. </tr>
  1533. <tr>
  1534. <td id="L284" class="blob-num js-line-number" data-line-number="284"></td>
  1535. <td id="LC284" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> = 0;</td>
  1536. </tr>
  1537. <tr>
  1538. <td id="L285" class="blob-num js-line-number" data-line-number="285"></td>
  1539. <td id="LC285" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-c1">lc</span>(<span class="pl-smi">$key</span>) <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>e<span class="pl-pds">&#39;</span></span>) {</td>
  1540. </tr>
  1541. <tr>
  1542. <td id="L286" class="blob-num js-line-number" data-line-number="286"></td>
  1543. <td id="LC286" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">goto</span> NEXTDOWN;</td>
  1544. </tr>
  1545. <tr>
  1546. <td id="L287" class="blob-num js-line-number" data-line-number="287"></td>
  1547. <td id="LC287" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  1548. </tr>
  1549. <tr>
  1550. <td id="L288" class="blob-num js-line-number" data-line-number="288"></td>
  1551. <td id="LC288" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$found</span> = 1;</td>
  1552. </tr>
  1553. <tr>
  1554. <td id="L289" class="blob-num js-line-number" data-line-number="289"></td>
  1555. <td id="LC289" class="blob-code blob-code-inner js-file-line"> }</td>
  1556. </tr>
  1557. <tr>
  1558. <td id="L290" class="blob-num js-line-number" data-line-number="290"></td>
  1559. <td id="LC290" class="blob-code blob-code-inner js-file-line"> }</td>
  1560. </tr>
  1561. <tr>
  1562. <td id="L291" class="blob-num js-line-number" data-line-number="291"></td>
  1563. <td id="LC291" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$dir</span> &lt; 0) {</td>
  1564. </tr>
  1565. <tr>
  1566. <td id="L292" class="blob-num js-line-number" data-line-number="292"></td>
  1567. <td id="LC292" class="blob-code blob-code-inner js-file-line"> NEXTUP: <span class="pl-k">my</span> <span class="pl-smi">$text</span> = <span class="pl-c1">substr</span>(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>t, 0, <span class="pl-smi">$offset</span>);</td>
  1568. </tr>
  1569. <tr>
  1570. <td id="L293" class="blob-num js-line-number" data-line-number="293"></td>
  1571. <td id="LC293" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$text</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span><span class="pl-smi">$pattern</span><span class="pl-pds">/</span></span>) {</td>
  1572. </tr>
  1573. <tr>
  1574. <td id="L294" class="blob-num js-line-number" data-line-number="294"></td>
  1575. <td id="LC294" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> += <span class="pl-smi">$+</span>[0] - <span class="pl-c1">length</span>(<span class="pl-smi">$text</span>) - 1;</td>
  1576. </tr>
  1577. <tr>
  1578. <td id="L295" class="blob-num js-line-number" data-line-number="295"></td>
  1579. <td id="LC295" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$found</span> = 1;</td>
  1580. </tr>
  1581. <tr>
  1582. <td id="L296" class="blob-num js-line-number" data-line-number="296"></td>
  1583. <td id="LC296" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$wrap</span>) {</td>
  1584. </tr>
  1585. <tr>
  1586. <td id="L297" class="blob-num js-line-number" data-line-number="297"></td>
  1587. <td id="LC297" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$offset</span> &gt; 0) {</td>
  1588. </tr>
  1589. <tr>
  1590. <td id="L298" class="blob-num js-line-number" data-line-number="298"></td>
  1591. <td id="LC298" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> = 0;</td>
  1592. </tr>
  1593. <tr>
  1594. <td id="L299" class="blob-num js-line-number" data-line-number="299"></td>
  1595. <td id="LC299" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$found</span> = 1;</td>
  1596. </tr>
  1597. <tr>
  1598. <td id="L300" class="blob-num js-line-number" data-line-number="300"></td>
  1599. <td id="LC300" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>beg &gt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row) {</td>
  1600. </tr>
  1601. <tr>
  1602. <td id="L301" class="blob-num js-line-number" data-line-number="301"></td>
  1603. <td id="LC301" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$cr</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>beg - 1;</td>
  1604. </tr>
  1605. <tr>
  1606. <td id="L302" class="blob-num js-line-number" data-line-number="302"></td>
  1607. <td id="LC302" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>);</td>
  1608. </tr>
  1609. <tr>
  1610. <td id="L303" class="blob-num js-line-number" data-line-number="303"></td>
  1611. <td id="LC303" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l;</td>
  1612. </tr>
  1613. <tr>
  1614. <td id="L304" class="blob-num js-line-number" data-line-number="304"></td>
  1615. <td id="LC304" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">goto</span> NEXTUP;</td>
  1616. </tr>
  1617. <tr>
  1618. <td id="L305" class="blob-num js-line-number" data-line-number="305"></td>
  1619. <td id="LC305" class="blob-code blob-code-inner js-file-line"> }</td>
  1620. </tr>
  1621. <tr>
  1622. <td id="L306" class="blob-num js-line-number" data-line-number="306"></td>
  1623. <td id="LC306" class="blob-code blob-code-inner js-file-line"> }</td>
  1624. </tr>
  1625. <tr>
  1626. <td id="L307" class="blob-num js-line-number" data-line-number="307"></td>
  1627. <td id="LC307" class="blob-code blob-code-inner js-file-line"> }</td>
  1628. </tr>
  1629. <tr>
  1630. <td id="L308" class="blob-num js-line-number" data-line-number="308"></td>
  1631. <td id="LC308" class="blob-code blob-code-inner js-file-line">
  1632. </td>
  1633. </tr>
  1634. <tr>
  1635. <td id="L309" class="blob-num js-line-number" data-line-number="309"></td>
  1636. <td id="LC309" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$found</span>) {</td>
  1637. </tr>
  1638. <tr>
  1639. <td id="L310" class="blob-num js-line-number" data-line-number="310"></td>
  1640. <td id="LC310" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = 0;</td>
  1641. </tr>
  1642. <tr>
  1643. <td id="L311" class="blob-num js-line-number" data-line-number="311"></td>
  1644. <td id="LC311" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} = <span class="pl-smi">$offset</span>;</td>
  1645. </tr>
  1646. <tr>
  1647. <td id="L312" class="blob-num js-line-number" data-line-number="312"></td>
  1648. <td id="LC312" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>coord_of(<span class="pl-smi">$offset</span>));</td>
  1649. </tr>
  1650. <tr>
  1651. <td id="L313" class="blob-num js-line-number" data-line-number="313"></td>
  1652. <td id="LC313" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>want_refresh();</td>
  1653. </tr>
  1654. <tr>
  1655. <td id="L314" class="blob-num js-line-number" data-line-number="314"></td>
  1656. <td id="LC314" class="blob-code blob-code-inner js-file-line"> }</td>
  1657. </tr>
  1658. <tr>
  1659. <td id="L315" class="blob-num js-line-number" data-line-number="315"></td>
  1660. <td id="LC315" class="blob-code blob-code-inner js-file-line">
  1661. </td>
  1662. </tr>
  1663. <tr>
  1664. <td id="L316" class="blob-num js-line-number" data-line-number="316"></td>
  1665. <td id="LC316" class="blob-code blob-code-inner js-file-line"> ()</td>
  1666. </tr>
  1667. <tr>
  1668. <td id="L317" class="blob-num js-line-number" data-line-number="317"></td>
  1669. <td id="LC317" class="blob-code blob-code-inner js-file-line">}</td>
  1670. </tr>
  1671. <tr>
  1672. <td id="L318" class="blob-num js-line-number" data-line-number="318"></td>
  1673. <td id="LC318" class="blob-code blob-code-inner js-file-line">
  1674. </td>
  1675. </tr>
  1676. <tr>
  1677. <td id="L319" class="blob-num js-line-number" data-line-number="319"></td>
  1678. <td id="LC319" class="blob-code blob-code-inner js-file-line">
  1679. </td>
  1680. </tr>
  1681. <tr>
  1682. <td id="L320" class="blob-num js-line-number" data-line-number="320"></td>
  1683. <td id="LC320" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">find_next</span> {</td>
  1684. </tr>
  1685. <tr>
  1686. <td id="L321" class="blob-num js-line-number" data-line-number="321"></td>
  1687. <td id="LC321" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$dir</span>) = <span class="pl-smi">@_</span>;</td>
  1688. </tr>
  1689. <tr>
  1690. <td id="L322" class="blob-num js-line-number" data-line-number="322"></td>
  1691. <td id="LC322" class="blob-code blob-code-inner js-file-line">
  1692. </td>
  1693. </tr>
  1694. <tr>
  1695. <td id="L323" class="blob-num js-line-number" data-line-number="323"></td>
  1696. <td id="LC323" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">return</span> <span class="pl-k">if</span> <span class="pl-k">not</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">pattern</span>};</td>
  1697. </tr>
  1698. <tr>
  1699. <td id="L324" class="blob-num js-line-number" data-line-number="324"></td>
  1700. <td id="LC324" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$dir</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_dir</span>} <span class="pl-k">if</span> <span class="pl-k">not</span> <span class="pl-smi">$dir</span>;</td>
  1701. </tr>
  1702. <tr>
  1703. <td id="L325" class="blob-num js-line-number" data-line-number="325"></td>
  1704. <td id="LC325" class="blob-code blob-code-inner js-file-line">
  1705. </td>
  1706. </tr>
  1707. <tr>
  1708. <td id="L326" class="blob-num js-line-number" data-line-number="326"></td>
  1709. <td id="LC326" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  1710. </tr>
  1711. <tr>
  1712. <td id="L327" class="blob-num js-line-number" data-line-number="327"></td>
  1713. <td id="LC327" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>);</td>
  1714. </tr>
  1715. <tr>
  1716. <td id="L328" class="blob-num js-line-number" data-line-number="328"></td>
  1717. <td id="LC328" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$offset</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>offset_of(<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>);</td>
  1718. </tr>
  1719. <tr>
  1720. <td id="L329" class="blob-num js-line-number" data-line-number="329"></td>
  1721. <td id="LC329" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$text</span>;</td>
  1722. </tr>
  1723. <tr>
  1724. <td id="L330" class="blob-num js-line-number" data-line-number="330"></td>
  1725. <td id="LC330" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$found</span> = 0;</td>
  1726. </tr>
  1727. <tr>
  1728. <td id="L331" class="blob-num js-line-number" data-line-number="331"></td>
  1729. <td id="LC331" class="blob-code blob-code-inner js-file-line">
  1730. </td>
  1731. </tr>
  1732. <tr>
  1733. <td id="L332" class="blob-num js-line-number" data-line-number="332"></td>
  1734. <td id="LC332" class="blob-code blob-code-inner js-file-line"> ++<span class="pl-smi">$offset</span> <span class="pl-k">if</span> <span class="pl-smi">$dir</span> &gt; 0;</td>
  1735. </tr>
  1736. <tr>
  1737. <td id="L333" class="blob-num js-line-number" data-line-number="333"></td>
  1738. <td id="LC333" class="blob-code blob-code-inner js-file-line">
  1739. </td>
  1740. </tr>
  1741. <tr>
  1742. <td id="L334" class="blob-num js-line-number" data-line-number="334"></td>
  1743. <td id="LC334" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">while</span> (<span class="pl-k">not</span> <span class="pl-smi">$found</span>) {</td>
  1744. </tr>
  1745. <tr>
  1746. <td id="L335" class="blob-num js-line-number" data-line-number="335"></td>
  1747. <td id="LC335" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$dir</span> &gt; 0) {</td>
  1748. </tr>
  1749. <tr>
  1750. <td id="L336" class="blob-num js-line-number" data-line-number="336"></td>
  1751. <td id="LC336" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$text</span> = <span class="pl-c1">substr</span>(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>t, <span class="pl-smi">$offset</span>);</td>
  1752. </tr>
  1753. <tr>
  1754. <td id="L337" class="blob-num js-line-number" data-line-number="337"></td>
  1755. <td id="LC337" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$text</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span><span class="pl-smi">$self</span>-&gt;{pattern}<span class="pl-pds">/</span></span>) {</td>
  1756. </tr>
  1757. <tr>
  1758. <td id="L338" class="blob-num js-line-number" data-line-number="338"></td>
  1759. <td id="LC338" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$found</span> = 1;</td>
  1760. </tr>
  1761. <tr>
  1762. <td id="L339" class="blob-num js-line-number" data-line-number="339"></td>
  1763. <td id="LC339" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> += <span class="pl-smi">$-</span>[0];</td>
  1764. </tr>
  1765. <tr>
  1766. <td id="L340" class="blob-num js-line-number" data-line-number="340"></td>
  1767. <td id="LC340" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  1768. </tr>
  1769. <tr>
  1770. <td id="L341" class="blob-num js-line-number" data-line-number="341"></td>
  1771. <td id="LC341" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">last</span> <span class="pl-k">if</span> <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>end &gt;= <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow;</td>
  1772. </tr>
  1773. <tr>
  1774. <td id="L342" class="blob-num js-line-number" data-line-number="342"></td>
  1775. <td id="LC342" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>end + 1);</td>
  1776. </tr>
  1777. <tr>
  1778. <td id="L343" class="blob-num js-line-number" data-line-number="343"></td>
  1779. <td id="LC343" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> = 0;</td>
  1780. </tr>
  1781. <tr>
  1782. <td id="L344" class="blob-num js-line-number" data-line-number="344"></td>
  1783. <td id="LC344" class="blob-code blob-code-inner js-file-line"> }</td>
  1784. </tr>
  1785. <tr>
  1786. <td id="L345" class="blob-num js-line-number" data-line-number="345"></td>
  1787. <td id="LC345" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  1788. </tr>
  1789. <tr>
  1790. <td id="L346" class="blob-num js-line-number" data-line-number="346"></td>
  1791. <td id="LC346" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$text</span> = <span class="pl-c1">substr</span>(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>t, 0, <span class="pl-smi">$offset</span>);</td>
  1792. </tr>
  1793. <tr>
  1794. <td id="L347" class="blob-num js-line-number" data-line-number="347"></td>
  1795. <td id="LC347" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$text</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span><span class="pl-smi">$self</span>-&gt;{pattern}<span class="pl-pds">/</span></span>) {</td>
  1796. </tr>
  1797. <tr>
  1798. <td id="L348" class="blob-num js-line-number" data-line-number="348"></td>
  1799. <td id="LC348" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$found</span> = 1;</td>
  1800. </tr>
  1801. <tr>
  1802. <td id="L349" class="blob-num js-line-number" data-line-number="349"></td>
  1803. <td id="LC349" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> = <span class="pl-smi">$-</span>[0] <span class="pl-k">while</span> <span class="pl-smi">$text</span> =~ <span class="pl-sr"><span class="pl-pds"><span class="pl-c1">m</span>/</span><span class="pl-smi">$self</span>-&gt;{pattern}<span class="pl-pds">/</span></span><span class="pl-sr"><span class="pl-pds"><span class="pl-k">g</span></span></span>;</td>
  1804. </tr>
  1805. <tr>
  1806. <td id="L350" class="blob-num js-line-number" data-line-number="350"></td>
  1807. <td id="LC350" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  1808. </tr>
  1809. <tr>
  1810. <td id="L351" class="blob-num js-line-number" data-line-number="351"></td>
  1811. <td id="LC351" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">last</span> <span class="pl-k">if</span> <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>beg &lt;= <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row;</td>
  1812. </tr>
  1813. <tr>
  1814. <td id="L352" class="blob-num js-line-number" data-line-number="352"></td>
  1815. <td id="LC352" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>beg - 1);</td>
  1816. </tr>
  1817. <tr>
  1818. <td id="L353" class="blob-num js-line-number" data-line-number="353"></td>
  1819. <td id="LC353" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$offset</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l;</td>
  1820. </tr>
  1821. <tr>
  1822. <td id="L354" class="blob-num js-line-number" data-line-number="354"></td>
  1823. <td id="LC354" class="blob-code blob-code-inner js-file-line"> }</td>
  1824. </tr>
  1825. <tr>
  1826. <td id="L355" class="blob-num js-line-number" data-line-number="355"></td>
  1827. <td id="LC355" class="blob-code blob-code-inner js-file-line"> }</td>
  1828. </tr>
  1829. <tr>
  1830. <td id="L356" class="blob-num js-line-number" data-line-number="356"></td>
  1831. <td id="LC356" class="blob-code blob-code-inner js-file-line"> }</td>
  1832. </tr>
  1833. <tr>
  1834. <td id="L357" class="blob-num js-line-number" data-line-number="357"></td>
  1835. <td id="LC357" class="blob-code blob-code-inner js-file-line">
  1836. </td>
  1837. </tr>
  1838. <tr>
  1839. <td id="L358" class="blob-num js-line-number" data-line-number="358"></td>
  1840. <td id="LC358" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$found</span>) {</td>
  1841. </tr>
  1842. <tr>
  1843. <td id="L359" class="blob-num js-line-number" data-line-number="359"></td>
  1844. <td id="LC359" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = 0;</td>
  1845. </tr>
  1846. <tr>
  1847. <td id="L360" class="blob-num js-line-number" data-line-number="360"></td>
  1848. <td id="LC360" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} = <span class="pl-smi">$offset</span>;</td>
  1849. </tr>
  1850. <tr>
  1851. <td id="L361" class="blob-num js-line-number" data-line-number="361"></td>
  1852. <td id="LC361" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>coord_of(<span class="pl-smi">$offset</span>));</td>
  1853. </tr>
  1854. <tr>
  1855. <td id="L362" class="blob-num js-line-number" data-line-number="362"></td>
  1856. <td id="LC362" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  1857. </tr>
  1858. <tr>
  1859. <td id="L363" class="blob-num js-line-number" data-line-number="363"></td>
  1860. <td id="LC363" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>want_refresh();</td>
  1861. </tr>
  1862. <tr>
  1863. <td id="L364" class="blob-num js-line-number" data-line-number="364"></td>
  1864. <td id="LC364" class="blob-code blob-code-inner js-file-line"> }</td>
  1865. </tr>
  1866. <tr>
  1867. <td id="L365" class="blob-num js-line-number" data-line-number="365"></td>
  1868. <td id="LC365" class="blob-code blob-code-inner js-file-line">
  1869. </td>
  1870. </tr>
  1871. <tr>
  1872. <td id="L366" class="blob-num js-line-number" data-line-number="366"></td>
  1873. <td id="LC366" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">return</span> <span class="pl-smi">$found</span>;</td>
  1874. </tr>
  1875. <tr>
  1876. <td id="L367" class="blob-num js-line-number" data-line-number="367"></td>
  1877. <td id="LC367" class="blob-code blob-code-inner js-file-line">}</td>
  1878. </tr>
  1879. <tr>
  1880. <td id="L368" class="blob-num js-line-number" data-line-number="368"></td>
  1881. <td id="LC368" class="blob-code blob-code-inner js-file-line">
  1882. </td>
  1883. </tr>
  1884. <tr>
  1885. <td id="L369" class="blob-num js-line-number" data-line-number="369"></td>
  1886. <td id="LC369" class="blob-code blob-code-inner js-file-line">
  1887. </td>
  1888. </tr>
  1889. <tr>
  1890. <td id="L370" class="blob-num js-line-number" data-line-number="370"></td>
  1891. <td id="LC370" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">tt_write</span> {</td>
  1892. </tr>
  1893. <tr>
  1894. <td id="L371" class="blob-num js-line-number" data-line-number="371"></td>
  1895. <td id="LC371" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">return</span> 1;</td>
  1896. </tr>
  1897. <tr>
  1898. <td id="L372" class="blob-num js-line-number" data-line-number="372"></td>
  1899. <td id="LC372" class="blob-code blob-code-inner js-file-line">}</td>
  1900. </tr>
  1901. <tr>
  1902. <td id="L373" class="blob-num js-line-number" data-line-number="373"></td>
  1903. <td id="LC373" class="blob-code blob-code-inner js-file-line">
  1904. </td>
  1905. </tr>
  1906. <tr>
  1907. <td id="L374" class="blob-num js-line-number" data-line-number="374"></td>
  1908. <td id="LC374" class="blob-code blob-code-inner js-file-line">
  1909. </td>
  1910. </tr>
  1911. <tr>
  1912. <td id="L375" class="blob-num js-line-number" data-line-number="375"></td>
  1913. <td id="LC375" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">refresh</span> {</td>
  1914. </tr>
  1915. <tr>
  1916. <td id="L376" class="blob-num js-line-number" data-line-number="376"></td>
  1917. <td id="LC376" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>) = <span class="pl-smi">@_</span>;</td>
  1918. </tr>
  1919. <tr>
  1920. <td id="L377" class="blob-num js-line-number" data-line-number="377"></td>
  1921. <td id="LC377" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$reverse_cursor</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">ne</span> <span class="pl-s"><span class="pl-pds">&#39;</span>l<span class="pl-pds">&#39;</span></span>;</td>
  1922. </tr>
  1923. <tr>
  1924. <td id="L378" class="blob-num js-line-number" data-line-number="378"></td>
  1925. <td id="LC378" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  1926. </tr>
  1927. <tr>
  1928. <td id="L379" class="blob-num js-line-number" data-line-number="379"></td>
  1929. <td id="LC379" class="blob-code blob-code-inner js-file-line">
  1930. </td>
  1931. </tr>
  1932. <tr>
  1933. <td id="L380" class="blob-num js-line-number" data-line-number="380"></td>
  1934. <td id="LC380" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>}) {</td>
  1935. </tr>
  1936. <tr>
  1937. <td id="L381" class="blob-num js-line-number" data-line-number="381"></td>
  1938. <td id="LC381" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>, <span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>) = calc_span(<span class="pl-smi">$self</span>);</td>
  1939. </tr>
  1940. <tr>
  1941. <td id="L382" class="blob-num js-line-number" data-line-number="382"></td>
  1942. <td id="LC382" class="blob-code blob-code-inner js-file-line">
  1943. </td>
  1944. </tr>
  1945. <tr>
  1946. <td id="L383" class="blob-num js-line-number" data-line-number="383"></td>
  1947. <td id="LC383" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>b<span class="pl-pds">&#39;</span></span>) {</td>
  1948. </tr>
  1949. <tr>
  1950. <td id="L384" class="blob-num js-line-number" data-line-number="384"></td>
  1951. <td id="LC384" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">delete</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">selection</span>} <span class="pl-k">if</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">selection</span>};</td>
  1952. </tr>
  1953. <tr>
  1954. <td id="L385" class="blob-num js-line-number" data-line-number="385"></td>
  1955. <td id="LC385" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$co</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>)<span class="pl-k">-&gt;</span>offset_of(<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>);</td>
  1956. </tr>
  1957. <tr>
  1958. <td id="L386" class="blob-num js-line-number" data-line-number="386"></td>
  1959. <td id="LC386" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$dollar</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} &amp;&amp; <span class="pl-smi">$co</span> &gt;= <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} - 1;</td>
  1960. </tr>
  1961. <tr>
  1962. <td id="L387" class="blob-num js-line-number" data-line-number="387"></td>
  1963. <td id="LC387" class="blob-code blob-code-inner js-file-line">
  1964. </td>
  1965. </tr>
  1966. <tr>
  1967. <td id="L388" class="blob-num js-line-number" data-line-number="388"></td>
  1968. <td id="LC388" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$r</span> = <span class="pl-smi">$br</span>;</td>
  1969. </tr>
  1970. <tr>
  1971. <td id="L389" class="blob-num js-line-number" data-line-number="389"></td>
  1972. <td id="LC389" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">while</span> (<span class="pl-smi">$r</span> &lt;= <span class="pl-smi">$er</span>) {</td>
  1973. </tr>
  1974. <tr>
  1975. <td id="L390" class="blob-num js-line-number" data-line-number="390"></td>
  1976. <td id="LC390" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$r</span>);</td>
  1977. </tr>
  1978. <tr>
  1979. <td id="L391" class="blob-num js-line-number" data-line-number="391"></td>
  1980. <td id="LC391" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$bc</span> &lt; <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l) {</td>
  1981. </tr>
  1982. <tr>
  1983. <td id="L392" class="blob-num js-line-number" data-line-number="392"></td>
  1984. <td id="LC392" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$ec</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l <span class="pl-k">if</span> <span class="pl-smi">$dollar</span>;</td>
  1985. </tr>
  1986. <tr>
  1987. <td id="L393" class="blob-num js-line-number" data-line-number="393"></td>
  1988. <td id="LC393" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">selection</span>} .= <span class="pl-c1">substr</span>(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>t, <span class="pl-smi">$bc</span>, <span class="pl-smi">$ec</span> - <span class="pl-smi">$bc</span>);</td>
  1989. </tr>
  1990. <tr>
  1991. <td id="L394" class="blob-num js-line-number" data-line-number="394"></td>
  1992. <td id="LC394" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>) = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>coord_of(<span class="pl-smi">$bc</span>);</td>
  1993. </tr>
  1994. <tr>
  1995. <td id="L395" class="blob-num js-line-number" data-line-number="395"></td>
  1996. <td id="LC395" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>) = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>coord_of(<span class="pl-smi">$ec</span> &lt;= <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l ? <span class="pl-smi">$ec</span> : <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l);</td>
  1997. </tr>
  1998. <tr>
  1999. <td id="L396" class="blob-num js-line-number" data-line-number="396"></td>
  2000. <td id="LC396" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>scr_xor_span(<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>, <span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>, urxvt::RS_RVid);</td>
  2001. </tr>
  2002. <tr>
  2003. <td id="L397" class="blob-num js-line-number" data-line-number="397"></td>
  2004. <td id="LC397" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$r</span> == <span class="pl-smi">$cr</span>) {</td>
  2005. </tr>
  2006. <tr>
  2007. <td id="L398" class="blob-num js-line-number" data-line-number="398"></td>
  2008. <td id="LC398" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$reverse_cursor</span> = 0;</td>
  2009. </tr>
  2010. <tr>
  2011. <td id="L399" class="blob-num js-line-number" data-line-number="399"></td>
  2012. <td id="LC399" class="blob-code blob-code-inner js-file-line"> }</td>
  2013. </tr>
  2014. <tr>
  2015. <td id="L400" class="blob-num js-line-number" data-line-number="400"></td>
  2016. <td id="LC400" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">selection</span>} .= <span class="pl-s"><span class="pl-pds">&quot;</span><span class="pl-cce">\n</span><span class="pl-pds">&quot;</span></span> <span class="pl-k">if</span> <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>end &lt; <span class="pl-smi">$er</span>;</td>
  2017. </tr>
  2018. <tr>
  2019. <td id="L401" class="blob-num js-line-number" data-line-number="401"></td>
  2020. <td id="LC401" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$r</span> = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>end + 1;</td>
  2021. </tr>
  2022. <tr>
  2023. <td id="L402" class="blob-num js-line-number" data-line-number="402"></td>
  2024. <td id="LC402" class="blob-code blob-code-inner js-file-line"> }</td>
  2025. </tr>
  2026. <tr>
  2027. <td id="L403" class="blob-num js-line-number" data-line-number="403"></td>
  2028. <td id="LC403" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  2029. </tr>
  2030. <tr>
  2031. <td id="L404" class="blob-num js-line-number" data-line-number="404"></td>
  2032. <td id="LC404" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>scr_xor_span(<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>, <span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>, urxvt::RS_RVid);</td>
  2033. </tr>
  2034. <tr>
  2035. <td id="L405" class="blob-num js-line-number" data-line-number="405"></td>
  2036. <td id="LC405" class="blob-code blob-code-inner js-file-line"> }</td>
  2037. </tr>
  2038. <tr>
  2039. <td id="L406" class="blob-num js-line-number" data-line-number="406"></td>
  2040. <td id="LC406" class="blob-code blob-code-inner js-file-line">
  2041. </td>
  2042. </tr>
  2043. <tr>
  2044. <td id="L407" class="blob-num js-line-number" data-line-number="407"></td>
  2045. <td id="LC407" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$reverse_cursor</span>) {</td>
  2046. </tr>
  2047. <tr>
  2048. <td id="L408" class="blob-num js-line-number" data-line-number="408"></td>
  2049. <td id="LC408" class="blob-code blob-code-inner js-file-line"> <span class="pl-c"># make the cursor visible again</span></td>
  2050. </tr>
  2051. <tr>
  2052. <td id="L409" class="blob-num js-line-number" data-line-number="409"></td>
  2053. <td id="LC409" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>scr_xor_span(<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>, <span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span> + 1, urxvt::RS_RVid);</td>
  2054. </tr>
  2055. <tr>
  2056. <td id="L410" class="blob-num js-line-number" data-line-number="410"></td>
  2057. <td id="LC410" class="blob-code blob-code-inner js-file-line"> }</td>
  2058. </tr>
  2059. <tr>
  2060. <td id="L411" class="blob-num js-line-number" data-line-number="411"></td>
  2061. <td id="LC411" class="blob-code blob-code-inner js-file-line"> }</td>
  2062. </tr>
  2063. <tr>
  2064. <td id="L412" class="blob-num js-line-number" data-line-number="412"></td>
  2065. <td id="LC412" class="blob-code blob-code-inner js-file-line">
  2066. </td>
  2067. </tr>
  2068. <tr>
  2069. <td id="L413" class="blob-num js-line-number" data-line-number="413"></td>
  2070. <td id="LC413" class="blob-code blob-code-inner js-file-line"> <span class="pl-c"># scroll the current cursor position into visible area</span></td>
  2071. </tr>
  2072. <tr>
  2073. <td id="L414" class="blob-num js-line-number" data-line-number="414"></td>
  2074. <td id="LC414" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$cr</span> &lt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start()) {</td>
  2075. </tr>
  2076. <tr>
  2077. <td id="L415" class="blob-num js-line-number" data-line-number="415"></td>
  2078. <td id="LC415" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start(<span class="pl-smi">$cr</span>);</td>
  2079. </tr>
  2080. <tr>
  2081. <td id="L416" class="blob-num js-line-number" data-line-number="416"></td>
  2082. <td id="LC416" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$cr</span> &gt;= <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start() + <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow) {</td>
  2083. </tr>
  2084. <tr>
  2085. <td id="L417" class="blob-num js-line-number" data-line-number="417"></td>
  2086. <td id="LC417" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start(<span class="pl-smi">$cr</span> - <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>nrow + 1);</td>
  2087. </tr>
  2088. <tr>
  2089. <td id="L418" class="blob-num js-line-number" data-line-number="418"></td>
  2090. <td id="LC418" class="blob-code blob-code-inner js-file-line"> }</td>
  2091. </tr>
  2092. <tr>
  2093. <td id="L419" class="blob-num js-line-number" data-line-number="419"></td>
  2094. <td id="LC419" class="blob-code blob-code-inner js-file-line">
  2095. </td>
  2096. </tr>
  2097. <tr>
  2098. <td id="L420" class="blob-num js-line-number" data-line-number="420"></td>
  2099. <td id="LC420" class="blob-code blob-code-inner js-file-line"> ()</td>
  2100. </tr>
  2101. <tr>
  2102. <td id="L421" class="blob-num js-line-number" data-line-number="421"></td>
  2103. <td id="LC421" class="blob-code blob-code-inner js-file-line">}</td>
  2104. </tr>
  2105. <tr>
  2106. <td id="L422" class="blob-num js-line-number" data-line-number="422"></td>
  2107. <td id="LC422" class="blob-code blob-code-inner js-file-line">
  2108. </td>
  2109. </tr>
  2110. <tr>
  2111. <td id="L423" class="blob-num js-line-number" data-line-number="423"></td>
  2112. <td id="LC423" class="blob-code blob-code-inner js-file-line">
  2113. </td>
  2114. </tr>
  2115. <tr>
  2116. <td id="L424" class="blob-num js-line-number" data-line-number="424"></td>
  2117. <td id="LC424" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">activate</span> {</td>
  2118. </tr>
  2119. <tr>
  2120. <td id="L425" class="blob-num js-line-number" data-line-number="425"></td>
  2121. <td id="LC425" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$search</span>) = <span class="pl-smi">@_</span>;</td>
  2122. </tr>
  2123. <tr>
  2124. <td id="L426" class="blob-num js-line-number" data-line-number="426"></td>
  2125. <td id="LC426" class="blob-code blob-code-inner js-file-line">
  2126. </td>
  2127. </tr>
  2128. <tr>
  2129. <td id="L427" class="blob-num js-line-number" data-line-number="427"></td>
  2130. <td id="LC427" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">active</span>} = 1;</td>
  2131. </tr>
  2132. <tr>
  2133. <td id="L428" class="blob-num js-line-number" data-line-number="428"></td>
  2134. <td id="LC428" class="blob-code blob-code-inner js-file-line">
  2135. </td>
  2136. </tr>
  2137. <tr>
  2138. <td id="L429" class="blob-num js-line-number" data-line-number="429"></td>
  2139. <td id="LC429" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} = <span class="pl-s"><span class="pl-pds">&#39;</span><span class="pl-pds">&#39;</span></span>;</td>
  2140. </tr>
  2141. <tr>
  2142. <td id="L430" class="blob-num js-line-number" data-line-number="430"></td>
  2143. <td id="LC430" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">dollar</span>} = 0;</td>
  2144. </tr>
  2145. <tr>
  2146. <td id="L431" class="blob-num js-line-number" data-line-number="431"></td>
  2147. <td id="LC431" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">move_to</span>} = 0;</td>
  2148. </tr>
  2149. <tr>
  2150. <td id="L432" class="blob-num js-line-number" data-line-number="432"></td>
  2151. <td id="LC432" class="blob-code blob-code-inner js-file-line">
  2152. </td>
  2153. </tr>
  2154. <tr>
  2155. <td id="L433" class="blob-num js-line-number" data-line-number="433"></td>
  2156. <td id="LC433" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$search</span>) {</td>
  2157. </tr>
  2158. <tr>
  2159. <td id="L434" class="blob-num js-line-number" data-line-number="434"></td>
  2160. <td id="LC434" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} = <span class="pl-s"><span class="pl-pds">&#39;</span>?<span class="pl-pds">&#39;</span></span>;</td>
  2161. </tr>
  2162. <tr>
  2163. <td id="L435" class="blob-num js-line-number" data-line-number="435"></td>
  2164. <td id="LC435" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_dir</span>} = -1;</td>
  2165. </tr>
  2166. <tr>
  2167. <td id="L436" class="blob-num js-line-number" data-line-number="436"></td>
  2168. <td id="LC436" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_mode</span>} = 1;</td>
  2169. </tr>
  2170. <tr>
  2171. <td id="L437" class="blob-num js-line-number" data-line-number="437"></td>
  2172. <td id="LC437" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  2173. </tr>
  2174. <tr>
  2175. <td id="L438" class="blob-num js-line-number" data-line-number="438"></td>
  2176. <td id="LC438" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} = <span class="pl-s"><span class="pl-pds">&#39;</span><span class="pl-pds">&#39;</span></span>;</td>
  2177. </tr>
  2178. <tr>
  2179. <td id="L439" class="blob-num js-line-number" data-line-number="439"></td>
  2180. <td id="LC439" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search_mode</span>} = 0;</td>
  2181. </tr>
  2182. <tr>
  2183. <td id="L440" class="blob-num js-line-number" data-line-number="440"></td>
  2184. <td id="LC440" class="blob-code blob-code-inner js-file-line"> }</td>
  2185. </tr>
  2186. <tr>
  2187. <td id="L441" class="blob-num js-line-number" data-line-number="441"></td>
  2188. <td id="LC441" class="blob-code blob-code-inner js-file-line">
  2189. </td>
  2190. </tr>
  2191. <tr>
  2192. <td id="L442" class="blob-num js-line-number" data-line-number="442"></td>
  2193. <td id="LC442" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">oldcr</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">oldcc</span>}) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  2194. </tr>
  2195. <tr>
  2196. <td id="L443" class="blob-num js-line-number" data-line-number="443"></td>
  2197. <td id="LC443" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">srhcr</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">srhcc</span>}) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  2198. </tr>
  2199. <tr>
  2200. <td id="L444" class="blob-num js-line-number" data-line-number="444"></td>
  2201. <td id="LC444" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">old_view_start</span>} = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start();</td>
  2202. </tr>
  2203. <tr>
  2204. <td id="L445" class="blob-num js-line-number" data-line-number="445"></td>
  2205. <td id="LC445" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">old_pty_ev_events</span>} = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>pty_ev_events(urxvt::EV_NONE);</td>
  2206. </tr>
  2207. <tr>
  2208. <td id="L446" class="blob-num js-line-number" data-line-number="446"></td>
  2209. <td id="LC446" class="blob-code blob-code-inner js-file-line">
  2210. </td>
  2211. </tr>
  2212. <tr>
  2213. <td id="L447" class="blob-num js-line-number" data-line-number="447"></td>
  2214. <td id="LC447" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> <span class="pl-smi">$line</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">oldcr</span>});</td>
  2215. </tr>
  2216. <tr>
  2217. <td id="L448" class="blob-num js-line-number" data-line-number="448"></td>
  2218. <td id="LC448" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>offset_of(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">oldcr</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">oldcc</span>});</td>
  2219. </tr>
  2220. <tr>
  2221. <td id="L449" class="blob-num js-line-number" data-line-number="449"></td>
  2222. <td id="LC449" class="blob-code blob-code-inner js-file-line">
  2223. </td>
  2224. </tr>
  2225. <tr>
  2226. <td id="L450" class="blob-num js-line-number" data-line-number="450"></td>
  2227. <td id="LC450" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_beg(1, 0);</td>
  2228. </tr>
  2229. <tr>
  2230. <td id="L451" class="blob-num js-line-number" data-line-number="451"></td>
  2231. <td id="LC451" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_end(1, 0);</td>
  2232. </tr>
  2233. <tr>
  2234. <td id="L452" class="blob-num js-line-number" data-line-number="452"></td>
  2235. <td id="LC452" class="blob-code blob-code-inner js-file-line">
  2236. </td>
  2237. </tr>
  2238. <tr>
  2239. <td id="L453" class="blob-num js-line-number" data-line-number="453"></td>
  2240. <td id="LC453" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>enable(</td>
  2241. </tr>
  2242. <tr>
  2243. <td id="L454" class="blob-num js-line-number" data-line-number="454"></td>
  2244. <td id="LC454" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">key_press</span> <span class="pl-k">=&gt;</span> \&amp;key_press,</td>
  2245. </tr>
  2246. <tr>
  2247. <td id="L455" class="blob-num js-line-number" data-line-number="455"></td>
  2248. <td id="LC455" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">refresh_begin</span> <span class="pl-k">=&gt;</span> \&amp;refresh,</td>
  2249. </tr>
  2250. <tr>
  2251. <td id="L456" class="blob-num js-line-number" data-line-number="456"></td>
  2252. <td id="LC456" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">refresh_end</span> <span class="pl-k">=&gt;</span> \&amp;refresh,</td>
  2253. </tr>
  2254. <tr>
  2255. <td id="L457" class="blob-num js-line-number" data-line-number="457"></td>
  2256. <td id="LC457" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">tt_write</span> <span class="pl-k">=&gt;</span> \&amp;tt_write,</td>
  2257. </tr>
  2258. <tr>
  2259. <td id="L458" class="blob-num js-line-number" data-line-number="458"></td>
  2260. <td id="LC458" class="blob-code blob-code-inner js-file-line"> );</td>
  2261. </tr>
  2262. <tr>
  2263. <td id="L459" class="blob-num js-line-number" data-line-number="459"></td>
  2264. <td id="LC459" class="blob-code blob-code-inner js-file-line">
  2265. </td>
  2266. </tr>
  2267. <tr>
  2268. <td id="L460" class="blob-num js-line-number" data-line-number="460"></td>
  2269. <td id="LC460" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} &gt;= <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l) {</td>
  2270. </tr>
  2271. <tr>
  2272. <td id="L461" class="blob-num js-line-number" data-line-number="461"></td>
  2273. <td id="LC461" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>} = <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l &gt; 0 ? <span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>l - 1 : 0;</td>
  2274. </tr>
  2275. <tr>
  2276. <td id="L462" class="blob-num js-line-number" data-line-number="462"></td>
  2277. <td id="LC462" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur(<span class="pl-smi">$line</span><span class="pl-k">-&gt;</span>coord_of(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">offset</span>}));</td>
  2278. </tr>
  2279. <tr>
  2280. <td id="L463" class="blob-num js-line-number" data-line-number="463"></td>
  2281. <td id="LC463" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>want_refresh();</td>
  2282. </tr>
  2283. <tr>
  2284. <td id="L464" class="blob-num js-line-number" data-line-number="464"></td>
  2285. <td id="LC464" class="blob-code blob-code-inner js-file-line"> }</td>
  2286. </tr>
  2287. <tr>
  2288. <td id="L465" class="blob-num js-line-number" data-line-number="465"></td>
  2289. <td id="LC465" class="blob-code blob-code-inner js-file-line">
  2290. </td>
  2291. </tr>
  2292. <tr>
  2293. <td id="L466" class="blob-num js-line-number" data-line-number="466"></td>
  2294. <td id="LC466" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay_len</span>} = 0;</td>
  2295. </tr>
  2296. <tr>
  2297. <td id="L467" class="blob-num js-line-number" data-line-number="467"></td>
  2298. <td id="LC467" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  2299. </tr>
  2300. <tr>
  2301. <td id="L468" class="blob-num js-line-number" data-line-number="468"></td>
  2302. <td id="LC468" class="blob-code blob-code-inner js-file-line">
  2303. </td>
  2304. </tr>
  2305. <tr>
  2306. <td id="L469" class="blob-num js-line-number" data-line-number="469"></td>
  2307. <td id="LC469" class="blob-code blob-code-inner js-file-line"> ()</td>
  2308. </tr>
  2309. <tr>
  2310. <td id="L470" class="blob-num js-line-number" data-line-number="470"></td>
  2311. <td id="LC470" class="blob-code blob-code-inner js-file-line">}</td>
  2312. </tr>
  2313. <tr>
  2314. <td id="L471" class="blob-num js-line-number" data-line-number="471"></td>
  2315. <td id="LC471" class="blob-code blob-code-inner js-file-line">
  2316. </td>
  2317. </tr>
  2318. <tr>
  2319. <td id="L472" class="blob-num js-line-number" data-line-number="472"></td>
  2320. <td id="LC472" class="blob-code blob-code-inner js-file-line">
  2321. </td>
  2322. </tr>
  2323. <tr>
  2324. <td id="L473" class="blob-num js-line-number" data-line-number="473"></td>
  2325. <td id="LC473" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">deactivate</span> {</td>
  2326. </tr>
  2327. <tr>
  2328. <td id="L474" class="blob-num js-line-number" data-line-number="474"></td>
  2329. <td id="LC474" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>) = <span class="pl-smi">@_</span>;</td>
  2330. </tr>
  2331. <tr>
  2332. <td id="L475" class="blob-num js-line-number" data-line-number="475"></td>
  2333. <td id="LC475" class="blob-code blob-code-inner js-file-line">
  2334. </td>
  2335. </tr>
  2336. <tr>
  2337. <td id="L476" class="blob-num js-line-number" data-line-number="476"></td>
  2338. <td id="LC476" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_beg(1, 0);</td>
  2339. </tr>
  2340. <tr>
  2341. <td id="L477" class="blob-num js-line-number" data-line-number="477"></td>
  2342. <td id="LC477" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>selection_end(1, 0);</td>
  2343. </tr>
  2344. <tr>
  2345. <td id="L478" class="blob-num js-line-number" data-line-number="478"></td>
  2346. <td id="LC478" class="blob-code blob-code-inner js-file-line">
  2347. </td>
  2348. </tr>
  2349. <tr>
  2350. <td id="L479" class="blob-num js-line-number" data-line-number="479"></td>
  2351. <td id="LC479" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">delete</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay</span>} <span class="pl-k">if</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay</span>};</td>
  2352. </tr>
  2353. <tr>
  2354. <td id="L480" class="blob-num js-line-number" data-line-number="480"></td>
  2355. <td id="LC480" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">delete</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">selection</span>} <span class="pl-k">if</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">selection</span>};</td>
  2356. </tr>
  2357. <tr>
  2358. <td id="L481" class="blob-num js-line-number" data-line-number="481"></td>
  2359. <td id="LC481" class="blob-code blob-code-inner js-file-line">
  2360. </td>
  2361. </tr>
  2362. <tr>
  2363. <td id="L482" class="blob-num js-line-number" data-line-number="482"></td>
  2364. <td id="LC482" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>disable(<span class="pl-s"><span class="pl-pds">&quot;</span>key_press<span class="pl-pds">&quot;</span></span>, <span class="pl-s"><span class="pl-pds">&quot;</span>refresh_begin<span class="pl-pds">&quot;</span></span>, <span class="pl-s"><span class="pl-pds">&quot;</span>refresh_end<span class="pl-pds">&quot;</span></span>, <span class="pl-s"><span class="pl-pds">&quot;</span>tt_write<span class="pl-pds">&quot;</span></span>);</td>
  2365. </tr>
  2366. <tr>
  2367. <td id="L483" class="blob-num js-line-number" data-line-number="483"></td>
  2368. <td id="LC483" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">oldcr</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">oldcc</span>});</td>
  2369. </tr>
  2370. <tr>
  2371. <td id="L484" class="blob-num js-line-number" data-line-number="484"></td>
  2372. <td id="LC484" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">old_view_start</span>});</td>
  2373. </tr>
  2374. <tr>
  2375. <td id="L485" class="blob-num js-line-number" data-line-number="485"></td>
  2376. <td id="LC485" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>pty_ev_events(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">old_pty_ev_events</span>});</td>
  2377. </tr>
  2378. <tr>
  2379. <td id="L486" class="blob-num js-line-number" data-line-number="486"></td>
  2380. <td id="LC486" class="blob-code blob-code-inner js-file-line">
  2381. </td>
  2382. </tr>
  2383. <tr>
  2384. <td id="L487" class="blob-num js-line-number" data-line-number="487"></td>
  2385. <td id="LC487" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>want_refresh();</td>
  2386. </tr>
  2387. <tr>
  2388. <td id="L488" class="blob-num js-line-number" data-line-number="488"></td>
  2389. <td id="LC488" class="blob-code blob-code-inner js-file-line">
  2390. </td>
  2391. </tr>
  2392. <tr>
  2393. <td id="L489" class="blob-num js-line-number" data-line-number="489"></td>
  2394. <td id="LC489" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">active</span>} = 0;</td>
  2395. </tr>
  2396. <tr>
  2397. <td id="L490" class="blob-num js-line-number" data-line-number="490"></td>
  2398. <td id="LC490" class="blob-code blob-code-inner js-file-line">
  2399. </td>
  2400. </tr>
  2401. <tr>
  2402. <td id="L491" class="blob-num js-line-number" data-line-number="491"></td>
  2403. <td id="LC491" class="blob-code blob-code-inner js-file-line"> ()</td>
  2404. </tr>
  2405. <tr>
  2406. <td id="L492" class="blob-num js-line-number" data-line-number="492"></td>
  2407. <td id="LC492" class="blob-code blob-code-inner js-file-line">}</td>
  2408. </tr>
  2409. <tr>
  2410. <td id="L493" class="blob-num js-line-number" data-line-number="493"></td>
  2411. <td id="LC493" class="blob-code blob-code-inner js-file-line">
  2412. </td>
  2413. </tr>
  2414. <tr>
  2415. <td id="L494" class="blob-num js-line-number" data-line-number="494"></td>
  2416. <td id="LC494" class="blob-code blob-code-inner js-file-line">
  2417. </td>
  2418. </tr>
  2419. <tr>
  2420. <td id="L495" class="blob-num js-line-number" data-line-number="495"></td>
  2421. <td id="LC495" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">status_area</span> {</td>
  2422. </tr>
  2423. <tr>
  2424. <td id="L496" class="blob-num js-line-number" data-line-number="496"></td>
  2425. <td id="LC496" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$extra</span>) = <span class="pl-smi">@_</span>;</td>
  2426. </tr>
  2427. <tr>
  2428. <td id="L497" class="blob-num js-line-number" data-line-number="497"></td>
  2429. <td id="LC497" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$stat</span>, <span class="pl-smi">$stat_len</span>);</td>
  2430. </tr>
  2431. <tr>
  2432. <td id="L498" class="blob-num js-line-number" data-line-number="498"></td>
  2433. <td id="LC498" class="blob-code blob-code-inner js-file-line">
  2434. </td>
  2435. </tr>
  2436. <tr>
  2437. <td id="L499" class="blob-num js-line-number" data-line-number="499"></td>
  2438. <td id="LC499" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>}) {</td>
  2439. </tr>
  2440. <tr>
  2441. <td id="L500" class="blob-num js-line-number" data-line-number="500"></td>
  2442. <td id="LC500" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat_len</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>ncol;</td>
  2443. </tr>
  2444. <tr>
  2445. <td id="L501" class="blob-num js-line-number" data-line-number="501"></td>
  2446. <td id="LC501" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>} . <span class="pl-s"><span class="pl-pds">&#39;</span> <span class="pl-pds">&#39;</span></span> x (<span class="pl-smi">$stat_len</span> - <span class="pl-c1">length</span>(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">search</span>}));</td>
  2447. </tr>
  2448. <tr>
  2449. <td id="L502" class="blob-num js-line-number" data-line-number="502"></td>
  2450. <td id="LC502" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  2451. </tr>
  2452. <tr>
  2453. <td id="L503" class="blob-num js-line-number" data-line-number="503"></td>
  2454. <td id="LC503" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>}) {</td>
  2455. </tr>
  2456. <tr>
  2457. <td id="L504" class="blob-num js-line-number" data-line-number="504"></td>
  2458. <td id="LC504" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat</span> = <span class="pl-s"><span class="pl-pds">&quot;</span>-V<span class="pl-pds">&quot;</span></span> . (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">ne</span> <span class="pl-s"><span class="pl-pds">&#39;</span>n<span class="pl-pds">&#39;</span></span> ? <span class="pl-c1">uc</span>(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>}) : <span class="pl-s"><span class="pl-pds">&quot;</span><span class="pl-pds">&quot;</span></span>) . <span class="pl-s"><span class="pl-pds">&quot;</span>- <span class="pl-pds">&quot;</span></span>;</td>
  2459. </tr>
  2460. <tr>
  2461. <td id="L505" class="blob-num js-line-number" data-line-number="505"></td>
  2462. <td id="LC505" class="blob-code blob-code-inner js-file-line"> }</td>
  2463. </tr>
  2464. <tr>
  2465. <td id="L506" class="blob-num js-line-number" data-line-number="506"></td>
  2466. <td id="LC506" class="blob-code blob-code-inner js-file-line">
  2467. </td>
  2468. </tr>
  2469. <tr>
  2470. <td id="L507" class="blob-num js-line-number" data-line-number="507"></td>
  2471. <td id="LC507" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row == 0) {</td>
  2472. </tr>
  2473. <tr>
  2474. <td id="L508" class="blob-num js-line-number" data-line-number="508"></td>
  2475. <td id="LC508" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat</span> .= <span class="pl-s"><span class="pl-pds">&quot;</span>All<span class="pl-pds">&quot;</span></span>;</td>
  2476. </tr>
  2477. <tr>
  2478. <td id="L509" class="blob-num js-line-number" data-line-number="509"></td>
  2479. <td id="LC509" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start() == <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row) {</td>
  2480. </tr>
  2481. <tr>
  2482. <td id="L510" class="blob-num js-line-number" data-line-number="510"></td>
  2483. <td id="LC510" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat</span> .= <span class="pl-s"><span class="pl-pds">&quot;</span>Top<span class="pl-pds">&quot;</span></span>;</td>
  2484. </tr>
  2485. <tr>
  2486. <td id="L511" class="blob-num js-line-number" data-line-number="511"></td>
  2487. <td id="LC511" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start() == 0) {</td>
  2488. </tr>
  2489. <tr>
  2490. <td id="L512" class="blob-num js-line-number" data-line-number="512"></td>
  2491. <td id="LC512" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat</span> .= <span class="pl-s"><span class="pl-pds">&quot;</span>Bot<span class="pl-pds">&quot;</span></span>;</td>
  2492. </tr>
  2493. <tr>
  2494. <td id="L513" class="blob-num js-line-number" data-line-number="513"></td>
  2495. <td id="LC513" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  2496. </tr>
  2497. <tr>
  2498. <td id="L514" class="blob-num js-line-number" data-line-number="514"></td>
  2499. <td id="LC514" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat</span> .= <span class="pl-c1">sprintf</span>(<span class="pl-s"><span class="pl-pds">&quot;</span>%2d%%<span class="pl-pds">&quot;</span></span>,</td>
  2500. </tr>
  2501. <tr>
  2502. <td id="L515" class="blob-num js-line-number" data-line-number="515"></td>
  2503. <td id="LC515" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row - <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>view_start) * 100 / <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>top_row);</td>
  2504. </tr>
  2505. <tr>
  2506. <td id="L516" class="blob-num js-line-number" data-line-number="516"></td>
  2507. <td id="LC516" class="blob-code blob-code-inner js-file-line"> }</td>
  2508. </tr>
  2509. <tr>
  2510. <td id="L517" class="blob-num js-line-number" data-line-number="517"></td>
  2511. <td id="LC517" class="blob-code blob-code-inner js-file-line"> </td>
  2512. </tr>
  2513. <tr>
  2514. <td id="L518" class="blob-num js-line-number" data-line-number="518"></td>
  2515. <td id="LC518" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat</span> = <span class="pl-s"><span class="pl-pds">&quot;</span><span class="pl-smi">$extra</span> <span class="pl-smi">$stat</span><span class="pl-pds">&quot;</span></span> <span class="pl-k">if</span> <span class="pl-smi">$extra</span>;</td>
  2516. </tr>
  2517. <tr>
  2518. <td id="L519" class="blob-num js-line-number" data-line-number="519"></td>
  2519. <td id="LC519" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$stat_len</span> = <span class="pl-c1">length</span>(<span class="pl-smi">$stat</span>);</td>
  2520. </tr>
  2521. <tr>
  2522. <td id="L520" class="blob-num js-line-number" data-line-number="520"></td>
  2523. <td id="LC520" class="blob-code blob-code-inner js-file-line"> }</td>
  2524. </tr>
  2525. <tr>
  2526. <td id="L521" class="blob-num js-line-number" data-line-number="521"></td>
  2527. <td id="LC521" class="blob-code blob-code-inner js-file-line">
  2528. </td>
  2529. </tr>
  2530. <tr>
  2531. <td id="L522" class="blob-num js-line-number" data-line-number="522"></td>
  2532. <td id="LC522" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (!<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay</span>} || <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay_len</span>} != <span class="pl-smi">$stat_len</span>) {</td>
  2533. </tr>
  2534. <tr>
  2535. <td id="L523" class="blob-num js-line-number" data-line-number="523"></td>
  2536. <td id="LC523" class="blob-code blob-code-inner js-file-line"> <span class="pl-c1">delete</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay</span>} <span class="pl-k">if</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay</span>};</td>
  2537. </tr>
  2538. <tr>
  2539. <td id="L524" class="blob-num js-line-number" data-line-number="524"></td>
  2540. <td id="LC524" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay</span>} = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>overlay(-1, -1, <span class="pl-smi">$stat_len</span>, 1,</td>
  2541. </tr>
  2542. <tr>
  2543. <td id="L525" class="blob-num js-line-number" data-line-number="525"></td>
  2544. <td id="LC525" class="blob-code blob-code-inner js-file-line"> urxvt::OVERLAY_RSTYLE, 0);</td>
  2545. </tr>
  2546. <tr>
  2547. <td id="L526" class="blob-num js-line-number" data-line-number="526"></td>
  2548. <td id="LC526" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay_len</span>} = <span class="pl-smi">$stat_len</span>;</td>
  2549. </tr>
  2550. <tr>
  2551. <td id="L527" class="blob-num js-line-number" data-line-number="527"></td>
  2552. <td id="LC527" class="blob-code blob-code-inner js-file-line"> }</td>
  2553. </tr>
  2554. <tr>
  2555. <td id="L528" class="blob-num js-line-number" data-line-number="528"></td>
  2556. <td id="LC528" class="blob-code blob-code-inner js-file-line">
  2557. </td>
  2558. </tr>
  2559. <tr>
  2560. <td id="L529" class="blob-num js-line-number" data-line-number="529"></td>
  2561. <td id="LC529" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay</span>}<span class="pl-k">-&gt;</span>set(0, 0, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>special_encode(<span class="pl-smi">$stat</span>));</td>
  2562. </tr>
  2563. <tr>
  2564. <td id="L530" class="blob-num js-line-number" data-line-number="530"></td>
  2565. <td id="LC530" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">overlay</span>}<span class="pl-k">-&gt;</span>show();</td>
  2566. </tr>
  2567. <tr>
  2568. <td id="L531" class="blob-num js-line-number" data-line-number="531"></td>
  2569. <td id="LC531" class="blob-code blob-code-inner js-file-line">
  2570. </td>
  2571. </tr>
  2572. <tr>
  2573. <td id="L532" class="blob-num js-line-number" data-line-number="532"></td>
  2574. <td id="LC532" class="blob-code blob-code-inner js-file-line"> ()</td>
  2575. </tr>
  2576. <tr>
  2577. <td id="L533" class="blob-num js-line-number" data-line-number="533"></td>
  2578. <td id="LC533" class="blob-code blob-code-inner js-file-line">}</td>
  2579. </tr>
  2580. <tr>
  2581. <td id="L534" class="blob-num js-line-number" data-line-number="534"></td>
  2582. <td id="LC534" class="blob-code blob-code-inner js-file-line">
  2583. </td>
  2584. </tr>
  2585. <tr>
  2586. <td id="L535" class="blob-num js-line-number" data-line-number="535"></td>
  2587. <td id="LC535" class="blob-code blob-code-inner js-file-line">
  2588. </td>
  2589. </tr>
  2590. <tr>
  2591. <td id="L536" class="blob-num js-line-number" data-line-number="536"></td>
  2592. <td id="LC536" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">toggle_select</span> {</td>
  2593. </tr>
  2594. <tr>
  2595. <td id="L537" class="blob-num js-line-number" data-line-number="537"></td>
  2596. <td id="LC537" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>, <span class="pl-smi">$mode</span>) = <span class="pl-smi">@_</span>;</td>
  2597. </tr>
  2598. <tr>
  2599. <td id="L538" class="blob-num js-line-number" data-line-number="538"></td>
  2600. <td id="LC538" class="blob-code blob-code-inner js-file-line">
  2601. </td>
  2602. </tr>
  2603. <tr>
  2604. <td id="L539" class="blob-num js-line-number" data-line-number="539"></td>
  2605. <td id="LC539" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">eq</span> <span class="pl-smi">$mode</span>) {</td>
  2606. </tr>
  2607. <tr>
  2608. <td id="L540" class="blob-num js-line-number" data-line-number="540"></td>
  2609. <td id="LC540" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} = <span class="pl-s"><span class="pl-pds">&#39;</span><span class="pl-pds">&#39;</span></span>;</td>
  2610. </tr>
  2611. <tr>
  2612. <td id="L541" class="blob-num js-line-number" data-line-number="541"></td>
  2613. <td id="LC541" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  2614. </tr>
  2615. <tr>
  2616. <td id="L542" class="blob-num js-line-number" data-line-number="542"></td>
  2617. <td id="LC542" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-k">not</span> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>}) {</td>
  2618. </tr>
  2619. <tr>
  2620. <td id="L543" class="blob-num js-line-number" data-line-number="543"></td>
  2621. <td id="LC543" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ar</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ac</span>}) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  2622. </tr>
  2623. <tr>
  2624. <td id="L544" class="blob-num js-line-number" data-line-number="544"></td>
  2625. <td id="LC544" class="blob-code blob-code-inner js-file-line"> }</td>
  2626. </tr>
  2627. <tr>
  2628. <td id="L545" class="blob-num js-line-number" data-line-number="545"></td>
  2629. <td id="LC545" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} = <span class="pl-smi">$mode</span>;</td>
  2630. </tr>
  2631. <tr>
  2632. <td id="L546" class="blob-num js-line-number" data-line-number="546"></td>
  2633. <td id="LC546" class="blob-code blob-code-inner js-file-line"> }</td>
  2634. </tr>
  2635. <tr>
  2636. <td id="L547" class="blob-num js-line-number" data-line-number="547"></td>
  2637. <td id="LC547" class="blob-code blob-code-inner js-file-line">
  2638. </td>
  2639. </tr>
  2640. <tr>
  2641. <td id="L548" class="blob-num js-line-number" data-line-number="548"></td>
  2642. <td id="LC548" class="blob-code blob-code-inner js-file-line"> status_area(<span class="pl-smi">$self</span>);</td>
  2643. </tr>
  2644. <tr>
  2645. <td id="L549" class="blob-num js-line-number" data-line-number="549"></td>
  2646. <td id="LC549" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>want_refresh();</td>
  2647. </tr>
  2648. <tr>
  2649. <td id="L550" class="blob-num js-line-number" data-line-number="550"></td>
  2650. <td id="LC550" class="blob-code blob-code-inner js-file-line">
  2651. </td>
  2652. </tr>
  2653. <tr>
  2654. <td id="L551" class="blob-num js-line-number" data-line-number="551"></td>
  2655. <td id="LC551" class="blob-code blob-code-inner js-file-line"> ()</td>
  2656. </tr>
  2657. <tr>
  2658. <td id="L552" class="blob-num js-line-number" data-line-number="552"></td>
  2659. <td id="LC552" class="blob-code blob-code-inner js-file-line">}</td>
  2660. </tr>
  2661. <tr>
  2662. <td id="L553" class="blob-num js-line-number" data-line-number="553"></td>
  2663. <td id="LC553" class="blob-code blob-code-inner js-file-line">
  2664. </td>
  2665. </tr>
  2666. <tr>
  2667. <td id="L554" class="blob-num js-line-number" data-line-number="554"></td>
  2668. <td id="LC554" class="blob-code blob-code-inner js-file-line">
  2669. </td>
  2670. </tr>
  2671. <tr>
  2672. <td id="L555" class="blob-num js-line-number" data-line-number="555"></td>
  2673. <td id="LC555" class="blob-code blob-code-inner js-file-line"><span class="pl-k">sub</span> <span class="pl-en">calc_span</span> {</td>
  2674. </tr>
  2675. <tr>
  2676. <td id="L556" class="blob-num js-line-number" data-line-number="556"></td>
  2677. <td id="LC556" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$self</span>) = <span class="pl-smi">@_</span>;</td>
  2678. </tr>
  2679. <tr>
  2680. <td id="L557" class="blob-num js-line-number" data-line-number="557"></td>
  2681. <td id="LC557" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>) = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>screen_cur();</td>
  2682. </tr>
  2683. <tr>
  2684. <td id="L558" class="blob-num js-line-number" data-line-number="558"></td>
  2685. <td id="LC558" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">my</span> (<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>, <span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>);</td>
  2686. </tr>
  2687. <tr>
  2688. <td id="L559" class="blob-num js-line-number" data-line-number="559"></td>
  2689. <td id="LC559" class="blob-code blob-code-inner js-file-line"> </td>
  2690. </tr>
  2691. <tr>
  2692. <td id="L560" class="blob-num js-line-number" data-line-number="560"></td>
  2693. <td id="LC560" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>b<span class="pl-pds">&#39;</span></span>) {</td>
  2694. </tr>
  2695. <tr>
  2696. <td id="L561" class="blob-num js-line-number" data-line-number="561"></td>
  2697. <td id="LC561" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$br</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>)<span class="pl-k">-&gt;</span>beg;</td>
  2698. </tr>
  2699. <tr>
  2700. <td id="L562" class="blob-num js-line-number" data-line-number="562"></td>
  2701. <td id="LC562" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$bc</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$cr</span>)<span class="pl-k">-&gt;</span>offset_of(<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>);</td>
  2702. </tr>
  2703. <tr>
  2704. <td id="L563" class="blob-num js-line-number" data-line-number="563"></td>
  2705. <td id="LC563" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$er</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ar</span>})<span class="pl-k">-&gt;</span>beg;</td>
  2706. </tr>
  2707. <tr>
  2708. <td id="L564" class="blob-num js-line-number" data-line-number="564"></td>
  2709. <td id="LC564" class="blob-code blob-code-inner js-file-line"> <span class="pl-smi">$ec</span> = <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ar</span>})<span class="pl-k">-&gt;</span>offset_of(<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ar</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ac</span>});</td>
  2710. </tr>
  2711. <tr>
  2712. <td id="L565" class="blob-num js-line-number" data-line-number="565"></td>
  2713. <td id="LC565" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$br</span>, <span class="pl-smi">$er</span>) = (<span class="pl-smi">$er</span>, <span class="pl-smi">$br</span>) <span class="pl-k">if</span> <span class="pl-smi">$br</span> &gt; <span class="pl-smi">$er</span>;</td>
  2714. </tr>
  2715. <tr>
  2716. <td id="L566" class="blob-num js-line-number" data-line-number="566"></td>
  2717. <td id="LC566" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$bc</span>, <span class="pl-smi">$ec</span>) = (<span class="pl-smi">$ec</span>, <span class="pl-smi">$bc</span>) <span class="pl-k">if</span> <span class="pl-smi">$bc</span> &gt; <span class="pl-smi">$ec</span>;</td>
  2718. </tr>
  2719. <tr>
  2720. <td id="L567" class="blob-num js-line-number" data-line-number="567"></td>
  2721. <td id="LC567" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  2722. </tr>
  2723. <tr>
  2724. <td id="L568" class="blob-num js-line-number" data-line-number="568"></td>
  2725. <td id="LC568" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$cr</span> &lt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ar</span>}) {</td>
  2726. </tr>
  2727. <tr>
  2728. <td id="L569" class="blob-num js-line-number" data-line-number="569"></td>
  2729. <td id="LC569" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>, <span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>) = (<span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ar</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ac</span>});</td>
  2730. </tr>
  2731. <tr>
  2732. <td id="L570" class="blob-num js-line-number" data-line-number="570"></td>
  2733. <td id="LC570" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">elsif</span> (<span class="pl-smi">$cr</span> &gt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ar</span>}) {</td>
  2734. </tr>
  2735. <tr>
  2736. <td id="L571" class="blob-num js-line-number" data-line-number="571"></td>
  2737. <td id="LC571" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>, <span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>) = (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ar</span>}, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ac</span>}, <span class="pl-smi">$cr</span>, <span class="pl-smi">$cc</span>);</td>
  2738. </tr>
  2739. <tr>
  2740. <td id="L572" class="blob-num js-line-number" data-line-number="572"></td>
  2741. <td id="LC572" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  2742. </tr>
  2743. <tr>
  2744. <td id="L573" class="blob-num js-line-number" data-line-number="573"></td>
  2745. <td id="LC573" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$br</span>, <span class="pl-smi">$er</span>) = (<span class="pl-smi">$cr</span>, <span class="pl-smi">$cr</span>);</td>
  2746. </tr>
  2747. <tr>
  2748. <td id="L574" class="blob-num js-line-number" data-line-number="574"></td>
  2749. <td id="LC574" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$bc</span>, <span class="pl-smi">$ec</span>) = <span class="pl-smi">$cc</span> &lt; <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ac</span>} ? (<span class="pl-smi">$cc</span>, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ac</span>}) : (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">ac</span>}, <span class="pl-smi">$cc</span>);</td>
  2750. </tr>
  2751. <tr>
  2752. <td id="L575" class="blob-num js-line-number" data-line-number="575"></td>
  2753. <td id="LC575" class="blob-code blob-code-inner js-file-line"> }</td>
  2754. </tr>
  2755. <tr>
  2756. <td id="L576" class="blob-num js-line-number" data-line-number="576"></td>
  2757. <td id="LC576" class="blob-code blob-code-inner js-file-line"> }</td>
  2758. </tr>
  2759. <tr>
  2760. <td id="L577" class="blob-num js-line-number" data-line-number="577"></td>
  2761. <td id="LC577" class="blob-code blob-code-inner js-file-line">
  2762. </td>
  2763. </tr>
  2764. <tr>
  2765. <td id="L578" class="blob-num js-line-number" data-line-number="578"></td>
  2766. <td id="LC578" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">if</span> (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>{<span class="pl-c1">select</span>} <span class="pl-c1">eq</span> <span class="pl-s"><span class="pl-pds">&#39;</span>l<span class="pl-pds">&#39;</span></span>) {</td>
  2767. </tr>
  2768. <tr>
  2769. <td id="L579" class="blob-num js-line-number" data-line-number="579"></td>
  2770. <td id="LC579" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$br</span>, <span class="pl-smi">$er</span>) = (<span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$br</span>)<span class="pl-k">-&gt;</span>beg, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>line(<span class="pl-smi">$er</span>)<span class="pl-k">-&gt;</span>end);</td>
  2771. </tr>
  2772. <tr>
  2773. <td id="L580" class="blob-num js-line-number" data-line-number="580"></td>
  2774. <td id="LC580" class="blob-code blob-code-inner js-file-line"> (<span class="pl-smi">$bc</span>, <span class="pl-smi">$ec</span>) = (0, <span class="pl-smi">$self</span><span class="pl-k">-&gt;</span>ncol);</td>
  2775. </tr>
  2776. <tr>
  2777. <td id="L581" class="blob-num js-line-number" data-line-number="581"></td>
  2778. <td id="LC581" class="blob-code blob-code-inner js-file-line"> } <span class="pl-k">else</span> {</td>
  2779. </tr>
  2780. <tr>
  2781. <td id="L582" class="blob-num js-line-number" data-line-number="582"></td>
  2782. <td id="LC582" class="blob-code blob-code-inner js-file-line"> ++<span class="pl-smi">$ec</span>;</td>
  2783. </tr>
  2784. <tr>
  2785. <td id="L583" class="blob-num js-line-number" data-line-number="583"></td>
  2786. <td id="LC583" class="blob-code blob-code-inner js-file-line"> }</td>
  2787. </tr>
  2788. <tr>
  2789. <td id="L584" class="blob-num js-line-number" data-line-number="584"></td>
  2790. <td id="LC584" class="blob-code blob-code-inner js-file-line">
  2791. </td>
  2792. </tr>
  2793. <tr>
  2794. <td id="L585" class="blob-num js-line-number" data-line-number="585"></td>
  2795. <td id="LC585" class="blob-code blob-code-inner js-file-line"> <span class="pl-k">return</span> (<span class="pl-smi">$br</span>, <span class="pl-smi">$bc</span>, <span class="pl-smi">$er</span>, <span class="pl-smi">$ec</span>);</td>
  2796. </tr>
  2797. <tr>
  2798. <td id="L586" class="blob-num js-line-number" data-line-number="586"></td>
  2799. <td id="LC586" class="blob-code blob-code-inner js-file-line">}</td>
  2800. </tr>
  2801. </table>
  2802. </div>
  2803. </div>
  2804. <a href="#jump-to-line" rel="facebox[.linejump]" data-hotkey="l" style="display:none">Jump to Line</a>
  2805. <div id="jump-to-line" style="display:none">
  2806. <form accept-charset="UTF-8" action="" class="js-jump-to-line-form" method="get"><div style="margin:0;padding:0;display:inline"><input name="utf8" type="hidden" value="&#x2713;" /></div>
  2807. <input class="linejump-input js-jump-to-line-field" type="text" placeholder="Jump to line&hellip;" autofocus>
  2808. <button type="submit" class="btn">Go</button>
  2809. </form></div>
  2810. </div>
  2811. </div><!-- /.repo-container -->
  2812. <div class="modal-backdrop"></div>
  2813. </div><!-- /.container -->
  2814. </div><!-- /.site -->
  2815. </div><!-- /.wrapper -->
  2816. <div class="container">
  2817. <div class="site-footer" role="contentinfo">
  2818. <ul class="site-footer-links right">
  2819. <li><a href="https://status.github.com/" data-ga-click="Footer, go to status, text:status">Status</a></li>
  2820. <li><a href="https://developer.github.com" data-ga-click="Footer, go to api, text:api">API</a></li>
  2821. <li><a href="https://training.github.com" data-ga-click="Footer, go to training, text:training">Training</a></li>
  2822. <li><a href="https://shop.github.com" data-ga-click="Footer, go to shop, text:shop">Shop</a></li>
  2823. <li><a href="https://github.com/blog" data-ga-click="Footer, go to blog, text:blog">Blog</a></li>
  2824. <li><a href="https://github.com/about" data-ga-click="Footer, go to about, text:about">About</a></li>
  2825. <li><a href="https://help.github.com" data-ga-click="Footer, go to help, text:help">Help</a></li>
  2826. </ul>
  2827. <a href="https://github.com" aria-label="Homepage">
  2828. <span class="mega-octicon octicon-mark-github" title="GitHub"></span>
  2829. </a>
  2830. <ul class="site-footer-links">
  2831. <li>&copy; 2015 <span title="0.04442s from github-fe125-cp1-prd.iad.github.net">GitHub</span>, Inc.</li>
  2832. <li><a href="https://github.com/site/terms" data-ga-click="Footer, go to terms, text:terms">Terms</a></li>
  2833. <li><a href="https://github.com/site/privacy" data-ga-click="Footer, go to privacy, text:privacy">Privacy</a></li>
  2834. <li><a href="https://github.com/security" data-ga-click="Footer, go to security, text:security">Security</a></li>
  2835. <li><a href="https://github.com/contact" data-ga-click="Footer, go to contact, text:contact">Contact</a></li>
  2836. </ul>
  2837. </div>
  2838. </div>
  2839. <div class="fullscreen-overlay js-fullscreen-overlay" id="fullscreen_overlay">
  2840. <div class="fullscreen-container js-suggester-container">
  2841. <div class="textarea-wrap">
  2842. <textarea name="fullscreen-contents" id="fullscreen-contents" class="fullscreen-contents js-fullscreen-contents" placeholder=""></textarea>
  2843. <div class="suggester-container">
  2844. <div class="suggester fullscreen-suggester js-suggester js-navigation-container"></div>
  2845. </div>
  2846. </div>
  2847. </div>
  2848. <div class="fullscreen-sidebar">
  2849. <a href="#" class="exit-fullscreen js-exit-fullscreen tooltipped tooltipped-w" aria-label="Exit Zen Mode">
  2850. <span class="mega-octicon octicon-screen-normal"></span>
  2851. </a>
  2852. <a href="#" class="theme-switcher js-theme-switcher tooltipped tooltipped-w"
  2853. aria-label="Switch themes">
  2854. <span class="octicon octicon-color-mode"></span>
  2855. </a>
  2856. </div>
  2857. </div>
  2858. <div id="ajax-error-message" class="flash flash-error">
  2859. <span class="octicon octicon-alert"></span>
  2860. <a href="#" class="octicon octicon-x flash-close js-ajax-error-dismiss" aria-label="Dismiss error"></a>
  2861. Something went wrong with that request. Please try again.
  2862. </div>
  2863. <script crossorigin="anonymous" src="https://assets-cdn.github.com/assets/frameworks-808fcfcd63c9ecba3e84453f540cb1cbafde48c6b30c1d51ebd4e67e88ff66bd.js"></script>
  2864. <script async="async" crossorigin="anonymous" src="https://assets-cdn.github.com/assets/github/index-4f888c77edb689a0c50e2edbc2d7ae11518355eff0bfeac3ab0a110ca10eddf9.js"></script>
  2865. </body>
  2866. </html>