|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ m ┃
Length: 1285 (0x505)
Names: »makesum.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/makesum.elc«
0x000…020 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 63 6f 6d 6d 61 6e 64 2d 73 75 6d 6d 61 72 79 20 6e 69 6c ┆ (defun make-command-summary nil┆ 0x020…040 20 22 5c 0a 4d 61 6b 65 20 61 20 73 75 6d 6d 61 72 79 20 6f 66 20 63 75 72 72 65 6e 74 20 6b 65 ┆ "\ Make a summary of current ke┆ 0x040…060 79 20 62 69 6e 64 69 6e 67 73 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 2a 53 75 6d 6d 61 72 ┆y bindings in the buffer *Summar┆ 0x060…080 79 2a 2e 0a 50 72 65 76 69 6f 75 73 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 61 74 20 62 75 ┆y*. Previous contents of that bu┆ 0x080…0a0 66 66 65 72 20 61 72 65 20 6b 69 6c 6c 65 64 20 66 69 72 73 74 2e 22 20 28 69 6e 74 65 72 61 63 ┆ffer are killed first." (interac┆ 0x0a0…0c0 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c6 c7 21 88 c8 8b 88 c9 90 8a 09 18 ┆tive) (byte-code " ! ┆ 0x0c0…0e0 0a 71 88 ca 20 88 cb cc 21 88 65 62 88 cd 60 ce cf 21 88 60 5c 22 88 d0 d1 c3 c4 23 85 33 00 d2 ┆ q ! eb ` ! `\" # 3 ┆ 0x0e0…100 d3 21 88 82 24 00 88 65 62 88 d0 d4 c3 c4 23 85 46 00 d2 d5 21 88 82 37 00 88 65 62 88 d0 d6 c3 ┆ ! $ eb # F ! 7 eb ┆ 0x100…120 c4 23 85 59 00 d2 d7 21 88 82 4a 00 88 65 62 88 d0 d8 c3 c4 23 85 6c 00 d2 d9 21 88 82 5d 00 88 ┆ # Y ! J eb # l ! ] ┆ 0x120…140 65 62 88 d0 da c3 c4 23 85 7f 00 d2 db 21 88 82 70 00 88 65 62 88 dc dd c3 c4 23 83 ac 00 de df ┆eb # ! p eb # ┆ 0x140…160 21 88 e0 e1 08 e2 23 88 d0 e3 c3 c4 23 85 a9 00 cd 60 ce df 21 88 60 5c 22 88 82 95 00 82 ad 00 ┆! # # ` ! `\" ┆ 0x160…180 c3 88 65 62 88 e0 e4 e5 20 e6 e7 4f e8 23 88 cd 60 ce e9 21 88 60 5c 22 88 ce cf 21 88 6d 3f 85 ┆ eb O # ` ! `\" ! m? ┆ 0x180…1a0 e7 00 60 1d dc ea c3 c4 23 86 d9 00 64 62 88 eb 0d 60 5c 22 88 ce cf 21 29 88 82 c8 00 88 65 62 ┆ ` # db `\" !) eb┆ 0x1a0…1c0 29 29 91 88 c6 ec 21 87 22 20 5b 63 75 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 73 74 ┆)) ! " [cur-mode mode-name st┆ 0x1c0…1e0 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 6e 69 6c 20 74 20 62 65 67 20 6d 65 73 73 61 67 65 20 ┆andard-output nil t beg message ┆ 0x1e0…200 22 4d 61 6b 69 6e 67 20 63 6f 6d 6d 61 6e 64 20 73 75 6d 6d 61 72 79 2e 2e 2e 22 20 28 28 62 79 ┆"Making command summary..." ((by┆ 0x200…220 74 65 2d 63 6f 64 65 20 22 c0 20 87 22 20 5b 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 ┆te-code " " [describe-bindings┆ 0x220…240 5d 20 32 29 29 20 22 2a 53 75 6d 6d 61 72 79 2a 22 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 ┆] 2)) "*Summary*" erase-buffer i┆ 0x240…260 6e 73 65 72 74 2d 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 22 2a 48 65 6c 70 2a 22 20 ┆nsert-buffer-substring "*Help*" ┆ 0x260…280 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 73 65 61 ┆delete-region forward-line 1 sea┆ 0x280…2a0 72 63 68 2d 66 6f 72 77 61 72 64 20 22 20 20 20 20 20 20 20 20 20 22 20 72 65 70 6c 61 63 65 2d ┆rch-forward " " replace-┆ 0x2a0…2c0 6d 61 74 63 68 20 22 20 20 22 20 22 2d 40 20 22 20 22 2d 53 50 22 20 22 20 20 2e 2e 20 7e 20 22 ┆match " " "-@ " "-SP" " .. ~ "┆ 0x2c0…2e0 20 22 53 50 20 2e 2e 20 7e 22 20 22 43 2d 3f 22 20 22 44 45 4c 22 20 22 43 2d 69 22 20 22 54 41 ┆ "SP .. ~" "C-?" "DEL" "C-i" "TA┆ 0x2e0…300 42 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 4c 6f 63 61 6c 20 42 69 6e ┆B" re-search-forward "^Local Bin┆ 0x300…320 64 69 6e 67 73 3a 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 69 6e 73 65 72 74 20 22 ┆dings:" forward-char -1 insert "┆ 0x320…340 20 66 6f 72 20 22 20 22 20 4d 6f 64 65 22 20 22 3f 3f 0a 22 20 22 45 6d 61 63 73 20 63 6f 6d 6d ┆ for " " Mode" "?? " "Emacs comm┆ 0x340…360 61 6e 64 20 73 75 6d 6d 61 72 79 2c 20 22 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 ┆and summary, " current-time-stri┆ 0x360…380 6e 67 20 30 20 31 30 20 22 2e 0a 22 20 32 20 22 5e 24 22 20 64 6f 75 62 6c 65 2d 63 6f 6c 75 6d ┆ng 0 10 ". " 2 "^$" double-colum┆ 0x380…3a0 6e 20 22 4d 61 6b 69 6e 67 20 63 6f 6d 6d 61 6e 64 20 73 75 6d 6d 61 72 79 2e 2e 2e 64 6f 6e 65 ┆n "Making command summary...done┆ 0x3a0…3c0 22 5d 20 33 32 29 29 0a 0a 28 64 65 66 75 6e 20 64 6f 75 62 6c 65 2d 63 6f 6c 75 6d 6e 20 28 73 ┆"] 32)) (defun double-column (s┆ 0x3c0…3e0 74 61 72 74 20 65 6e 64 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 ┆tart end) (interactive "r") (byt┆ 0x3e0…400 65 2d 63 6f 64 65 20 22 c8 88 c8 c8 c8 c8 c8 64 0e 06 5a 1d 1c 1b 1a 19 18 c9 0e 07 0e 06 5c 22 ┆e-code " d Z \"┆ 0x400…420 89 14 88 0c ca 58 83 24 00 c8 82 80 00 cb 0c 54 cc 5c 22 89 10 88 0e 07 62 88 8a cd 08 21 88 08 ┆ X $ T \" b ! ┆ 0x420…440 0c 57 85 5e 00 08 54 89 10 88 ce 60 8a cf 20 88 60 29 5c 22 89 12 88 0a 0b 42 89 13 88 d0 60 cd ┆ W ^ T ` `)\" B ` ┆ 0x440…460 ca 21 88 60 5c 22 88 82 35 00 29 88 d1 0b 21 89 13 88 0b 85 80 00 cf 20 88 d2 6a 88 0b 40 63 88 ┆ ! `\" 5 ) ! j @c ┆ 0x460…480 cd ca 21 88 0b 41 89 13 88 82 66 00 88 64 0d 5a 62 2e 06 87 22 20 5b 68 61 6c 66 20 63 6e 74 20 ┆ ! A f d Zb. " [half cnt ┆ 0x480…4a0 6c 69 6e 65 20 6c 69 6e 65 73 20 6e 6c 69 6e 65 73 20 66 72 6f 6d 2d 65 6e 64 20 65 6e 64 20 73 ┆line lines nlines from-end end s┆ 0x4a0…4c0 74 61 72 74 20 6e 69 6c 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 31 20 2f 20 32 20 66 6f 72 77 61 ┆tart nil count-lines 1 / 2 forwa┆ 0x4c0…4e0 72 64 2d 6c 69 6e 65 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d ┆rd-line buffer-substring end-of-┆ 0x4e0…500 6c 69 6e 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 6e 72 65 76 65 72 73 65 20 34 31 5d 20 ┆line delete-region nreverse 41] ┆ 0x500…505 31 33 29 29 0a ┆13)) ┆