|
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: ┃ t ┃
Length: 786 (0x312)
Names: »tabify.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/tabify.elc«
0x000…020 0a 28 64 65 66 75 6e 20 75 6e 74 61 62 69 66 79 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a ┆ (defun untabify (start end) "\ ┆ 0x020…040 43 6f 6e 76 65 72 74 20 61 6c 6c 20 74 61 62 73 20 69 6e 20 72 65 67 69 6f 6e 20 74 6f 20 6d 75 ┆Convert all tabs in region to mu┆ 0x040…060 6c 74 69 70 6c 65 20 73 70 61 63 65 73 2c 20 70 72 65 73 65 72 76 69 6e 67 20 63 6f 6c 75 6d 6e ┆ltiple spaces, preserving column┆ 0x060…080 73 2e 0a 54 68 65 20 76 61 72 69 61 62 6c 65 20 74 61 62 2d 77 69 64 74 68 20 63 6f 6e 74 72 6f ┆s. The variable tab-width contro┆ 0x080…0a0 6c 73 20 74 68 65 20 61 63 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 ┆ls the action." (interactive "r"┆ 0x0a0…0c0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 8a 8c c6 08 09 5c 22 88 08 62 88 c7 c8 c2 c3 23 ┆) (byte-code " \" b #┆ 0x0c0…0e0 85 2a 00 60 69 c2 1d 1c 18 c9 c8 21 88 ca 08 60 5c 22 88 0c 6a 2b 88 82 0c 00 29 29 87 22 20 5b ┆ * `i ! `\" j+ )) " [┆ 0x0e0…100 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 74 20 63 6f 6c 75 6d 6e 20 69 6e 64 65 6e 74 2d 74 61 ┆start end nil t column indent-ta┆ 0x100…120 62 73 2d 6d 6f 64 65 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 73 65 61 72 63 68 2d ┆bs-mode narrow-to-region search-┆ 0x120…140 66 6f 72 77 61 72 64 20 22 09 22 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 ┆forward " " skip-chars-backward ┆ 0x140…160 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 69 66 ┆delete-region] 7)) (defun tabif┆ 0x160…180 79 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 43 6f 6e 76 65 72 74 20 6d 75 6c 74 69 70 6c ┆y (start end) "\ Convert multipl┆ 0x180…1a0 65 20 73 70 61 63 65 73 20 69 6e 20 72 65 67 69 6f 6e 20 74 6f 20 74 61 62 73 20 77 68 65 6e 20 ┆e spaces in region to tabs when ┆ 0x1a0…1c0 70 6f 73 73 69 62 6c 65 2e 0a 41 20 67 72 6f 75 70 20 6f 66 20 73 70 61 63 65 73 20 69 73 20 70 ┆possible. A group of spaces is p┆ 0x1c0…1e0 61 72 74 69 61 6c 6c 79 20 72 65 70 6c 61 63 65 64 20 62 79 20 74 61 62 73 0a 77 68 65 6e 20 74 ┆artially replaced by tabs when t┆ 0x1e0…200 68 69 73 20 63 61 6e 20 62 65 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 63 68 61 6e 67 69 6e 67 ┆his can be done without changing┆ 0x200…220 20 74 68 65 20 63 6f 6c 75 6d 6e 20 74 68 65 79 20 65 6e 64 20 61 74 2e 0a 54 68 65 20 76 61 72 ┆ the column they end at. The var┆ 0x220…240 69 61 62 6c 65 20 74 61 62 2d 77 69 64 74 68 20 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 61 63 74 ┆iable tab-width controls the act┆ 0x240…260 69 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 6f ┆ion." (interactive "r") (byte-co┆ 0x260…280 64 65 20 22 c2 88 8a 8c c6 08 09 5c 22 88 08 62 88 c7 c8 c2 c3 23 85 26 00 69 c3 1d 1c c9 ca cb ┆de " \" b # & i ┆ 0x280…2a0 21 60 5c 22 88 0c 6a 2a 88 82 0c 00 29 29 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 ┆!`\" j* )) " [start end nil ┆ 0x2a0…2c0 74 20 63 6f 6c 75 6d 6e 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 6e 61 72 72 6f 77 ┆t column indent-tabs-mode narrow┆ 0x2c0…2e0 2d 74 6f 2d 72 65 67 69 6f 6e 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 20 ┆-to-region re-search-forward "[ ┆ 0x2e0…300 09 5d 5b 20 09 5d 5b 20 09 5d 2a 22 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 6d 61 74 63 68 ┆ ][ ][ ]*" delete-region match┆ 0x300…312 2d 62 65 67 69 6e 6e 69 6e 67 20 30 5d 20 37 29 29 0a ┆-beginning 0] 7)) ┆