/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / register.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 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 34 37 3a 34 | 31 20 31 39 39 33 0a 3b | 23:47:4|1 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 72 65 67 | 69 73 74 65 72 2e 65 6c |lisp/reg|ister.el|
|00000080| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000090| 6f 6e 20 31 39 2e 31 35 | 2e 31 36 2e 0a 3b 3b 3b |on 19.15|.16..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001a0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 22 29 29 | for Ema|cs 19"))|
|000001c0| 0a 0a 28 64 65 66 76 61 | 72 20 72 65 67 69 73 74 |..(defva|r regist|
|000001d0| 65 72 2d 61 6c 69 73 74 | 20 6e 69 6c 20 22 5c 0a |er-alist| nil "\.|
|000001e0| 41 6c 69 73 74 20 6f 66 | 20 65 6c 65 6d 65 6e 74 |Alist of| element|
|000001f0| 73 20 28 4e 41 4d 45 20 | 2e 20 43 4f 4e 54 45 4e |s (NAME |. CONTEN|
|00000200| 54 53 29 2c 20 6f 6e 65 | 20 66 6f 72 20 65 61 63 |TS), one| for eac|
|00000210| 68 20 45 6d 61 63 73 20 | 72 65 67 69 73 74 65 72 |h Emacs |register|
|00000220| 2e 0a 4e 41 4d 45 20 69 | 73 20 61 20 63 68 61 72 |..NAME i|s a char|
|00000230| 61 63 74 65 72 20 28 61 | 20 6e 75 6d 62 65 72 29 |acter (a| number)|
|00000240| 2e 20 20 43 4f 4e 54 45 | 4e 54 53 20 69 73 20 61 |.  CONTE|NTS is a|
|00000250| 20 73 74 72 69 6e 67 2c | 20 6e 75 6d 62 65 72 2c | string,| number,|
|00000260| 0a 66 72 61 6d 65 20 63 | 6f 6e 66 69 67 75 72 61 |.frame c|onfigura|
|00000270| 74 69 6f 6e 2c 20 6d 61 | 72 6b 20 6f 72 20 6c 69 |tion, ma|rk or li|
|00000280| 73 74 2e 0a 41 20 6c 69 | 73 74 20 6f 66 20 73 74 |st..A li|st of st|
|00000290| 72 69 6e 67 73 20 72 65 | 70 72 65 73 65 6e 74 73 |rings re|presents|
|000002a0| 20 61 20 72 65 63 74 61 | 6e 67 6c 65 2e 0a 41 20 | a recta|ngle..A |
|000002b0| 6c 69 73 74 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |list of |the form|
|000002c0| 20 28 66 69 6c 65 20 2e | 20 4e 41 4d 45 29 20 72 | (file .| NAME) r|
|000002d0| 65 70 72 65 73 65 6e 74 | 73 20 74 68 65 20 66 69 |epresent|s the fi|
|000002e0| 6c 65 20 6e 61 6d 65 64 | 20 4e 41 4d 45 2e 22 29 |le named| NAME.")|
|000002f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 67 65 74 2d |.(defali|as 'get-|
|00000300| 72 65 67 69 73 74 65 72 | 20 23 5b 28 63 68 61 72 |register| #[(char|
|00000310| 29 20 22 08 09 9e 41 87 | 22 20 5b 63 68 61 72 20 |) "...A.|" [char |
|00000320| 72 65 67 69 73 74 65 72 | 2d 61 6c 69 73 74 5d 20 |register|-alist] |
|00000330| 32 20 22 5c 0a 52 65 74 | 75 72 6e 20 63 6f 6e 74 |2 "\.Ret|urn cont|
|00000340| 65 6e 74 73 20 6f 66 20 | 45 6d 61 63 73 20 72 65 |ents of |Emacs re|
|00000350| 67 69 73 74 65 72 20 6e | 61 6d 65 64 20 43 48 41 |gister n|amed CHA|
|00000360| 52 2c 20 6f 72 20 6e 69 | 6c 20 69 66 20 6e 6f 6e |R, or ni|l if non|
|00000370| 65 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |e."]).(d|efalias |
|00000380| 27 73 65 74 2d 72 65 67 | 69 73 74 65 72 20 23 5b |'set-reg|ister #[|
|00000390| 28 63 68 61 72 20 76 61 | 6c 75 65 29 20 22 08 09 |(char va|lue) "..|
|000003a0| 9e 89 1a 83 0f 00 5c 6e | 0b a1 88 82 17 00 08 0b |......\n|........|
|000003b0| 42 89 12 09 42 11 0b 29 | 87 22 20 5b 63 68 61 72 |B...B..)|." [char|
|000003c0| 20 72 65 67 69 73 74 65 | 72 2d 61 6c 69 73 74 20 | registe|r-alist |
|000003d0| 61 65 6c 74 20 76 61 6c | 75 65 5d 20 33 20 22 5c |aelt val|ue] 3 "\|
|000003e0| 0a 53 65 74 20 63 6f 6e | 74 65 6e 74 73 20 6f 66 |.Set con|tents of|
|000003f0| 20 45 6d 61 63 73 20 72 | 65 67 69 73 74 65 72 20 | Emacs r|egister |
|00000400| 6e 61 6d 65 64 20 43 48 | 41 52 20 74 6f 20 56 41 |named CH|AR to VA|
|00000410| 4c 55 45 2e 20 20 52 65 | 74 75 72 6e 73 20 56 41 |LUE.  Re|turns VA|
|00000420| 4c 55 45 2e 0a 53 65 65 | 20 74 68 65 20 64 6f 63 |LUE..See| the doc|
|00000430| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 6f 66 20 74 68 |umentati|on of th|
|00000440| 65 20 76 61 72 69 61 62 | 6c 65 20 60 72 65 67 69 |e variab|le `regi|
|00000450| 73 74 65 72 2d 61 6c 69 | 73 74 27 20 66 6f 72 20 |ster-ali|st' for |
|00000460| 70 6f 73 73 69 62 6c 65 | 20 56 41 4c 55 45 2e 22 |possible| VALUE."|
|00000470| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 6f |]).(defa|lias 'po|
|00000480| 69 6e 74 2d 74 6f 2d 72 | 65 67 69 73 74 65 72 20 |int-to-r|egister |
|00000490| 23 5b 28 63 68 61 72 20 | 26 6f 70 74 69 6f 6e 61 |#[(char |&optiona|
|000004a0| 6c 20 61 72 67 29 20 22 | c0 09 5c 6e 83 0b 00 c3 |l arg) "|..\n....|
|000004b0| 20 82 0d 00 c4 20 5c 22 | 87 22 20 5b 73 65 74 2d | .... \"|." [set-|
|000004c0| 72 65 67 69 73 74 65 72 | 20 63 68 61 72 20 61 72 |register| char ar|
|000004d0| 67 20 63 75 72 72 65 6e | 74 2d 66 72 61 6d 65 2d |g curren|t-frame-|
|000004e0| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 70 6f |configur|ation po|
|000004f0| 69 6e 74 2d 6d 61 72 6b | 65 72 5d 20 33 20 22 5c |int-mark|er] 3 "\|
|00000500| 0a 53 74 6f 72 65 20 63 | 75 72 72 65 6e 74 20 6c |.Store c|urrent l|
|00000510| 6f 63 61 74 69 6f 6e 20 | 6f 66 20 70 6f 69 6e 74 |ocation |of point|
|00000520| 20 69 6e 20 72 65 67 69 | 73 74 65 72 20 52 45 47 | in regi|ster REG|
|00000530| 49 53 54 45 52 2e 0a 57 | 69 74 68 20 70 72 65 66 |ISTER..W|ith pref|
|00000540| 69 78 20 61 72 67 75 6d | 65 6e 74 2c 20 73 74 6f |ix argum|ent, sto|
|00000550| 72 65 20 63 75 72 72 65 | 6e 74 20 66 72 61 6d 65 |re curre|nt frame|
|00000560| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 2e 0a | configu|ration..|
|00000570| 55 73 65 20 5c 5c 5b 6a | 75 6d 70 2d 74 6f 2d 72 |Use \\[j|ump-to-r|
|00000580| 65 67 69 73 74 65 72 5d | 20 74 6f 20 67 6f 20 74 |egister]| to go t|
|00000590| 6f 20 74 68 61 74 20 6c | 6f 63 61 74 69 6f 6e 20 |o that l|ocation |
|000005a0| 6f 72 20 72 65 73 74 6f | 72 65 20 74 68 61 74 20 |or resto|re that |
|000005b0| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 2e 0a 41 |configur|ation..A|
|000005c0| 72 67 75 6d 65 6e 74 20 | 69 73 20 61 20 63 68 61 |rgument |is a cha|
|000005d0| 72 61 63 74 65 72 2c 20 | 6e 61 6d 69 6e 67 20 74 |racter, |naming t|
|000005e0| 68 65 20 72 65 67 69 73 | 74 65 72 2e 22 20 22 63 |he regis|ter." "c|
|000005f0| 50 6f 69 6e 74 20 74 6f | 20 72 65 67 69 73 74 65 |Point to| registe|
|00000600| 72 3a 20 5c 6e 50 22 5d | 29 0a 28 64 65 66 61 6c |r: \nP"]|).(defal|
|00000610| 69 61 73 20 27 77 69 6e | 64 6f 77 2d 63 6f 6e 66 |ias 'win|dow-conf|
|00000620| 69 67 75 72 61 74 69 6f | 6e 2d 74 6f 2d 72 65 67 |iguratio|n-to-reg|
|00000630| 69 73 74 65 72 20 23 5b | 28 63 68 61 72 20 26 6f |ister #[|(char &o|
|00000640| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 c0 09 |ptional |arg) "..|
|00000650| c2 20 5c 22 87 22 20 5b | 73 65 74 2d 72 65 67 69 |. \"." [|set-regi|
|00000660| 73 74 65 72 20 63 68 61 | 72 20 63 75 72 72 65 6e |ster cha|r curren|
|00000670| 74 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |t-window|-configu|
|00000680| 72 61 74 69 6f 6e 5d 20 | 33 20 22 5c 0a 53 74 6f |ration] |3 "\.Sto|
|00000690| 72 65 20 74 68 65 20 77 | 69 6e 64 6f 77 20 63 6f |re the w|indow co|
|000006a0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 6f 66 20 74 |nfigurat|ion of t|
|000006b0| 68 65 20 73 65 6c 65 63 | 74 65 64 20 66 72 61 6d |he selec|ted fram|
|000006c0| 65 20 69 6e 20 72 65 67 | 69 73 74 65 72 20 52 45 |e in reg|ister RE|
|000006d0| 47 49 53 54 45 52 2e 0a | 55 73 65 20 5c 5c 5b 6a |GISTER..|Use \\[j|
|000006e0| 75 6d 70 2d 74 6f 2d 72 | 65 67 69 73 74 65 72 5d |ump-to-r|egister]|
|000006f0| 20 74 6f 20 72 65 73 74 | 6f 72 65 20 74 68 65 20 | to rest|ore the |
|00000700| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 2e 0a 41 |configur|ation..A|
|00000710| 72 67 75 6d 65 6e 74 20 | 69 73 20 61 20 63 68 61 |rgument |is a cha|
|00000720| 72 61 63 74 65 72 2c 20 | 6e 61 6d 69 6e 67 20 74 |racter, |naming t|
|00000730| 68 65 20 72 65 67 69 73 | 74 65 72 2e 22 20 22 63 |he regis|ter." "c|
|00000740| 50 6f 69 6e 74 20 74 6f | 20 72 65 67 69 73 74 65 |Point to| registe|
|00000750| 72 3a 20 5c 6e 50 22 5d | 29 0a 28 64 65 66 61 6c |r: \nP"]|).(defal|
|00000760| 69 61 73 20 27 66 72 61 | 6d 65 2d 63 6f 6e 66 69 |ias 'fra|me-confi|
|00000770| 67 75 72 61 74 69 6f 6e | 2d 74 6f 2d 72 65 67 69 |guration|-to-regi|
|00000780| 73 74 65 72 20 23 5b 28 | 63 68 61 72 20 26 6f 70 |ster #[(|char &op|
|00000790| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 09 c2 |tional a|rg) "...|
|000007a0| 20 5c 22 87 22 20 5b 73 | 65 74 2d 72 65 67 69 73 | \"." [s|et-regis|
|000007b0| 74 65 72 20 63 68 61 72 | 20 63 75 72 72 65 6e 74 |ter char| current|
|000007c0| 2d 66 72 61 6d 65 2d 63 | 6f 6e 66 69 67 75 72 61 |-frame-c|onfigura|
|000007d0| 74 69 6f 6e 5d 20 33 20 | 22 5c 0a 53 74 6f 72 65 |tion] 3 |"\.Store|
|000007e0| 20 74 68 65 20 77 69 6e | 64 6f 77 20 63 6f 6e 66 | the win|dow conf|
|000007f0| 69 67 75 72 61 74 69 6f | 6e 20 6f 66 20 61 6c 6c |iguratio|n of all|
|00000800| 20 66 72 61 6d 65 73 20 | 69 6e 20 72 65 67 69 73 | frames |in regis|
|00000810| 74 65 72 20 52 45 47 49 | 53 54 45 52 2e 0a 55 73 |ter REGI|STER..Us|
|00000820| 65 20 5c 5c 5b 6a 75 6d | 70 2d 74 6f 2d 72 65 67 |e \\[jum|p-to-reg|
|00000830| 69 73 74 65 72 5d 20 74 | 6f 20 72 65 73 74 6f 72 |ister] t|o restor|
|00000840| 65 20 74 68 65 20 63 6f | 6e 66 69 67 75 72 61 74 |e the co|nfigurat|
|00000850| 69 6f 6e 2e 0a 41 72 67 | 75 6d 65 6e 74 20 69 73 |ion..Arg|ument is|
|00000860| 20 61 20 63 68 61 72 61 | 63 74 65 72 2c 20 6e 61 | a chara|cter, na|
|00000870| 6d 69 6e 67 20 74 68 65 | 20 72 65 67 69 73 74 65 |ming the| registe|
|00000880| 72 2e 22 20 22 63 50 6f | 69 6e 74 20 74 6f 20 72 |r." "cPo|int to r|
|00000890| 65 67 69 73 74 65 72 3a | 20 5c 6e 50 22 5d 29 0a |egister:| \nP"]).|
|000008a0| 28 64 65 66 61 6c 69 61 | 73 20 28 71 75 6f 74 65 |(defalia|s (quote|
|000008b0| 20 72 65 67 69 73 74 65 | 72 2d 74 6f 2d 70 6f 69 | registe|r-to-poi|
|000008c0| 6e 74 29 20 28 71 75 6f | 74 65 20 6a 75 6d 70 2d |nt) (quo|te jump-|
|000008d0| 74 6f 2d 72 65 67 69 73 | 74 65 72 29 29 0a 28 64 |to-regis|ter)).(d|
|000008e0| 65 66 61 6c 69 61 73 20 | 27 6a 75 6d 70 2d 74 6f |efalias |'jump-to|
|000008f0| 2d 72 65 67 69 73 74 65 | 72 20 23 5b 28 63 68 61 |-registe|r #[(cha|
|00000900| 72 29 20 22 c0 09 21 1a | c3 c4 21 83 16 00 c4 5c |r) "..!.|..!....\|
|00000910| 6e 21 83 16 00 c5 5c 6e | 21 82 49 00 c6 5c 6e 21 |n!....\n|!.I..\n!|
|00000920| 83 5c 22 00 c7 5c 6e 21 | 82 49 00 c8 5c 6e 21 83 |.\"..\n!|.I..\n!.|
|00000930| 33 00 c9 ca 5c 6e 21 21 | 88 5c 6e 62 82 49 00 5c |3...\n!!|.\nb.I.\|
|00000940| 6e 3a 83 46 00 5c 6e 40 | cb 3d 83 46 00 cc 5c 6e |n:.F.\n@|.=.F..\n|
|00000950| 41 21 82 49 00 cd ce 21 | 29 87 22 20 5b 67 65 74 |A!.I...!|)." [get|
|00000960| 2d 72 65 67 69 73 74 65 | 72 20 63 68 61 72 20 76 |-registe|r char v|
|00000970| 61 6c 20 66 62 6f 75 6e | 64 70 20 66 72 61 6d 65 |al fboun|dp frame|
|00000980| 2d 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 2d 70 |-configu|ration-p|
|00000990| 20 73 65 74 2d 66 72 61 | 6d 65 2d 63 6f 6e 66 69 | set-fra|me-confi|
|000009a0| 67 75 72 61 74 69 6f 6e | 20 77 69 6e 64 6f 77 2d |guration| window-|
|000009b0| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 2d 70 20 |configur|ation-p |
|000009c0| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 63 6f 6e 66 69 |set-wind|ow-confi|
|000009d0| 67 75 72 61 74 69 6f 6e | 20 6d 61 72 6b 65 72 70 |guration| markerp|
|000009e0| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|000009f0| 72 20 6d 61 72 6b 65 72 | 2d 62 75 66 66 65 72 20 |r marker|-buffer |
|00000a00| 66 69 6c 65 20 66 69 6e | 64 2d 66 69 6c 65 20 65 |file fin|d-file e|
|00000a10| 72 72 6f 72 20 22 52 65 | 67 69 73 74 65 72 20 64 |rror "Re|gister d|
|00000a20| 6f 65 73 6e 27 74 20 63 | 6f 6e 74 61 69 6e 20 61 |oesn't c|ontain a|
|00000a30| 20 62 75 66 66 65 72 20 | 70 6f 73 69 74 69 6f 6e | buffer |position|
|00000a40| 20 6f 72 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f | or conf|iguratio|
|00000a50| 6e 22 5d 20 33 20 22 5c | 0a 4d 6f 76 65 20 70 6f |n"] 3 "\|.Move po|
|00000a60| 69 6e 74 20 74 6f 20 6c | 6f 63 61 74 69 6f 6e 20 |int to l|ocation |
|00000a70| 73 74 6f 72 65 64 20 69 | 6e 20 61 20 72 65 67 69 |stored i|n a regi|
|00000a80| 73 74 65 72 2e 0a 49 66 | 20 74 68 65 20 72 65 67 |ster..If| the reg|
|00000a90| 69 73 74 65 72 20 63 6f | 6e 74 61 69 6e 73 20 61 |ister co|ntains a|
|00000aa0| 20 66 69 6c 65 20 6e 61 | 6d 65 2c 20 66 69 6e 64 | file na|me, find|
|00000ab0| 20 74 68 61 74 20 66 69 | 6c 65 2e 0a 20 28 54 6f | that fi|le.. (To|
|00000ac0| 20 70 75 74 20 61 20 66 | 69 6c 65 20 6e 61 6d 65 | put a f|ile name|
|00000ad0| 20 69 6e 20 61 20 72 65 | 67 69 73 74 65 72 2c 20 | in a re|gister, |
|00000ae0| 79 6f 75 20 6d 75 73 74 | 20 75 73 65 20 60 73 65 |you must| use `se|
|00000af0| 74 2d 72 65 67 69 73 74 | 65 72 27 2e 29 0a 49 66 |t-regist|er'.).If|
|00000b00| 20 74 68 65 20 72 65 67 | 69 73 74 65 72 20 63 6f | the reg|ister co|
|00000b10| 6e 74 61 69 6e 73 20 61 | 20 77 69 6e 64 6f 77 20 |ntains a| window |
|00000b20| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 28 6f |configur|ation (o|
|00000b30| 6e 65 20 66 72 61 6d 65 | 29 20 6f 72 20 61 20 66 |ne frame|) or a f|
|00000b40| 72 61 6d 65 0a 63 6f 6e | 66 69 67 75 72 61 74 69 |rame.con|figurati|
|00000b50| 6f 6e 20 28 61 6c 6c 20 | 66 72 61 6d 65 73 29 2c |on (all |frames),|
|00000b60| 20 72 65 73 74 6f 72 65 | 20 74 68 61 74 20 66 72 | restore| that fr|
|00000b70| 61 6d 65 20 6f 72 20 61 | 6c 6c 20 66 72 61 6d 65 |ame or a|ll frame|
|00000b80| 73 20 61 63 63 6f 72 64 | 69 6e 67 6c 79 2e 0a 41 |s accord|ingly..A|
|00000b90| 72 67 75 6d 65 6e 74 20 | 69 73 20 61 20 63 68 61 |rgument |is a cha|
|00000ba0| 72 61 63 74 65 72 2c 20 | 6e 61 6d 69 6e 67 20 74 |racter, |naming t|
|00000bb0| 68 65 20 72 65 67 69 73 | 74 65 72 2e 22 20 22 63 |he regis|ter." "c|
|00000bc0| 4a 75 6d 70 20 74 6f 20 | 72 65 67 69 73 74 65 72 |Jump to |register|
|00000bd0| 3a 20 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |: "]).(d|efalias |
|00000be0| 27 76 69 65 77 2d 72 65 | 67 69 73 74 65 72 20 23 |'view-re|gister #|
|00000bf0| 5b 28 63 68 61 72 29 20 | 22 c0 09 21 89 1a 84 11 |[(char) |"..!....|
|00000c00| 00 c3 c4 c5 09 21 5c 22 | 82 ae 00 c6 90 c7 c8 21 |.....!\"|.......!|
|00000c10| 88 c7 c5 09 21 21 88 c7 | c9 21 88 5c 6e a8 83 2c |....!!..|.!.\n..,|
|00000c20| 00 c7 5c 6e 21 82 ad 00 | ca 5c 6e 21 83 48 00 c7 |..\n!...|.\n!.H..|
|00000c30| cb 21 88 c7 cc cd 5c 6e | 21 21 21 88 c7 ce 21 88 |.!....\n|!!!...!.|
|00000c40| c7 5c 6e 21 82 ad 00 cf | 5c 6e 21 83 54 00 c7 d0 |.\n!....|\n!.T...|
|00000c50| 21 82 ad 00 d1 5c 6e 21 | 83 60 00 c7 d2 21 82 ad |!....\n!|.`...!..|
|00000c60| 00 5c 6e 3a 83 7b 00 5c | 6e 40 d3 3d 83 7b 00 c7 |.\n:.{.\|n@.=.{..|
|00000c70| d4 21 88 d5 5c 6e 41 21 | 88 c7 d6 21 82 ad 00 5c |.!..\nA!|...!...\|
|00000c80| 6e 3a 83 97 00 c7 d7 21 | 88 5c 6e 85 ad 00 c7 5c |n:.....!|.\n....\|
|00000c90| 6e 40 21 88 d8 20 88 5c | 6e 41 89 12 82 85 00 5c |n@!.. .\|nA.....\|
|00000ca0| 6e 3b 83 a6 00 c7 d9 21 | 88 c7 5c 6e 21 82 ad 00 |n;.....!|..\n!...|
|00000cb0| c7 da 21 88 d5 5c 6e 21 | 91 29 87 22 20 5b 67 65 |..!..\n!|.)." [ge|
|00000cc0| 74 2d 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 |t-regist|er char |
|00000cd0| 76 61 6c 20 6d 65 73 73 | 61 67 65 20 22 52 65 67 |val mess|age "Reg|
|00000ce0| 69 73 74 65 72 20 25 73 | 20 69 73 20 65 6d 70 74 |ister %s| is empt|
|00000cf0| 79 22 20 73 69 6e 67 6c | 65 2d 6b 65 79 2d 64 65 |y" singl|e-key-de|
|00000d00| 73 63 72 69 70 74 69 6f | 6e 20 22 2a 4f 75 74 70 |scriptio|n "*Outp|
|00000d10| 75 74 2a 22 20 70 72 69 | 6e 63 20 22 52 65 67 69 |ut*" pri|nc "Regi|
|00000d20| 73 74 65 72 20 22 20 22 | 20 63 6f 6e 74 61 69 6e |ster " "| contain|
|00000d30| 73 20 22 20 6d 61 72 6b | 65 72 70 20 22 61 20 62 |s " mark|erp "a b|
|00000d40| 75 66 66 65 72 20 70 6f | 73 69 74 69 6f 6e 3a 5c |uffer po|sition:\|
|00000d50| 6e 62 75 66 66 65 72 20 | 22 20 62 75 66 66 65 72 |nbuffer |" buffer|
|00000d60| 2d 6e 61 6d 65 20 6d 61 | 72 6b 65 72 2d 62 75 66 |-name ma|rker-buf|
|00000d70| 66 65 72 20 22 2c 20 70 | 6f 73 69 74 69 6f 6e 20 |fer ", p|osition |
|00000d80| 22 20 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |" window|-configu|
|00000d90| 72 61 74 69 6f 6e 2d 70 | 20 22 61 20 77 69 6e 64 |ration-p| "a wind|
|00000da0| 6f 77 20 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow confi|guration|
|00000db0| 2e 22 20 66 72 61 6d 65 | 2d 63 6f 6e 66 69 67 75 |." frame|-configu|
|00000dc0| 72 61 74 69 6f 6e 2d 70 | 20 22 61 20 66 72 61 6d |ration-p| "a fram|
|00000dd0| 65 20 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 2e |e config|uration.|
|00000de0| 22 20 66 69 6c 65 20 22 | 74 68 65 20 66 69 6c 65 |" file "|the file|
|00000df0| 20 22 20 70 72 69 6e 31 | 20 22 2e 22 20 22 74 68 | " prin1| "." "th|
|00000e00| 65 20 72 65 63 74 61 6e | 67 6c 65 3a 5c 6e 22 20 |e rectan|gle:\n" |
|00000e10| 74 65 72 70 72 69 20 22 | 74 68 65 20 74 65 78 74 |terpri "|the text|
|00000e20| 3a 5c 6e 22 20 22 47 61 | 72 62 61 67 65 3a 5c 6e |:\n" "Ga|rbage:\n|
|00000e30| 22 5d 20 36 20 22 5c 0a | 44 69 73 70 6c 61 79 20 |"] 6 "\.|Display |
|00000e40| 77 68 61 74 20 69 73 20 | 63 6f 6e 74 61 69 6e 65 |what is |containe|
|00000e50| 64 20 69 6e 20 72 65 67 | 69 73 74 65 72 20 6e 61 |d in reg|ister na|
|00000e60| 6d 65 64 20 52 45 47 49 | 53 54 45 52 2e 0a 52 45 |med REGI|STER..RE|
|00000e70| 47 49 53 54 45 52 20 69 | 73 20 61 20 63 68 61 72 |GISTER i|s a char|
|00000e80| 61 63 74 65 72 2e 22 20 | 22 63 56 69 65 77 20 72 |acter." |"cView r|
|00000e90| 65 67 69 73 74 65 72 3a | 20 22 5d 29 0a 28 64 65 |egister:| "]).(de|
|00000ea0| 66 61 6c 69 61 73 20 27 | 69 6e 73 65 72 74 2d 72 |falias '|insert-r|
|00000eb0| 65 67 69 73 74 65 72 20 | 23 5b 28 63 68 61 72 20 |egister |#[(char |
|00000ec0| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00000ed0| c0 20 88 c1 5c 6e 21 89 | 1b 3a 83 13 00 c4 0b 21 |. ..\n!.|.:.....!|
|00000ee0| 88 82 35 00 0b 3b 83 1e | 00 0b 63 88 82 35 00 0b |..5..;..|..c..5..|
|00000ef0| a8 84 29 00 c5 0b 21 83 | 31 00 c6 0b 70 5c 22 88 |..)...!.|1...p\".|
|00000f00| 82 35 00 c7 c8 21 88 29 | 0e 09 3f 85 3e 00 ca 20 |.5...!.)|..?.>.. |
|00000f10| 87 22 20 5b 70 75 73 68 | 2d 6d 61 72 6b 20 67 65 |." [push|-mark ge|
|00000f20| 74 2d 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 |t-regist|er char |
|00000f30| 76 61 6c 20 69 6e 73 65 | 72 74 2d 72 65 63 74 61 |val inse|rt-recta|
|00000f40| 6e 67 6c 65 20 6d 61 72 | 6b 65 72 70 20 70 72 69 |ngle mar|kerp pri|
|00000f50| 6e 63 20 65 72 72 6f 72 | 20 22 52 65 67 69 73 74 |nc error| "Regist|
|00000f60| 65 72 20 64 6f 65 73 20 | 6e 6f 74 20 63 6f 6e 74 |er does |not cont|
|00000f70| 61 69 6e 20 74 65 78 74 | 22 20 61 72 67 20 65 78 |ain text|" arg ex|
|00000f80| 63 68 61 6e 67 65 2d 70 | 6f 69 6e 74 2d 61 6e 64 |change-p|oint-and|
|00000f90| 2d 6d 61 72 6b 5d 20 34 | 20 22 5c 0a 49 6e 73 65 |-mark] 4| "\.Inse|
|00000fa0| 72 74 20 63 6f 6e 74 65 | 6e 74 73 20 6f 66 20 72 |rt conte|nts of r|
|00000fb0| 65 67 69 73 74 65 72 20 | 52 45 47 2e 20 20 52 45 |egister |REG.  RE|
|00000fc0| 47 20 69 73 20 61 20 63 | 68 61 72 61 63 74 65 72 |G is a c|haracter|
|00000fd0| 2e 0a 4e 6f 72 6d 61 6c | 6c 79 20 70 75 74 73 20 |..Normal|ly puts |
|00000fe0| 70 6f 69 6e 74 20 62 65 | 66 6f 72 65 20 61 6e 64 |point be|fore and|
|00000ff0| 20 6d 61 72 6b 20 61 66 | 74 65 72 20 74 68 65 20 | mark af|ter the |
|00001000| 69 6e 73 65 72 74 65 64 | 20 74 65 78 74 2e 0a 49 |inserted| text..I|
|00001010| 66 20 6f 70 74 69 6f 6e | 61 6c 20 73 65 63 6f 6e |f option|al secon|
|00001020| 64 20 61 72 67 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |d arg is| non-nil|
|00001030| 2c 20 70 75 74 73 20 6d | 61 72 6b 20 62 65 66 6f |, puts m|ark befo|
|00001040| 72 65 20 61 6e 64 20 70 | 6f 69 6e 74 20 61 66 74 |re and p|oint aft|
|00001050| 65 72 2e 0a 49 6e 74 65 | 72 61 63 74 69 76 65 6c |er..Inte|ractivel|
|00001060| 79 2c 20 73 65 63 6f 6e | 64 20 61 72 67 20 69 73 |y, secon|d arg is|
|00001070| 20 6e 6f 6e 2d 6e 69 6c | 20 69 66 20 70 72 65 66 | non-nil| if pref|
|00001080| 69 78 20 61 72 67 20 69 | 73 20 73 75 70 70 6c 69 |ix arg i|s suppli|
|00001090| 65 64 2e 22 20 22 63 49 | 6e 73 65 72 74 20 72 65 |ed." "cI|nsert re|
|000010a0| 67 69 73 74 65 72 3a 20 | 5c 6e 50 22 5d 29 0a 28 |gister: |\nP"]).(|
|000010b0| 64 65 66 61 6c 69 61 73 | 20 27 63 6f 70 79 2d 74 |defalias| 'copy-t|
|000010c0| 6f 2d 72 65 67 69 73 74 | 65 72 20 23 5b 28 63 68 |o-regist|er #[(ch|
|000010d0| 61 72 20 73 74 61 72 74 | 20 65 6e 64 20 26 6f 70 |ar start| end &op|
|000010e0| 74 69 6f 6e 61 6c 20 64 | 65 6c 65 74 65 2d 66 6c |tional d|elete-fl|
|000010f0| 61 67 29 20 22 c0 09 5c | 6e 0b 7b 5c 22 88 0c 85 |ag) "..\|n.{\"...|
|00001100| 0e 00 5c 6e 0b 7c 87 22 | 20 5b 73 65 74 2d 72 65 |..\n.|."| [set-re|
|00001110| 67 69 73 74 65 72 20 63 | 68 61 72 20 73 74 61 72 |gister c|har star|
|00001120| 74 20 65 6e 64 20 64 65 | 6c 65 74 65 2d 66 6c 61 |t end de|lete-fla|
|00001130| 67 5d 20 34 20 22 5c 0a | 43 6f 70 79 20 72 65 67 |g] 4 "\.|Copy reg|
|00001140| 69 6f 6e 20 69 6e 74 6f | 20 72 65 67 69 73 74 65 |ion into| registe|
|00001150| 72 20 52 45 47 2e 20 20 | 57 69 74 68 20 70 72 65 |r REG.  |With pre|
|00001160| 66 69 78 20 61 72 67 2c | 20 64 65 6c 65 74 65 20 |fix arg,| delete |
|00001170| 61 73 20 77 65 6c 6c 2e | 0a 43 61 6c 6c 65 64 20 |as well.|.Called |
|00001180| 66 72 6f 6d 20 70 72 6f | 67 72 61 6d 2c 20 74 61 |from pro|gram, ta|
|00001190| 6b 65 73 20 66 6f 75 72 | 20 61 72 67 73 3a 20 52 |kes four| args: R|
|000011a0| 45 47 2c 20 53 54 41 52 | 54 2c 20 45 4e 44 20 61 |EG, STAR|T, END a|
|000011b0| 6e 64 20 44 45 4c 45 54 | 45 2d 46 4c 41 47 2e 0a |nd DELET|E-FLAG..|
|000011c0| 53 54 41 52 54 20 61 6e | 64 20 45 4e 44 20 61 72 |START an|d END ar|
|000011d0| 65 20 62 75 66 66 65 72 | 20 70 6f 73 69 74 69 6f |e buffer| positio|
|000011e0| 6e 73 20 69 6e 64 69 63 | 61 74 69 6e 67 20 77 68 |ns indic|ating wh|
|000011f0| 61 74 20 74 6f 20 63 6f | 70 79 2e 22 20 22 63 43 |at to co|py." "cC|
|00001200| 6f 70 79 20 74 6f 20 72 | 65 67 69 73 74 65 72 3a |opy to r|egister:|
|00001210| 20 5c 6e 72 5c 6e 50 22 | 5d 29 0a 28 64 65 66 61 | \nr\nP"|]).(defa|
|00001220| 6c 69 61 73 20 27 61 70 | 70 65 6e 64 2d 74 6f 2d |lias 'ap|pend-to-|
|00001230| 72 65 67 69 73 74 65 72 | 20 23 5b 28 63 68 61 72 |register| #[(char|
|00001240| 20 73 74 61 72 74 20 65 | 6e 64 20 26 6f 70 74 69 | start e|nd &opti|
|00001250| 6f 6e 61 6c 20 64 65 6c | 65 74 65 2d 66 6c 61 67 |onal del|ete-flag|
|00001260| 29 20 22 c0 09 21 3b 84 | 0b 00 c2 c3 21 88 c4 09 |) "..!;.|....!...|
|00001270| c0 09 21 0d 0e 06 7b 50 | 5c 22 88 0e 07 85 20 00 |..!...{P|\".... .|
|00001280| 0d 0e 06 7c 87 22 20 5b | 67 65 74 2d 72 65 67 69 |...|." [|get-regi|
|00001290| 73 74 65 72 20 63 68 61 | 72 20 65 72 72 6f 72 20 |ster cha|r error |
|000012a0| 22 52 65 67 69 73 74 65 | 72 20 64 6f 65 73 20 6e |"Registe|r does n|
|000012b0| 6f 74 20 63 6f 6e 74 61 | 69 6e 20 74 65 78 74 22 |ot conta|in text"|
|000012c0| 20 73 65 74 2d 72 65 67 | 69 73 74 65 72 20 73 74 | set-reg|ister st|
|000012d0| 61 72 74 20 65 6e 64 20 | 64 65 6c 65 74 65 2d 66 |art end |delete-f|
|000012e0| 6c 61 67 5d 20 35 20 22 | 5c 0a 41 70 70 65 6e 64 |lag] 5 "|\.Append|
|000012f0| 20 72 65 67 69 6f 6e 20 | 74 6f 20 74 65 78 74 20 | region |to text |
|00001300| 69 6e 20 72 65 67 69 73 | 74 65 72 20 52 45 47 2e |in regis|ter REG.|
|00001310| 20 20 57 69 74 68 20 70 | 72 65 66 69 78 20 61 72 |  With p|refix ar|
|00001320| 67 2c 20 64 65 6c 65 74 | 65 20 61 73 20 77 65 6c |g, delet|e as wel|
|00001330| 6c 2e 0a 43 61 6c 6c 65 | 64 20 66 72 6f 6d 20 70 |l..Calle|d from p|
|00001340| 72 6f 67 72 61 6d 2c 20 | 74 61 6b 65 73 20 66 6f |rogram, |takes fo|
|00001350| 75 72 20 61 72 67 73 3a | 20 52 45 47 2c 20 53 54 |ur args:| REG, ST|
|00001360| 41 52 54 2c 20 45 4e 44 | 20 61 6e 64 20 44 45 4c |ART, END| and DEL|
|00001370| 45 54 45 2d 46 4c 41 47 | 2e 0a 53 54 41 52 54 20 |ETE-FLAG|..START |
|00001380| 61 6e 64 20 45 4e 44 20 | 61 72 65 20 62 75 66 66 |and END |are buff|
|00001390| 65 72 20 70 6f 73 69 74 | 69 6f 6e 73 20 69 6e 64 |er posit|ions ind|
|000013a0| 69 63 61 74 69 6e 67 20 | 77 68 61 74 20 74 6f 20 |icating |what to |
|000013b0| 61 70 70 65 6e 64 2e 22 | 20 22 63 41 70 70 65 6e |append."| "cAppen|
|000013c0| 64 20 74 6f 20 72 65 67 | 69 73 74 65 72 3a 20 5c |d to reg|ister: \|
|000013d0| 6e 72 5c 6e 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |nr\nP"])|.(defali|
|000013e0| 61 73 20 27 70 72 65 70 | 65 6e 64 2d 74 6f 2d 72 |as 'prep|end-to-r|
|000013f0| 65 67 69 73 74 65 72 20 | 23 5b 28 63 68 61 72 20 |egister |#[(char |
|00001400| 73 74 61 72 74 20 65 6e | 64 20 26 6f 70 74 69 6f |start en|d &optio|
|00001410| 6e 61 6c 20 64 65 6c 65 | 74 65 2d 66 6c 61 67 29 |nal dele|te-flag)|
|00001420| 20 22 c0 09 21 3b 84 0b | 00 c2 c3 21 88 c4 09 0d | "..!;..|...!....|
|00001430| 0e 06 7b c0 09 21 50 5c | 22 88 0e 07 85 20 00 0d |..{..!P\|".... ..|
|00001440| 0e 06 7c 87 22 20 5b 67 | 65 74 2d 72 65 67 69 73 |..|." [g|et-regis|
|00001450| 74 65 72 20 63 68 61 72 | 20 65 72 72 6f 72 20 22 |ter char| error "|
|00001460| 52 65 67 69 73 74 65 72 | 20 64 6f 65 73 20 6e 6f |Register| does no|
|00001470| 74 20 63 6f 6e 74 61 69 | 6e 20 74 65 78 74 22 20 |t contai|n text" |
|00001480| 73 65 74 2d 72 65 67 69 | 73 74 65 72 20 73 74 61 |set-regi|ster sta|
|00001490| 72 74 20 65 6e 64 20 64 | 65 6c 65 74 65 2d 66 6c |rt end d|elete-fl|
|000014a0| 61 67 5d 20 35 20 22 5c | 0a 50 72 65 70 65 6e 64 |ag] 5 "\|.Prepend|
|000014b0| 20 72 65 67 69 6f 6e 20 | 74 6f 20 74 65 78 74 20 | region |to text |
|000014c0| 69 6e 20 72 65 67 69 73 | 74 65 72 20 52 45 47 2e |in regis|ter REG.|
|000014d0| 20 20 57 69 74 68 20 70 | 72 65 66 69 78 20 61 72 |  With p|refix ar|
|000014e0| 67 2c 20 64 65 6c 65 74 | 65 20 61 73 20 77 65 6c |g, delet|e as wel|
|000014f0| 6c 2e 0a 43 61 6c 6c 65 | 64 20 66 72 6f 6d 20 70 |l..Calle|d from p|
|00001500| 72 6f 67 72 61 6d 2c 20 | 74 61 6b 65 73 20 66 6f |rogram, |takes fo|
|00001510| 75 72 20 61 72 67 73 3a | 20 52 45 47 2c 20 53 54 |ur args:| REG, ST|
|00001520| 41 52 54 2c 20 45 4e 44 | 20 61 6e 64 20 44 45 4c |ART, END| and DEL|
|00001530| 45 54 45 2d 46 4c 41 47 | 2e 0a 53 54 41 52 54 20 |ETE-FLAG|..START |
|00001540| 61 6e 64 20 45 4e 44 20 | 61 72 65 20 62 75 66 66 |and END |are buff|
|00001550| 65 72 20 70 6f 73 69 74 | 69 6f 6e 73 20 69 6e 64 |er posit|ions ind|
|00001560| 69 63 61 74 69 6e 67 20 | 77 68 61 74 20 74 6f 20 |icating |what to |
|00001570| 70 72 65 70 65 6e 64 2e | 22 20 22 63 50 72 65 70 |prepend.|" "cPrep|
|00001580| 65 6e 64 20 74 6f 20 72 | 65 67 69 73 74 65 72 3a |end to r|egister:|
|00001590| 20 5c 6e 72 5c 6e 50 22 | 5d 29 0a 28 64 65 66 61 | \nr\nP"|]).(defa|
|000015a0| 6c 69 61 73 20 27 63 6f | 70 79 2d 72 65 63 74 61 |lias 'co|py-recta|
|000015b0| 6e 67 6c 65 2d 74 6f 2d | 72 65 67 69 73 74 65 72 |ngle-to-|register|
|000015c0| 20 23 5b 28 63 68 61 72 | 20 73 74 61 72 74 20 65 | #[(char| start e|
|000015d0| 6e 64 20 26 6f 70 74 69 | 6f 6e 61 6c 20 64 65 6c |nd &opti|onal del|
|000015e0| 65 74 65 2d 66 6c 61 67 | 29 20 22 c0 09 5c 6e 83 |ete-flag|) "..\n.|
|000015f0| 0d 00 c3 0c 0d 5c 22 82 | 11 00 c6 0c 0d 5c 22 5c |.....\".|.....\"\|
|00001600| 22 87 22 20 5b 73 65 74 | 2d 72 65 67 69 73 74 65 |"." [set|-registe|
|00001610| 72 20 63 68 61 72 20 64 | 65 6c 65 74 65 2d 66 6c |r char d|elete-fl|
|00001620| 61 67 20 64 65 6c 65 74 | 65 2d 65 78 74 72 61 63 |ag delet|e-extrac|
|00001630| 74 2d 72 65 63 74 61 6e | 67 6c 65 20 73 74 61 72 |t-rectan|gle star|
|00001640| 74 20 65 6e 64 20 65 78 | 74 72 61 63 74 2d 72 65 |t end ex|tract-re|
|00001650| 63 74 61 6e 67 6c 65 5d | 20 35 20 22 5c 0a 43 6f |ctangle]| 5 "\.Co|
|00001660| 70 79 20 72 65 63 74 61 | 6e 67 75 6c 61 72 20 72 |py recta|ngular r|
|00001670| 65 67 69 6f 6e 20 69 6e | 74 6f 20 72 65 67 69 73 |egion in|to regis|
|00001680| 74 65 72 20 52 45 47 2e | 20 20 57 69 74 68 20 70 |ter REG.|  With p|
|00001690| 72 65 66 69 78 20 61 72 | 67 2c 20 64 65 6c 65 74 |refix ar|g, delet|
|000016a0| 65 20 61 73 20 77 65 6c | 6c 2e 0a 43 61 6c 6c 65 |e as wel|l..Calle|
|000016b0| 64 20 66 72 6f 6d 20 70 | 72 6f 67 72 61 6d 2c 20 |d from p|rogram, |
|000016c0| 74 61 6b 65 73 20 66 6f | 75 72 20 61 72 67 73 3a |takes fo|ur args:|
|000016d0| 20 52 45 47 2c 20 53 54 | 41 52 54 2c 20 45 4e 44 | REG, ST|ART, END|
|000016e0| 20 61 6e 64 20 44 45 4c | 45 54 45 2d 46 4c 41 47 | and DEL|ETE-FLAG|
|000016f0| 2e 0a 53 54 41 52 54 20 | 61 6e 64 20 45 4e 44 20 |..START |and END |
|00001700| 61 72 65 20 62 75 66 66 | 65 72 20 70 6f 73 69 74 |are buff|er posit|
|00001710| 69 6f 6e 73 20 67 69 76 | 69 6e 67 20 74 77 6f 20 |ions giv|ing two |
|00001720| 63 6f 72 6e 65 72 73 20 | 6f 66 20 72 65 63 74 61 |corners |of recta|
|00001730| 6e 67 6c 65 2e 22 20 22 | 63 43 6f 70 79 20 72 65 |ngle." "|cCopy re|
|00001740| 63 74 61 6e 67 6c 65 20 | 74 6f 20 72 65 67 69 73 |ctangle |to regis|
|00001750| 74 65 72 3a 20 5c 6e 72 | 5c 6e 50 22 5d 29 0a    |ter: \nr|\nP"]). |
+--------+-------------------------+-------------------------+--------+--------+