|
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: 3012 (0xbc4)
Names: »text-mode.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/text-mode.elc«
0x000…020 0a 28 64 65 66 76 61 72 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 ┆ (defvar text-mode-syntax-table ┆
0x020…040 6e 69 6c 20 22 5c 0a 53 79 6e 74 61 78 20 74 61 62 6c 65 20 75 73 65 64 20 77 68 69 6c 65 20 69 ┆nil "\ Syntax table used while i┆
0x040…060 6e 20 74 65 78 74 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 74 65 78 74 2d 6d 6f 64 ┆n text mode.") (defvar text-mod┆
0x060…080 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 41 62 62 72 65 76 20 74 61 62 ┆e-abbrev-table nil "\ Abbrev tab┆
0x080…0a0 6c 65 20 75 73 65 64 20 77 68 69 6c 65 20 69 6e 20 74 65 78 74 20 6d 6f 64 65 2e 22 29 0a 0a 28 ┆le used while in text mode.") (┆
0x0a0…0c0 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 71 75 6f 74 65 20 74 65 78 74 2d ┆define-abbrev-table (quote text-┆
0x0c0…0e0 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 29 20 6e 69 6c 29 0a 0a 28 69 66 20 74 65 78 ┆mode-abbrev-table) nil) (if tex┆
0x0e0…100 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 28 73 65 74 71 20 74 65 ┆t-mode-syntax-table nil (setq te┆
0x100…120 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 61 ┆xt-mode-syntax-table (make-synta┆
0x120…140 78 2d 74 61 62 6c 65 29 29 20 28 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 74 65 78 74 ┆x-table)) (set-syntax-table text┆
0x140…160 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 ┆-mode-syntax-table) (modify-synt┆
0x160…180 61 78 2d 65 6e 74 72 79 20 33 34 20 22 2e 20 20 20 22 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e ┆ax-entry 34 ". " text-mode-syn┆
0x180…1a0 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 ┆tax-table) (modify-syntax-entry ┆
0x1a0…1c0 39 32 20 22 2e 20 20 20 22 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 ┆92 ". " text-mode-syntax-table┆
0x1c0…1e0 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 77 20 20 20 22 ┆) (modify-syntax-entry 39 "w "┆
0x1e0…200 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 0a 0a 28 64 65 66 76 ┆ text-mode-syntax-table)) (defv┆
0x200…220 61 72 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 69 66 20 ┆ar text-mode-map nil "\ ") (if ┆
0x220…240 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 74 65 78 74 2d 6d 6f 64 ┆text-mode-map nil (setq text-mod┆
0x240…260 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 ┆e-map (make-sparse-keymap)) (def┆
0x260…280 69 6e 65 2d 6b 65 79 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 ┆ine-key text-mode-map " " (quote┆
0x280…2a0 20 74 61 62 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 ┆ tab-to-tab-stop)) (define-key t┆
0x2a0…2c0 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 73 22 20 28 71 75 6f 74 65 20 63 65 6e 74 65 72 2d ┆ext-mode-map " s" (quote center-┆
0x2c0…2e0 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 ┆line)) (define-key text-mode-map┆
0x2e0…300 20 22 1b 53 22 20 28 71 75 6f 74 65 20 63 65 6e 74 65 72 2d 70 61 72 61 67 72 61 70 68 29 29 29 ┆ " S" (quote center-paragraph)))┆
0x300…320 0a 0a 28 64 65 66 75 6e 20 74 65 78 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 ┆ (defun text-mode nil "\ Major ┆
0x320…340 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 74 65 78 74 20 69 6e 74 65 6e 64 65 64 20 66 ┆mode for editing text intended f┆
0x340…360 6f 72 20 68 75 6d 61 6e 73 20 74 6f 20 72 65 61 64 2e 20 20 53 70 65 63 69 61 6c 20 63 6f 6d 6d ┆or humans to read. Special comm┆
0x360…380 61 6e 64 73 3a 5c 5c 7b 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 54 75 72 6e 69 6e 67 20 6f ┆ands:\\{text-mode-map} Turning o┆
0x380…3a0 6e 20 74 65 78 74 2d 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 ┆n text-mode calls the value of t┆
0x3a0…3c0 68 65 20 76 61 72 69 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 2c 0a 69 66 20 74 ┆he variable text-mode-hook, if t┆
0x3c0…3e0 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 ┆hat value is non-nil." (interact┆
0x3e0…400 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 c7 20 88 c8 08 21 88 c9 89 11 88 ca 89 ┆ive) (byte-code " ! ┆
0x400…420 12 88 0c 89 13 88 cb 0d 21 88 cc cd 21 87 22 20 5b 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6d ┆ ! ! " [text-mode-map m┆
0x420…440 6f 64 65 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 ┆ode-name major-mode local-abbrev┆
0x440…460 2d 74 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 74 65 ┆-table text-mode-abbrev-table te┆
0x460…480 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c ┆xt-mode-syntax-table nil kill-al┆
0x480…4a0 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 ┆l-local-variables use-local-map ┆
0x4a0…4c0 22 54 65 78 74 22 20 74 65 78 74 2d 6d 6f 64 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c ┆"Text" text-mode set-syntax-tabl┆
0x4c0…4e0 65 20 72 75 6e 2d 68 6f 6f 6b 73 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 35 29 29 0a ┆e run-hooks text-mode-hook] 5)) ┆
0x4e0…500 0a 28 64 65 66 76 61 72 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 ┆ (defvar indented-text-mode-map ┆
0x500…520 6e 69 6c 29 0a 0a 28 69 66 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 ┆nil) (if indented-text-mode-map┆
0x520…540 20 6e 69 6c 20 28 73 65 74 71 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 ┆ nil (setq indented-text-mode-ma┆
0x540…560 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d ┆p (make-sparse-keymap)) (define-┆
0x560…580 6b 65 79 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22 20 28 ┆key indented-text-mode-map " " (┆
0x580…5a0 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 72 65 6c 61 74 69 76 65 29 29 20 28 64 65 66 69 6e 65 2d ┆quote indent-relative)) (define-┆
0x5a0…5c0 6b 65 79 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 73 22 20 ┆key indented-text-mode-map " s" ┆
0x5c0…5e0 28 71 75 6f 74 65 20 63 65 6e 74 65 72 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 ┆(quote center-line)) (define-key┆
0x5e0…600 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 53 22 20 28 71 75 ┆ indented-text-mode-map " S" (qu┆
0x600…620 6f 74 65 20 63 65 6e 74 65 72 2d 70 61 72 61 67 72 61 70 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 ┆ote center-paragraph))) (defun ┆
0x620…640 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 ┆indented-text-mode nil "\ Major ┆
0x640…660 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 69 6e 64 65 6e 74 65 64 20 74 65 78 74 20 69 ┆mode for editing indented text i┆
0x660…680 6e 74 65 6e 64 65 64 20 66 6f 72 20 68 75 6d 61 6e 73 20 74 6f 20 72 65 61 64 2e 5c 5c 7b 69 6e ┆ntended for humans to read.\\{in┆
0x680…6a0 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 54 75 72 6e 69 6e 67 20 6f 6e ┆dented-text-mode-map} Turning on┆
0x6a0…6c0 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 ┆ indented-text-mode calls the va┆
0x6c0…6e0 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f ┆lue of the variable text-mode-ho┆
0x6e0…700 6f 6b 2c 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 ┆ok, if that value is non-nil." (┆
0x700…720 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 c1 88 c9 20 88 ca 08 ┆interactive) (byte-code " ┆
0x720…740 21 88 cb c3 c1 5c 22 88 0b 89 12 88 cc 0c 21 88 cd c5 21 88 ce 89 15 88 ca 0e 06 21 88 cf 89 16 ┆! \" ! ! ! ┆
0x740…760 07 88 d0 89 16 08 88 d1 d2 21 87 22 20 5b 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 ┆ ! " [text-mode-map nil ┆
0x760…780 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 61 62 62 ┆local-abbrev-table text-mode-abb┆
0x780…7a0 72 65 76 2d 74 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 ┆rev-table text-mode-syntax-table┆
0x7a0…7c0 20 69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 64 65 6e 74 65 64 2d 74 ┆ indent-line-function indented-t┆
0x7c0…7e0 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 ┆ext-mode-map mode-name major-mod┆
0x7e0…800 65 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c ┆e kill-all-local-variables use-l┆
0x800…820 6f 63 61 6c 2d 6d 61 70 20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 73 65 74 ┆ocal-map define-abbrev-table set┆
0x820…840 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c ┆-syntax-table make-local-variabl┆
0x840…860 65 20 69 6e 64 65 6e 74 2d 72 65 6c 61 74 69 76 65 2d 6d 61 79 62 65 20 22 49 6e 64 65 6e 74 65 ┆e indent-relative-maybe "Indente┆
0x860…880 64 20 54 65 78 74 22 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 20 72 75 6e 2d 68 ┆d Text" indented-text-mode run-h┆
0x880…8a0 6f 6f 6b 73 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e ┆ooks text-mode-hook] 8)) (defun┆
0x8a0…8c0 20 63 65 6e 74 65 72 2d 70 61 72 61 67 72 61 70 68 20 6e 69 6c 20 22 5c 0a 43 65 6e 74 65 72 20 ┆ center-paragraph nil "\ Center ┆
0x8c0…8e0 65 61 63 68 20 6c 69 6e 65 20 69 6e 20 74 68 65 20 70 61 72 61 67 72 61 70 68 20 61 74 20 6f 72 ┆each line in the paragraph at or┆
0x8e0…900 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 0a 53 65 65 20 63 65 6e 74 65 72 2d 6c 69 6e 65 20 66 6f ┆ after point. See center-line fo┆
0x900…920 72 20 6d 6f 72 65 20 69 6e 66 6f 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 ┆r more info." (interactive) (byt┆
0x920…940 65 2d 63 6f 64 65 20 22 c1 88 8a c2 20 88 6e 86 0d 00 c3 c4 21 88 60 18 c5 20 88 c6 60 08 5c 22 ┆e-code " n ! ` ` \"┆
0x940…960 29 29 87 22 20 5b 65 6e 64 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 ┆)) " [end nil forward-paragraph ┆
0x960…980 6e 65 77 6c 69 6e 65 20 31 20 62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 63 65 6e ┆newline 1 backward-paragraph cen┆
0x980…9a0 74 65 72 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 65 72 2d 72 ┆ter-region] 6)) (defun center-r┆
0x9a0…9c0 65 67 69 6f 6e 20 28 66 72 6f 6d 20 74 6f 29 20 22 5c 0a 43 65 6e 74 65 72 20 65 61 63 68 20 6c ┆egion (from to) "\ Center each l┆
0x9c0…9e0 69 6e 65 20 73 74 61 72 74 69 6e 67 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 2e 0a 53 65 65 20 ┆ine starting in the region. See ┆
0x9e0…a00 63 65 6e 74 65 72 2d 6c 69 6e 65 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 2e 22 20 28 69 6e 74 ┆center-line for more info." (int┆
0xa00…a20 65 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 08 09 56 85 ┆eractive "r") (byte-code " V ┆
0xa20…a40 10 00 09 1a 08 11 0a 89 10 29 88 8a 08 62 88 60 09 57 85 25 00 c4 20 88 c5 c6 21 88 82 15 00 29 ┆ ) b ` W % ! )┆
0xa40…a60 87 22 20 5b 66 72 6f 6d 20 74 6f 20 74 65 6d 20 6e 69 6c 20 63 65 6e 74 65 72 2d 6c 69 6e 65 20 ┆ " [from to tem nil center-line ┆
0xa60…a80 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 ┆forward-line 1] 4)) (defun cent┆
0xa80…aa0 65 72 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 43 65 6e 74 65 72 20 74 68 65 20 6c 69 6e 65 20 70 ┆er-line nil "\ Center the line p┆
0xaa0…ac0 6f 69 6e 74 20 69 73 20 6f 6e 2e 0a 54 68 69 73 20 6d 65 61 6e 73 20 61 64 6a 75 73 74 69 6e 67 ┆oint is on. This means adjusting┆
0xac0…ae0 20 69 74 73 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 6f 20 6d 61 74 63 68 0a 74 68 65 20 64 69 ┆ its indentation to match the di┆
0xae0…b00 73 74 61 6e 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 74 65 ┆stance between the end of the te┆
0xb00…b20 78 74 20 61 6e 64 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 ┆xt and fill-column." (interactiv┆
0xb20…b40 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8a c3 18 c4 20 88 c5 20 88 c6 20 88 c5 20 88 ┆e) (byte-code " ┆
0xb40…b60 69 89 10 88 c4 20 88 09 c7 c8 0a 09 08 23 c9 5c 22 5c 5c 6a 29 29 87 22 20 5b 6c 69 6e 65 2d 6c ┆i # \"\\j)) " [line-l┆
0xb60…b80 65 6e 67 74 68 20 6c 65 66 74 2d 6d 61 72 67 69 6e 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6e 69 ┆ength left-margin fill-column ni┆
0xb80…ba0 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 64 65 6c 65 74 65 2d 68 6f 72 69 7a ┆l beginning-of-line delete-horiz┆
0xba0…bc0 6f 6e 74 61 6c 2d 73 70 61 63 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 2f 20 2d 20 32 5d 20 31 ┆ontal-space end-of-line / - 2] 1┆
0xbc0…bc4 31 29 29 0a ┆1)) ┆