|
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: ┃ m ┃
Length: 20264 (0x4f28)
Names: »mim-mode.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/mim-mode.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 6d 69 6d 2d 6d 6f 64 65 29 29 0a 0a 28 61 75 ┆ (provide (quote mim-mode)) (au┆
0x0020…0040 74 6f 6c 6f 61 64 20 28 71 75 6f 74 65 20 66 61 73 74 2d 73 79 6e 74 61 78 2d 63 68 65 63 6b 2d ┆toload (quote fast-syntax-check-┆
0x0040…0060 6d 69 6d 29 20 22 6d 69 6d 2d 73 79 6e 74 61 78 22 20 22 5c 0a 43 68 65 63 6b 73 20 4d 69 6d 20 ┆mim) "mim-syntax" "\ Checks Mim ┆
0x0060…0080 73 79 6e 74 61 78 20 71 75 69 63 6b 6c 79 2e 0a 41 6e 73 77 65 72 73 20 63 6f 72 72 65 63 74 20 ┆syntax quickly. Answers correct ┆
0x0080…00a0 6f 72 20 69 6e 63 6f 72 72 65 63 74 2c 20 63 61 6e 6e 6f 74 20 70 6f 69 6e 74 20 6f 75 74 20 74 ┆or incorrect, cannot point out t┆
0x00a0…00c0 68 65 20 65 72 72 6f 72 20 63 6f 6e 74 65 78 74 2e 22 20 74 29 0a 0a 28 61 75 74 6f 6c 6f 61 64 ┆he error context." t) (autoload┆
0x00c0…00e0 20 28 71 75 6f 74 65 20 73 6c 6f 77 2d 73 79 6e 74 61 78 2d 63 68 65 63 6b 2d 6d 69 6d 29 20 22 ┆ (quote slow-syntax-check-mim) "┆
0x00e0…0100 6d 69 6d 2d 73 79 6e 74 61 78 22 20 22 5c 0a 43 68 65 63 6b 20 4d 69 6d 20 73 79 6e 74 61 78 20 ┆mim-syntax" "\ Check Mim syntax ┆
0x0100…0120 73 6c 6f 77 6c 79 2e 0a 50 6f 69 6e 74 73 20 6f 75 74 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f ┆slowly. Points out the context o┆
0x0120…0140 66 20 74 68 65 20 65 72 72 6f 72 2c 20 69 66 20 74 68 65 20 73 79 6e 74 61 78 20 69 73 20 69 6e ┆f the error, if the syntax is in┆
0x0140…0160 63 6f 72 72 65 63 74 2e 22 20 74 29 0a 0a 28 64 65 66 76 61 72 20 6d 69 6d 2d 6d 6f 64 65 2d 68 ┆correct." t) (defvar mim-mode-h┆
0x0160…0180 79 73 74 65 72 69 63 61 6c 2d 62 69 6e 64 69 6e 67 73 20 74 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c ┆ysterical-bindings t "\ *Non-nil┆
0x0180…01a0 20 6d 65 61 6e 73 20 62 69 6e 64 20 6c 69 73 74 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 63 6f ┆ means bind list manipulation co┆
0x01a0…01c0 6d 6d 61 6e 64 73 20 74 6f 20 4d 65 74 61 20 6b 65 79 73 20 61 73 20 77 65 6c 6c 20 61 73 0a 43 ┆mmands to Meta keys as well as C┆
0x01c0…01e0 6f 6e 74 72 6f 6c 2d 4d 65 74 61 20 6b 65 79 73 20 66 6f 72 20 68 69 73 74 6f 72 69 63 61 6c 20 ┆ontrol-Meta keys for historical ┆
0x01e0…0200 72 65 61 73 6f 6e 73 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 6f 6e 6c 79 20 74 68 65 20 6c 61 ┆reasons. Otherwise, only the la┆
0x0200…0220 74 74 65 72 20 6b 65 79 73 0a 61 72 65 20 62 6f 75 6e 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 ┆tter keys are bound.") (defvar ┆
0x0220…0240 6d 69 6d 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 6d 69 6d 2d 6d ┆mim-mode-map nil) (defvar mim-m┆
0x0240…0260 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 29 0a 0a 28 69 66 20 6d 69 6d 2d 6d ┆ode-syntax-table nil) (if mim-m┆
0x0260…0280 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 28 6c 65 74 20 28 28 69 20 2d 31 ┆ode-syntax-table nil (let ((i -1┆
0x0280…02a0 29 29 20 28 73 65 74 71 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 ┆)) (setq mim-mode-syntax-table (┆
0x02a0…02c0 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 ┆make-syntax-table)) (while (< i ┆
0x02c0…02e0 33 32 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 28 73 65 74 71 20 69 ┆32) (modify-syntax-entry (setq i┆
0x02e0…0300 20 28 31 2b 20 69 29 29 20 22 20 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d ┆ (1+ i)) " " mim-mode-syntax-┆
0x0300…0320 74 61 62 6c 65 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 31 32 37 29 20 28 6d 6f 64 69 66 79 ┆table)) (while (< i 127) (modify┆
0x0320…0340 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 20 22 5f ┆-syntax-entry (setq i (1+ i)) "_┆
0x0340…0360 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 20 28 73 65 ┆ " mim-mode-syntax-table)) (se┆
0x0360…0380 74 71 20 69 20 28 31 2d 20 39 37 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 31 32 32 29 20 28 ┆tq i (1- 97)) (while (< i 122) (┆
0x0380…03a0 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 28 73 65 74 71 20 69 20 28 31 2b 20 ┆modify-syntax-entry (setq i (1+ ┆
0x03a0…03c0 69 29 29 20 22 77 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 ┆i)) "w " mim-mode-syntax-table┆
0x03c0…03e0 29 29 20 28 73 65 74 71 20 69 20 28 31 2d 20 36 35 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 ┆)) (setq i (1- 65)) (while (< i ┆
0x03e0…0400 39 30 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 28 73 65 74 71 20 69 ┆90) (modify-syntax-entry (setq i┆
0x0400…0420 20 28 31 2b 20 69 29 29 20 22 77 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d ┆ (1+ i)) "w " mim-mode-syntax-┆
0x0420…0440 74 61 62 6c 65 29 29 20 28 73 65 74 71 20 69 20 28 31 2d 20 34 38 29 29 20 28 77 68 69 6c 65 20 ┆table)) (setq i (1- 48)) (while ┆
0x0440…0460 28 3c 20 69 20 35 37 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 28 73 ┆(< i 57) (modify-syntax-entry (s┆
0x0460…0480 65 74 71 20 69 20 28 31 2b 20 69 29 29 20 22 77 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 ┆etq i (1+ i)) "w " mim-mode-sy┆
0x0480…04a0 6e 74 61 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 ┆ntax-table)) (modify-syntax-entr┆
0x04a0…04c0 79 20 35 38 20 22 20 20 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 ┆y 58 " " mim-mode-syntax-tab┆
0x04c0…04e0 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 34 34 20 22 27 20 20 ┆le) (modify-syntax-entry 44 "' ┆
0x04e0…0500 20 20 22 20 6d 69 6d 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 ┆ " mim-mode-syntax-table) (modi┆
0x0500…0520 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 36 20 22 27 20 20 20 20 22 20 6d 69 6d 2d 6d ┆fy-syntax-entry 46 "' " mim-m┆
0x0520…0540 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 61 78 ┆ode-syntax-table) (modify-syntax┆
0x0540…0560 2d 65 6e 74 72 79 20 33 39 20 22 27 20 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 ┆-entry 39 "' " mim-mode-synta┆
0x0560…0580 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 39 36 ┆x-table) (modify-syntax-entry 96┆
0x0580…05a0 20 22 27 20 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 ┆ "' " mim-mode-syntax-table) ┆
0x05a0…05c0 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 36 20 22 27 20 20 20 20 22 ┆(modify-syntax-entry 126 "' "┆
0x05c0…05e0 20 6d 69 6d 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 ┆ mim-mode-syntax-table) (modify-┆
0x05e0…0600 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 35 39 20 22 27 20 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 ┆syntax-entry 59 "' " mim-mode┆
0x0600…0620 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 61 78 2d 65 6e ┆-syntax-table) (modify-syntax-en┆
0x0620…0640 74 72 79 20 33 35 20 22 27 20 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 ┆try 35 "' " mim-mode-syntax-t┆
0x0640…0660 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 33 37 20 22 27 ┆able) (modify-syntax-entry 37 "'┆
0x0660…0680 20 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f ┆ " mim-mode-syntax-table) (mo┆
0x0680…06a0 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 33 20 22 27 20 20 20 20 22 20 6d 69 6d ┆dify-syntax-entry 33 "' " mim┆
0x06a0…06c0 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┆
0x06c0…06e0 61 78 2d 65 6e 74 72 79 20 33 34 20 22 5c 22 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e ┆ax-entry 34 "\" " mim-mode-syn┆
0x06e0…0700 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 ┆
0x0700…0720 39 32 20 22 5c 5c 20 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 ┆92 "\\ " mim-mode-syntax-table┆
0x0720…0740 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 28 29 20 20 22 ┆) (modify-syntax-entry 40 "() "┆
0x0740…0760 20 6d 69 6d 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 ┆ mim-mode-syntax-table) (modify-┆
0x0760…0780 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 30 20 22 28 3e 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d ┆syntax-entry 60 "(> " mim-mode-┆
0x0780…07a0 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 61 78 2d 65 6e 74 ┆syntax-table) (modify-syntax-ent┆
0x07a0…07c0 72 79 20 31 32 33 20 22 28 7d 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 ┆ry 123 "(} " mim-mode-syntax-ta┆
0x07c0…07e0 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 39 31 20 22 28 5d ┆ble) (modify-syntax-entry 91 "(]┆
0x07e0…0800 20 20 22 20 6d 69 6d 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 ┆ " mim-mode-syntax-table) (modi┆
0x0800…0820 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 31 20 22 29 28 20 20 22 20 6d 69 6d 2d 6d 6f ┆fy-syntax-entry 41 ")( " mim-mo┆
0x0820…0840 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 61 78 2d ┆de-syntax-table) (modify-syntax-┆
0x0840…0860 65 6e 74 72 79 20 36 32 20 22 29 3c 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d ┆entry 62 ")< " mim-mode-syntax-┆
0x0860…0880 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 31 32 35 20 ┆table) (modify-syntax-entry 125 ┆
0x0880…08a0 22 29 7b 20 20 22 20 6d 69 6d 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d ┆"){ " mim-mode-syntax-table) (m┆
0x08a0…08c0 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 33 20 22 29 5b 20 20 22 20 6d 69 6d ┆odify-syntax-entry 93 ")[ " mim┆
0x08c0…08e0 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 ┆-mode-syntax-table))) (defconst┆
0x08e0…0900 20 6d 69 6d 2d 77 68 69 74 65 73 70 61 63 65 20 22 00 2d 20 22 29 0a 0a 28 64 65 66 76 61 72 20 ┆ mim-whitespace " - ") (defvar ┆
0x0900…0920 6d 69 6d 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 2a 55 73 65 72 20 66 75 6e 63 74 ┆mim-mode-hook nil "\ *User funct┆
0x0920…0940 69 6f 6e 20 72 75 6e 20 61 66 74 65 72 20 6d 69 6d 20 6d 6f 64 65 20 69 6e 69 74 69 61 6c 69 7a ┆ion run after mim mode initializ┆
0x0940…0960 61 74 69 6f 6e 2e 20 20 55 73 61 67 65 3a 0a 28 73 65 74 71 20 6d 69 6d 2d 6d 6f 64 65 2d 68 6f ┆ation. Usage: (setq mim-mode-ho┆
0x0960…0980 6f 6b 20 27 28 6c 61 6d 62 64 61 20 28 29 20 2e 2e 2e 20 79 6f 75 72 20 69 6e 69 74 20 66 6f 72 ┆ok '(lambda () ... your init for┆
0x0980…09a0 6d 73 20 2e 2e 2e 29 29 2e 22 29 0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c ┆ms ...)).") (define-abbrev-tabl┆
0x09a0…09c0 65 20 28 71 75 6f 74 65 20 6d 69 6d 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 29 20 ┆e (quote mim-mode-abbrev-table) ┆
0x09c0…09e0 6e 69 6c 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 20 ┆nil) (defconst indent-mim-hook ┆
0x09e0…0a00 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 29 20 22 5c 0a 43 6f 6e 74 72 ┆(quote indent-mim-hook) "\ Contr┆
0x0a00…0a20 6f 6c 73 20 28 76 69 61 20 70 72 6f 70 65 72 74 69 65 73 29 20 69 6e 64 65 6e 74 69 6e 67 20 6f ┆ols (via properties) indenting o┆
0x0a20…0a40 66 20 73 70 65 63 69 61 6c 20 66 6f 72 6d 73 2e 0a 28 70 75 74 20 27 46 4f 4f 20 27 69 6e 64 65 ┆f special forms. (put 'FOO 'inde┆
0x0a40…0a60 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 20 6e 29 2c 20 69 6e 74 65 67 65 72 20 6e 2c 20 6d 65 61 6e 73 ┆nt-mim-hook n), integer n, means┆
0x0a60…0a80 20 6c 69 6e 65 73 20 69 6e 73 69 64 65 0a 3c 46 4f 4f 20 2e 2e 2e 3e 20 77 69 6c 6c 20 62 65 20 ┆ lines inside <FOO ...> will be ┆
0x0a80…0aa0 69 6e 64 65 6e 74 65 64 20 6e 20 73 70 61 63 65 73 20 66 72 6f 6d 20 73 74 61 72 74 20 6f 66 20 ┆indented n spaces from start of ┆
0x0aa0…0ac0 66 6f 72 6d 2e 0a 28 70 75 74 20 27 46 4f 4f 20 27 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b ┆form. (put 'FOO 'indent-mim-hook┆
0x0ac0…0ae0 20 27 44 45 46 49 4e 45 29 20 69 73 20 6c 69 6b 65 20 61 62 6f 76 65 20 62 75 74 20 6d 65 61 6e ┆ 'DEFINE) is like above but mean┆
0x0ae0…0b00 73 20 75 73 65 0a 76 61 6c 75 65 20 6f 66 20 6d 69 6d 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 61 ┆s use value of mim-body-indent a┆
0x0b00…0b20 73 20 6f 66 66 73 65 74 20 66 72 6f 6d 20 73 74 61 72 74 20 6f 66 20 66 6f 72 6d 2e 0a 28 70 75 ┆s offset from start of form. (pu┆
0x0b20…0b40 74 20 27 46 4f 4f 20 27 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 20 3c 63 6f 6e 73 3e 29 20 ┆t 'FOO 'indent-mim-hook <cons>) ┆
0x0b40…0b60 77 68 65 72 65 20 3c 63 6f 6e 73 3e 20 69 73 20 61 20 6c 69 73 74 20 6f 72 20 70 6f 69 6e 74 74 ┆where <cons> is a list or pointt┆
0x0b60…0b80 65 64 20 6c 69 73 74 0a 6f 66 20 69 6e 74 65 67 65 72 73 2c 20 6d 65 61 6e 73 20 69 6e 64 65 6e ┆ed list of integers, means inden┆
0x0b80…0ba0 74 20 65 61 63 68 20 66 6f 72 6d 20 69 6e 20 3c 46 4f 4f 20 2e 2e 2e 3e 20 62 79 20 74 68 65 20 ┆t each form in <FOO ...> by the ┆
0x0ba0…0bc0 61 6d 6f 75 6e 74 20 73 70 65 63 69 66 69 65 64 0a 69 6e 20 3c 63 6f 6e 73 3e 2e 20 20 57 68 65 ┆amount specified in <cons>. Whe┆
0x0bc0…0be0 6e 20 3c 63 6f 6e 73 3e 20 69 73 20 65 78 68 61 75 73 74 65 64 2c 20 69 6e 64 65 6e 74 20 72 65 ┆n <cons> is exhausted, indent re┆
0x0be0…0c00 6d 61 69 6e 69 6e 67 20 66 6f 72 6d 73 20 62 79 0a 6d 69 6d 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 ┆maining forms by mim-body-indent┆
0x0c00…0c20 20 75 6e 6c 65 73 73 20 3c 63 6f 6e 73 3e 20 69 73 20 61 20 70 6f 69 6e 74 74 65 64 20 6c 69 73 ┆ unless <cons> is a pointted lis┆
0x0c20…0c40 74 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 74 68 65 20 6c 61 73 74 0a 63 64 72 20 69 73 ┆t, in which case the last cdr is┆
0x0c40…0c60 20 75 73 65 64 2e 20 20 43 6f 6e 66 75 73 65 64 3f 20 48 65 72 65 20 69 73 20 61 6e 20 65 78 61 ┆ used. Confused? Here is an exa┆
0x0c60…0c80 6d 70 6c 65 3a 0a 28 70 75 74 20 27 46 52 4f 42 49 54 20 27 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 ┆mple: (put 'FROBIT 'indent-mim-h┆
0x0c80…0ca0 6f 6f 6b 20 27 28 34 20 32 20 2e 20 31 29 29 0a 3c 46 52 4f 42 49 54 0a 20 20 20 20 20 3c 43 48 ┆ook '(4 2 . 1)) <FROBIT <CH┆
0x0ca0…0cc0 4f 4d 50 2d 49 54 3e 0a 20 20 20 3c 43 48 4f 4d 50 2d 53 4f 4d 45 2d 4d 4f 52 45 3e 0a 20 20 3c ┆OMP-IT> <CHOMP-SOME-MORE> <┆
0x0cc0…0ce0 44 49 47 45 53 54 3e 0a 20 20 3c 42 45 4c 43 48 3e 0a 20 20 2e 2e 2e 3e 0a 46 69 6e 61 6c 6c 79 ┆DIGEST> <BELCH> ...> Finally┆
0x0ce0…0d00 2c 20 74 68 65 20 70 72 6f 70 65 72 74 79 20 63 61 6e 20 62 65 20 61 20 66 75 6e 63 74 69 6f 6e ┆, the property can be a function┆
0x0d00…0d20 20 6e 61 6d 65 20 28 72 65 61 64 20 74 68 65 20 63 6f 64 65 29 2e 22 29 0a 0a 28 64 65 66 76 61 ┆ name (read the code).") (defva┆
0x0d20…0d40 72 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 63 6f 6d 6d 65 6e 74 20 74 20 22 5c 0a 2a 4e 6f 6e 2d 6e ┆r indent-mim-comment t "\ *Non-n┆
0x0d40…0d60 69 6c 20 6d 65 61 6e 73 20 69 6e 64 65 6e 74 20 73 74 72 69 6e 67 20 63 6f 6d 6d 65 6e 74 73 2e ┆il means indent string comments.┆
0x0d60…0d80 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 69 6d 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 32 20 22 5c ┆") (defvar mim-body-indent 2 "\┆
0x0d80…0da0 0a 2a 41 6d 6f 75 6e 74 20 74 6f 20 69 6e 64 65 6e 74 20 69 6e 20 73 70 65 63 69 61 6c 20 66 6f ┆ *Amount to indent in special fo┆
0x0da0…0dc0 72 6d 73 20 77 68 69 63 68 20 68 61 76 65 20 44 45 46 49 4e 45 20 70 72 6f 70 65 72 74 79 20 6f ┆rms which have DEFINE property o┆
0x0dc0…0de0 6e 0a 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 69 6e ┆n indent-mim-hook.") (defvar in┆
0x0de0…0e00 64 65 6e 74 2d 6d 69 6d 2d 61 72 67 6c 69 73 74 20 74 20 22 5c 0a 2a 6e 69 6c 20 6d 65 61 6e 73 ┆dent-mim-arglist t "\ *nil means┆
0x0e00…0e20 20 69 6e 64 65 6e 74 20 61 72 67 6c 69 73 74 73 20 6c 69 6b 65 20 6f 72 64 69 6e 61 72 79 20 6c ┆ indent arglists like ordinary l┆
0x0e20…0e40 69 73 74 73 2e 0a 74 20 6d 65 61 6e 73 20 73 74 72 69 6e 67 73 20 73 74 61 63 6b 20 75 6e 64 65 ┆ists. t means strings stack unde┆
0x0e40…0e60 72 20 73 74 61 72 74 20 6f 66 20 61 72 67 6c 69 73 74 20 61 6e 64 20 76 61 72 69 61 62 6c 65 73 ┆r start of arglist and variables┆
0x0e60…0e80 20 73 74 61 63 6b 20 74 6f 0a 72 69 67 68 74 20 6f 66 20 74 68 65 6d 2e 20 20 4f 74 68 65 72 77 ┆ stack to right of them. Otherw┆
0x0e80…0ea0 69 73 65 2c 20 73 74 72 69 6e 67 73 20 73 74 61 63 6b 20 75 6e 64 65 72 20 6c 61 73 74 20 73 74 ┆ise, strings stack under last st┆
0x0ea0…0ec0 72 69 6e 67 20 28 6f 72 20 73 74 61 72 74 0a 6f 66 20 61 72 67 6c 69 73 74 20 69 66 20 6e 6f 6e ┆ring (or start of arglist if non┆
0x0ec0…0ee0 65 29 20 61 6e 64 20 76 61 72 69 61 62 6c 65 73 20 73 74 61 63 6b 20 74 6f 20 72 69 67 68 74 20 ┆e) and variables stack to right ┆
0x0ee0…0f00 6f 66 20 74 68 65 6d 2e 0a 45 78 61 6d 70 6c 65 73 20 28 66 6f 72 20 76 61 6c 75 65 73 20 27 73 ┆of them. Examples (for values 's┆
0x0f00…0f20 74 61 63 6b 2c 20 74 2c 20 6e 69 6c 29 3a 0a 0a 28 46 4f 4f 20 5c 22 4f 50 54 5c 22 20 42 41 52 ┆tack, t, nil): (FOO \"OPT\" BAR┆
0x0f20…0f40 20 20 20 20 20 20 20 20 20 20 20 20 20 28 46 4f 4f 20 5c 22 4f 50 54 5c 22 20 42 41 52 20 20 20 ┆ (FOO \"OPT\" BAR ┆
0x0f40…0f60 20 20 20 20 20 20 20 20 20 28 46 4f 4f 20 5c 22 4f 50 54 5c 22 20 42 41 52 0a 20 20 20 20 20 20 ┆ (FOO \"OPT\" BAR ┆
0x0f60…0f80 20 20 20 20 20 42 41 5a 20 4d 55 4d 42 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BAZ MUMBLE ┆
0x0f80…0fa0 42 41 5a 20 4d 55 4d 42 4c 45 20 20 20 20 20 20 42 41 5a 20 4d 55 4d 42 4c 45 0a 20 20 20 20 20 ┆BAZ MUMBLE BAZ MUMBLE ┆
0x0fa0…0fc0 5c 22 41 55 58 5c 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 22 41 55 58 5c 22 ┆\"AUX\" \"AUX\"┆
0x0fc0…0fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 22 41 55 58 5c 22 0a 20 20 20 ┆ \"AUX\" ┆
0x0fe0…1000 20 20 42 4c 45 54 43 48 20 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 42 4c 45 54 43 48 20 ┆ BLETCH ... BLETCH ┆
0x1000…1020 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 4c 45 54 43 48 20 2e 2e 2e 22 29 0a ┆... BLETCH ...") ┆
0x1020…1040 0a 28 70 75 74 20 28 71 75 6f 74 65 20 44 45 46 49 4e 45 29 20 28 71 75 6f 74 65 20 69 6e 64 65 ┆ (put (quote DEFINE) (quote inde┆
0x1040…1060 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 29 20 28 71 75 6f 74 65 20 44 45 46 49 4e 45 29 29 0a 0a 28 70 ┆nt-mim-hook) (quote DEFINE)) (p┆
0x1060…1080 75 74 20 28 71 75 6f 74 65 20 44 45 46 4d 41 43 29 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d ┆ut (quote DEFMAC) (quote indent-┆
0x1080…10a0 6d 69 6d 2d 68 6f 6f 6b 29 20 28 71 75 6f 74 65 20 44 45 46 49 4e 45 29 29 0a 0a 28 70 75 74 20 ┆mim-hook) (quote DEFINE)) (put ┆
0x10a0…10c0 28 71 75 6f 74 65 20 42 49 4e 44 29 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 ┆(quote BIND) (quote indent-mim-h┆
0x10c0…10e0 6f 6f 6b 29 20 28 71 75 6f 74 65 20 44 45 46 49 4e 45 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 ┆ook) (quote DEFINE)) (put (quot┆
0x10e0…1100 65 20 50 52 4f 47 29 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 29 20 ┆e PROG) (quote indent-mim-hook) ┆
0x1100…1120 28 71 75 6f 74 65 20 44 45 46 49 4e 45 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 52 45 50 ┆(quote DEFINE)) (put (quote REP┆
0x1120…1140 45 41 54 29 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 29 20 28 71 75 ┆EAT) (quote indent-mim-hook) (qu┆
0x1140…1160 6f 74 65 20 44 45 46 49 4e 45 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 43 41 53 45 29 20 ┆ote DEFINE)) (put (quote CASE) ┆
0x1160…1180 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 29 20 28 71 75 6f 74 65 20 44 ┆(quote indent-mim-hook) (quote D┆
0x1180…11a0 45 46 49 4e 45 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 46 55 4e 43 54 49 4f 4e 29 20 28 ┆EFINE)) (put (quote FUNCTION) (┆
0x11a0…11c0 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 29 20 28 71 75 6f 74 65 20 44 45 ┆quote indent-mim-hook) (quote DE┆
0x11c0…11e0 46 49 4e 45 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 4d 41 50 46 29 20 28 71 75 6f 74 65 ┆FINE)) (put (quote MAPF) (quote┆
0x11e0…1200 20 69 6e 64 65 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 29 20 28 71 75 6f 74 65 20 44 45 46 49 4e 45 29 ┆ indent-mim-hook) (quote DEFINE)┆
0x1200…1220 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 4d 41 50 52 29 20 28 71 75 6f 74 65 20 69 6e 64 65 ┆) (put (quote MAPR) (quote inde┆
0x1220…1240 6e 74 2d 6d 69 6d 2d 68 6f 6f 6b 29 20 28 71 75 6f 74 65 20 44 45 46 49 4e 45 29 29 0a 0a 28 70 ┆nt-mim-hook) (quote DEFINE)) (p┆
0x1240…1260 75 74 20 28 71 75 6f 74 65 20 55 4e 57 49 4e 44 29 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d ┆ut (quote UNWIND) (quote indent-┆
0x1260…1280 6d 69 6d 2d 68 6f 6f 6b 29 20 28 63 6f 6e 73 20 28 2a 20 32 20 6d 69 6d 2d 62 6f 64 79 2d 69 6e ┆mim-hook) (cons (* 2 mim-body-in┆
0x1280…12a0 64 65 6e 74 29 20 6d 69 6d 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 29 29 0a 0a 28 64 65 66 76 61 72 ┆dent) mim-body-indent)) (defvar┆
0x12a0…12c0 20 6d 69 6d 2d 64 6f 77 6e 2d 70 61 72 65 6e 73 2d 6f 6e 6c 79 20 74 20 22 5c 0a 2a 6e 69 6c 20 ┆ mim-down-parens-only t "\ *nil ┆
0x12c0…12e0 6d 65 61 6e 73 20 74 72 65 61 74 20 41 44 45 43 4c 73 20 61 6e 64 20 41 54 4f 4d 20 74 72 61 69 ┆means treat ADECLs and ATOM trai┆
0x12e0…1300 6c 65 72 73 20 6c 69 6b 65 20 73 74 72 75 63 74 75 72 65 73 20 77 68 65 6e 0a 6d 6f 76 69 6e 67 ┆lers like structures when moving┆
0x1300…1320 20 64 6f 77 6e 20 61 20 6c 65 76 65 6c 20 6f 66 20 73 74 72 75 63 74 75 72 65 2e 22 29 0a 0a 28 ┆ down a level of structure.") (┆
0x1320…1340 64 65 66 76 61 72 20 6d 69 6d 2d 73 74 6f 70 2d 66 6f 72 2d 73 6c 6f 70 20 74 20 22 5c 0a 2a 4e ┆defvar mim-stop-for-slop t "\ *N┆
0x1340…1360 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 7b 6e 65 78 74 20 70 72 65 76 69 6f 75 73 7d 2d 6d 69 6d ┆on-nil means {next previous}-mim┆
0x1360…1380 2d 6f 62 6a 65 63 74 20 63 6f 6e 73 69 64 65 72 20 61 6e 79 0a 6e 6f 6e 2d 77 68 69 74 65 73 70 ┆-object consider any non-whitesp┆
0x1380…13a0 61 63 65 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 63 6f 6c 75 6d 6e 20 30 20 74 6f 20 62 65 20 ┆ace character in column 0 to be ┆
0x13a0…13c0 61 20 74 6f 70 6c 65 76 65 6c 20 6f 62 6a 65 63 74 2c 20 6f 74 68 65 72 77 69 73 65 0a 6f 6e 6c ┆a toplevel object, otherwise onl┆
0x13c0…13e0 79 20 6f 70 65 6e 20 70 61 72 65 6e 20 73 79 6e 74 61 78 20 63 68 61 72 61 63 74 65 72 73 20 77 ┆y open paren syntax characters w┆
0x13e0…1400 69 6c 6c 20 62 65 20 63 6f 6e 73 69 64 65 72 65 64 2e 22 29 0a 0a 28 66 73 65 74 20 28 71 75 6f ┆ill be considered.") (fset (quo┆
0x1400…1420 74 65 20 6d 64 6c 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6d 69 6d 2d 6d 6f 64 65 29 29 0a 0a ┆te mdl-mode) (quote mim-mode)) ┆
0x1420…1440 28 64 65 66 75 6e 20 6d 69 6d 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 ┆(defun mim-mode nil "\ Major mod┆
0x1440…1460 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 4d 69 6d 20 28 4d 44 4c 20 69 6e 20 4d 44 4c 29 20 63 ┆e for editing Mim (MDL in MDL) c┆
0x1460…1480 6f 64 65 2e 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 20 20 20 20 49 66 20 76 61 6c 75 65 20 6f 66 20 6d ┆ode. Commands: If value of m┆
0x1480…14a0 69 6d 2d 6d 6f 64 65 2d 68 79 73 74 65 72 69 63 61 6c 2d 62 69 6e 64 69 6e 67 73 20 69 73 20 6e ┆im-mode-hysterical-bindings is n┆
0x14a0…14c0 6f 6e 2d 6e 69 6c 2c 20 74 68 65 6e 20 66 6f 6c 6c 6f 77 69 6e 67 0a 63 6f 6d 6d 61 6e 64 73 20 ┆on-nil, then following commands ┆
0x14c0…14e0 61 72 65 20 61 73 73 69 67 6e 65 64 20 74 6f 20 65 73 63 61 70 65 20 6b 65 79 73 20 61 73 20 77 ┆are assigned to escape keys as w┆
0x14e0…1500 65 6c 6c 20 28 65 2e 67 2e 20 4d 2d 66 20 3d 20 4d 2d 43 2d 66 29 2e 0a 54 68 65 20 64 65 66 61 ┆ell (e.g. M-f = M-C-f). The defa┆
0x1500…1520 75 6c 74 20 61 63 74 69 6f 6e 20 69 73 20 62 69 6e 64 20 74 68 65 20 65 73 63 61 70 65 20 6b 65 ┆ult action is bind the escape ke┆
0x1520…1540 79 73 2e 0a 20 20 54 61 62 20 20 20 20 20 20 20 20 49 6e 64 65 6e 74 73 20 74 68 65 20 63 75 72 ┆ys. Tab Indents the cur┆
0x1540…1560 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 4d 44 4c 20 63 6f 64 65 2e 0a 20 20 44 65 6c 65 74 65 20 ┆rent line as MDL code. Delete ┆
0x1560…1580 20 20 20 20 43 6f 6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 70 61 63 65 73 20 61 73 20 69 ┆ Converts tabs to spaces as i┆
0x1580…15a0 74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 20 20 4d 2d 43 2d 66 20 20 20 20 20 20 4d 6f 76 65 20 ┆t moves back. M-C-f Move ┆
0x15a0…15c0 66 6f 72 77 61 72 64 20 6f 76 65 72 20 6e 65 78 74 20 6d 69 6d 20 6f 62 6a 65 63 74 2e 0a 20 20 ┆forward over next mim object. ┆
0x15c0…15e0 4d 2d 43 2d 62 20 20 20 20 20 20 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 6f 76 65 72 20 70 72 ┆M-C-b Move backward over pr┆
0x15e0…1600 65 76 69 6f 75 73 20 6d 69 6d 20 6f 62 6a 65 63 74 2e 0a 20 20 4d 2d 43 2d 70 20 20 20 20 20 20 ┆evious mim object. M-C-p ┆
0x1600…1620 4d 6f 76 65 20 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 70 72 65 76 69 6f 75 73 20 74 6f ┆Move to beginning of previous to┆
0x1620…1640 70 6c 65 76 65 6c 20 6d 69 6d 20 6f 62 6a 65 63 74 2e 0a 20 20 4d 2d 43 2d 6e 20 20 20 20 20 20 ┆plevel mim object. M-C-n ┆
0x1640…1660 4d 6f 76 65 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6e 65 78 ┆Move to the beginning of the nex┆
0x1660…1680 74 20 74 6f 70 6c 65 76 65 6c 20 6d 69 6d 20 6f 62 6a 65 63 74 2e 0a 20 20 4d 2d 43 2d 61 20 20 ┆t toplevel mim object. M-C-a ┆
0x1680…16a0 20 20 20 20 4d 6f 76 65 20 74 6f 20 74 68 65 20 74 6f 70 20 6f 66 20 73 75 72 72 6f 75 6e 64 69 ┆ Move to the top of surroundi┆
0x16a0…16c0 6e 67 20 74 6f 70 6c 65 76 65 6c 20 6d 69 6d 20 66 6f 72 6d 2e 0a 20 20 4d 2d 43 2d 65 20 20 20 ┆ng toplevel mim form. M-C-e ┆
0x16c0…16e0 20 20 20 4d 6f 76 65 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 73 75 72 72 6f 75 6e 64 69 6e ┆ Move to the end of surroundin┆
0x16e0…1700 67 20 74 6f 70 6c 65 76 65 6c 20 6d 69 6d 20 66 6f 72 6d 2e 0a 20 20 4d 2d 43 2d 75 20 20 20 20 ┆g toplevel mim form. M-C-u ┆
0x1700…1720 20 20 4d 6f 76 65 20 75 70 20 61 20 6c 65 76 65 6c 20 6f 66 20 6d 69 6d 20 73 74 72 75 63 74 75 ┆ Move up a level of mim structu┆
0x1720…1740 72 65 20 62 61 63 6b 77 61 72 64 73 2e 0a 20 20 4d 2d 43 2d 64 20 20 20 20 20 20 4d 6f 76 65 20 ┆re backwards. M-C-d Move ┆
0x1740…1760 64 6f 77 6e 20 61 20 6c 65 76 65 6c 20 6f 66 20 6d 69 6d 20 73 74 72 75 63 74 75 72 65 20 66 6f ┆down a level of mim structure fo┆
0x1760…1780 72 77 61 72 64 73 2e 0a 20 20 4d 2d 43 2d 74 20 20 20 20 20 20 54 72 61 6e 73 70 6f 73 65 20 6d ┆rwards. M-C-t Transpose m┆
0x1780…17a0 69 6d 20 6f 62 6a 65 63 74 73 20 6f 6e 20 65 69 74 68 65 72 20 73 69 64 65 20 6f 66 20 70 6f 69 ┆im objects on either side of poi┆
0x17a0…17c0 6e 74 2e 0a 20 20 4d 2d 43 2d 6b 20 20 20 20 20 20 4b 69 6c 6c 20 6e 65 78 74 20 6d 69 6d 20 6f ┆nt. M-C-k Kill next mim o┆
0x17c0…17e0 62 6a 65 63 74 2e 0a 20 20 4d 2d 43 2d 68 20 20 20 20 20 20 50 6c 61 63 65 20 6d 61 72 6b 20 61 ┆bject. M-C-h Place mark a┆
0x17e0…1800 74 20 65 6e 64 20 6f 66 20 6e 65 78 74 20 6d 69 6d 20 6f 62 6a 65 63 74 2e 0a 20 20 4d 2d 43 2d ┆t end of next mim object. M-C-┆
0x1800…1820 6f 20 20 20 20 20 20 49 6e 73 65 72 74 20 61 20 6e 65 77 6c 69 6e 65 20 62 65 66 6f 72 65 20 63 ┆o Insert a newline before c┆
0x1820…1840 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 6e 64 20 69 6e 64 65 6e 74 2e 0a 20 20 4d 2d 44 65 6c 65 ┆urrent line and indent. M-Dele┆
0x1840…1860 74 65 20 20 20 4b 69 6c 6c 20 70 72 65 76 69 6f 75 73 20 6d 69 6d 20 6f 62 6a 65 63 74 2e 0a 20 ┆te Kill previous mim object. ┆
0x1860…1880 20 4d 2d 5e 20 20 20 20 20 20 20 20 4a 6f 69 6e 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 74 6f ┆ M-^ Join current line to┆
0x1880…18a0 20 70 72 65 76 69 6f 75 73 20 6c 69 6e 65 2e 0a 20 20 4d 2d 5c 5c 20 20 20 20 20 20 20 20 44 65 ┆ previous line. M-\\ De┆
0x18a0…18c0 6c 65 74 65 20 77 68 69 74 65 73 70 61 63 65 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 2e 0a 20 20 ┆lete whitespace around point. ┆
0x18c0…18e0 4d 2d 3b 20 20 20 20 20 20 20 20 4d 6f 76 65 20 74 6f 20 65 78 69 73 74 69 6e 67 20 63 6f 6d 6d ┆M-; Move to existing comm┆
0x18e0…1900 65 6e 74 20 6f 72 20 69 6e 73 65 72 74 20 65 6d 70 74 79 20 63 6f 6d 6d 65 6e 74 20 69 66 20 6e ┆ent or insert empty comment if n┆
0x1900…1920 6f 6e 65 2e 0a 20 20 4d 2d 54 61 62 20 20 20 20 20 20 49 6e 64 65 6e 74 20 66 6f 6c 6c 6f 77 69 ┆one. M-Tab Indent followi┆
[…truncated at 200 lines…]