|
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: ┃ d ┃
Length: 1198 (0x4ae)
Names: »dissociate.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/dissociate.elc«
0x000…020 0a 28 64 65 66 75 6e 20 64 69 73 73 6f 63 69 61 74 65 64 2d 70 72 65 73 73 20 28 26 6f 70 74 69 ┆ (defun dissociated-press (&opti┆ 0x020…040 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 44 69 73 73 6f 63 69 61 74 65 20 74 68 65 20 74 65 78 74 ┆onal arg) "\ Dissociate the text┆ 0x040…060 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 4f 75 74 70 75 74 20 67 ┆ of the current buffer. Output g┆ 0x060…080 6f 65 73 20 69 6e 20 62 75 66 66 65 72 20 6e 61 6d 65 64 20 2a 44 69 73 73 6f 63 69 61 74 69 6f ┆oes in buffer named *Dissociatio┆ 0x080…0a0 6e 2a 2c 0a 77 68 69 63 68 20 69 73 20 72 65 64 69 73 70 6c 61 79 65 64 20 65 61 63 68 20 74 69 ┆n*, which is redisplayed each ti┆ 0x0a0…0c0 6d 65 20 74 65 78 74 20 69 73 20 61 64 64 65 64 20 74 6f 20 69 74 2e 0a 45 76 65 72 79 20 73 6f ┆me text is added to it. Every so┆ 0x0c0…0e0 20 6f 66 74 65 6e 20 74 68 65 20 75 73 65 72 20 6d 75 73 74 20 73 61 79 20 77 68 65 74 68 65 72 ┆ often the user must say whether┆ 0x0e0…100 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e 0a 49 66 20 41 52 47 20 69 73 20 70 6f 73 69 74 69 76 65 ┆ to continue. If ARG is positive┆ 0x100…120 2c 20 72 65 71 75 69 72 65 20 41 52 47 20 63 68 61 72 73 20 6f 66 20 63 6f 6e 74 69 6e 75 69 74 ┆, require ARG chars of continuit┆ 0x120…140 79 2e 0a 49 66 20 41 52 47 20 69 73 20 6e 65 67 61 74 69 76 65 2c 20 72 65 71 75 69 72 65 20 2d ┆y. If ARG is negative, require -┆ 0x140…160 41 52 47 20 77 6f 72 64 73 20 6f 66 20 63 6f 6e 74 69 6e 75 69 74 79 2e 0a 44 65 66 61 75 6c 74 ┆ARG words of continuity. Default┆ 0x160…180 20 69 73 20 32 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d ┆ is 2." (interactive "P") (byte-┆ 0x180…1a0 63 6f 64 65 20 22 ce 88 08 83 0c 00 cf 08 21 82 0d 00 d0 89 10 88 70 19 d1 d2 21 1a 08 d3 56 83 ┆code " ! p ! V ┆ 0x1a0…1c0 20 00 d4 82 21 00 d5 1b 08 d3 56 83 2c 00 08 82 2e 00 08 5b 1c 08 d3 56 83 39 00 d6 82 3a 00 d7 ┆ ! V , . [ V 9 : ┆ 0x1c0…1e0 1d d3 1e 06 d8 0a 21 88 d9 20 88 8a 0e 06 62 88 da db 20 dc 5a 21 88 60 64 55 86 6e 00 64 62 88 ┆ ! b Z! `dU n db ┆ 0x1e0…200 dd de 21 85 6e 00 df e0 21 88 e1 e2 21 88 64 89 16 06 88 c7 29 85 3d 01 ce ce 1e 09 1e 08 8a 09 ┆ ! n ! ! d ) = ┆ 0x200…220 71 88 60 89 16 08 88 0b d4 3d 83 b3 00 0e 08 0c e3 e4 e5 20 5c 22 5c 5c 5c 5c 89 16 09 88 0e 09 ┆q ` = \"\\\\ ┆ 0x220…240 64 56 83 ab 00 e6 e2 0c e3 e4 e5 20 5c 22 23 89 16 09 82 ac 00 ce 88 0e 09 62 82 bd 00 e7 0b 0c ┆dV \"# b ┆ 0x240…260 e3 e4 e5 20 5c 22 5c 5c 5c 22 88 60 89 16 09 29 88 60 1e 0a e8 09 0e 08 0e 09 23 88 8a 0e 0a 62 ┆ \"\\\" ` ) ` # b┆ 0x260…280 88 e9 20 88 69 0e 0b 56 85 e0 00 ea 20 29 29 2a 88 8a 09 71 88 6d 83 f1 00 65 62 82 34 01 eb 60 ┆ i V ))* q m eb 4 `┆ 0x280…2a0 e7 0b 0c 5b 5c 22 88 60 5c 22 1e 0c ce 1e 0d e5 20 89 16 0d d3 57 85 0f 01 ce 88 82 00 01 88 ec ┆ [\" `\" W ┆ 0x2a0…2c0 0e 0d 64 53 5c 22 54 62 29 88 e7 0d 0e 0c ce c7 24 86 33 01 60 1e 0a e2 62 88 e7 0d 0e 0c 0e 0a ┆ dS\"Tb) $ 3 ` b ┆ 0x2c0…2e0 c7 24 29 29 29 88 ed d3 21 88 82 45 00 2e 06 87 22 20 5b 61 72 67 20 69 6e 62 75 66 20 6f 75 74 ┆ $))) ! E . " [arg inbuf out┆ 0x2e0…300 62 75 66 20 6d 6f 76 65 2d 66 75 6e 63 74 69 6f 6e 20 6d 6f 76 65 2d 61 6d 6f 75 6e 74 20 73 65 ┆buf move-function move-amount se┆ 0x300…320 61 72 63 68 2d 66 75 6e 63 74 69 6f 6e 20 6c 61 73 74 2d 71 75 65 72 79 2d 70 6f 69 6e 74 20 74 ┆arch-function last-query-point t┆ 0x320…340 20 73 74 61 72 74 20 65 6e 64 20 6f 70 6f 69 6e 74 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6f 76 ┆ start end opoint fill-column ov┆ 0x340…360 65 72 6c 61 70 20 72 61 6e 76 61 6c 20 6e 69 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d ┆erlap ranval nil prefix-numeric-┆ 0x360…380 76 61 6c 75 65 20 32 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 44 69 73 73 ┆value 2 get-buffer-create "*Diss┆ 0x380…3a0 6f 63 69 61 74 69 6f 6e 2a 22 20 30 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 66 6f 72 77 61 72 ┆ociation*" 0 forward-char forwar┆ 0x3a0…3c0 64 2d 77 6f 72 64 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 77 6f 72 64 2d 73 65 61 72 63 ┆d-word search-forward word-searc┆ 0x3c0…3e0 68 2d 66 6f 72 77 61 72 64 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 65 72 61 73 65 ┆h-forward switch-to-buffer erase┆ 0x3e0…400 2d 62 75 66 66 65 72 20 76 65 72 74 69 63 61 6c 2d 6d 6f 74 69 6f 6e 20 77 69 6e 64 6f 77 2d 68 ┆-buffer vertical-motion window-h┆ 0x400…420 65 69 67 68 74 20 34 20 79 2d 6f 72 2d 6e 2d 70 20 22 43 6f 6e 74 69 6e 75 65 20 64 69 73 73 6f ┆eight 4 y-or-n-p "Continue disso┆ 0x420…440 63 69 61 74 69 6f 6e 3f 20 22 20 6d 65 73 73 61 67 65 20 22 22 20 72 65 63 65 6e 74 65 72 20 31 ┆ciation? " message "" recenter 1┆ 0x440…460 20 6c 6f 67 61 6e 64 20 31 35 20 72 61 6e 64 6f 6d 20 2b 20 66 75 6e 63 61 6c 6c 20 69 6e 73 65 ┆ logand 15 random + funcall inse┆ 0x460…480 72 74 2d 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 ┆rt-buffer-substring end-of-line ┆ 0x480…4a0 64 6f 2d 61 75 74 6f 2d 66 69 6c 6c 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 25 20 ┆do-auto-fill buffer-substring % ┆ 0x4a0…4ae 73 69 74 2d 66 6f 72 5d 20 33 31 29 29 0a ┆sit-for] 31)) ┆