DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦ae8054536⟧

    Length: 659 (0x293)
    Names: »compare-w.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/compare-w.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 63 6f 6d 70 61 72 65 2d 77 69 6e 64 6f 77 73 20 6e 69 6c 20 22 5c 0a 43   ┆ (defun compare-windows nil "\ C┆
0x020…040 6f 6d 70 61 72 65 20 74 65 78 74 20 69 6e 20 63 75 72 72 65 6e 74 20 77 69 6e 64 6f 77 20 77 69   ┆ompare text in current window wi┆
0x040…060 74 68 20 74 65 78 74 20 69 6e 20 6e 65 78 74 20 77 69 6e 64 6f 77 2e 0a 43 6f 6d 70 61 72 65 73   ┆th text in next window. Compares┆
0x060…080 20 74 68 65 20 74 65 78 74 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 6f 69 6e 74 20 69 6e 20 65   ┆ the text starting at point in e┆
0x080…0a0 61 63 68 20 77 69 6e 64 6f 77 2c 0a 6d 6f 76 69 6e 67 20 6f 76 65 72 20 74 65 78 74 20 69 6e 20   ┆ach window, moving over text in ┆
0x0a0…0c0 65 61 63 68 20 6f 6e 65 20 61 73 20 66 61 72 20 61 73 20 74 68 65 79 20 6d 61 74 63 68 2e 22 20   ┆each one as far as they match." ┆
0x0c0…0e0 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cd 88 cd cd cd cd   ┆(interactive) (byte-code "      ┆
0x0e0…100 cd cd cd cd cd 60 1e 09 1e 08 1e 07 1e 06 1d 1c 1b 1a 19 18 60 10 70 89 14 88 ce cf 20 21 89 16   ┆     `              ` p      !  ┆
0x100…120 06 88 0e 06 cf 20 3d 83 36 00 d0 d1 21 82 37 00 cd 88 d2 0e 06 21 11 d3 0e 06 21 89 15 88 64 89   ┆      = 6   ! 7      !    !   d ┆
0x120…140 12 88 8a 0d 71 88 64 89 13 29 88 d4 89 16 08 88 0e 08 d5 56 85 c6 00 ca 89 16 07 88 0e 07 85 b9   ┆    q d  )         V            ┆
0x140…160 00 d6 0e 08 0a 08 5a 0b 09 5a 23 89 16 08 88 8a 0d 71 88 d7 09 0e 08 09 5c 5c 5c 22 89 16 0b 29   ┆      Z  Z#      q      \\\"   )┆
0x160…180 88 d7 08 0e 08 08 5c 5c 5c 22 89 16 0c 88 0e 08 d5 56 85 9d 00 d8 0e 0c 0e 0b 5c 22 89 16 07 88   ┆      \\\"       V        \"    ┆
0x180…1a0 0e 07 83 b4 00 08 0e 08 5c 5c 10 09 0e 08 5c 5c 89 11 82 b5 00 cd 88 82 62 00 88 d9 0e 08 da 5c   ┆        \\    \\        b      \┆
0x1a0…1c0 22 89 16 08 88 82 56 00 88 08 62 88 db 0e 06 09 5c 22 88 60 0e 09 55 83 dc 00 dc 20 82 dd 00 cd   ┆"     V   b     \" `  U         ┆
0x1c0…1e0 2e 0a 87 22 20 5b 70 31 20 70 32 20 6d 61 78 70 31 20 6d 61 78 70 32 20 62 31 20 62 32 20 77 32   ┆.  " [p1 p2 maxp1 maxp2 b1 b2 w2┆
0x1e0…200 20 73 75 63 63 65 73 73 20 73 69 7a 65 20 6f 70 6f 69 6e 74 20 74 20 73 32 20 73 31 20 6e 69 6c   ┆ success size opoint t s2 s1 nil┆
0x200…220 20 6e 65 78 74 2d 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 65 72 72   ┆ next-window selected-window err┆
0x220…240 6f 72 20 22 4e 6f 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 22 20 77 69 6e 64 6f 77 2d 70 6f 69   ┆or "No other window." window-poi┆
0x240…260 6e 74 20 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 31 30 30 30 20 30 20 6d 69 6e 20 62 75 66 66   ┆nt window-buffer 1000 0 min buff┆
0x260…280 65 72 2d 73 75 62 73 74 72 69 6e 67 20 65 71 75 61 6c 20 2f 20 32 20 73 65 74 2d 77 69 6e 64 6f   ┆er-substring equal / 2 set-windo┆
0x280…293 77 2d 70 6f 69 6e 74 20 64 69 6e 67 5d 20 31 34 29 29 0a   ┆w-point ding] 14)) ┆