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

⟦c3b696d72⟧

    Length: 774 (0x306)
    Names: »studly.elc«

Derivation

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

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 73 74 75 64 6c 69 66 79 2d 72 65 67 69 6f 6e 20 28 62 65 67 69 6e 20 65   ┆ (defun studlify-region (begin e┆
0x020…040 6e 64 29 20 22 5c 0a 53 74 75 64 6c 69 66 79 2d 63 61 73 65 20 74 68 65 20 72 65 67 69 6f 6e 22   ┆nd) "\ Studlify-case the region"┆
0x040…060 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22   ┆ (interactive "*r") (byte-code "┆
0x060…080 c6 88 8a 08 62 88 60 89 10 88 60 09 58 85 14 00 c7 c8 21 3f 85 9f 00 c9 ca 21 88 cb ca 21 88 60   ┆    b `   ` X     !?     !   ! `┆
0x080…0a0 08 5d 89 10 88 c9 ca 21 88 cc 60 09 5e c6 1c 1b 1a 08 62 88 60 0b 57 85 47 00 0a 67 5c 5c 89 12   ┆ ]     !  ` ^     b ` W G  g\\  ┆
0x0a0…0c0 88 cd ca 21 88 82 34 00 88 0a 67 5c 5c 89 12 88 08 62 88 60 0b 57 85 96 00 67 89 14 88 ce 0c 0a   ┆   !  4   g\\    b ` W   g      ┆
0x0c0…0e0 5c 5c cf 5c 22 d0 55 85 7e 00 67 1d 0d d1 59 85 71 00 0d d2 58 86 7d 00 0d d3 59 85 7d 00 0d d4   ┆\\ \" U ~ g   Y q   X }   Y }   ┆
0x0e0…100 58 29 83 8d 00 d5 ca 21 88 d6 0c d7 5c 22 63 82 8e 00 c6 88 cd ca 21 88 82 51 00 88 60 89 10 2b   ┆X)     !    \"c       !  Q  `  +┆
0x100…120 88 82 0a 00 29 87 22 20 5b 62 65 67 69 6e 20 65 6e 64 20 6f 66 66 73 65 74 20 77 6f 72 64 2d 65   ┆    ) " [begin end offset word-e┆
0x120…140 6e 64 20 63 20 63 68 20 6e 69 6c 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 57 2a 5c 5c 27 22   ┆nd c ch nil looking-at "\\W*\\'"┆
0x140…160 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 31 20 62 61 63 6b 77 61 72 64 2d 77 6f 72 64 20 30 20   ┆ forward-word 1 backward-word 0 ┆
0x160…180 66 6f 72 77 61 72 64 2d 63 68 61 72 20 25 20 34 20 32 20 39 37 20 31 32 32 20 36 35 20 39 30 20   ┆forward-char % 4 2 97 122 65 90 ┆
0x180…1a0 64 65 6c 65 74 65 2d 63 68 61 72 20 6c 6f 67 78 6f 72 20 33 32 5d 20 31 32 29 29 0a 0a 28 64 65   ┆delete-char logxor 32] 12))  (de┆
0x1a0…1c0 66 75 6e 20 73 74 75 64 6c 69 66 79 2d 77 6f 72 64 20 28 63 6f 75 6e 74 29 20 22 5c 0a 53 74 75   ┆fun studlify-word (count) "\ Stu┆
0x1c0…1e0 64 6c 69 66 79 2d 63 61 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 64 2c 20 6f 72 20   ┆dlify-case the current word, or ┆
0x1e0…200 43 4f 55 4e 54 20 77 6f 72 64 73 20 69 66 20 67 69 76 65 6e 20 61 6e 20 61 72 67 75 6d 65 6e 74   ┆COUNT words if given an argument┆
0x200…220 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20   ┆" (interactive "*p") (byte-code ┆
0x220…240 22 c5 88 60 c5 c5 c5 1b 1a 19 18 c6 0c 21 88 60 89 11 88 08 09 5e 12 08 09 5d 89 13 88 c7 0a 0b   ┆"  `         ! `     ^   ]      ┆
0x240…260 5c 22 2c 87 22 20 5b 62 65 67 69 6e 20 65 6e 64 20 72 62 20 72 65 20 63 6f 75 6e 74 20 6e 69 6c   ┆\", " [begin end rb re count nil┆
0x260…280 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 73 74 75 64 6c 69 66 79 2d 72 65 67 69 6f 6e 5d 20 34   ┆ forward-word studlify-region] 4┆
0x280…2a0 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 75 64 6c 69 66 79 2d 62 75 66 66 65 72 20 6e 69 6c 20 22   ┆))  (defun studlify-buffer nil "┆
0x2a0…2c0 5c 0a 53 74 75 64 6c 69 66 79 2d 63 61 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66   ┆\ Studlify-case the current buff┆
0x2c0…2e0 65 72 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 22 29 20 28 62 79 74 65 2d 63 6f 64 65   ┆er" (interactive "*") (byte-code┆
0x2e0…300 20 22 c0 88 c1 65 64 5c 22 87 22 20 5b 6e 69 6c 20 73 74 75 64 6c 69 66 79 2d 72 65 67 69 6f 6e   ┆ "   ed\" " [nil studlify-region┆
0x300…306 5d 20 33 29 29 0a   ┆] 3)) ┆