/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / e1858src.lha / emacs-18.58 / lisp / makesum.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 6d 61 6b 65 2d 63 6f 6d |.(defun |make-com|
|00000010| 6d 61 6e 64 2d 73 75 6d | 6d 61 72 79 20 6e 69 6c |mand-sum|mary nil|
|00000020| 20 22 5c 0a 4d 61 6b 65 | 20 61 20 73 75 6d 6d 61 | "\.Make| a summa|
|00000030| 72 79 20 6f 66 20 63 75 | 72 72 65 6e 74 20 6b 65 |ry of cu|rrent ke|
|00000040| 79 20 62 69 6e 64 69 6e | 67 73 20 69 6e 20 74 68 |y bindin|gs in th|
|00000050| 65 20 62 75 66 66 65 72 | 20 2a 53 75 6d 6d 61 72 |e buffer| *Summar|
|00000060| 79 2a 2e 0a 50 72 65 76 | 69 6f 75 73 20 63 6f 6e |y*..Prev|ious con|
|00000070| 74 65 6e 74 73 20 6f 66 | 20 74 68 61 74 20 62 75 |tents of| that bu|
|00000080| 66 66 65 72 20 61 72 65 | 20 6b 69 6c 6c 65 64 20 |ffer are| killed |
|00000090| 66 69 72 73 74 2e 22 20 | 28 69 6e 74 65 72 61 63 |first." |(interac|
|000000a0| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|000000b0| 20 22 c3 88 c6 c7 21 88 | c8 8b 88 c9 90 8a 09 18 | "....!.|........|
|000000c0| 0a 71 88 ca 20 88 cb cc | 21 88 65 62 88 cd 60 ce |.q.. ...|!.eb..`.|
|000000d0| cf 21 88 60 5c 22 88 d0 | d1 c3 c4 23 85 33 00 d2 |.!.`\"..|...#.3..|
|000000e0| d3 21 88 82 24 00 88 65 | 62 88 d0 d4 c3 c4 23 85 |.!..$..e|b.....#.|
|000000f0| 46 00 d2 d5 21 88 82 37 | 00 88 65 62 88 d0 d6 c3 |F...!..7|..eb....|
|00000100| c4 23 85 59 00 d2 d7 21 | 88 82 4a 00 88 65 62 88 |.#.Y...!|..J..eb.|
|00000110| d0 d8 c3 c4 23 85 6c 00 | d2 d9 21 88 82 5d 00 88 |....#.l.|..!..]..|
|00000120| 65 62 88 d0 da c3 c4 23 | 85 7f 00 d2 db 21 88 82 |eb.....#|.....!..|
|00000130| 70 00 88 65 62 88 dc dd | c3 c4 23 83 ac 00 de df |p..eb...|..#.....|
|00000140| 21 88 e0 e1 08 e2 23 88 | d0 e3 c3 c4 23 85 a9 00 |!.....#.|....#...|
|00000150| cd 60 ce df 21 88 60 5c | 22 88 82 95 00 82 ad 00 |.`..!.`\|".......|
|00000160| c3 88 65 62 88 e0 e4 e5 | 20 e6 e7 4f e8 23 88 cd |..eb....| ..O.#..|
|00000170| 60 ce e9 21 88 60 5c 22 | 88 ce cf 21 88 6d 3f 85 |`..!.`\"|...!.m?.|
|00000180| e7 00 60 1d dc ea c3 c4 | 23 86 d9 00 64 62 88 eb |..`.....|#...db..|
|00000190| 0d 60 5c 22 88 ce cf 21 | 29 88 82 c8 00 88 65 62 |.`\"...!|).....eb|
|000001a0| 29 29 91 88 c6 ec 21 87 | 22 20 5b 63 75 72 2d 6d |))....!.|" [cur-m|
|000001b0| 6f 64 65 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 73 74 |ode mode|-name st|
|000001c0| 61 6e 64 61 72 64 2d 6f | 75 74 70 75 74 20 6e 69 |andard-o|utput ni|
|000001d0| 6c 20 74 20 62 65 67 20 | 6d 65 73 73 61 67 65 20 |l t beg |message |
|000001e0| 22 4d 61 6b 69 6e 67 20 | 63 6f 6d 6d 61 6e 64 20 |"Making |command |
|000001f0| 73 75 6d 6d 61 72 79 2e | 2e 2e 22 20 28 28 62 79 |summary.|.." ((by|
|00000200| 74 65 2d 63 6f 64 65 20 | 22 c0 20 87 22 20 5b 64 |te-code |". ." [d|
|00000210| 65 73 63 72 69 62 65 2d | 62 69 6e 64 69 6e 67 73 |escribe-|bindings|
|00000220| 5d 20 32 29 29 20 22 2a | 53 75 6d 6d 61 72 79 2a |] 2)) "*|Summary*|
|00000230| 22 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 69 |" erase-|buffer i|
|00000240| 6e 73 65 72 74 2d 62 75 | 66 66 65 72 2d 73 75 62 |nsert-bu|ffer-sub|
|00000250| 73 74 72 69 6e 67 20 22 | 2a 48 65 6c 70 2a 22 20 |string "|*Help*" |
|00000260| 64 65 6c 65 74 65 2d 72 | 65 67 69 6f 6e 20 66 6f |delete-r|egion fo|
|00000270| 72 77 61 72 64 2d 6c 69 | 6e 65 20 31 20 73 65 61 |rward-li|ne 1 sea|
|00000280| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 20 20 20 |rch-forw|ard "   |
|00000290| 20 20 20 20 20 20 22 20 | 72 65 70 6c 61 63 65 2d |      " |replace-|
|000002a0| 6d 61 74 63 68 20 22 20 | 20 22 20 22 2d 40 20 22 |match " | " "-@ "|
|000002b0| 20 22 2d 53 50 22 20 22 | 20 20 2e 2e 20 7e 20 22 | "-SP" "|  .. ~ "|
|000002c0| 20 22 53 50 20 2e 2e 20 | 7e 22 20 22 43 2d 3f 22 | "SP .. |~" "C-?"|
|000002d0| 20 22 44 45 4c 22 20 22 | 43 2d 69 22 20 22 54 41 | "DEL" "|C-i" "TA|
|000002e0| 42 22 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |B" re-se|arch-for|
|000002f0| 77 61 72 64 20 22 5e 4c | 6f 63 61 6c 20 42 69 6e |ward "^L|ocal Bin|
|00000300| 64 69 6e 67 73 3a 22 20 | 66 6f 72 77 61 72 64 2d |dings:" |forward-|
|00000310| 63 68 61 72 20 2d 31 20 | 69 6e 73 65 72 74 20 22 |char -1 |insert "|
|00000320| 20 66 6f 72 20 22 20 22 | 20 4d 6f 64 65 22 20 22 | for " "| Mode" "|
|00000330| 3f 3f 0a 22 20 22 45 6d | 61 63 73 20 63 6f 6d 6d |??." "Em|acs comm|
|00000340| 61 6e 64 20 73 75 6d 6d | 61 72 79 2c 20 22 20 63 |and summ|ary, " c|
|00000350| 75 72 72 65 6e 74 2d 74 | 69 6d 65 2d 73 74 72 69 |urrent-t|ime-stri|
|00000360| 6e 67 20 30 20 31 30 20 | 22 2e 0a 22 20 32 20 22 |ng 0 10 |".." 2 "|
|00000370| 5e 24 22 20 64 6f 75 62 | 6c 65 2d 63 6f 6c 75 6d |^$" doub|le-colum|
|00000380| 6e 20 22 4d 61 6b 69 6e | 67 20 63 6f 6d 6d 61 6e |n "Makin|g comman|
|00000390| 64 20 73 75 6d 6d 61 72 | 79 2e 2e 2e 64 6f 6e 65 |d summar|y...done|
|000003a0| 22 5d 20 33 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |"] 32)).|.(defun |
|000003b0| 64 6f 75 62 6c 65 2d 63 | 6f 6c 75 6d 6e 20 28 73 |double-c|olumn (s|
|000003c0| 74 61 72 74 20 65 6e 64 | 29 20 28 69 6e 74 65 72 |tart end|) (inter|
|000003d0| 61 63 74 69 76 65 20 22 | 72 22 29 20 28 62 79 74 |active "|r") (byt|
|000003e0| 65 2d 63 6f 64 65 20 22 | c8 88 c8 c8 c8 c8 c8 64 |e-code "|.......d|
|000003f0| 0e 06 5a 1d 1c 1b 1a 19 | 18 c9 0e 07 0e 06 5c 22 |..Z.....|......\"|
|00000400| 89 14 88 0c ca 58 83 24 | 00 c8 82 80 00 cb 0c 54 |.....X.$|.......T|
|00000410| cc 5c 22 89 10 88 0e 07 | 62 88 8a cd 08 21 88 08 |.\".....|b....!..|
|00000420| 0c 57 85 5e 00 08 54 89 | 10 88 ce 60 8a cf 20 88 |.W.^..T.|...`.. .|
|00000430| 60 29 5c 22 89 12 88 0a | 0b 42 89 13 88 d0 60 cd |`)\"....|.B....`.|
|00000440| ca 21 88 60 5c 22 88 82 | 35 00 29 88 d1 0b 21 89 |.!.`\"..|5.)...!.|
|00000450| 13 88 0b 85 80 00 cf 20 | 88 d2 6a 88 0b 40 63 88 |....... |..j..@c.|
|00000460| cd ca 21 88 0b 41 89 13 | 88 82 66 00 88 64 0d 5a |..!..A..|..f..d.Z|
|00000470| 62 2e 06 87 22 20 5b 68 | 61 6c 66 20 63 6e 74 20 |b..." [h|alf cnt |
|00000480| 6c 69 6e 65 20 6c 69 6e | 65 73 20 6e 6c 69 6e 65 |line lin|es nline|
|00000490| 73 20 66 72 6f 6d 2d 65 | 6e 64 20 65 6e 64 20 73 |s from-e|nd end s|
|000004a0| 74 61 72 74 20 6e 69 6c | 20 63 6f 75 6e 74 2d 6c |tart nil| count-l|
|000004b0| 69 6e 65 73 20 31 20 2f | 20 32 20 66 6f 72 77 61 |ines 1 /| 2 forwa|
|000004c0| 72 64 2d 6c 69 6e 65 20 | 62 75 66 66 65 72 2d 73 |rd-line |buffer-s|
|000004d0| 75 62 73 74 72 69 6e 67 | 20 65 6e 64 2d 6f 66 2d |ubstring| end-of-|
|000004e0| 6c 69 6e 65 20 64 65 6c | 65 74 65 2d 72 65 67 69 |line del|ete-regi|
|000004f0| 6f 6e 20 6e 72 65 76 65 | 72 73 65 20 34 31 5d 20 |on nreve|rse 41] |
|00000500| 31 33 29 29 0a          |                         |13)).   |        |
+--------+-------------------------+-------------------------+--------+--------+