DataMuseum.dk

top - metrics - download

    Length: 3041 (0xbe1)
    Names: »text-mode.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/text-mode.elc« 

Hex Dump

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 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33   ┆x-table)) (modify-syntax-entry 3┆
0x140…160 34 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 29   ┆4 ".   " text-mode-syntax-table)┆
0x160…180 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 32 20 22 2e 20 20 20 22 20   ┆ (modify-syntax-entry 92 ".   " ┆
0x180…1a0 74 65 78 74 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   ┆text-mode-syntax-table) (modify-┆
0x1a0…1c0 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 77 20 20 20 22 20 74 65 78 74 2d 6d 6f 64 65   ┆syntax-entry 39 "w   " text-mode┆
0x1c0…1e0 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 0a 0a 28 64 65 66 76 61 72 20 74 65 78 74 2d 6d 6f   ┆-syntax-table))  (defvar text-mo┆
0x1e0…200 64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 69 66 20 74 65 78 74 2d 6d 6f 64 65 2d   ┆de-map nil "\ ")  (if text-mode-┆
0x200…220 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b   ┆map nil (setq text-mode-map (mak┆
0x220…240 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 6b 65 79 20 74 65   ┆e-sparse-keymap)) (define-key te┆
0x240…260 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 74 61 62 2d 74 6f 2d 74 61   ┆xt-mode-map " " (quote tab-to-ta┆
0x260…280 62 2d 73 74 6f 70 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   ┆b-stop)) (define-key text-mode-m┆
0x280…2a0 61 70 20 22 1b 73 22 20 28 71 75 6f 74 65 20 63 65 6e 74 65 72 2d 6c 69 6e 65 29 29 20 28 64 65   ┆ap " s" (quote center-line)) (de┆
0x2a0…2c0 66 69 6e 65 2d 6b 65 79 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 53 22 20 28 71 75 6f   ┆fine-key text-mode-map " S" (quo┆
0x2c0…2e0 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 74   ┆te center-paragraph)))  (defun t┆
0x2e0…300 65 78 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65   ┆ext-mode nil "\ Major mode for e┆
0x300…320 64 69 74 69 6e 67 20 74 65 78 74 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 68 75 6d 61 6e 73 20   ┆diting text intended for humans ┆
0x320…340 74 6f 20 72 65 61 64 2e 20 20 53 70 65 63 69 61 6c 20 63 6f 6d 6d 61 6e 64 73 3a 5c 5c 7b 74 65   ┆to read.  Special commands:\\{te┆
0x340…360 78 74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 54 75 72 6e 69 6e 67 20 6f 6e 20 74 65 78 74 2d 6d 6f 64   ┆xt-mode-map} Turning on text-mod┆
0x360…380 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c   ┆e calls the value of the variabl┆
0x380…3a0 65 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 2c 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20   ┆e text-mode-hook, if that value ┆
0x3a0…3c0 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65   ┆is non-nil." (interactive) (byte┆
0x3c0…3e0 2d 63 6f 64 65 20 22 c6 88 c7 20 88 c8 08 21 88 c9 89 11 88 ca 89 12 88 0c 89 13 88 cb 0d 21 88   ┆-code "       !               ! ┆
0x3e0…400 cc cd 21 87 22 20 5b 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d   ┆  ! " [text-mode-map mode-name m┆
0x400…420 61 6a 6f 72 2d 6d 6f 64 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 74 65 78   ┆ajor-mode local-abbrev-table tex┆
0x420…440 74 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79   ┆t-mode-abbrev-table text-mode-sy┆
0x440…460 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61   ┆ntax-table nil kill-all-local-va┆
0x460…480 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 22 54 65 78 74 22 20 74 65 78   ┆riables use-local-map "Text" tex┆
0x480…4a0 74 2d 6d 6f 64 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 72 75 6e 2d 68 6f 6f 6b   ┆t-mode set-syntax-table run-hook┆
0x4a0…4c0 73 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 35 29 29 0a 0a 28 64 65 66 76 61 72 20 69   ┆s text-mode-hook] 5))  (defvar i┆
0x4c0…4e0 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20   ┆ndented-text-mode-map nil)  (if ┆
0x4e0…500 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71   ┆indented-text-mode-map nil (setq┆
0x500…520 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70   ┆ indented-text-mode-map (make-sp┆
0x520…540 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 64 65 6e 74   ┆arse-keymap)) (define-key indent┆
0x540…560 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 69 6e 64 65   ┆ed-text-mode-map " " (quote inde┆
0x560…580 6e 74 2d 72 65 6c 61 74 69 76 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 64 65 6e 74   ┆nt-relative)) (define-key indent┆
0x580…5a0 65 64 2d 74 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   ┆ed-text-mode-map " s" (quote cen┆
0x5a0…5c0 74 65 72 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 64 65 6e 74 65 64 2d   ┆ter-line)) (define-key indented-┆
0x5c0…5e0 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 53 22 20 28 71 75 6f 74 65 20 63 65 6e 74 65 72   ┆text-mode-map " S" (quote center┆
0x5e0…600 2d 70 61 72 61 67 72 61 70 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e 74 65 64 2d 74   ┆-paragraph)))  (defun indented-t┆
0x600…620 65 78 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65   ┆ext-mode nil "\ Major mode for e┆
0x620…640 64 69 74 69 6e 67 20 69 6e 64 65 6e 74 65 64 20 74 65 78 74 20 69 6e 74 65 6e 64 65 64 20 66 6f   ┆diting indented text intended fo┆
0x640…660 72 20 68 75 6d 61 6e 73 20 74 6f 20 72 65 61 64 2e 5c 5c 7b 69 6e 64 65 6e 74 65 64 2d 74 65 78   ┆r humans to read.\\{indented-tex┆
0x660…680 74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 54 75 72 6e 69 6e 67 20 6f 6e 20 69 6e 64 65 6e 74 65 64 2d   ┆t-mode-map} Turning on indented-┆
0x680…6a0 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 68 65   ┆text-mode calls the value of the┆
0x6a0…6c0 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 68 61   ┆ variable text-mode-hook, if tha┆
0x6c0…6e0 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 69 76   ┆t value is non-nil." (interactiv┆
0x6e0…700 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c9 20 88 ca 08 21 88 cb c3 c1 5c 22 88 0b 89   ┆e) (byte-code "       !    \"   ┆
0x700…720 12 88 cc 0c 21 88 cd c5 21 88 ce 89 15 88 ca 0e 06 21 88 cf 89 16 07 88 d0 89 16 08 88 d1 d2 21   ┆    !   !        !             !┆
0x720…740 87 22 20 5b 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 6c 6f 63 61 6c 2d 61 62 62 72   ┆ " [text-mode-map nil local-abbr┆
0x740…760 65 76 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   ┆ev-table text-mode-abbrev-table ┆
0x760…780 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 69 6e 64 65 6e 74 2d 6c 69   ┆text-mode-syntax-table indent-li┆
0x780…7a0 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d   ┆ne-function indented-text-mode-m┆
0x7a0…7c0 61 70 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6b 69 6c 6c 2d 61 6c 6c   ┆ap mode-name major-mode kill-all┆
0x7c0…7e0 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 64   ┆-local-variables use-local-map d┆
0x7e0…800 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61   ┆efine-abbrev-table set-syntax-ta┆
0x800…820 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 69 6e 64 65 6e 74 2d 72   ┆ble make-local-variable indent-r┆
0x820…840 65 6c 61 74 69 76 65 2d 6d 61 79 62 65 20 22 49 6e 64 65 6e 74 65 64 20 54 65 78 74 22 20 69 6e   ┆elative-maybe "Indented Text" in┆
0x840…860 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 20 72 75 6e 2d 68 6f 6f 6b 73 20 74 65 78 74 2d   ┆dented-text-mode run-hooks text-┆
0x860…880 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 65 72 2d 70 61   ┆mode-hook] 8))  (defun center-pa┆
0x880…8a0 72 61 67 72 61 70 68 20 6e 69 6c 20 22 5c 0a 43 65 6e 74 65 72 20 65 61 63 68 20 6c 69 6e 65 20   ┆ragraph nil "\ Center each line ┆
0x8a0…8c0 69 6e 20 74 68 65 20 70 61 72 61 67 72 61 70 68 20 61 74 20 6f 72 20 61 66 74 65 72 20 70 6f 69   ┆in the paragraph at or after poi┆
0x8c0…8e0 6e 74 2e 0a 53 65 65 20 63 65 6e 74 65 72 2d 6c 69 6e 65 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66   ┆nt. See center-line for more inf┆
0x8e0…900 6f 2e 22 20 28 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   ┆o." (interactive) (byte-code "  ┆
0x900…920 8a c2 20 88 6e 86 0d 00 c3 c4 21 88 60 18 c5 20 88 c6 60 08 5c 22 29 29 87 22 20 5b 65 6e 64 20   ┆    n     ! `     ` \")) " [end ┆
0x920…940 6e 69 6c 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 6e 65 77 6c 69 6e 65 20 31 20   ┆nil forward-paragraph newline 1 ┆
0x940…960 62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 63 65 6e 74 65 72 2d 72 65 67 69 6f 6e   ┆backward-paragraph center-region┆
0x960…980 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 65 72 2d 72 65 67 69 6f 6e 20 28 66 72 6f   ┆] 6))  (defun center-region (fro┆
0x980…9a0 6d 20 74 6f 29 20 22 5c 0a 43 65 6e 74 65 72 20 65 61 63 68 20 6c 69 6e 65 20 73 74 61 72 74 69   ┆m to) "\ Center each line starti┆
0x9a0…9c0 6e 67 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 2e 0a 53 65 65 20 63 65 6e 74 65 72 2d 6c 69 6e   ┆ng in the region. See center-lin┆
0x9c0…9e0 65 20 66 6f 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 20 22   ┆e for more info." (interactive "┆
0x9e0…a00 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 08 09 56 85 10 00 09 1a 08 11 0a 89 10 29   ┆r") (byte-code "    V          )┆
0xa00…a20 88 8a 8c c4 08 09 5c 22 88 08 62 88 6d 3f 85 2a 00 c5 20 88 c6 c7 21 88 82 1b 00 29 29 87 22 20   ┆      \"  b m? *      !    )) " ┆
0xa20…a40 5b 66 72 6f 6d 20 74 6f 20 74 65 6d 20 6e 69 6c 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f   ┆[from to tem nil narrow-to-regio┆
0xa40…a60 6e 20 63 65 6e 74 65 72 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 35 29   ┆n center-line forward-line 1] 5)┆
0xa60…a80 29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 65 72 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 43 65 6e   ┆)  (defun center-line nil "\ Cen┆
0xa80…aa0 74 65 72 20 74 68 65 20 6c 69 6e 65 20 70 6f 69 6e 74 20 69 73 20 6f 6e 2c 20 77 69 74 68 69 6e   ┆ter the line point is on, within┆
0xaa0…ac0 20 74 68 65 20 77 69 64 74 68 20 73 70 65 63 69 66 69 65 64 20 62 79 20 60 66 69 6c 6c 2d 63 6f   ┆ the width specified by `fill-co┆
0xac0…ae0 6c 75 6d 6e 27 2e 0a 54 68 69 73 20 6d 65 61 6e 73 20 61 64 6a 75 73 74 69 6e 67 20 74 68 65 20   ┆lumn'. This means adjusting the ┆
0xae0…b00 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 73 74 61 6e 63   ┆indentation to match the distanc┆
0xb00…b20 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 78 74 20 61 6e   ┆e between the end of the text an┆
0xb20…b40 64 20 60 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 27 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20   ┆d `fill-column'." (interactive) ┆
0xb40…b60 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 69 89 10   ┆(byte-code "                 i  ┆
0xb60…b80 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 65 6e 67   ┆          # \"\\j)) " [line-leng┆
0xb80…ba0 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 6c 20 62   ┆th left-margin fill-column nil b┆
0xba0…bc0 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 6f 6e 74   ┆eginning-of-line delete-horizont┆
0xbc0…be0 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 31 29 29   ┆al-space end-of-line / - 2] 11))┆
0xbe0…be1 0a   ┆ ┆