/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / term / sup-mouse.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul  6|
|00000040| 20 30 30 3a 32 36 3a 30 | 34 20 31 39 39 33 0a 3b | 00:26:0|4 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 74 65 72 | 6d 2f 73 75 70 2d 6d 6f |lisp/ter|m/sup-mo|
|00000080| 75 73 65 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |use.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 31 35 2e 31 | version| 19.15.1|
|000000a0| 36 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |6..;;; b|ytecomp |
|000000b0| 76 65 72 73 69 6f 6e 20 | 46 53 46 20 32 2e 31 30 |version |FSF 2.10|
|000000c0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000d0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000e0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|000000f0| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000100| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000110| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000120| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000130| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000150| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000170| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000180| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|00000190| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001a0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001b0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001c0| 20 31 39 22 29 29 0a 0a | 28 64 65 66 76 61 72 20 | 19"))..|(defvar |
|000001d0| 73 75 70 2d 6d 6f 75 73 | 65 2d 66 61 73 74 2d 73 |sup-mous|e-fast-s|
|000001e0| 65 6c 65 63 74 2d 77 69 | 6e 64 6f 77 20 6e 69 6c |elect-wi|ndow nil|
|000001f0| 20 22 5c 0a 2a 4e 6f 6e | 2d 6e 69 6c 20 66 6f 72 | "\.*Non|-nil for|
|00000200| 20 6d 6f 75 73 65 20 68 | 69 74 73 20 74 6f 20 73 | mouse h|its to s|
|00000210| 65 6c 65 63 74 20 6e 65 | 77 20 77 69 6e 64 6f 77 |elect ne|w window|
|00000220| 2c 20 74 68 65 6e 20 65 | 78 65 63 75 74 65 3b 20 |, then e|xecute; |
|00000230| 65 6c 73 65 20 6a 75 73 | 74 20 73 65 6c 65 63 74 |else jus|t select|
|00000240| 2e 22 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |.").(byt|e-code "|
|00000250| c0 11 c2 13 c4 15 c6 16 | 07 c8 16 09 ca 16 0b cc |........|........|
|00000260| 16 0d ce 16 0f d0 16 11 | c0 87 22 20 5b 30 20 6d |........|.." [0 m|
|00000270| 6f 75 73 65 2d 6c 65 66 | 74 20 31 20 6d 6f 75 73 |ouse-lef|t 1 mous|
|00000280| 65 2d 63 65 6e 74 65 72 | 20 32 20 6d 6f 75 73 65 |e-center| 2 mouse|
|00000290| 2d 72 69 67 68 74 20 34 | 20 6d 6f 75 73 65 2d 32 |-right 4| mouse-2|
|000002a0| 6c 65 66 74 20 35 20 6d | 6f 75 73 65 2d 32 63 65 |left 5 m|ouse-2ce|
|000002b0| 6e 74 65 72 20 36 20 6d | 6f 75 73 65 2d 32 72 69 |nter 6 m|ouse-2ri|
|000002c0| 67 68 74 20 38 20 6d 6f | 75 73 65 2d 33 6c 65 66 |ght 8 mo|use-3lef|
|000002d0| 74 20 39 20 6d 6f 75 73 | 65 2d 33 63 65 6e 74 65 |t 9 mous|e-3cente|
|000002e0| 72 20 31 30 20 6d 6f 75 | 73 65 2d 33 72 69 67 68 |r 10 mou|se-3righ|
|000002f0| 74 5d 20 31 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t] 1).(d|efalias |
|00000300| 27 73 75 70 2d 6d 6f 75 | 73 65 2d 72 65 70 6f 72 |'sup-mou|se-repor|
|00000310| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 1a c0 c1 21 |t #[nil |"..!...!|
|00000320| 1b c0 c4 21 1d c6 0b 0d | 5c 22 1e 07 c8 0e 07 21 |...!....|\".....!|
|00000330| 1e 09 ca 20 1e 0b 0d cc | 20 53 3d 89 1e 0d 3f 85 |... ....| S=...?.|
|00000340| 2d 00 0e 07 0e 0b 3d 1e | 0e 0d cf 0e 09 38 53 3d |-.....=.|.....8S=|
|00000350| 1e 10 0b d1 0e 09 38 53 | 59 1e 12 0b 0e 09 40 5a |......8S|Y.....@Z|
|00000360| 13 0d 0e 09 41 40 5a 15 | 0e 10 83 91 00 d3 0e 07 |....A@Z.|........|
|00000370| 21 88 5c 6e 0e 14 55 83 | 65 00 d5 20 88 82 8a 00 |!.\n..U.|e.. ....|
|00000380| 5c 6e 0e 16 55 83 72 00 | d7 20 88 82 8a 00 5c 6e |\n..U.r.|. ....\n|
|00000390| 0e 18 55 83 8a 00 0b 64 | 65 5a 5f d9 20 53 a5 62 |..U....d|eZ_. S.b|
|000003a0| 88 da 79 88 db 20 88 d3 | 0e 0b 21 82 ea 01 0e 12 |..y.. ..|..!.....|
|000003b0| 83 d6 00 d3 0e 07 21 88 | d5 5c 6e 0e 14 55 83 a7 |......!.|.\n..U..|
|000003c0| 00 0d 82 cd 00 5c 6e 0e | 16 55 83 b7 00 0d d1 dc |.....\n.|.U......|
|000003d0| 20 5a 5c 5c 82 cd 00 5c | 6e 0e 18 55 83 cc 00 0d | Z\\...\|n..U....|
|000003e0| 89 dc 20 5b d1 5c 5c 5c | 5c 5c 5c d1 a5 82 cd 00 |.. [.\\\|\\\.....|
|000003f0| da 21 88 d3 0e 0b 21 82 | ea 01 0e 0e 83 80 01 5c |.!....!.|.......\|
|00000400| 6e 0e 14 55 83 e9 00 dd | 0b 0d 5c 22 82 ea 01 5c |n..U....|..\"...\|
|00000410| 6e 0e 1e 55 83 fb 00 dd | 0b 0d 5c 22 88 df e0 21 |n..U....|..\"...!|
|00000420| 82 ea 01 5c 6e 0e 21 55 | 83 18 01 dd 0b 0d 5c 22 |...\n.!U|......\"|
|00000430| 88 8a e2 60 e0 76 88 60 | 5c 22 88 29 e3 89 16 24 |...`.v.`|\".)...$|
|00000440| 82 ea 01 5c 6e 0e 16 55 | 83 2c 01 e5 20 88 dd 0b |...\n..U|.,.. ...|
|00000450| 0d 5c 22 88 e6 20 82 ea | 01 5c 6e 0e 27 55 83 43 |.\".. ..|.\n.'U.C|
|00000460| 01 e5 20 88 dd 0b 0d 5c | 22 88 e8 e9 20 60 5c 22 |.. ....\|"... `\"|
|00000470| 82 ea 01 5c 6e 0e 2a 55 | 83 5f 01 e5 20 88 dd 0b |...\n.*U|._.. ...|
|00000480| 0d 5c 22 88 e2 e9 20 60 | 5c 22 88 e3 89 16 24 82 |.\"... `|\"....$.|
|00000490| ea 01 5c 6e 0e 18 55 83 | 73 01 dd 0b 0d 5c 22 88 |..\n..U.|s....\".|
|000004a0| e3 16 24 e3 20 82 ea 01 | 5c 6e 0e 2b 55 85 ea 01 |..$. ...|\n.+U...|
|000004b0| ec e0 21 82 ea 01 0e 0d | 83 ac 01 5c 6e 0e 16 55 |..!.....|...\n..U|
|000004c0| 83 92 01 ed ee 21 82 ea | 01 5c 6e 0e 14 55 83 9f |.....!..|.\n..U..|
|000004d0| 01 ed ef 21 82 ea 01 5c | 6e 0e 18 55 85 ea 01 f0 |...!...\|n..U....|
|000004e0| f1 21 82 ea 01 d3 0e 07 | 21 88 0e 32 3f 86 ea 01 |.!......|!..2?...|
|000004f0| 5c 6e 0e 14 55 83 c5 01 | dd 0b 0d 5c 22 82 ea 01 |\n..U...|...\"...|
|00000500| 5c 6e 0e 16 55 83 d9 01 | e5 20 88 dd 0b 0d 5c 22 |\n..U...|. ....\"|
|00000510| 88 e6 20 82 ea 01 5c 6e | 0e 18 55 85 ea 01 dd 0b |.. ...\n|..U.....|
|00000520| 0d 5c 22 88 e3 16 24 e3 | 20 2e 5c 6e 87 22 20 5b |.\"...$.| .\n." [|
|00000530| 73 75 70 2d 67 65 74 2d | 74 74 79 2d 6e 75 6d 20 |sup-get-|tty-num |
|00000540| 35 39 20 62 75 74 74 6f | 6e 73 20 78 20 39 39 20 |59 butto|ns x 99 |
|00000550| 79 20 73 75 70 2d 70 6f | 73 2d 74 6f 2d 77 69 6e |y sup-po|s-to-win|
|00000560| 64 6f 77 20 77 69 6e 64 | 6f 77 20 77 69 6e 64 6f |dow wind|ow windo|
|00000570| 77 2d 65 64 67 65 73 20 | 65 64 67 65 73 20 73 65 |w-edges |edges se|
|00000580| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 6f 6c |lected-w|indow ol|
|00000590| 64 2d 77 69 6e 64 6f 77 | 20 66 72 61 6d 65 2d 68 |d-window| frame-h|
|000005a0| 65 69 67 68 74 20 69 6e | 2d 6d 69 6e 69 62 75 66 |eight in|-minibuf|
|000005b0| 2d 70 20 73 61 6d 65 2d | 77 69 6e 64 6f 77 2d 70 |-p same-|window-p|
|000005c0| 20 33 20 69 6e 2d 6d 6f | 64 65 6c 69 6e 65 2d 70 | 3 in-mo|deline-p|
|000005d0| 20 32 20 69 6e 2d 73 63 | 72 6f 6c 6c 62 61 72 2d | 2 in-sc|rollbar-|
|000005e0| 70 20 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 |p select|-window |
|000005f0| 6d 6f 75 73 65 2d 6c 65 | 66 74 20 73 63 72 6f 6c |mouse-le|ft scrol|
|00000600| 6c 2d 75 70 20 6d 6f 75 | 73 65 2d 72 69 67 68 74 |l-up mou|se-right|
|00000610| 20 73 63 72 6f 6c 6c 2d | 64 6f 77 6e 20 6d 6f 75 | scroll-|down mou|
|00000620| 73 65 2d 63 65 6e 74 65 | 72 20 77 69 6e 64 6f 77 |se-cente|r window|
|00000630| 2d 77 69 64 74 68 20 30 | 20 77 68 61 74 2d 63 75 |-width 0| what-cu|
|00000640| 72 73 6f 72 2d 70 6f 73 | 69 74 69 6f 6e 20 77 69 |rsor-pos|ition wi|
|00000650| 6e 64 6f 77 2d 68 65 69 | 67 68 74 20 73 75 70 2d |ndow-hei|ght sup-|
|00000660| 6d 6f 76 65 2d 70 6f 69 | 6e 74 2d 74 6f 2d 78 2d |move-poi|nt-to-x-|
|00000670| 79 20 6d 6f 75 73 65 2d | 32 6c 65 66 74 20 6b 69 |y mouse-|2left ki|
|00000680| 6c 6c 2d 77 6f 72 64 20 | 31 20 6d 6f 75 73 65 2d |ll-word |1 mouse-|
|00000690| 33 6c 65 66 74 20 63 6f | 70 79 2d 72 65 67 69 6f |3left co|py-regio|
|000006a0| 6e 2d 61 73 2d 6b 69 6c | 6c 20 79 61 6e 6b 20 74 |n-as-kil|l yank t|
|000006b0| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 20 70 75 73 68 |his-comm|and push|
|000006c0| 2d 6d 61 72 6b 20 65 78 | 63 68 61 6e 67 65 2d 70 |-mark ex|change-p|
|000006d0| 6f 69 6e 74 2d 61 6e 64 | 2d 6d 61 72 6b 20 6d 6f |oint-and|-mark mo|
|000006e0| 75 73 65 2d 32 72 69 67 | 68 74 20 6b 69 6c 6c 2d |use-2rig|ht kill-|
|000006f0| 72 65 67 69 6f 6e 20 6d | 61 72 6b 20 6d 6f 75 73 |region m|ark mous|
|00000700| 65 2d 33 72 69 67 68 74 | 20 6d 6f 75 73 65 2d 32 |e-3right| mouse-2|
|00000710| 63 65 6e 74 65 72 20 79 | 61 6e 6b 2d 70 6f 70 20 |center y|ank-pop |
|00000720| 63 61 6c 6c 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |call-int|eractive|
|00000730| 6c 79 20 65 76 61 6c 2d | 65 78 70 72 65 73 73 69 |ly eval-|expressi|
|00000740| 6f 6e 20 65 78 65 63 75 | 74 65 2d 65 78 74 65 6e |on execu|te-exten|
|00000750| 64 65 64 2d 63 6f 6d 6d | 61 6e 64 20 64 65 73 63 |ded-comm|and desc|
|00000760| 72 69 62 65 2d 66 75 6e | 63 74 69 6f 6e 20 73 75 |ribe-fun|ction su|
|00000770| 70 2d 6d 6f 75 73 65 2d | 72 65 70 6f 72 74 20 73 |p-mouse-|report s|
|00000780| 75 70 2d 6d 6f 75 73 65 | 2d 66 61 73 74 2d 73 65 |up-mouse|-fast-se|
|00000790| 6c 65 63 74 2d 77 69 6e | 64 6f 77 5d 20 36 20 22 |lect-win|dow] 6 "|
|000007a0| 5c 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |\.This f|unction |
|000007b0| 69 73 20 63 61 6c 6c 65 | 64 20 64 69 72 65 63 74 |is calle|d direct|
|000007c0| 6c 79 20 62 79 20 74 68 | 65 20 6d 6f 75 73 65 2c |ly by th|e mouse,|
|000007d0| 20 69 74 20 70 61 72 73 | 65 73 20 61 6e 64 0a 65 | it pars|es and.e|
|000007e0| 78 65 63 75 74 65 73 20 | 74 68 65 20 6d 6f 75 73 |xecutes |the mous|
|000007f0| 65 20 63 6f 6d 6d 61 6e | 64 73 2e 0a 0a 20 4c 20 |e comman|ds... L |
|00000800| 6d 6f 76 65 20 70 6f 69 | 6e 74 20 20 20 20 20 20 |move poi|nt      |
|00000810| 20 20 20 20 2a 20 20 7c | 2d 2d 2d 2d 20 54 68 65 |    *  ||---- The|
|00000820| 73 65 20 61 70 70 6c 79 | 20 66 6f 72 20 6d 6f 75 |se apply| for mou|
|00000830| 73 65 20 63 6c 69 63 6b | 20 69 6e 20 61 20 77 69 |se click| in a wi|
|00000840| 6e 64 6f 77 2e 0a 32 4c | 20 64 65 6c 65 74 65 20 |ndow..2L| delete |
|00000850| 77 6f 72 64 20 20 20 20 | 20 20 20 20 20 20 20 20 |word    |        |
|00000860| 7c 0a 33 4c 20 63 6f 70 | 79 20 77 6f 72 64 09 09 ||.3L cop|y word..|
|00000870| 20 20 7c 20 49 66 20 73 | 75 70 2d 6d 6f 75 73 65 |  | If s|up-mouse|
|00000880| 2d 66 61 73 74 2d 73 65 | 6c 65 63 74 2d 77 69 6e |-fast-se|lect-win|
|00000890| 64 6f 77 20 69 73 20 6e | 69 6c 2c 0a 20 43 20 6d |dow is n|il,. C m|
|000008a0| 6f 76 65 20 70 6f 69 6e | 74 20 61 6e 64 20 79 61 |ove poin|t and ya|
|000008b0| 6e 6b 20 2a 20 20 7c 20 | 6a 75 73 74 20 73 65 6c |nk *  | |just sel|
|000008c0| 65 63 74 73 20 74 68 61 | 74 20 77 69 6e 64 6f 77 |ects tha|t window|
|000008d0| 2e 0a 32 43 20 79 61 6e | 6b 20 70 6f 70 09 09 20 |..2C yan|k pop.. |
|000008e0| 20 7c 0a 20 52 20 73 65 | 74 20 6d 61 72 6b 20 20 | |. R se|t mark  |
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 2a 20 20 7c 0a 32 |        |  *  |.2|
|00000900| 52 20 64 65 6c 65 74 65 | 20 72 65 67 69 6f 6e 09 |R delete| region.|
|00000910| 20 20 7c 0a 33 52 20 63 | 6f 70 79 20 72 65 67 69 |  |.3R c|opy regi|
|00000920| 6f 6e 09 09 20 20 7c 0a | 0a 6f 6e 20 6d 6f 64 65 |on..  |.|.on mode|
|00000930| 6c 69 6e 65 09 09 20 20 | 20 20 6f 6e 20 5c 22 73 |line..  |  on \"s|
|00000940| 63 72 6f 6c 6c 20 62 61 | 72 5c 22 09 69 6e 20 6d |croll ba|r\".in m|
|00000950| 69 6e 69 62 75 66 66 65 | 72 0a 20 4c 20 73 63 72 |inibuffe|r. L scr|
|00000960| 6f 6c 6c 2d 75 70 09 09 | 20 20 20 20 6c 69 6e 65 |oll-up..|    line|
|00000970| 20 74 6f 20 74 6f 70 09 | 09 65 78 65 63 75 74 65 | to top.|.execute|
|00000980| 2d 65 78 74 65 6e 64 65 | 64 2d 63 6f 6d 6d 61 6e |-extende|d-comman|
|00000990| 64 0a 20 43 20 70 72 6f | 70 6f 72 74 69 6f 6e 61 |d. C pro|portiona|
|000009a0| 6c 20 67 6f 74 6f 2d 63 | 68 61 72 20 20 20 6c 69 |l goto-c|har   li|
|000009b0| 6e 65 20 74 6f 20 6d 69 | 64 64 6c 65 09 6d 6f 75 |ne to mi|ddle.mou|
|000009c0| 73 65 2d 68 65 6c 70 0a | 20 52 20 73 63 72 6f 6c |se-help.| R scrol|
|000009d0| 6c 2d 64 6f 77 6e 09 09 | 20 20 20 20 6c 69 6e 65 |l-down..|    line|
|000009e0| 20 74 6f 20 62 6f 74 74 | 6f 6d 09 65 76 61 6c 2d | to bott|om.eval-|
|000009f0| 65 78 70 72 65 73 73 69 | 6f 6e 22 20 6e 69 6c 5d |expressi|on" nil]|
|00000a00| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 75 70 |).(defal|ias 'sup|
|00000a10| 2d 67 65 74 2d 74 74 79 | 2d 6e 75 6d 20 23 5b 28 |-get-tty|-num #[(|
|00000a20| 74 65 72 6d 2d 63 68 61 | 72 29 20 22 c0 c1 20 1a |term-cha|r) ".. .|
|00000a30| 1b 5c 6e c4 59 83 20 00 | 5c 6e c5 58 83 20 00 0b |.\n.Y. .|\n.X. ..|
|00000a40| c6 5f 5c 6e c4 5a 5c 5c | 13 c1 20 89 12 82 06 00 |._\n.Z\\|.. .....|
|00000a50| 0e 07 5c 6e 3d 84 2b 00 | c8 c9 21 88 0b 2a 87 22 |..\n=.+.|..!..*."|
|00000a60| 20 5b 30 20 72 65 61 64 | 2d 63 68 61 72 20 63 68 | [0 read|-char ch|
|00000a70| 61 72 20 6e 75 6d 20 34 | 38 20 35 37 20 31 30 20 |ar num 4|8 57 10 |
|00000a80| 74 65 72 6d 2d 63 68 61 | 72 20 65 72 72 6f 72 20 |term-cha|r error |
|00000a90| 22 49 6e 76 61 6c 69 64 | 20 64 61 74 61 20 66 6f |"Invalid| data fo|
|00000aa0| 72 6d 61 74 20 69 6e 20 | 6d 6f 75 73 65 20 63 6f |rmat in |mouse co|
|00000ab0| 6d 6d 61 6e 64 22 5d 20 | 34 20 22 5c 0a 52 65 61 |mmand"] |4 "\.Rea|
|00000ac0| 64 20 66 72 6f 6d 20 74 | 65 72 6d 69 6e 61 6c 20 |d from t|erminal |
|00000ad0| 75 6e 74 69 6c 20 54 45 | 52 4d 2d 43 48 41 52 20 |until TE|RM-CHAR |
|00000ae0| 69 73 20 72 65 61 64 2c | 20 61 6e 64 20 72 65 74 |is read,| and ret|
|00000af0| 75 72 6e 20 69 6e 74 65 | 72 76 65 6e 69 6e 67 20 |urn inte|rvening |
|00000b00| 6e 75 6d 62 65 72 2e 0a | 55 70 6f 6e 20 6e 6f 6e |number..|Upon non|
|00000b10| 2d 6e 75 6d 65 72 69 63 | 20 6e 6f 74 20 6d 61 74 |-numeric| not mat|
|00000b20| 63 68 69 6e 67 20 54 45 | 52 4d 2d 43 48 41 52 20 |ching TE|RM-CHAR |
|00000b30| 73 69 67 6e 61 6c 20 61 | 6e 20 65 72 72 6f 72 2e |signal a|n error.|
|00000b40| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |"]).(def|alias 's|
|00000b50| 75 70 2d 6d 6f 76 65 2d | 70 6f 69 6e 74 2d 74 6f |up-move-|point-to|
|00000b60| 2d 78 2d 79 20 23 5b 28 | 78 20 79 29 20 22 c0 09 |-x-y #[(|x y) "..|
|00000b70| 21 88 c2 0b 21 87 22 20 | 5b 6d 6f 76 65 2d 74 6f |!...!." |[move-to|
|00000b80| 2d 77 69 6e 64 6f 77 2d | 6c 69 6e 65 20 79 20 6d |-window-|line y m|
|00000b90| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 20 78 5d |ove-to-c|olumn x]|
|00000ba0| 20 32 20 22 5c 0a 50 6f | 73 69 74 69 6f 6e 20 63 | 2 "\.Po|sition c|
|00000bb0| 75 72 73 6f 72 20 69 6e | 20 77 69 6e 64 6f 77 20 |ursor in| window |
|00000bc0| 63 6f 6f 72 64 69 6e 61 | 74 65 73 2e 0a 58 20 61 |coordina|tes..X a|
|00000bd0| 6e 64 20 59 20 61 72 65 | 20 30 2d 62 61 73 65 64 |nd Y are| 0-based|
|00000be0| 20 63 68 61 72 61 63 74 | 65 72 20 70 6f 73 69 74 | charact|er posit|
|00000bf0| 69 6f 6e 73 20 69 6e 20 | 74 68 65 20 77 69 6e 64 |ions in |the wind|
|00000c00| 6f 77 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ow."]).(|defalias|
|00000c10| 20 27 73 75 70 2d 70 6f | 73 2d 74 6f 2d 77 69 6e | 'sup-po|s-to-win|
|00000c20| 64 6f 77 20 23 5b 28 78 | 20 79 29 20 22 c0 20 c1 |dow #[(x| y) ". .|
|00000c30| 1a 1b 5c 6e c4 20 3d 84 | 38 00 0d 0b 41 40 57 84 |..\n. =.|8...A@W.|
|00000c40| 2d 00 0d c6 0b 38 59 84 | 2d 00 0e 07 0b 40 57 84 |-....8Y.|-....@W.|
|00000c50| 2d 00 0e 07 c8 0b 38 59 | 83 38 00 c9 5c 6e 21 12 |-.....8Y|.8..\n!.|
|00000c60| c0 5c 6e 21 13 82 05 00 | 5c 6e 86 3e 00 c4 20 2a |.\n!....|\n.>.. *|
|00000c70| 87 22 20 5b 77 69 6e 64 | 6f 77 2d 65 64 67 65 73 |." [wind|ow-edges|
|00000c80| 20 6e 69 6c 20 77 69 6e | 64 6f 77 20 65 64 67 65 | nil win|dow edge|
|00000c90| 73 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |s select|ed-windo|
|00000ca0| 77 20 79 20 33 20 78 20 | 32 20 6e 65 78 74 2d 77 |w y 3 x |2 next-w|
|00000cb0| 69 6e 64 6f 77 5d 20 33 | 20 22 5c 0a 46 69 6e 64 |indow] 3| "\.Find|
|00000cc0| 20 77 69 6e 64 6f 77 20 | 63 6f 72 72 65 73 70 6f | window |correspo|
|00000cd0| 6e 64 69 6e 67 20 74 6f | 20 66 72 61 6d 65 20 63 |nding to| frame c|
|00000ce0| 6f 6f 72 64 69 6e 61 74 | 65 73 2e 0a 58 20 61 6e |oordinat|es..X an|
|00000cf0| 64 20 59 20 61 72 65 20 | 30 2d 62 61 73 65 64 20 |d Y are |0-based |
|00000d00| 63 68 61 72 61 63 74 65 | 72 20 70 6f 73 69 74 69 |characte|r positi|
|00000d10| 6f 6e 73 20 6f 6e 20 74 | 68 65 20 66 72 61 6d 65 |ons on t|he frame|
|00000d20| 2e 22 5d 29 0a          |                         |."]).   |        |
+--------+-------------------------+-------------------------+--------+--------+