/ Geek Gadgets 1 / ADE-1.bin / ade-dist / calc-2.02d-bin.lha / lib / emacs / site-lisp / calc-yank.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 79 61 6e 6b 20 | 6e 69 6c 20 28 62 79 74 |lc-yank |nil (byt|
|00000040| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 6e 69 6c |e-code "|.." [nil|
|00000050| 5d 20 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 1))..(|defun ca|
|00000060| 6c 63 2d 6b 69 6c 6c 20 | 28 6e 6e 20 26 6f 70 74 |lc-kill |(nn &opt|
|00000070| 69 6f 6e 61 6c 20 6e 6f | 2d 64 65 6c 65 74 65 29 |ional no|-delete)|
|00000080| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|00000090| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |") (byte|-code ".|
|000000a0| 88 08 c3 3d 83 0e 00 c4 | c5 21 82 11 00 c6 09 21 |...=....|.!.....!|
|000000b0| 87 22 20 5b 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 6e |." [majo|r-mode n|
|000000c0| 6e 20 6e 69 6c 20 63 61 | 6c 63 2d 6d 6f 64 65 20 |n nil ca|lc-mode |
|000000d0| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|000000e0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|000000f0| c8 20 88 c9 ca 21 88 cb | 60 21 cc 5d cd 0a 21 19 |. ...!..|`!.]..!.|
|00000100| 18 09 ce 57 85 28 00 6d | 85 1f 00 08 53 89 10 88 |...W.(.m|....S...|
|00000110| 08 09 5a 10 09 5b 89 11 | 88 cf 09 d0 08 09 d1 23 |..Z..[..|.......#|
|00000120| 5c 22 1b d2 08 21 88 60 | 1c d2 08 09 5a 21 88 0a |\"...!.`|....Z!..|
|00000130| 3f 85 46 00 d3 cc 21 88 | d4 0c 60 5c 22 88 0d 3f |?.F...!.|..`\"..?|
|00000140| 85 59 00 d5 09 d0 08 09 | d1 23 5c 22 29 88 0e 07 |.Y......|.#\")...|
|00000150| 40 0b 42 89 16 06 29 2a | 87 22 20 5b 6e 75 6d 20 |@.B...)*|." [num |
|00000160| 6e 20 6e 6e 20 73 74 75 | 66 66 20 66 69 72 73 74 |n nn stu|ff first|
|00000170| 20 6e 6f 2d 64 65 6c 65 | 74 65 20 63 61 6c 63 2d | no-dele|te calc-|
|00000180| 6c 61 73 74 2d 6b 69 6c | 6c 20 6b 69 6c 6c 2d 72 |last-kil|l kill-r|
|00000190| 69 6e 67 20 63 61 6c 63 | 2d 66 6f 72 63 65 2d 72 |ing calc|-force-r|
|000001a0| 65 66 72 65 73 68 20 63 | 61 6c 63 2d 73 65 74 2d |efresh c|alc-set-|
|000001b0| 63 6f 6d 6d 61 6e 64 2d | 66 6c 61 67 20 6e 6f 2d |command-|flag no-|
|000001c0| 61 6c 69 67 6e 20 63 61 | 6c 63 2d 6c 6f 63 61 74 |align ca|lc-locat|
|000001d0| 65 2d 63 75 72 73 6f 72 | 2d 65 6c 65 6d 65 6e 74 |e-cursor|-element|
|000001e0| 20 31 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 | 1 prefi|x-numeri|
|000001f0| 63 2d 76 61 6c 75 65 20 | 30 20 63 61 6c 63 2d 74 |c-value |0 calc-t|
|00000200| 6f 70 2d 6c 69 73 74 20 | 2d 20 2d 31 20 63 61 6c |op-list |- -1 cal|
|00000210| 63 2d 63 75 72 73 6f 72 | 2d 73 74 61 63 6b 2d 69 |c-cursor|-stack-i|
|00000220| 6e 64 65 78 20 62 61 63 | 6b 77 61 72 64 2d 63 68 |ndex bac|kward-ch|
|00000230| 61 72 20 63 6f 70 79 2d | 72 65 67 69 6f 6e 2d 61 |ar copy-|region-a|
|00000240| 73 2d 6b 69 6c 6c 20 63 | 61 6c 63 2d 70 6f 70 2d |s-kill c|alc-pop-|
|00000250| 73 74 61 63 6b 5d 20 31 | 36 29 29 20 6b 69 6c 6c |stack] 1|6)) kill|
|00000260| 2d 6c 69 6e 65 5d 20 33 | 29 29 0a 0a 28 64 65 66 |-line] 3|))..(def|
|00000270| 75 6e 20 63 61 6c 63 2d | 66 6f 72 63 65 2d 72 65 |un calc-|force-re|
|00000280| 66 72 65 73 68 20 6e 69 | 6c 20 28 62 79 74 65 2d |fresh ni|l (byte-|
|00000290| 63 6f 64 65 20 22 08 86 | 05 00 09 85 0d 00 c2 18 |code "..|........|
|000002a0| c3 20 29 87 22 20 5b 63 | 61 6c 63 2d 65 78 65 63 |. )." [c|alc-exec|
|000002b0| 75 74 69 6e 67 2d 6d 61 | 63 72 6f 20 63 61 6c 63 |uting-ma|cro calc|
|000002c0| 2d 64 69 73 70 6c 61 79 | 2d 64 69 72 74 79 20 6e |-display|-dirty n|
|000002d0| 69 6c 20 63 61 6c 63 2d | 72 65 66 72 65 73 68 5d |il calc-|refresh]|
|000002e0| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 2))..(d|efun cal|
|000002f0| 63 2d 6c 6f 63 61 74 65 | 2d 63 75 72 73 6f 72 2d |c-locate|-cursor-|
|00000300| 65 6c 65 6d 65 6e 74 20 | 28 70 74 29 20 28 62 79 |element |(pt) (by|
|00000310| 74 65 2d 63 6f 64 65 20 | 22 8a 64 62 88 c3 08 5b |te-code |".db...[|
|00000320| 09 0a 23 29 87 22 20 5b | 63 61 6c 63 2d 73 74 61 |..#)." [|calc-sta|
|00000330| 63 6b 2d 74 6f 70 20 63 | 61 6c 63 2d 73 74 61 63 |ck-top c|alc-stac|
|00000340| 6b 20 70 74 20 63 61 6c | 63 2d 6c 6f 63 61 74 65 |k pt cal|c-locate|
|00000350| 2d 63 75 72 73 6f 72 2d | 73 63 61 6e 5d 20 34 29 |-cursor-|scan] 4)|
|00000360| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6c |)..(defu|n calc-l|
|00000370| 6f 63 61 74 65 2d 63 75 | 72 73 6f 72 2d 73 63 61 |ocate-cu|rsor-sca|
|00000380| 6e 20 28 6e 20 73 74 61 | 63 6b 20 70 74 29 20 28 |n (n sta|ck pt) (|
|00000390| 62 79 74 65 2d 63 6f 64 | 65 20 22 60 08 58 86 08 |byte-cod|e "`.X..|
|000003a0| 00 09 3f 83 0f 00 0a 82 | 1e 00 c3 c4 09 40 38 5b |..?.....|.....@8[|
|000003b0| 21 88 c5 0a 54 09 41 08 | 23 87 22 20 5b 70 74 20 |!...T.A.|#." [pt |
|000003c0| 73 74 61 63 6b 20 6e 20 | 66 6f 72 77 61 72 64 2d |stack n |forward-|
|000003d0| 6c 69 6e 65 20 31 20 63 | 61 6c 63 2d 6c 6f 63 61 |line 1 c|alc-loca|
|000003e0| 74 65 2d 63 75 72 73 6f | 72 2d 73 63 61 6e 5d 20 |te-curso|r-scan] |
|000003f0| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |5))..(de|fun calc|
|00000400| 2d 6b 69 6c 6c 2d 72 65 | 67 69 6f 6e 20 28 74 6f |-kill-re|gion (to|
|00000410| 70 20 62 6f 74 20 26 6f | 70 74 69 6f 6e 61 6c 20 |p bot &o|ptional |
|00000420| 6e 6f 2d 64 65 6c 65 74 | 65 29 20 28 69 6e 74 65 |no-delet|e) (inte|
|00000430| 72 61 63 74 69 76 65 20 | 22 72 22 29 20 28 62 79 |ractive |"r") (by|
|00000440| 74 65 2d 63 6f 64 65 20 | 22 c4 88 08 c5 3d 83 0e |te-code |"....=..|
|00000450| 00 c6 c7 21 82 1d 00 09 | 83 19 00 c8 0a 0b 5c 22 |...!....|......\"|
|00000460| 82 1d 00 c9 0a 0b 5c 22 | 87 22 20 5b 6d 61 6a 6f |......\"|." [majo|
|00000470| 72 2d 6d 6f 64 65 20 6e | 6f 2d 64 65 6c 65 74 65 |r-mode n|o-delete|
|00000480| 20 74 6f 70 20 62 6f 74 | 20 6e 69 6c 20 63 61 6c | top bot| nil cal|
|00000490| 63 2d 6d 6f 64 65 20 63 | 61 6c 63 2d 64 6f 20 28 |c-mode c|alc-do (|
|000004a0| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 62 79 74 65 |lambda n|il (byte|
|000004b0| 2d 63 6f 64 65 20 22 c8 | 20 88 c9 ca 21 88 cb 09 |-code ".| ...!...|
|000004c0| 21 18 cb 0b 53 21 1a cc | 08 0a cd 23 1c ce 09 0b |!...S!..|...#....|
|000004d0| 5c 22 88 0e 06 40 cf 0c | 0a 5c 22 42 89 15 88 0e |\"...@..|.\"B....|
|000004e0| 07 3f 85 30 00 d0 0c 0a | 5c 22 2b 87 22 20 5b 74 |.?.0....|\"+." [t|
|000004f0| 6f 70 2d 6e 75 6d 20 74 | 6f 70 20 62 6f 74 2d 6e |op-num t|op bot-n|
|00000500| 75 6d 20 62 6f 74 20 6e | 75 6d 20 63 61 6c 63 2d |um bot n|um calc-|
|00000510| 6c 61 73 74 2d 6b 69 6c | 6c 20 6b 69 6c 6c 2d 72 |last-kil|l kill-r|
|00000520| 69 6e 67 20 6e 6f 2d 64 | 65 6c 65 74 65 20 63 61 |ing no-d|elete ca|
|00000530| 6c 63 2d 66 6f 72 63 65 | 2d 72 65 66 72 65 73 68 |lc-force|-refresh|
|00000540| 20 63 61 6c 63 2d 73 65 | 74 2d 63 6f 6d 6d 61 6e | calc-se|t-comman|
|00000550| 64 2d 66 6c 61 67 20 6e | 6f 2d 61 6c 69 67 6e 20 |d-flag n|o-align |
|00000560| 63 61 6c 63 2d 6c 6f 63 | 61 74 65 2d 63 75 72 73 |calc-loc|ate-curs|
|00000570| 6f 72 2d 65 6c 65 6d 65 | 6e 74 20 2d 20 2d 31 20 |or-eleme|nt - -1 |
|00000580| 63 6f 70 79 2d 72 65 67 | 69 6f 6e 2d 61 73 2d 6b |copy-reg|ion-as-k|
|00000590| 69 6c 6c 20 63 61 6c 63 | 2d 74 6f 70 2d 6c 69 73 |ill calc|-top-lis|
|000005a0| 74 20 63 61 6c 63 2d 70 | 6f 70 2d 73 74 61 63 6b |t calc-p|op-stack|
|000005b0| 5d 20 31 30 29 29 20 63 | 6f 70 79 2d 72 65 67 69 |] 10)) c|opy-regi|
|000005c0| 6f 6e 2d 61 73 2d 6b 69 | 6c 6c 20 6b 69 6c 6c 2d |on-as-ki|ll kill-|
|000005d0| 72 65 67 69 6f 6e 5d 20 | 35 29 29 0a 0a 28 64 65 |region] |5))..(de|
|000005e0| 66 75 6e 20 63 61 6c 63 | 2d 63 6f 70 79 2d 61 73 |fun calc|-copy-as|
|000005f0| 2d 6b 69 6c 6c 20 28 6e | 29 20 28 69 6e 74 65 72 |-kill (n|) (inter|
|00000600| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00000610| 65 2d 63 6f 64 65 20 22 | c2 88 c3 08 c1 5c 22 87 |e-code "|.....\".|
|00000620| 22 20 5b 6e 20 74 20 6e | 69 6c 20 63 61 6c 63 2d |" [n t n|il calc-|
|00000630| 6b 69 6c 6c 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |kill] 3)|)..(defu|
|00000640| 6e 20 63 61 6c 63 2d 63 | 6f 70 79 2d 72 65 67 69 |n calc-c|opy-regi|
|00000650| 6f 6e 2d 61 73 2d 6b 69 | 6c 6c 20 28 74 6f 70 20 |on-as-ki|ll (top |
|00000660| 62 6f 74 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |bot) (in|teractiv|
|00000670| 65 20 22 72 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "r") (|byte-cod|
|00000680| 65 20 22 c3 88 c4 08 09 | c2 23 87 22 20 5b 74 6f |e ".....|.#." [to|
|00000690| 70 20 62 6f 74 20 74 20 | 6e 69 6c 20 63 61 6c 63 |p bot t |nil calc|
|000006a0| 2d 6b 69 6c 6c 2d 72 65 | 67 69 6f 6e 5d 20 34 29 |-kill-re|gion] 4)|
|000006b0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 79 |)..(defu|n calc-y|
|000006c0| 61 6e 6b 20 6e 69 6c 20 | 28 69 6e 74 65 72 61 63 |ank nil |(interac|
|000006d0| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|000006e0| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|000006f0| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00000700| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |il (byte|-code ".|
|00000710| c4 c5 c6 08 21 09 40 3d | 83 11 00 08 41 82 41 00 |....!.@=|....A.A.|
|00000720| 09 40 3b 85 41 00 c7 c8 | 09 40 21 21 1a c6 0a 21 |.@;.A...|.@!!...!|
|00000730| c9 3d 83 3f 00 c7 09 40 | 21 89 12 88 c6 0a 21 c9 |.=.?...@|!.....!.|
|00000740| 3d 83 3b 00 c9 ca 21 82 | 3c 00 0a 82 40 00 0a 29 |=.;...!.|<...@..)|
|00000750| 23 87 22 20 5b 63 61 6c | 63 2d 6c 61 73 74 2d 6b |#." [cal|c-last-k|
|00000760| 69 6c 6c 20 6b 69 6c 6c | 2d 72 69 6e 67 2d 79 61 |ill kill|-ring-ya|
|00000770| 6e 6b 2d 70 6f 69 6e 74 | 65 72 20 76 61 6c 20 63 |nk-point|er val c|
|00000780| 61 6c 63 2d 70 6f 70 2d | 70 75 73 68 2d 72 65 63 |alc-pop-|push-rec|
|00000790| 6f 72 64 2d 6c 69 73 74 | 20 30 20 22 79 61 6e 6b |ord-list| 0 "yank|
|000007a0| 22 20 63 61 72 2d 73 61 | 66 65 20 6d 61 74 68 2d |" car-sa|fe math-|
|000007b0| 72 65 61 64 2d 65 78 70 | 72 73 20 63 61 6c 63 2d |read-exp|rs calc-|
|000007c0| 63 6c 65 61 6e 2d 6e 65 | 77 6c 69 6e 65 73 20 65 |clean-ne|wlines e|
|000007d0| 72 72 6f 72 20 22 42 61 | 64 20 66 6f 72 6d 61 74 |rror "Ba|d format|
|000007e0| 20 69 6e 20 79 61 6e 6b | 65 64 20 64 61 74 61 22 | in yank|ed data"|
|000007f0| 5d 20 31 31 29 29 5d 20 | 32 29 29 0a 0a 28 64 65 |] 11))] |2))..(de|
|00000800| 66 75 6e 20 63 61 6c 63 | 2d 63 6c 65 61 6e 2d 6e |fun calc|-clean-n|
|00000810| 65 77 6c 69 6e 65 73 20 | 28 73 29 20 28 62 79 74 |ewlines |(s) (byt|
|00000820| 65 2d 63 6f 64 65 20 22 | c2 c3 08 5c 22 86 0b 00 |e-code "|...\"...|
|00000830| c2 c4 08 5c 22 83 17 00 | c5 c6 08 c7 5c 22 21 82 |...\"...|....\"!.|
|00000840| 2e 00 c2 c8 08 5c 22 83 | 2d 00 c5 c6 08 c7 5c 22 |.....\".|-.....\"|
|00000850| c9 c6 08 ca 5c 22 51 21 | 82 2e 00 08 87 22 20 5b |....\"Q!|....." [|
|00000860| 73 20 74 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |s t stri|ng-match|
|00000870| 20 22 5c 5c 60 5b 20 0a | 0d 5d 2b 5c 5c 28 5b 5e | "\\`[ .|.]+\\([^|
|00000880| 01 5d 2a 5c 5c 29 5c 5c | 27 22 20 22 5c 5c 60 5c |.]*\\)\\|'" "\\`\|
|00000890| 5c 28 5b 5e 01 5d 2a 5c | 5c 29 5b 20 0a 0d 5d 2b |\([^.]*\|\)[ ..]+|
|000008a0| 5c 5c 27 22 20 63 61 6c | 63 2d 63 6c 65 61 6e 2d |\\'" cal|c-clean-|
|000008b0| 6e 65 77 6c 69 6e 65 73 | 20 6d 61 74 68 2d 6d 61 |newlines| math-ma|
|000008c0| 74 63 68 2d 73 75 62 73 | 74 72 69 6e 67 20 31 20 |tch-subs|tring 1 |
|000008d0| 22 5c 5c 60 5c 5c 28 2e | 2a 5c 5c 29 5b 0a 0d 5d |"\\`\\(.|*\\)[..]|
|000008e0| 2b 5c 5c 28 5b 5e 01 5d | 2a 5c 5c 29 5c 5c 27 22 |+\\([^.]|*\\)\\'"|
|000008f0| 20 22 2c 22 20 32 5d 20 | 31 32 29 29 0a 0a 28 64 | "," 2] |12))..(d|
|00000900| 65 66 75 6e 20 63 61 6c | 63 2d 64 6f 2d 67 72 61 |efun cal|c-do-gra|
|00000910| 62 2d 72 65 67 69 6f 6e | 20 28 74 6f 70 20 62 6f |b-region| (top bo|
|00000920| 74 20 61 72 67 29 20 28 | 62 79 74 65 2d 63 6f 64 |t arg) (|byte-cod|
|00000930| 65 20 22 08 cc 3e 85 09 | 00 cd ce 21 88 70 19 cf |e "..>..|...!.p..|
|00000940| d0 21 1a c4 1b c4 1d c4 | 1e 06 c4 1e 07 0e 08 85 |.!......|........|
|00000950| 70 00 0e 08 3a 83 2b 00 | c9 89 13 82 70 00 d1 0e |p...:.+.|....p...|
|00000960| 08 21 89 16 08 88 0e 08 | d2 55 83 4e 00 8a d3 20 |.!......|.U.N... |
|00000970| 88 60 89 16 0a 88 d4 20 | 88 60 89 16 0b 29 82 70 |.`..... |.`...).p|
|00000980| 00 8a 60 89 16 0a 88 d5 | 0e 08 21 88 0e 08 d2 56 |..`.....|..!....V|
|00000990| 83 67 00 60 89 16 0b 82 | 6f 00 0e 0a 16 0b 60 89 |.g.`....|o.....`.|
|000009a0| 16 0a 29 88 d6 0e 0a 0e | 0b 5c 22 89 15 88 d7 20 |..).....|.\".... |
|000009b0| 88 0b 83 8a 00 d8 0d 21 | 89 16 06 82 b7 00 d8 d9 |.......!|........|
|000009c0| 0d da 51 21 89 16 06 88 | db 0e 06 21 dc 3d 85 b7 |..Q!....|...!.=..|
|000009d0| 00 0e 06 47 dd 55 85 b7 | 00 db de 0e 06 38 21 dc |...G.U..|.....8!.|
|000009e0| 3d 85 b7 00 de 0e 06 38 | 89 16 06 88 db 0e 06 21 |=......8|.......!|
|000009f0| cd 3d 85 ee 00 0a 83 cb | 00 df 09 21 82 d2 00 e0 |.=......|...!....|
|00000a00| c9 21 88 e1 09 21 88 0e | 0a 62 88 e2 de 0e 06 38 |.!...!..|.b.....8|
|00000a10| 0b 83 e4 00 d2 82 e5 00 | de 5c 5c 21 88 cd dd 0e |........|.\\!....|
|00000a20| 06 38 21 88 e3 e4 e5 5c | 22 2e 06 87 22 20 5b 6d |.8!....\|"..." [m|
|00000a30| 61 6a 6f 72 2d 6d 6f 64 | 65 20 66 72 6f 6d 2d 62 |ajor-mod|e from-b|
|00000a40| 75 66 66 65 72 20 63 61 | 6c 63 2d 77 61 73 2d 73 |uffer ca|lc-was-s|
|00000a50| 74 61 72 74 65 64 20 73 | 69 6e 67 6c 65 20 6e 69 |tarted s|ingle ni|
|00000a60| 6c 20 64 61 74 61 20 76 | 61 6c 73 20 70 6f 73 20 |l data v|als pos |
|00000a70| 61 72 67 20 74 20 74 6f | 70 20 62 6f 74 20 28 63 |arg t to|p bot (c|
|00000a80| 61 6c 63 2d 6d 6f 64 65 | 20 63 61 6c 63 2d 74 72 |alc-mode| calc-tr|
|00000a90| 61 69 6c 2d 6d 6f 64 65 | 29 20 65 72 72 6f 72 20 |ail-mode|) error |
|00000aa0| 22 54 68 69 73 20 63 6f | 6d 6d 61 6e 64 20 77 6f |"This co|mmand wo|
|00000ab0| 72 6b 73 20 6f 6e 6c 79 | 20 69 6e 20 61 20 72 65 |rks only| in a re|
|00000ac0| 67 75 6c 61 72 20 74 65 | 78 74 20 62 75 66 66 65 |gular te|xt buffe|
|00000ad0| 72 2e 22 20 67 65 74 2d | 62 75 66 66 65 72 2d 77 |r." get-|buffer-w|
|00000ae0| 69 6e 64 6f 77 20 22 2a | 43 61 6c 63 75 6c 61 74 |indow "*|Calculat|
|00000af0| 6f 72 2a 22 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |or*" pre|fix-nume|
|00000b00| 72 69 63 2d 76 61 6c 75 | 65 20 30 20 62 65 67 69 |ric-valu|e 0 begi|
|00000b10| 6e 6e 69 6e 67 2d 6f 66 | 2d 6c 69 6e 65 20 65 6e |nning-of|-line en|
|00000b20| 64 2d 6f 66 2d 6c 69 6e | 65 20 66 6f 72 77 61 72 |d-of-lin|e forwar|
|00000b30| 64 2d 6c 69 6e 65 20 62 | 75 66 66 65 72 2d 73 75 |d-line b|uffer-su|
|00000b40| 62 73 74 72 69 6e 67 20 | 63 61 6c 63 20 6d 61 74 |bstring |calc mat|
|00000b50| 68 2d 72 65 61 64 2d 65 | 78 70 72 20 22 5b 22 20 |h-read-e|xpr "[" |
|00000b60| 22 5d 22 20 63 61 72 2d | 73 61 66 65 20 76 65 63 |"]" car-|safe vec|
|00000b70| 20 32 20 31 20 70 6f 70 | 2d 74 6f 2d 62 75 66 66 | 2 1 pop|-to-buff|
|00000b80| 65 72 20 63 61 6c 63 2d | 71 75 69 74 20 73 77 69 |er calc-|quit swi|
|00000b90| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 20 66 6f |tch-to-b|uffer fo|
|00000ba0| 72 77 61 72 64 2d 63 68 | 61 72 20 63 61 6c 63 2d |rward-ch|ar calc-|
|00000bb0| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00000bc0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 c2 c3 08 23 |byte-cod|e "....#|
|00000bd0| 87 22 20 5b 76 61 6c 73 | 20 63 61 6c 63 2d 65 6e |." [vals| calc-en|
|00000be0| 74 65 72 2d 72 65 73 75 | 6c 74 20 30 20 22 67 72 |ter-resu|lt 0 "gr|
|00000bf0| 61 62 22 5d 20 34 29 29 | 20 32 33 33 31 5d 20 32 |ab"] 4))| 2331] 2|
|00000c00| 31 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |1))..(de|fun calc|
|00000c10| 2d 64 6f 2d 67 72 61 62 | 2d 72 65 63 74 61 6e 67 |-do-grab|-rectang|
|00000c20| 6c 65 20 28 74 6f 70 20 | 62 6f 74 20 61 72 67 20 |le (top |bot arg |
|00000c30| 26 6f 70 74 69 6f 6e 61 | 6c 20 72 65 64 75 63 65 |&optiona|l reduce|
|00000c40| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 d4 |) (byte-|code "..|
|00000c50| 3e 85 09 00 d5 d6 21 88 | 8a 0a 62 88 69 29 19 8a |>.....!.|..b.i)..|
|00000c60| 0c 62 88 69 29 1b 70 1d | d7 d8 21 1e 06 d9 1e 07 |.b.i).p.|..!.....|
|00000c70| d9 1e 08 d9 1e 09 d9 1e | 0a d9 1e 0b d9 1e 0c 09 |........|........|
|00000c80| 0b 55 83 70 00 8a 09 da | 55 86 41 00 d5 db 21 88 |.U.p....|U.A...!.|
|00000c90| 0a 62 88 60 0c 57 85 64 | 00 60 89 16 0b 88 dc dd |.b.`.W.d|.`......|
|00000ca0| 21 88 de 0e 0b 60 53 5c | 22 0e 07 42 89 16 07 88 |!....`S\|"..B....|
|00000cb0| 82 45 00 88 df 0e 07 21 | 89 16 07 29 82 77 00 e0 |.E.....!|...).w..|
|00000cc0| 0a 0c 5c 22 89 16 07 88 | e1 20 88 e2 43 16 08 da |..\"....|. ..C...|
|00000cd0| 89 16 0a 88 0e 0d 85 9a | 00 0e 0d 3a 83 93 00 da |........|...:....|
|00000ce0| 82 97 00 e3 0e 0d 21 89 | 16 0d 88 0e 07 85 fb 01 |......!.|........|
|00000cf0| e4 0e 0d 21 83 23 01 0e | 0d da 55 85 b2 00 e5 89 |...!.#..|..U.....|
|00000d00| 16 0d 88 da 16 0c e2 43 | 89 16 09 88 0e 07 40 47 |.......C|......@G|
|00000d10| d9 d9 1e 10 1e 0f 1e 0e | 0e 0c 0e 0e 57 85 1f 01 |........|....W...|
|00000d20| 0e 0c 0e 0d 5c 5c 16 0f | 0e 0f 0e 0e 59 83 eb 00 |....\\..|....Y...|
|00000d30| e6 0e 07 40 0e 0c d9 4f | 21 82 f5 00 e6 0e 07 40 |...@...O|!......@|
|00000d40| 0e 0c 0e 0f 4f 21 89 16 | 10 88 e7 0e 10 21 d5 3d |....O!..|.....!.=|
|00000d50| 83 0d 01 0e 10 16 09 da | 89 16 0e 82 1b 01 e8 0e |........|........|
|00000d60| 09 0e 10 43 5c 22 16 09 | 0e 0f 89 16 0c 88 82 c8 |...C\"..|........|
|00000d70| 00 2b 82 a1 01 e9 ea 0e | 07 40 5c 22 83 39 01 e2 |.+......|.@\".9..|
|00000d80| eb 0e 07 40 21 44 89 16 | 09 82 a1 01 0e 0d 3f 85 |...@!D..|......?.|
|00000d90| 45 01 e9 ec 0e 07 40 5c | 22 83 5b 01 ed da 21 16 |E.....@\|".[...!.|
|00000da0| 0c e6 ee 0e 07 40 da 5c | 22 21 89 16 09 82 a1 01 |.....@.\|"!......|
|00000db0| e9 ef 0e 07 40 5c 22 83 | 6d 01 ee 0e 07 40 f0 5c |....@\".|m....@.\|
|00000dc0| 22 82 70 01 0e 07 40 1e | 11 f1 16 0c e6 f2 0e 11 |".p...@.|........|
|00000dd0| f3 51 21 89 16 09 88 e7 | 0e 09 21 d5 3d 85 a0 01 |.Q!.....|..!.=...|
|00000de0| e6 0e 11 21 1e 12 e7 0e | 12 21 d5 3d 86 9f 01 e2 |...!....|.!.=....|
|00000df0| 0e 12 44 89 16 09 29 29 | 88 e7 0e 09 21 d5 3d 85 |..D...))|....!.=.|
|00000e00| da 01 0e 06 83 b6 01 f4 | 0d 21 82 bd 01 f5 d3 21 |........|.!.....!|
|00000e10| 88 f6 0d 21 88 0a 62 88 | dc 0e 0a 21 88 f7 f8 dd |...!..b.|...!....|
|00000e20| 0e 09 38 09 0b 5e 0e 0c | 23 21 88 d5 f0 0e 09 38 |..8..^..|#!.....8|
|00000e30| 21 88 f9 0e 09 fa 5c 22 | 86 eb 01 0e 09 0e 08 42 |!.....\"|.......B|
|00000e40| 89 16 08 88 0e 07 41 16 | 07 0e 0a 54 89 16 0a 88 |......A.|...T....|
|00000e50| 82 9b 00 88 fb fc fd 5c | 22 2e 0a 87 22 20 5b 6d |.......\|"..." [m|
|00000e60| 61 6a 6f 72 2d 6d 6f 64 | 65 20 63 6f 6c 31 20 74 |ajor-mod|e col1 t|
|00000e70| 6f 70 20 63 6f 6c 32 20 | 62 6f 74 20 66 72 6f 6d |op col2 |bot from|
|00000e80| 2d 62 75 66 66 65 72 20 | 63 61 6c 63 2d 77 61 73 |-buffer |calc-was|
|00000e90| 2d 73 74 61 72 74 65 64 | 20 64 61 74 61 20 6d 61 |-started| data ma|
|00000ea0| 74 20 76 61 6c 73 20 6c | 6e 75 6d 20 70 74 20 70 |t vals l|num pt p|
|00000eb0| 6f 73 20 61 72 67 20 77 | 20 6a 20 76 20 73 20 76 |os arg w| j v s v|
|00000ec0| 32 20 74 20 28 63 61 6c | 63 2d 6d 6f 64 65 20 63 |2 t (cal|c-mode c|
|00000ed0| 61 6c 63 2d 74 72 61 69 | 6c 2d 6d 6f 64 65 29 20 |alc-trai|l-mode) |
|00000ee0| 65 72 72 6f 72 20 22 54 | 68 69 73 20 63 6f 6d 6d |error "T|his comm|
|00000ef0| 61 6e 64 20 77 6f 72 6b | 73 20 6f 6e 6c 79 20 69 |and work|s only i|
|00000f00| 6e 20 61 20 72 65 67 75 | 6c 61 72 20 74 65 78 74 |n a regu|lar text|
|00000f10| 20 62 75 66 66 65 72 2e | 22 20 67 65 74 2d 62 75 | buffer.|" get-bu|
|00000f20| 66 66 65 72 2d 77 69 6e | 64 6f 77 20 22 2a 43 61 |ffer-win|dow "*Ca|
|00000f30| 6c 63 75 6c 61 74 6f 72 | 2a 22 20 6e 69 6c 20 30 |lculator|*" nil 0|
|00000f40| 20 22 50 6f 69 6e 74 20 | 61 6e 64 20 6d 61 72 6b | "Point |and mark|
|00000f50| 20 6d 75 73 74 20 62 65 | 20 61 74 20 62 65 67 69 | must be| at begi|
|00000f60| 6e 6e 69 6e 67 20 6f 66 | 20 6c 69 6e 65 2c 20 6f |nning of| line, o|
|00000f70| 72 20 64 65 66 69 6e 65 | 20 61 20 72 65 63 74 61 |r define| a recta|
|00000f80| 6e 67 6c 65 22 20 66 6f | 72 77 61 72 64 2d 6c 69 |ngle" fo|rward-li|
|00000f90| 6e 65 20 31 20 62 75 66 | 66 65 72 2d 73 75 62 73 |ne 1 buf|fer-subs|
|00000fa0| 74 72 69 6e 67 20 6e 72 | 65 76 65 72 73 65 20 65 |tring nr|everse e|
|00000fb0| 78 74 72 61 63 74 2d 72 | 65 63 74 61 6e 67 6c 65 |xtract-r|ectangle|
|00000fc0| 20 63 61 6c 63 20 76 65 | 63 20 70 72 65 66 69 78 | calc ve|c prefix|
|00000fd0| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 20 6e |-numeric|-value n|
|00000fe0| 61 74 6e 75 6d 70 20 31 | 30 30 30 30 30 30 20 6d |atnump 1|000000 m|
|00000ff0| 61 74 68 2d 72 65 61 64 | 2d 65 78 70 72 20 63 61 |ath-read|-expr ca|
|00001000| 72 2d 73 61 66 65 20 6e | 63 6f 6e 63 20 73 74 72 |r-safe n|conc str|
|00001010| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5c 5c 60 20 2a |ing-matc|h "\\` *|
|00001020| 2d 3f 5b 30 2d 39 5d 5b | 30 2d 39 5d 3f 5b 30 2d |-?[0-9][|0-9]?[0-|
|00001030| 39 5d 3f 5b 30 2d 39 5d | 3f 5b 30 2d 39 5d 3f 5b |9]?[0-9]|?[0-9]?[|
|00001040| 30 2d 39 5d 3f 20 2a 5c | 5c 27 22 20 73 74 72 69 |0-9]? *\|\'" stri|
|00001050| 6e 67 2d 74 6f 2d 69 6e | 74 20 22 5b 5b 7b 5d 5b |ng-to-in|t "[[{][|
|00001060| 5e 5d 5b 7b 7d 5d 2a 5b | 5d 7d 5d 22 20 6d 61 74 |^][{}]*[|]}]" mat|
|00001070| 63 68 2d 62 65 67 69 6e | 6e 69 6e 67 20 6d 61 74 |ch-begin|ning mat|
|00001080| 68 2d 6d 61 74 63 68 2d | 73 75 62 73 74 72 69 6e |h-match-|substrin|
|00001090| 67 20 22 5c 5c 60 5c 5c | 28 5b 30 2d 39 5d 2b 3a |g "\\`\\|([0-9]+:|
|000010a0| 5b 20 09 5d 5c 5c 29 3f | 5c 5c 28 2e 2a 5b 5e 2c |[ .]\\)?|\\(.*[^,|
|000010b0| 20 09 5d 5c 5c 29 5b 2c | 20 09 5d 2a 5c 5c 27 22 | .]\\)[,| .]*\\'"|
|000010c0| 20 32 20 2d 31 20 22 5b | 22 20 22 5d 22 20 70 6f | 2 -1 "[|" "]" po|
|000010d0| 70 2d 74 6f 2d 62 75 66 | 66 65 72 20 63 61 6c 63 |p-to-buf|fer calc|
|000010e0| 2d 71 75 69 74 20 73 77 | 69 74 63 68 2d 74 6f 2d |-quit sw|itch-to-|
|000010f0| 62 75 66 66 65 72 20 66 | 6f 72 77 61 72 64 2d 63 |buffer f|orward-c|
|00001100| 68 61 72 20 2b 20 65 71 | 75 61 6c 20 28 76 65 63 |har + eq|ual (vec|
|00001110| 29 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |) calc-d|o (lambd|
|00001120| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00001130| 20 22 08 83 11 00 c2 c3 | c4 08 c5 c6 09 21 45 23 | "......|.....!E#|
|00001140| 82 18 00 c2 c3 c7 c6 09 | 21 23 87 22 20 5b 72 65 |........|!#." [re|
|00001150| 64 75 63 65 20 6d 61 74 | 20 63 61 6c 63 2d 65 6e |duce mat| calc-en|
|00001160| 74 65 72 2d 72 65 73 75 | 6c 74 20 30 20 22 67 72 |ter-resu|lt 0 "gr|
|00001170| 62 2b 22 20 28 76 61 72 | 20 61 64 64 20 76 61 72 |b+" (var| add var|
|00001180| 2d 61 64 64 29 20 6e 72 | 65 76 65 72 73 65 20 22 |-add) nr|everse "|
|00001190| 67 72 61 62 22 5d 20 37 | 29 29 20 33 31 30 36 5d |grab"] 7|)) 3106]|
|000011a0| 20 33 38 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 38))..(|defun ca|
|000011b0| 6c 63 2d 63 6f 70 79 2d | 74 6f 2d 62 75 66 66 65 |lc-copy-|to-buffe|
|000011c0| 72 20 28 6e 6e 29 20 22 | 5c 0a 43 6f 70 79 20 74 |r (nn) "|\.Copy t|
|000011d0| 68 65 20 74 6f 70 20 6f | 66 20 73 74 61 63 6b 20 |he top o|f stack |
|000011e0| 69 6e 74 6f 20 61 6e 20 | 65 64 69 74 69 6e 67 20 |into an |editing |
|000011f0| 62 75 66 66 65 72 2e 22 | 20 28 69 6e 74 65 72 61 |buffer."| (intera|
|00001200| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00001210| 2d 63 6f 64 65 20 22 c3 | 88 09 c8 3e 3f 85 0a 00 |-code ".|...>?...|
|00001220| 70 c3 c3 c3 1d 1c 1a 18 | c9 ca 21 88 0a 85 1b 00 |p.......|..!.....|
|00001230| 0a 62 88 0e 06 3a 85 2e | 00 08 3f 85 2e 00 cb c7 |.b...:..|..?.....|
|00001240| 21 88 cc 0d 21 2c 87 22 | 20 5b 74 68 65 62 75 66 |!...!,."| [thebuf|
|00001250| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 6d 6f 76 65 | major-m|ode move|
|00001260| 70 74 20 6e 69 6c 20 6f | 6c 64 62 75 66 20 6e 65 |pt nil o|ldbuf ne|
|00001270| 77 62 75 66 20 6e 6e 20 | 74 20 28 63 61 6c 63 2d |wbuf nn |t (calc-|
|00001280| 6d 6f 64 65 20 63 61 6c | 63 2d 74 72 61 69 6c 2d |mode cal|c-trail-|
|00001290| 6d 6f 64 65 29 20 63 61 | 6c 63 2d 64 6f 20 28 6c |mode) ca|lc-do (l|
|000012a0| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|000012b0| 63 6f 64 65 20 22 8a cf | 20 88 d0 09 21 0b 0d d1 |code "..| ...!...|
|000012c0| 3d 83 12 00 d2 82 13 00 | d3 cb cb 1e 07 1e 06 1c |=.......|........|
|000012d0| 1a 18 70 16 08 0e 0a 86 | 37 00 d4 d5 20 d3 5c 22 |..p.....|7... .\"|
|000012e0| 86 37 00 d4 d5 20 d2 5c | 22 86 37 00 d6 d7 21 89 |.7... .\|".7...!.|
|000012f0| 16 09 88 09 3f 86 42 00 | 09 3a 85 4f 00 d8 d3 21 |....?.B.|.:.O...!|
|00001300| d8 d2 21 53 0c 5a 55 83 | 7f 00 d9 d2 21 88 da 0b |..!S.ZU.|....!...|
|00001310| 83 5f 00 db 82 60 00 dc | 21 85 69 00 dd d3 21 53 |._...`..|!.i...!S|
|00001320| 62 88 cb 12 60 89 16 06 | 88 d9 d3 21 88 60 53 0c |b...`...|...!.`S.|
|00001330| 5a 89 16 07 82 cc 00 08 | d3 56 83 9b 00 d9 08 21 |Z.......|.V.....!|
|00001340| 88 60 89 16 06 88 d9 d3 | 21 88 60 0c 5a 89 16 07 |.`......|!.`.Z...|
|00001350| 82 cc 00 08 d3 57 83 b8 | 00 d9 08 5b 21 88 60 89 |.....W..|...[!.`.|
|00001360| 16 06 88 d9 08 5b 53 21 | 88 60 89 16 07 82 cc 00 |.....[S!|.`......|
|00001370| 65 62 88 de d2 21 88 60 | 89 16 06 88 d9 d3 21 88 |eb...!.`|......!.|
|00001380| 60 89 16 07 88 8a 0e 09 | 71 88 09 3a 85 dd 00 df |`.......|q..:....|
|00001390| e0 20 e1 20 5c 22 88 e2 | 60 cc 5c 22 88 0e 0d 85 |. . \"..|`.\"....|
|000013a0| eb 00 09 3a 3f 83 00 01 | e3 8a 0e 08 71 88 e4 0e |...:?...|....q...|
|000013b0| 06 0e 07 5c 22 29 0a 5c | 22 82 3a 01 6e 86 07 01 |...\").\|".:.n...|
|000013c0| cb 89 12 88 e5 0e 08 0e | 06 0e 07 23 88 0a 85 3a |........|...#...:|
|000013d0| 01 d2 18 60 e6 20 56 85 | 26 01 de e7 21 88 60 e6 |...`. V.|&...!.`.|
|000013e0| 20 59 85 35 01 e8 e9 21 | 88 08 54 89 10 88 82 17 | Y.5...!|..T.....|
|000013f0| 01 88 de 08 21 29 88 0e | 0a 85 44 01 60 89 16 0e |....!)..|..D.`...|
|00001400| 88 ea 70 21 85 51 01 eb | ea 70 21 60 5c 22 29 2d |..p!.Q..|.p!`\")-|
|00001410| 29 87 22 20 5b 6e 20 6e | 6e 20 65 61 74 2d 6c 6e |)." [n n|n eat-ln|
|00001420| 75 6d 73 20 63 61 6c 63 | 2d 6c 69 6e 65 2d 6e 75 |ums calc|-line-nu|
|00001430| 6d 62 65 72 69 6e 67 20 | 62 69 67 2d 6f 66 66 73 |mbering |big-offs|
|00001440| 65 74 20 63 61 6c 63 2d | 6c 61 6e 67 75 61 67 65 |et calc-|language|
|00001450| 20 74 6f 70 20 62 6f 74 | 20 6f 6c 64 62 75 66 20 | top bot| oldbuf |
|00001460| 6e 65 77 62 75 66 20 74 | 68 65 62 75 66 20 6e 69 |newbuf t|hebuf ni|
|00001470| 6c 20 74 20 6f 76 65 72 | 77 72 69 74 65 2d 6d 6f |l t over|write-mo|
|00001480| 64 65 20 6d 6f 76 65 70 | 74 20 63 61 6c 63 2d 66 |de movep|t calc-f|
|00001490| 6f 72 63 65 2d 72 65 66 | 72 65 73 68 20 70 72 65 |orce-ref|resh pre|
|000014a0| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|000014b0| 65 20 62 69 67 20 31 20 | 30 20 63 61 6c 63 2d 66 |e big 1 |0 calc-f|
|000014c0| 69 6e 64 2d 77 72 69 74 | 61 62 6c 65 2d 62 75 66 |ind-writ|able-buf|
|000014d0| 66 65 72 20 62 75 66 66 | 65 72 2d 6c 69 73 74 20 |fer buff|er-list |
|000014e0| 65 72 72 6f 72 20 22 4e | 6f 20 6f 74 68 65 72 20 |error "N|o other |
|000014f0| 62 75 66 66 65 72 22 20 | 63 61 6c 63 2d 73 75 62 |buffer" |calc-sub|
|00001500| 73 74 61 63 6b 2d 68 65 | 69 67 68 74 20 63 61 6c |stack-he|ight cal|
|00001510| 63 2d 63 75 72 73 6f 72 | 2d 73 74 61 63 6b 2d 69 |c-cursor|-stack-i|
|00001520| 6e 64 65 78 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |ndex loo|king-at |
|00001530| 22 5b 30 2d 39 5d 2b 3a | 20 2a 5b 5e 20 0a 5d 22 |"[0-9]+:| *[^ .]"|
|00001540| 20 22 20 2a 5b 5e 20 0a | 5d 22 20 6d 61 74 63 68 | " *[^ .|]" match|
|00001550| 2d 65 6e 64 20 66 6f 72 | 77 61 72 64 2d 6c 69 6e |-end for|ward-lin|
|00001560| 65 20 6b 69 6c 6c 2d 72 | 65 67 69 6f 6e 20 72 65 |e kill-r|egion re|
|00001570| 67 69 6f 6e 2d 62 65 67 | 69 6e 6e 69 6e 67 20 72 |gion-beg|inning r|
|00001580| 65 67 69 6f 6e 2d 65 6e | 64 20 70 75 73 68 2d 6d |egion-en|d push-m|
|00001590| 61 72 6b 20 63 61 6c 63 | 2d 6f 76 65 72 77 72 69 |ark calc|-overwri|
|000015a0| 74 65 2d 73 74 72 69 6e | 67 20 62 75 66 66 65 72 |te-strin|g buffer|
|000015b0| 2d 73 75 62 73 74 72 69 | 6e 67 20 69 6e 73 65 72 |-substri|ng inser|
|000015c0| 74 2d 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |t-buffer|-substri|
|000015d0| 6e 67 20 6d 61 72 6b 20 | 2d 31 20 64 65 6c 65 74 |ng mark |-1 delet|
|000015e0| 65 2d 63 68 61 72 20 34 | 20 67 65 74 2d 62 75 66 |e-char 4| get-buf|
|000015f0| 66 65 72 2d 77 69 6e 64 | 6f 77 20 73 65 74 2d 77 |fer-wind|ow set-w|
|00001600| 69 6e 64 6f 77 2d 70 6f | 69 6e 74 5d 20 33 36 29 |indow-po|int] 36)|
|00001610| 29 20 63 61 6c 63 2d 71 | 75 69 74 20 73 77 69 74 |) calc-q|uit swit|
|00001620| 63 68 2d 74 6f 2d 62 75 | 66 66 65 72 5d 20 34 29 |ch-to-bu|ffer] 4)|
|00001630| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6f |)..(defu|n calc-o|
|00001640| 76 65 72 77 72 69 74 65 | 2d 73 74 72 69 6e 67 20 |verwrite|-string |
|00001650| 28 73 74 72 20 65 61 74 | 2d 6c 6e 75 6d 73 29 20 |(str eat|-lnums) |
|00001660| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c5 c6 08 5c |(byte-co|de "...\|
|00001670| 22 85 0d 00 08 c7 c8 4f | 89 10 88 09 85 18 00 08 |"......O|........|
|00001680| c9 ca 4f 89 10 88 c5 cb | 08 5c 22 85 23 00 cc cd |..O.....|.\".#...|
|00001690| 21 83 32 00 ce 60 cf c7 | 21 5c 22 88 08 63 82 7e |!.2..`..|!\"..c.~|
|000016a0| 00 c7 1a 0a 08 47 57 85 | 7d 00 08 0a 48 89 13 d0 |.....GW.|}...H...|
|000016b0| 55 83 71 00 0a 08 47 53 | 55 86 6e 00 60 1c d1 20 |U.q...GS|U.n.`.. |
|000016c0| 88 ce 0c 60 5c 22 88 6d | 83 60 00 d2 63 82 63 00 |...`\".m|.`..c.c.|
|000016d0| d3 d4 21 88 09 85 6d 00 | 0a c9 5c 5c 89 12 29 82 |..!...m.|..\\..).|
|000016e0| 74 00 d5 d4 21 88 0a 54 | 89 12 88 82 34 00 29 87 |t...!..T|....4.).|
|000016f0| 22 20 5b 73 74 72 20 65 | 61 74 2d 6c 6e 75 6d 73 |" [str e|at-lnums|
|00001700| 20 69 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d | i last-|command-|
|00001710| 63 68 61 72 20 70 74 20 | 73 74 72 69 6e 67 2d 6d |char pt |string-m|
|00001720| 61 74 63 68 20 22 0a 5c | 5c 27 22 20 30 20 2d 31 |atch ".\|\'" 0 -1|
|00001730| 20 34 20 6e 69 6c 20 22 | 5c 5c 60 5b 2d 2b 5d 3f | 4 nil "|\\`[-+]?|
|00001740| 5b 30 2d 39 2e 5d 2b 5c | 5c 28 65 2d 3f 5b 30 2d |[0-9.]+\|\(e-?[0-|
|00001750| 39 5d 2b 5c 5c 29 3f 5c | 5c 27 22 20 6c 6f 6f 6b |9]+\\)?\|\'" look|
|00001760| 69 6e 67 2d 61 74 20 22 | 5b 2d 2b 5d 3f 5b 30 2d |ing-at "|[-+]?[0-|
|00001770| 39 2e 5d 2b 5c 5c 28 65 | 2d 3f 5b 30 2d 39 5d 2b |9.]+\\(e|-?[0-9]+|
|00001780| 5c 5c 29 3f 22 20 64 65 | 6c 65 74 65 2d 72 65 67 |\\)?" de|lete-reg|
|00001790| 69 6f 6e 20 6d 61 74 63 | 68 2d 65 6e 64 20 31 30 |ion matc|h-end 10|
|000017a0| 20 65 6e 64 2d 6f 66 2d | 6c 69 6e 65 20 22 0a 22 | end-of-|line "."|
|000017b0| 20 66 6f 72 77 61 72 64 | 2d 63 68 61 72 20 31 20 | forward|-char 1 |
|000017c0| 73 65 6c 66 2d 69 6e 73 | 65 72 74 2d 63 6f 6d 6d |self-ins|ert-comm|
|000017d0| 61 6e 64 5d 20 31 32 29 | 29 0a 0a 28 64 65 66 75 |and] 12)|)..(defu|
|000017e0| 6e 20 63 61 6c 63 2d 66 | 69 6e 64 2d 77 72 69 74 |n calc-f|ind-writ|
|000017f0| 61 62 6c 65 2d 62 75 66 | 66 65 72 20 28 62 75 66 |able-buf|fer (buf|
|00001800| 20 6d 6f 64 65 29 20 28 | 62 79 74 65 2d 63 6f 64 | mode) (|byte-cod|
|00001810| 65 20 22 08 85 30 00 c2 | c3 c4 08 40 21 5c 22 86 |e "..0..|...@!\".|
|00001820| 23 00 09 c5 55 85 23 00 | c2 c6 c4 08 40 21 5c 22 |#...U.#.|....@!\"|
|00001830| 86 23 00 c7 08 40 21 3f | 83 2e 00 c8 08 41 09 5c |.#...@!?|.....A.\|
|00001840| 22 82 30 00 08 40 87 22 | 20 5b 62 75 66 20 6d 6f |".0..@."| [buf mo|
|00001850| 64 65 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |de strin|g-match |
|00001860| 22 5c 5c 60 5c 5c 28 20 | 2e 2a 5c 5c 7c 5c 5c 2a |"\\`\\( |.*\\|\\*|
|00001870| 43 61 6c 63 2e 2a 5c 5c | 29 22 20 62 75 66 66 65 |Calc.*\\|)" buffe|
|00001880| 72 2d 6e 61 6d 65 20 30 | 20 22 5c 5c 60 5c 5c 2a |r-name 0| "\\`\\*|
|00001890| 2e 2a 22 20 67 65 74 2d | 62 75 66 66 65 72 2d 77 |.*" get-|buffer-w|
|000018a0| 69 6e 64 6f 77 20 63 61 | 6c 63 2d 66 69 6e 64 2d |indow ca|lc-find-|
|000018b0| 77 72 69 74 61 62 6c 65 | 2d 62 75 66 66 65 72 5d |writable|-buffer]|
|000018c0| 20 38 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 8))..(d|efun cal|
|000018d0| 63 2d 65 64 69 74 20 28 | 6e 29 20 28 69 6e 74 65 |c-edit (|n) (inte|
|000018e0| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 62 79 |ractive |"p") (by|
|000018f0| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 c3 5c 22 |te-code |".....\"|
|00001900| 88 c4 20 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.. ." [n|il calc-|
|00001910| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00001920| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 c7 3d 85 0a |byte-cod|e "..=..|
|00001930| 00 c8 20 89 10 88 c2 19 | 08 c9 56 1b 0e 06 1d ca |.. .....|..V.....|
|00001940| 08 c9 56 83 1f 00 cb 82 | 20 00 cc 08 c7 56 83 2c |..V.....| ....V.,|
|00001950| 00 cd 08 21 82 31 00 cd | c9 08 5b 5c 22 5c 22 29 |...!.1..|..[\"\")|
|00001960| 1c ce cf 09 86 3b 00 08 | 44 0b 5c 22 88 0c 85 51 |.....;..|D.\"...Q|
|00001970| 00 d0 0c 40 d1 5c 22 88 | 0c 41 89 14 88 82 3f 00 |...@.\".|.A....?.|
|00001980| 2b 87 22 20 5b 6e 20 66 | 6c 61 67 20 6e 69 6c 20 |+." [n f|lag nil |
|00001990| 61 6c 6c 6f 77 2d 72 65 | 74 20 6c 69 73 74 20 63 |allow-re|t list c|
|000019a0| 61 6c 63 2d 66 6c 6f 61 | 74 2d 66 6f 72 6d 61 74 |alc-floa|t-format|
|000019b0| 20 63 61 6c 63 2d 66 75 | 6c 6c 2d 66 6c 6f 61 74 | calc-fu|ll-float|
|000019c0| 2d 66 6f 72 6d 61 74 20 | 30 20 63 61 6c 63 2d 73 |-format |0 calc-s|
|000019d0| 74 61 63 6b 2d 73 69 7a | 65 20 31 20 6d 61 70 63 |tack-siz|e 1 mapc|
|000019e0| 61 72 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 |ar (lamb|da (x) (|
|000019f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 c2 5c 22 |byte-cod|e "...\"|
|00001a00| 87 22 20 5b 78 20 6d 61 | 74 68 2d 66 6f 72 6d 61 |." [x ma|th-forma|
|00001a10| 74 2d 66 6c 61 74 2d 65 | 78 70 72 20 30 5d 20 33 |t-flat-e|xpr 0] 3|
|00001a20| 29 29 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 |)) (lamb|da (x) (|
|00001a30| 62 79 74 65 2d 63 6f 64 | 65 20 22 c3 08 21 85 09 |byte-cod|e "..!..|
|00001a40| 00 c2 89 11 88 c4 08 c5 | 20 5c 22 87 22 20 5b 78 |........| \"." [x|
|00001a50| 20 61 6c 6c 6f 77 2d 72 | 65 74 20 74 20 6d 61 74 | allow-r|et t mat|
|00001a60| 68 2d 76 65 63 74 6f 72 | 70 20 6d 61 74 68 2d 66 |h-vector|p math-f|
|00001a70| 6f 72 6d 61 74 2d 6e 69 | 63 65 2d 65 78 70 72 20 |ormat-ni|ce-expr |
|00001a80| 73 63 72 65 65 6e 2d 77 | 69 64 74 68 5d 20 35 29 |screen-w|idth] 5)|
|00001a90| 29 20 63 61 6c 63 2d 74 | 6f 70 2d 6c 69 73 74 20 |) calc-t|op-list |
|00001aa0| 63 61 6c 63 2d 65 64 69 | 74 2d 6d 6f 64 65 20 63 |calc-edi|t-mode c|
|00001ab0| 61 6c 63 2d 66 69 6e 69 | 73 68 2d 73 74 61 63 6b |alc-fini|sh-stack|
|00001ac0| 2d 65 64 69 74 20 69 6e | 73 65 72 74 20 22 0a 22 |-edit in|sert "."|
|00001ad0| 5d 20 39 29 29 20 36 33 | 36 39 20 63 61 6c 63 2d |] 9)) 63|69 calc-|
|00001ae0| 73 68 6f 77 2d 65 64 69 | 74 2d 62 75 66 66 65 72 |show-edi|t-buffer|
|00001af0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|00001b00| 6c 63 2d 61 6c 67 2d 65 | 64 69 74 20 28 73 74 72 |lc-alg-e|dit (str|
|00001b10| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 c2 |) (byte-|code "..|
|00001b20| 21 88 c3 20 88 c4 08 c5 | 5c 22 88 c6 c7 21 88 c8 |!.. ....|\"...!..|
|00001b30| c9 21 87 22 20 5b 73 74 | 72 20 63 61 6c 63 2d 65 |.!." [st|r calc-e|
|00001b40| 64 69 74 2d 6d 6f 64 65 | 20 28 63 61 6c 63 2d 66 |dit-mode| (calc-f|
|00001b50| 69 6e 69 73 68 2d 73 74 | 61 63 6b 2d 65 64 69 74 |inish-st|ack-edit|
|00001b60| 20 30 29 20 63 61 6c 63 | 2d 73 68 6f 77 2d 65 64 | 0) calc|-show-ed|
|00001b70| 69 74 2d 62 75 66 66 65 | 72 20 69 6e 73 65 72 74 |it-buffe|r insert|
|00001b80| 20 22 0a 22 20 62 61 63 | 6b 77 61 72 64 2d 63 68 | "." bac|kward-ch|
|00001b90| 61 72 20 31 20 63 61 6c | 63 2d 73 65 74 2d 63 6f |ar 1 cal|c-set-co|
|00001ba0| 6d 6d 61 6e 64 2d 66 6c | 61 67 20 64 6f 2d 65 64 |mmand-fl|ag do-ed|
|00001bb0| 69 74 5d 20 36 29 29 0a | 0a 28 64 65 66 76 61 72 |it] 6)).|.(defvar|
|00001bc0| 20 63 61 6c 63 2d 65 64 | 69 74 2d 6d 6f 64 65 2d | calc-ed|it-mode-|
|00001bd0| 6d 61 70 20 6e 69 6c 20 | 22 5c 0a 4b 65 79 6d 61 |map nil |"\.Keyma|
|00001be0| 70 20 66 6f 72 20 75 73 | 65 20 62 79 20 74 68 65 |p for us|e by the|
|00001bf0| 20 63 61 6c 63 2d 65 64 | 69 74 20 63 6f 6d 6d 61 | calc-ed|it comma|
|00001c00| 6e 64 2e 22 29 0a 0a 28 | 69 66 20 63 61 6c 63 2d |nd.")..(|if calc-|
|00001c10| 65 64 69 74 2d 6d 6f 64 | 65 2d 6d 61 70 20 6e 69 |edit-mod|e-map ni|
|00001c20| 6c 20 28 73 65 74 71 20 | 63 61 6c 63 2d 65 64 69 |l (setq |calc-edi|
|00001c30| 74 2d 6d 6f 64 65 2d 6d | 61 70 20 28 6d 61 6b 65 |t-mode-m|ap (make|
|00001c40| 2d 73 70 61 72 73 65 2d | 6b 65 79 6d 61 70 29 29 |-sparse-|keymap))|
|00001c50| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 61 6c | (define|-key cal|
|00001c60| 63 2d 65 64 69 74 2d 6d | 6f 64 65 2d 6d 61 70 20 |c-edit-m|ode-map |
|00001c70| 22 0a 22 20 28 71 75 6f | 74 65 20 63 61 6c 63 2d |"." (quo|te calc-|
|00001c80| 65 64 69 74 2d 66 69 6e | 69 73 68 29 29 20 28 64 |edit-fin|ish)) (d|
|00001c90| 65 66 69 6e 65 2d 6b 65 | 79 20 63 61 6c 63 2d 65 |efine-ke|y calc-e|
|00001ca0| 64 69 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 0d 22 |dit-mode|-map "."|
|00001cb0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 2d 65 64 69 | (quote |calc-edi|
|00001cc0| 74 2d 72 65 74 75 72 6e | 29 29 20 28 64 65 66 69 |t-return|)) (defi|
|00001cd0| 6e 65 2d 6b 65 79 20 63 | 61 6c 63 2d 65 64 69 74 |ne-key c|alc-edit|
|00001ce0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 03 03 22 20 28 |-mode-ma|p ".." (|
|00001cf0| 71 75 6f 74 65 20 63 61 | 6c 63 2d 65 64 69 74 2d |quote ca|lc-edit-|
|00001d00| 66 69 6e 69 73 68 29 29 | 29 0a 0a 28 64 65 66 75 |finish))|)..(defu|
|00001d10| 6e 20 63 61 6c 63 2d 65 | 64 69 74 2d 6d 6f 64 65 |n calc-e|dit-mode|
|00001d20| 20 28 26 6f 70 74 69 6f | 6e 61 6c 20 68 61 6e 64 | (&optio|nal hand|
|00001d30| 6c 65 72 20 61 6c 6c 6f | 77 2d 72 65 74 20 74 69 |ler allo|w-ret ti|
|00001d40| 74 6c 65 29 20 22 5c 0a | 43 61 6c 63 75 6c 61 74 |tle) "\.|Calculat|
|00001d50| 6f 72 20 65 64 69 74 69 | 6e 67 20 6d 6f 64 65 2e |or editi|ng mode.|
|00001d60| 20 20 50 72 65 73 73 20 | 52 45 54 2c 20 4c 46 44 |  Press |RET, LFD|
|00001d70| 2c 20 6f 72 20 43 2d 63 | 20 43 2d 63 20 74 6f 20 |, or C-c| C-c to |
|00001d80| 66 69 6e 69 73 68 2e 0a | 54 6f 20 63 61 6e 63 65 |finish..|To cance|
|00001d90| 6c 20 74 68 65 20 65 64 | 69 74 2c 20 73 69 6d 70 |l the ed|it, simp|
|00001da0| 6c 79 20 6b 69 6c 6c 20 | 74 68 65 20 2a 43 61 6c |ly kill |the *Cal|
|00001db0| 63 20 45 64 69 74 2a 20 | 62 75 66 66 65 72 2e 22 |c Edit* |buffer."|
|00001dc0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00001dd0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c5 88 08 86 09 |byte-cod|e ".....|
|00001de0| 00 d3 d4 21 88 70 d5 d6 | 21 1a 19 0a 71 88 d7 20 |...!.p..|!...q.. |
|00001df0| 88 d8 0b 21 88 c5 89 14 | 88 c5 89 16 06 88 d9 89 |...!....|........|
|00001e00| 16 07 88 da 89 16 08 88 | db dc 21 88 dd c9 21 88 |........|..!...!.|
|00001e10| 09 89 16 09 88 dd ca 21 | 88 09 89 16 0a 88 dd cb |.......!|........|
|00001e20| 21 88 de cc 21 85 4f 00 | 0e 0d 89 16 0b 88 dd ce |!...!.O.|........|
|00001e30| 21 88 08 89 16 0e 88 dd | cf 21 88 df e0 20 21 89 |!.......|.!... !.|
|00001e40| 16 0f 88 dd d0 21 88 0e | 11 89 16 10 88 e1 20 88 |.....!..|...... .|
|00001e50| e2 0e 12 86 81 00 0e 12 | 86 81 00 e3 e4 e5 e6 20 |........|....... |
|00001e60| e7 5c 22 e8 3d 83 90 00 | e9 82 9a 00 0e 11 83 99 |.\".=...|........|
|00001e70| 00 ea 82 9a 00 eb ec e5 | e6 20 e7 5c 22 e8 3d 83 |........|. .\".=.|
|00001e80| a9 00 ed 82 aa 00 ee ef | 26 06 2a 87 22 20 5b 68 |........|&.*." [h|
|00001e90| 61 6e 64 6c 65 72 20 6f | 6c 64 62 75 66 20 62 75 |andler o|ldbuf bu|
|00001ea0| 66 20 63 61 6c 63 2d 65 | 64 69 74 2d 6d 6f 64 65 |f calc-e|dit-mode|
|00001eb0| 2d 6d 61 70 20 62 75 66 | 66 65 72 2d 72 65 61 64 |-map buf|fer-read|
|00001ec0| 2d 6f 6e 6c 79 20 6e 69 | 6c 20 74 72 75 6e 63 61 |-only ni|l trunca|
|00001ed0| 74 65 2d 6c 69 6e 65 73 | 20 6d 61 6a 6f 72 2d 6d |te-lines| major-m|
|00001ee0| 6f 64 65 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 63 61 |ode mode|-name ca|
|00001ef0| 6c 63 2d 6f 72 69 67 69 | 6e 61 6c 2d 62 75 66 66 |lc-origi|nal-buff|
|00001f00| 65 72 20 63 61 6c 63 2d | 72 65 74 75 72 6e 2d 62 |er calc-|return-b|
|00001f10| 75 66 66 65 72 20 63 61 | 6c 63 2d 6f 6e 65 2d 77 |uffer ca|lc-one-w|
|00001f20| 69 6e 64 6f 77 20 74 20 | 70 6f 70 2d 75 70 2d 77 |indow t |pop-up-w|
|00001f30| 69 6e 64 6f 77 73 20 63 | 61 6c 63 2d 65 64 69 74 |indows c|alc-edit|
|00001f40| 2d 68 61 6e 64 6c 65 72 | 20 63 61 6c 63 2d 72 65 |-handler| calc-re|
|00001f50| 73 74 6f 72 65 2d 74 72 | 61 69 6c 20 63 61 6c 63 |store-tr|ail calc|
|00001f60| 2d 61 6c 6c 6f 77 2d 72 | 65 74 20 61 6c 6c 6f 77 |-allow-r|et allow|
|00001f70| 2d 72 65 74 20 74 69 74 | 6c 65 20 65 72 72 6f 72 |-ret tit|le error|
|00001f80| 20 22 54 68 69 73 20 63 | 6f 6d 6d 61 6e 64 20 63 | "This c|ommand c|
|00001f90| 61 6e 20 62 65 20 75 73 | 65 64 20 6f 6e 6c 79 20 |an be us|ed only |
|00001fa0| 69 6e 64 69 72 65 63 74 | 6c 79 20 74 68 72 6f 75 |indirect|ly throu|
|00001fb0| 67 68 20 63 61 6c 63 2d | 65 64 69 74 2e 22 20 67 |gh calc-|edit." g|
|00001fc0| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00001fd0| 20 22 2a 43 61 6c 63 20 | 45 64 69 74 2a 22 20 6b | "*Calc |Edit*" k|
|00001fe0| 69 6c 6c 2d 61 6c 6c 2d | 6c 6f 63 61 6c 2d 76 61 |ill-all-|local-va|
|00001ff0| 72 69 61 62 6c 65 73 20 | 75 73 65 2d 6c 6f 63 61 |riables |use-loca|
|00002000| 6c 2d 6d 61 70 20 63 61 | 6c 63 2d 65 64 69 74 2d |l-map ca|lc-edit-|
|00002010| 6d 6f 64 65 20 22 43 61 | 6c 63 20 45 64 69 74 22 |mode "Ca|lc Edit"|
|00002020| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 63 61 6c 63 2d | run-hoo|ks calc-|
|00002030| 65 64 69 74 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 6d |edit-mod|e-hook m|
|00002040| 61 6b 65 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |ake-loca|l-variab|
|00002050| 6c 65 20 6f 6e 65 2d 77 | 69 6e 64 6f 77 2d 70 20 |le one-w|indow-p |
|00002060| 67 65 74 2d 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |get-buff|er-windo|
|00002070| 77 20 63 61 6c 63 2d 74 | 72 61 69 6c 2d 62 75 66 |w calc-t|rail-buf|
|00002080| 66 65 72 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |fer eras|e-buffer|
|00002090| 20 69 6e 73 65 72 74 20 | 22 43 61 6c 63 20 45 64 | insert |"Calc Ed|
|000020a0| 69 74 20 4d 6f 64 65 22 | 20 22 2e 20 20 50 72 65 |it Mode"| ".  Pre|
|000020b0| 73 73 20 22 20 6c 6f 6f | 6b 75 70 2d 6b 65 79 20 |ss " loo|kup-key |
|000020c0| 63 75 72 72 65 6e 74 2d | 67 6c 6f 62 61 6c 2d 6d |current-|global-m|
|000020d0| 61 70 20 22 1b 23 22 20 | 63 61 6c 63 2d 64 69 73 |ap ".#" |calc-dis|
|000020e0| 70 61 74 63 68 20 22 4d | 2d 23 20 4d 2d 23 20 6f |patch "M|-# M-# o|
|000020f0| 72 20 43 2d 63 20 43 2d | 63 22 20 22 43 2d 63 20 |r C-c C-|c" "C-c |
|00002100| 43 2d 63 22 20 22 52 45 | 54 22 20 22 20 74 6f 20 |C-c" "RE|T" " to |
|00002110| 66 69 6e 69 73 68 2c 20 | 22 20 22 4d 2d 23 20 78 |finish, |" "M-# x|
|00002120| 22 20 22 43 2d 78 20 6b | 20 52 45 54 22 20 22 20 |" "C-x k| RET" " |
|00002130| 74 6f 20 63 61 6e 63 65 | 6c 2e 0a 22 5d 20 32 36 |to cance|l.."] 26|
|00002140| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|00002150| 63 61 6c 63 2d 65 64 69 | 74 2d 6d 6f 64 65 29 20 |calc-edi|t-mode) |
|00002160| 28 71 75 6f 74 65 20 6d | 6f 64 65 2d 63 6c 61 73 |(quote m|ode-clas|
|00002170| 73 29 20 28 71 75 6f 74 | 65 20 73 70 65 63 69 61 |s) (quot|e specia|
|00002180| 6c 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |l))..(de|fun calc|
|00002190| 2d 73 68 6f 77 2d 65 64 | 69 74 2d 62 75 66 66 65 |-show-ed|it-buffe|
|000021a0| 72 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |r nil (b|yte-code|
|000021b0| 20 22 70 18 c8 c1 21 85 | 09 00 0a 83 14 00 c9 ca | "p...!.|........|
|000021c0| cb 21 21 82 2d 00 0b 85 | 27 00 cc 0b cd 48 21 85 |.!!.-...|'....H!.|
|000021d0| 27 00 ce cc 0b cd 48 21 | 21 88 cf ca cb 21 21 88 |'.....H!|!....!!.|
|000021e0| 08 89 14 88 d0 20 d1 20 | 57 85 3b 00 0d 85 4e 00 |..... . |W.;...N.|
|000021f0| cc d2 20 21 1e 06 0e 06 | 85 4d 00 d3 0e 06 21 29 |.. !....|.M....!)|
|00002200| 88 d4 c7 21 88 65 62 88 | d5 cd 21 29 87 22 20 5b |...!.eb.|..!)." [|
|00002210| 62 75 66 20 74 20 70 6f | 70 2d 75 70 2d 77 69 6e |buf t po|p-up-win|
|00002220| 64 6f 77 73 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |dows cal|c-embedd|
|00002230| 65 64 2d 69 6e 66 6f 20 | 63 61 6c 63 2d 72 65 74 |ed-info |calc-ret|
|00002240| 75 72 6e 2d 62 75 66 66 | 65 72 20 63 61 6c 63 2d |urn-buff|er calc-|
|00002250| 64 69 73 70 6c 61 79 2d | 74 72 61 69 6c 20 77 69 |display-|trail wi|
|00002260| 6e 20 6e 69 6c 20 6f 6e | 65 2d 77 69 6e 64 6f 77 |n nil on|e-window|
|00002270| 2d 70 20 70 6f 70 2d 74 | 6f 2d 62 75 66 66 65 72 |-p pop-t|o-buffer|
|00002280| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 | get-buf|fer-crea|
|00002290| 74 65 20 22 2a 43 61 6c | 63 20 45 64 69 74 2a 22 |te "*Cal|c Edit*"|
|000022a0| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 77 69 6e 64 | get-buf|fer-wind|
|000022b0| 6f 77 20 31 20 73 65 6c | 65 63 74 2d 77 69 6e 64 |ow 1 sel|ect-wind|
|000022c0| 6f 77 20 73 77 69 74 63 | 68 2d 74 6f 2d 62 75 66 |ow switc|h-to-buf|
|000022d0| 66 65 72 20 77 69 6e 64 | 6f 77 2d 77 69 64 74 68 |fer wind|ow-width|
|000022e0| 20 73 63 72 65 65 6e 2d | 77 69 64 74 68 20 63 61 | screen-|width ca|
|000022f0| 6c 63 2d 74 72 61 69 6c | 2d 62 75 66 66 65 72 20 |lc-trail|-buffer |
|00002300| 64 65 6c 65 74 65 2d 77 | 69 6e 64 6f 77 20 73 65 |delete-w|indow se|
|00002310| 74 2d 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |t-buffer|-modifie|
|00002320| 64 2d 70 20 66 6f 72 77 | 61 72 64 2d 6c 69 6e 65 |d-p forw|ard-line|
|00002330| 5d 20 31 36 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |] 16))..|(defun c|
|00002340| 61 6c 63 2d 65 64 69 74 | 2d 72 65 74 75 72 6e 20 |alc-edit|-return |
|00002350| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|00002360| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00002370| c2 c0 21 85 09 00 08 83 | 11 00 c3 20 82 13 00 c4 |..!.....|... ....|
|00002380| 20 87 22 20 5b 63 61 6c | 63 2d 61 6c 6c 6f 77 2d | ." [cal|c-allow-|
|00002390| 72 65 74 20 6e 69 6c 20 | 62 6f 75 6e 64 70 20 6e |ret nil |boundp n|
|000023a0| 65 77 6c 69 6e 65 20 63 | 61 6c 63 2d 65 64 69 74 |ewline c|alc-edit|
|000023b0| 2d 66 69 6e 69 73 68 5d | 20 34 29 29 0a 0a 28 64 |-finish]| 4))..(d|
|000023c0| 65 66 75 6e 20 63 61 6c | 63 2d 65 64 69 74 2d 66 |efun cal|c-edit-f|
|000023d0| 69 6e 69 73 68 20 28 26 | 6f 70 74 69 6f 6e 61 6c |inish (&|optional|
|000023e0| 20 6b 65 65 70 29 20 22 | 5c 0a 46 69 6e 69 73 68 | keep) "|\.Finish|
|000023f0| 20 63 61 6c 63 2d 65 64 | 69 74 20 6d 6f 64 65 2e | calc-ed|it mode.|
|00002400| 20 20 50 61 72 73 65 20 | 62 75 66 66 65 72 20 63 |  Parse |buffer c|
|00002410| 6f 6e 74 65 6e 74 73 20 | 61 6e 64 20 70 75 73 68 |ontents |and push|
|00002420| 20 74 68 65 6d 20 6f 6e | 20 74 68 65 20 73 74 61 | them on| the sta|
|00002430| 63 6b 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |ck." (in|teractiv|
|00002440| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|00002450| 65 20 22 cc 88 cd ce 21 | 88 cf c3 21 85 27 00 cf |e "....!|...!.'..|
|00002460| c5 21 85 27 00 cf c7 21 | 85 27 00 cf ca 21 85 27 |.!.'...!|.'...!.'|
|00002470| 00 cf c9 21 85 27 00 08 | d0 3d 86 2d 00 d1 d2 21 |...!.'..|.=.-...!|
|00002480| 88 70 0b 0d 0e 07 0e 09 | 1e 08 1e 06 1c 1a 19 8a |.p......|........|
|00002490| d3 0a 21 3f 86 4b 00 0a | 71 88 08 d4 3d 3f 85 51 |..!?.K..|q...=?.Q|
|000024a0| 00 d1 d5 21 29 88 65 62 | 88 d6 d7 21 85 5f 00 d8 |...!).eb|...!._..|
|000024b0| d9 21 88 da 20 85 69 00 | db 0e 0a 21 88 0e 06 85 |.!.. .i.|...!....|
|000024c0| 71 00 dc 20 88 dd 0c 21 | 83 80 00 de dd 0c 21 21 |q.. ...!|......!!|
|000024d0| 82 83 00 df 0c 21 88 0e | 0b 83 8f 00 e0 09 21 82 |.....!..|......!.|
|000024e0| 92 00 e1 09 21 88 0e 08 | 85 9b 00 e2 e3 21 88 cd |....!...|.....!..|
|000024f0| e4 21 2d 87 22 20 5b 6d | 61 6a 6f 72 2d 6d 6f 64 |.!-." [m|ajor-mod|
|00002500| 65 20 62 75 66 20 6f 72 | 69 67 69 6e 61 6c 20 63 |e buf or|iginal c|
|00002510| 61 6c 63 2d 6f 72 69 67 | 69 6e 61 6c 2d 62 75 66 |alc-orig|inal-buf|
|00002520| 66 65 72 20 72 65 74 75 | 72 6e 20 63 61 6c 63 2d |fer retu|rn calc-|
|00002530| 72 65 74 75 72 6e 2d 62 | 75 66 66 65 72 20 6f 6e |return-b|uffer on|
|00002540| 65 2d 77 69 6e 64 6f 77 | 20 63 61 6c 63 2d 6f 6e |e-window| calc-on|
|00002550| 65 2d 77 69 6e 64 6f 77 | 20 64 69 73 70 2d 74 72 |e-window| disp-tr|
|00002560| 61 69 6c 20 63 61 6c 63 | 2d 72 65 73 74 6f 72 65 |ail calc|-restore|
|00002570| 2d 74 72 61 69 6c 20 63 | 61 6c 63 2d 65 64 69 74 |-trail c|alc-edit|
|00002580| 2d 68 61 6e 64 6c 65 72 | 20 6b 65 65 70 20 6e 69 |-handler| keep ni|
|00002590| 6c 20 6d 65 73 73 61 67 | 65 20 22 57 6f 72 6b 69 |l messag|e "Worki|
|000025a0| 6e 67 2e 2e 2e 22 20 62 | 6f 75 6e 64 70 20 63 61 |ng..." b|oundp ca|
|000025b0| 6c 63 2d 65 64 69 74 2d | 6d 6f 64 65 20 65 72 72 |lc-edit-|mode err|
|000025c0| 6f 72 20 22 54 68 69 73 | 20 63 6f 6d 6d 61 6e 64 |or "This| command|
|000025d0| 20 69 73 20 76 61 6c 69 | 64 20 6f 6e 6c 79 20 69 | is vali|d only i|
|000025e0| 6e 20 62 75 66 66 65 72 | 73 20 63 72 65 61 74 65 |n buffer|s create|
|000025f0| 64 20 62 79 20 63 61 6c | 63 2d 65 64 69 74 2e 22 |d by cal|c-edit."|
|00002600| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 63 61 6c | buffer-|name cal|
|00002610| 63 2d 6d 6f 64 65 20 22 | 4f 72 69 67 69 6e 61 6c |c-mode "|Original|
|00002620| 20 63 61 6c 63 75 6c 61 | 74 6f 72 20 62 75 66 66 | calcula|tor buff|
|00002630| 65 72 20 68 61 73 20 62 | 65 65 6e 20 63 6f 72 72 |er has b|een corr|
|00002640| 75 70 74 65 64 2e 22 20 | 6c 6f 6f 6b 69 6e 67 2d |upted." |looking-|
|00002650| 61 74 20 22 43 61 6c 63 | 20 45 64 69 74 5c 5c 7c |at "Calc| Edit\\||
|00002660| 45 64 69 74 69 6e 67 20 | 22 20 66 6f 72 77 61 72 |Editing |" forwar|
|00002670| 64 2d 6c 69 6e 65 20 31 | 20 62 75 66 66 65 72 2d |d-line 1| buffer-|
|00002680| 6d 6f 64 69 66 69 65 64 | 2d 70 20 65 76 61 6c 20 |modified|-p eval |
|00002690| 64 65 6c 65 74 65 2d 77 | 69 6e 64 6f 77 20 67 65 |delete-w|indow ge|
|000026a0| 74 2d 62 75 66 66 65 72 | 2d 77 69 6e 64 6f 77 20 |t-buffer|-window |
|000026b0| 73 65 6c 65 63 74 2d 77 | 69 6e 64 6f 77 20 73 77 |select-w|indow sw|
|000026c0| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 20 62 |itch-to-|buffer b|
|000026d0| 75 72 79 2d 62 75 66 66 | 65 72 20 6b 69 6c 6c 2d |ury-buff|er kill-|
|000026e0| 62 75 66 66 65 72 20 63 | 61 6c 63 2d 64 6f 20 28 |buffer c|alc-do (|
|000026f0| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 62 79 74 65 |lambda n|il (byte|
|00002700| 2d 63 6f 64 65 20 22 c1 | c2 c0 5c 22 87 22 20 5b |-code ".|..\"." [|
|00002710| 74 20 63 61 6c 63 2d 74 | 72 61 69 6c 2d 64 69 73 |t calc-t|rail-dis|
|00002720| 70 6c 61 79 20 31 5d 20 | 33 29 29 20 22 22 5d 20 |play 1] |3)) ""] |
|00002730| 32 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |23))..(d|efun cal|
|00002740| 63 2d 65 64 69 74 2d 63 | 61 6e 63 65 6c 20 6e 69 |c-edit-c|ancel ni|
|00002750| 6c 20 22 5c 0a 43 61 6e | 63 65 6c 20 63 61 6c 63 |l "\.Can|cel calc|
|00002760| 2d 65 64 69 74 20 6d 6f | 64 65 2e 20 20 49 67 6e |-edit mo|de.  Ign|
|00002770| 6f 72 65 20 74 68 65 20 | 43 61 6c 63 20 45 64 69 |ore the |Calc Edi|
|00002780| 74 20 62 75 66 66 65 72 | 20 61 6e 64 20 64 6f 6e |t buffer| and don|
|00002790| 27 74 20 63 68 61 6e 67 | 65 20 73 74 61 63 6b 2e |'t chang|e stack.|
|000027a0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |" (inter|active) |
|000027b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c1 18 |(byte-co|de "....|
|000027c0| c2 20 29 88 c3 c4 21 87 | 22 20 5b 63 61 6c 63 2d |. )...!.|" [calc-|
|000027d0| 65 64 69 74 2d 68 61 6e | 64 6c 65 72 20 6e 69 6c |edit-han|dler nil|
|000027e0| 20 63 61 6c 63 2d 65 64 | 69 74 2d 66 69 6e 69 73 | calc-ed|it-finis|
|000027f0| 68 20 6d 65 73 73 61 67 | 65 20 22 28 43 61 6e 63 |h messag|e "(Canc|
|00002800| 65 6c 6c 65 64 29 22 5d | 20 33 29 29 0a 0a 28 64 |elled)"]| 3))..(d|
|00002810| 65 66 75 6e 20 63 61 6c | 63 2d 66 69 6e 69 73 68 |efun cal|c-finish|
|00002820| 2d 73 74 61 63 6b 2d 65 | 64 69 74 20 28 6e 75 6d |-stack-e|dit (num|
|00002830| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 70 cb |) (byte-|code "p.|
|00002840| 60 64 5c 22 60 c8 1b 1a | 19 18 cc 0c 21 85 14 00 |`d\"`...|....!...|
|00002850| 0c cd 56 85 28 00 ce cf | 09 5c 22 89 13 85 28 00 |..V.(...|.\"...(.|
|00002860| 09 0b d0 49 88 82 17 00 | 88 d1 0d 21 88 c8 0e 0a |...I....|...!....|
|00002870| 1e 09 1e 07 ce d2 09 5c | 22 85 3e 00 d3 09 21 2a |.......\|".>...!*|
|00002880| 1e 06 d4 0e 06 21 d5 3d | 85 5c 5c 00 d1 08 21 88 |.....!.=|.\\...!.|
|00002890| 0a cd 0e 06 38 5c 5c 62 | 88 d5 d6 0e 06 38 21 88 |....8\\b|.....8!.|
|000028a0| d7 d8 21 29 2c 87 22 20 | 5b 62 75 66 20 73 74 72 |..!),." |[buf str|
|000028b0| 20 73 74 61 72 74 20 70 | 6f 73 20 6e 75 6d 20 63 | start p|os num c|
|000028c0| 61 6c 63 2d 6f 72 69 67 | 69 6e 61 6c 2d 62 75 66 |alc-orig|inal-buf|
|000028d0| 66 65 72 20 76 61 6c 73 | 20 63 61 6c 63 2d 6c 61 |fer vals| calc-la|
|000028e0| 6e 67 75 61 67 65 20 6e | 69 6c 20 6d 61 74 68 2d |nguage n|il math-|
|000028f0| 65 78 70 72 2d 6f 70 65 | 72 73 20 6d 61 74 68 2d |expr-ope|rs math-|
|00002900| 73 74 61 6e 64 61 72 64 | 2d 6f 70 65 72 73 20 62 |standard|-opers b|
|00002910| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00002920| 69 6e 74 65 67 65 72 70 | 20 31 20 73 74 72 69 6e |integerp| 1 strin|
|00002930| 67 2d 6d 61 74 63 68 20 | 22 0a 2e 22 20 34 34 20 |g-match |".." 44 |
|00002940| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|00002950| 20 22 5b 5e 0a 09 20 5d | 22 20 6d 61 74 68 2d 72 | "[^.. ]|" math-r|
|00002960| 65 61 64 2d 65 78 70 72 | 73 20 63 61 72 2d 73 61 |ead-expr|s car-sa|
|00002970| 66 65 20 65 72 72 6f 72 | 20 32 20 63 61 6c 63 2d |fe error| 2 calc-|
|00002980| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00002990| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 39 83 10 00 |byte-cod|e ".9...|
|000029a0| 08 09 40 4c 88 c6 08 21 | 82 3f 00 0a 85 18 00 c7 |..@L...!|.?......|
|000029b0| c8 c3 5c 22 88 09 85 3f | 00 0d c9 3d 83 27 00 ca |..\"...?|...=.'..|
|000029c0| 82 28 00 0c 1c 08 cb 59 | 83 37 00 cc 08 cd 09 23 |.(.....Y|.7.....#|
|000029d0| 82 3e 00 cc c8 cd 09 08 | 5b 24 29 87 22 20 5b 6e |.>......|[$)." [n|
|000029e0| 75 6d 20 76 61 6c 73 20 | 64 69 73 70 2d 74 72 61 |um vals |disp-tra|
|000029f0| 69 6c 20 74 20 63 61 6c | 63 2d 73 69 6d 70 6c 69 |il t cal|c-simpli|
|00002a00| 66 79 2d 6d 6f 64 65 20 | 6c 61 73 74 2d 63 6f 6d |fy-mode |last-com|
|00002a10| 6d 61 6e 64 2d 63 68 61 | 72 20 63 61 6c 63 2d 72 |mand-cha|r calc-r|
|00002a20| 65 66 72 65 73 68 2d 65 | 76 61 6c 74 6f 73 20 63 |efresh-e|valtos c|
|00002a30| 61 6c 63 2d 74 72 61 69 | 6c 2d 64 69 73 70 6c 61 |alc-trai|l-displa|
|00002a40| 79 20 31 20 31 30 20 6e | 6f 6e 65 20 30 20 63 61 |y 1 10 n|one 0 ca|
|00002a50| 6c 63 2d 65 6e 74 65 72 | 2d 72 65 73 75 6c 74 20 |lc-enter|-result |
|00002a60| 22 65 64 69 74 22 5d 20 | 38 29 29 5d 20 31 31 29 |"edit"] |8))] 11)|
|00002a70| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+