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

⟦416cd705a⟧

    Length: 738 (0x2e2)
    Names: »underline.elc«

Derivation

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

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 75 6e 64 65 72 6c 69 6e 65 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20   ┆ (defun underline-region (start ┆
0x020…040 65 6e 64 29 20 22 5c 0a 55 6e 64 65 72 6c 69 6e 65 20 61 6c 6c 20 6e 6f 6e 62 6c 61 6e 6b 20 63   ┆end) "\ Underline all nonblank c┆
0x040…060 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 2e 0a 57 6f 72 6b 73 20 62   ┆haracters in the region. Works b┆
0x060…080 79 20 6f 76 65 72 73 74 72 69 6b 69 6e 67 20 75 6e 64 65 72 73 63 6f 72 65 73 2e 0a 43 61 6c 6c   ┆y overstriking underscores. Call┆
0x080…0a0 65 64 20 66 72 6f 6d 20 70 72 6f 67 72 61 6d 2c 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d   ┆ed from program, takes two argum┆
0x0a0…0c0 65 6e 74 73 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 0a 77 68 69 63 68 20 73 70 65 63 69 66 79   ┆ents START and END which specify┆
0x0c0…0e0 20 74 68 65 20 72 61 6e 67 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 2e 22 20 28 69 6e 74 65   ┆ the range to operate on." (inte┆
0x0e0…100 72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8a c4 20 18 c5   ┆ractive "r") (byte-code "       ┆
0x100…120 08 09 0a 5d 5c 22 88 09 0a 5e 62 88 60 08 57 85 28 00 c6 c7 21 86 20 00 c8 63 88 c9 ca 21 88 82   ┆   ]\"   ^b ` W (   !    c   !  ┆
0x120…140 12 00 29 29 87 22 20 5b 65 6e 64 31 20 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 6d 61 6b 65 2d   ┆  )) " [end1 start end nil make-┆
0x140…160 6d 61 72 6b 65 72 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b   ┆marker move-marker looking-at "[┆
0x160…180 5f 00 2d 20 5d 22 20 22 5f 08 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 5d 20 36 29 29 0a   ┆_ - ]" "_ " forward-char 1] 6)) ┆
0x180…1a0 0a 28 64 65 66 75 6e 20 75 6e 75 6e 64 65 72 6c 69 6e 65 2d 72 65 67 69 6f 6e 20 28 73 74 61 72   ┆ (defun ununderline-region (star┆
0x1a0…1c0 74 20 65 6e 64 29 20 22 5c 0a 52 65 6d 6f 76 65 20 61 6c 6c 75 6e 64 65 72 6c 69 6e 69 6e 67 20   ┆t end) "\ Remove allunderlining ┆
0x1c0…1e0 28 6f 76 65 72 73 74 72 75 63 6b 20 75 6e 64 65 72 73 63 6f 72 65 73 29 20 69 6e 20 74 68 65 20   ┆(overstruck underscores) in the ┆
0x1e0…200 72 65 67 69 6f 6e 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 70 72 6f 67 72 61 6d 2c 20 74 61 6b   ┆region. Called from program, tak┆
0x200…220 65 73 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 0a 77   ┆es two arguments START and END w┆
0x220…240 68 69 63 68 20 73 70 65 63 69 66 79 20 74 68 65 20 72 61 6e 67 65 20 74 6f 20 6f 70 65 72 61 74   ┆hich specify the range to operat┆
0x240…260 65 20 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63   ┆e on." (interactive "r") (byte-c┆
0x260…280 6f 64 65 20 22 c4 88 8a c5 20 18 c6 08 09 0a 5d 5c 22 88 09 0a 5e 62 88 c7 c8 08 c3 23 85 21 00   ┆ode "          ]\"   ^b     # ! ┆
0x280…2a0 c9 ca 21 88 82 12 00 29 29 87 22 20 5b 65 6e 64 31 20 73 74 61 72 74 20 65 6e 64 20 74 20 6e 69   ┆  !    )) " [end1 start end t ni┆
0x2a0…2c0 6c 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 73 65 61 72 63 68   ┆l make-marker move-marker search┆
0x2c0…2e0 2d 66 6f 72 77 61 72 64 20 22 5f 08 22 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 32 5d 20 36 29   ┆-forward "_ " delete-char -2] 6)┆
0x2e0…2e2 29 0a   ┆) ┆