|
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: ┃ u ┃
Length: 1837 (0x72d)
Names: »underline.el«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/underline.el«
0x000…020 3b 3b 20 49 6e 73 65 72 74 20 6f 72 20 72 65 6d 6f 76 65 20 75 6e 64 65 72 6c 69 6e 69 6e 67 20 ┆;; Insert or remove underlining ┆ 0x020…040 28 64 6f 6e 65 20 62 79 20 6f 76 65 72 73 74 72 69 6b 69 6e 67 29 20 69 6e 20 45 6d 61 63 73 2e ┆(done by overstriking) in Emacs.┆ 0x040…060 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 46 72 65 65 20 53 6f 66 74 ┆ ;; Copyright (C) 1985 Free Soft┆ 0x060…080 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 0a 0a 3b 3b 20 54 68 69 73 20 66 ┆ware Foundation, Inc. ;; This f┆ 0x080…0a0 69 6c 65 20 69 73 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 47 4e ┆ile is part of GNU Emacs. ;; GN┆ 0x0a0…0c0 55 20 45 6d 61 63 73 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f ┆U Emacs is distributed in the ho┆ 0x0c0…0e0 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 ┆pe that it will be useful, ;; bu┆ 0x0e0…100 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 2e 20 20 4e 6f 20 61 75 74 68 ┆t WITHOUT ANY WARRANTY. No auth┆ 0x100…120 6f 72 20 6f 72 20 64 69 73 74 72 69 62 75 74 6f 72 0a 3b 3b 20 61 63 63 65 70 74 73 20 72 65 73 ┆or or distributor ;; accepts res┆ 0x120…140 70 6f 6e 73 69 62 69 6c 69 74 79 20 74 6f 20 61 6e 79 6f 6e 65 20 66 6f 72 20 74 68 65 20 63 6f ┆ponsibility to anyone for the co┆ 0x140…160 6e 73 65 71 75 65 6e 63 65 73 20 6f 66 20 75 73 69 6e 67 20 69 74 0a 3b 3b 20 6f 72 20 66 6f 72 ┆nsequences of using it ;; or for┆ 0x160…180 20 77 68 65 74 68 65 72 20 69 74 20 73 65 72 76 65 73 20 61 6e 79 20 70 61 72 74 69 63 75 6c 61 ┆ whether it serves any particula┆ 0x180…1a0 72 20 70 75 72 70 6f 73 65 20 6f 72 20 77 6f 72 6b 73 20 61 74 20 61 6c 6c 2c 0a 3b 3b 20 75 6e ┆r purpose or works at all, ;; un┆ 0x1a0…1c0 6c 65 73 73 20 68 65 20 73 61 79 73 20 73 6f 20 69 6e 20 77 72 69 74 69 6e 67 2e 20 20 52 65 66 ┆less he says so in writing. Ref┆ 0x1c0…1e0 65 72 20 74 6f 20 74 68 65 20 47 4e 55 20 45 6d 61 63 73 20 47 65 6e 65 72 61 6c 20 50 75 62 6c ┆er to the GNU Emacs General Publ┆ 0x1e0…200 69 63 0a 3b 3b 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 66 75 6c 6c 20 64 65 74 61 69 6c 73 2e 0a ┆ic ;; License for full details. ┆ 0x200…220 0a 3b 3b 20 45 76 65 72 79 6f 6e 65 20 69 73 20 67 72 61 6e 74 65 64 20 70 65 72 6d 69 73 73 69 ┆ ;; Everyone is granted permissi┆ 0x220…240 6f 6e 20 74 6f 20 63 6f 70 79 2c 20 6d 6f 64 69 66 79 20 61 6e 64 20 72 65 64 69 73 74 72 69 62 ┆on to copy, modify and redistrib┆ 0x240…260 75 74 65 0a 3b 3b 20 47 4e 55 20 45 6d 61 63 73 2c 20 62 75 74 20 6f 6e 6c 79 20 75 6e 64 65 72 ┆ute ;; GNU Emacs, but only under┆ 0x260…280 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 73 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 ┆ the conditions described in the┆ 0x280…2a0 0a 3b 3b 20 47 4e 55 20 45 6d 61 63 73 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 ┆ ;; GNU Emacs General Public Lic┆ 0x2a0…2c0 65 6e 73 65 2e 20 20 20 41 20 63 6f 70 79 20 6f 66 20 74 68 69 73 20 6c 69 63 65 6e 73 65 20 69 ┆ense. A copy of this license i┆ 0x2c0…2e0 73 0a 3b 3b 20 73 75 70 70 6f 73 65 64 20 74 6f 20 68 61 76 65 20 62 65 65 6e 20 67 69 76 65 6e ┆s ;; supposed to have been given┆ 0x2e0…300 20 74 6f 20 79 6f 75 20 61 6c 6f 6e 67 20 77 69 74 68 20 47 4e 55 20 45 6d 61 63 73 20 73 6f 20 ┆ to you along with GNU Emacs so ┆ 0x300…320 79 6f 75 0a 3b 3b 20 63 61 6e 20 6b 6e 6f 77 20 79 6f 75 72 20 72 69 67 68 74 73 20 61 6e 64 20 ┆you ;; can know your rights and ┆ 0x320…340 72 65 73 70 6f 6e 73 69 62 69 6c 69 74 69 65 73 2e 20 20 49 74 20 73 68 6f 75 6c 64 20 62 65 20 ┆responsibilities. It should be ┆ 0x340…360 69 6e 20 61 0a 3b 3b 20 66 69 6c 65 20 6e 61 6d 65 64 20 43 4f 50 59 49 4e 47 2e 20 20 41 6d 6f ┆in a ;; file named COPYING. Amo┆ 0x360…380 6e 67 20 6f 74 68 65 72 20 74 68 69 6e 67 73 2c 20 74 68 65 20 63 6f 70 79 72 69 67 68 74 20 6e ┆ng other things, the copyright n┆ 0x380…3a0 6f 74 69 63 65 0a 3b 3b 20 61 6e 64 20 74 68 69 73 20 6e 6f 74 69 63 65 20 6d 75 73 74 20 62 65 ┆otice ;; and this notice must be┆ 0x3a0…3c0 20 70 72 65 73 65 72 76 65 64 20 6f 6e 20 61 6c 6c 20 63 6f 70 69 65 73 2e 0a 0a 0a 28 64 65 66 ┆ preserved on all copies. (def┆ 0x3c0…3e0 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 65 6e 64 29 0a ┆un underline-region (start end) ┆ 0x3e0…400 20 20 22 55 6e 64 65 72 6c 69 6e 65 20 61 6c 6c 20 6e 6f 6e 62 6c 61 6e 6b 20 63 68 61 72 61 63 ┆ "Underline all nonblank charac┆ 0x400…420 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 79 20 6f 76 65 ┆ters in the region. Works by ove┆ 0x420…440 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 65 64 20 66 72 ┆rstriking underscores. Called fr┆ 0x440…460 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 65 6e 74 73 20 ┆om program, takes two arguments ┆ 0x460…480 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 20 74 68 65 20 ┆START and END which specify the ┆ 0x480…4a0 72 61 6e 67 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 ┆range to operate on." (interac┆ 0x4a0…4c0 74 69 76 65 20 22 72 22 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 28 ┆tive "r") (save-excursion (┆ 0x4c0…4e0 6c 65 74 20 28 28 65 6e 64 31 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 20 20 ┆let ((end1 (make-marker))) ┆ 0x4e0…500 28 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 65 6e 64 31 20 28 6d 61 78 20 73 74 61 72 74 20 65 6e 64 ┆(move-marker end1 (max start end┆ 0x500…520 29 29 0a 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 69 6e 20 73 74 61 72 74 20 65 6e ┆)) (goto-char (min start en┆ 0x520…540 64 29 29 0a 20 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 28 70 6f 69 6e 74 29 20 65 6e 64 31 29 ┆d)) (while (< (point) end1)┆ 0x540…560 0a 20 20 20 20 20 20 20 28 6f 72 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 5f 5c 5e 40 2d 20 ┆ (or (looking-at "[_\^@- ┆ 0x560…580 5d 22 29 0a 09 20 20 20 28 69 6e 73 65 72 74 20 22 5f 08 22 29 29 0a 20 20 20 20 20 20 20 28 66 ┆]") (insert "_ ")) (f┆ 0x580…5a0 6f 72 77 61 72 64 2d 63 68 61 72 20 31 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 75 6e 64 ┆orward-char 1))))) (defun unund┆ 0x5a0…5c0 65 72 6c 69 6e 65 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 52 65 6d ┆erline-region (start end) "Rem┆ 0x5c0…5e0 6f 76 65 20 61 6c 6c 75 6e 64 65 72 6c 69 6e 69 6e 67 20 28 6f 76 65 72 73 74 72 75 63 6b 20 75 ┆ove allunderlining (overstruck u┆ 0x5e0…600 6e 64 65 72 73 63 6f 72 65 73 29 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 2e 0a 43 61 6c 6c 65 ┆nderscores) in the region. Calle┆ 0x600…620 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 65 ┆d from program, takes two argume┆ 0x620…640 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 20 ┆nts START and END which specify ┆ 0x640…660 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 0a 20 20 28 69 6e 74 ┆the range to operate on." (int┆ 0x660…680 65 72 61 63 74 69 76 65 20 22 72 22 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a ┆eractive "r") (save-excursion ┆ 0x680…6a0 20 20 20 28 6c 65 74 20 28 28 65 6e 64 31 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 29 29 0a 20 ┆ (let ((end1 (make-marker))) ┆ 0x6a0…6c0 20 20 20 20 28 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 65 6e 64 31 20 28 6d 61 78 20 73 74 61 72 74 ┆ (move-marker end1 (max start┆ 0x6c0…6e0 20 65 6e 64 29 29 0a 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 69 6e 20 73 74 61 72 ┆ end)) (goto-char (min star┆ 0x6e0…700 74 20 65 6e 64 29 29 0a 20 20 20 20 20 28 77 68 69 6c 65 20 28 73 65 61 72 63 68 2d 66 6f 72 77 ┆t end)) (while (search-forw┆ 0x700…720 61 72 64 20 22 5f 08 22 20 65 6e 64 31 20 74 29 0a 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d ┆ard "_ " end1 t) (delete-┆ 0x720…72d 63 68 61 72 20 2d 32 29 29 29 29 29 0a ┆char -2))))) ┆