|
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: 9212 (0x23fc)
Names: »modula2.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/modula2.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 6d 32 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 ┆ (defvar m2-mode-syntax-table ni┆
0x0020…0040 6c 20 22 5c 0a 53 79 6e 74 61 78 20 74 61 62 6c 65 20 69 6e 20 75 73 65 20 69 6e 20 4d 6f 64 75 ┆l "\ Syntax table in use in Modu┆
0x0040…0060 6c 61 2d 32 2d 6d 6f 64 65 20 62 75 66 66 65 72 73 2e 22 29 0a 0a 28 69 66 20 6d 32 2d 6d 6f 64 ┆la-2-mode buffers.") (if m2-mod┆
0x0060…0080 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 74 61 62 6c 65 20 ┆e-syntax-table nil (let ((table ┆
0x0080…00a0 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 29 20 28 6d 6f 64 69 66 79 2d 73 79 ┆(make-syntax-table))) (modify-sy┆
0x00a0…00c0 6e 74 61 78 2d 65 6e 74 72 79 20 39 32 20 22 5c 5c 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 ┆ntax-entry 92 "\\" table) (modif┆
0x00c0…00e0 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 2e 20 31 22 20 74 61 62 6c 65 29 20 28 ┆y-syntax-entry 40 ". 1" table) (┆
0x00e0…0100 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 31 20 22 2e 20 34 22 20 74 61 62 ┆modify-syntax-entry 41 ". 4" tab┆
0x0100…0120 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 32 20 22 2e 20 32 ┆le) (modify-syntax-entry 42 ". 2┆
0x0120…0140 33 22 20 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 34 ┆3" table) (modify-syntax-entry 4┆
0x0140…0160 33 20 22 2e 22 20 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 ┆3 "." table) (modify-syntax-entr┆
0x0160…0180 79 20 34 35 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 ┆y 45 "." table) (modify-syntax-e┆
0x0180…01a0 6e 74 72 79 20 36 31 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 ┆ntry 61 "." table) (modify-synta┆
0x01a0…01c0 78 2d 65 6e 74 72 79 20 33 37 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 ┆x-entry 37 "." table) (modify-sy┆
0x01c0…01e0 6e 74 61 78 2d 65 6e 74 72 79 20 36 30 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 ┆ntax-entry 60 "." table) (modify┆
0x01e0…0200 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 32 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 ┆-syntax-entry 62 "." table) (mod┆
0x0200…0220 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 5c 22 22 20 74 61 62 6c 65 29 20 ┆ify-syntax-entry 39 "\"" table) ┆
0x0220…0240 28 73 65 74 71 20 6d 32 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 74 61 62 6c 65 ┆(setq m2-mode-syntax-table table┆
0x0240…0260 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6d 32 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a ┆))) (defvar m2-mode-map nil "\ ┆
0x0260…0280 4b 65 79 6d 61 70 20 75 73 65 64 20 69 6e 20 4d 6f 64 75 6c 61 2d 32 20 6d 6f 64 65 2e 22 29 0a ┆Keymap used in Modula-2 mode.") ┆
0x0280…02a0 0a 28 69 66 20 6d 32 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 6c 65 74 20 28 28 6d 61 70 20 ┆ (if m2-mode-map nil (let ((map ┆
0x02a0…02c0 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 20 28 64 65 66 69 6e 65 2d 6b ┆(make-sparse-keymap))) (define-k┆
0x02c0…02e0 65 79 20 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 6d 32 2d 74 61 62 29 29 20 28 64 65 66 69 ┆ey map " " (quote m2-tab)) (defi┆
0x02e0…0300 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 62 22 20 28 71 75 6f 74 65 20 6d 32 2d 62 65 67 69 6e 29 ┆ne-key map " b" (quote m2-begin)┆
0x0300…0320 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 63 22 20 28 71 75 6f 74 65 20 6d 32 ┆) (define-key map " c" (quote m2┆
0x0320…0340 2d 63 61 73 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 64 22 20 28 71 75 ┆-case)) (define-key map " d" (qu┆
0x0340…0360 6f 74 65 20 6d 32 2d 64 65 66 69 6e 69 74 69 6f 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆ote m2-definition)) (define-key ┆
0x0360…0380 6d 61 70 20 22 03 65 22 20 28 71 75 6f 74 65 20 6d 32 2d 65 6c 73 65 29 29 20 28 64 65 66 69 6e ┆map " e" (quote m2-else)) (defin┆
0x0380…03a0 65 2d 6b 65 79 20 6d 61 70 20 22 03 66 22 20 28 71 75 6f 74 65 20 6d 32 2d 66 6f 72 29 29 20 28 ┆e-key map " f" (quote m2-for)) (┆
0x03a0…03c0 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 68 22 20 28 71 75 6f 74 65 20 6d 32 2d 68 65 ┆define-key map " h" (quote m2-he┆
0x03c0…03e0 61 64 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 69 22 20 28 71 75 6f ┆ader)) (define-key map " i" (quo┆
0x03e0…0400 74 65 20 6d 32 2d 69 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 6d 22 20 ┆te m2-if)) (define-key map " m" ┆
0x0400…0420 28 71 75 6f 74 65 20 6d 32 2d 6d 6f 64 75 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d ┆(quote m2-module)) (define-key m┆
0x0420…0440 61 70 20 22 03 6c 22 20 28 71 75 6f 74 65 20 6d 32 2d 6c 6f 6f 70 29 29 20 28 64 65 66 69 6e 65 ┆ap " l" (quote m2-loop)) (define┆
0x0440…0460 2d 6b 65 79 20 6d 61 70 20 22 03 6f 22 20 28 71 75 6f 74 65 20 6d 32 2d 6f 72 29 29 20 28 64 65 ┆-key map " o" (quote m2-or)) (de┆
0x0460…0480 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 70 22 20 28 71 75 6f 74 65 20 6d 32 2d 70 72 6f 63 ┆fine-key map " p" (quote m2-proc┆
0x0480…04a0 65 64 75 72 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 17 22 20 28 71 75 ┆edure)) (define-key map " " (qu┆
0x04a0…04c0 6f 74 65 20 6d 32 2d 77 69 74 68 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 ┆ote m2-with)) (define-key map " ┆
0x04c0…04e0 72 22 20 28 71 75 6f 74 65 20 6d 32 2d 72 65 63 6f 72 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 ┆r" (quote m2-record)) (define-ke┆
0x04e0…0500 79 20 6d 61 70 20 22 03 73 22 20 28 71 75 6f 74 65 20 6d 32 2d 73 74 64 69 6f 29 29 20 28 64 65 ┆y map " s" (quote m2-stdio)) (de┆
0x0500…0520 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 74 22 20 28 71 75 6f 74 65 20 6d 32 2d 74 79 70 65 ┆fine-key map " t" (quote m2-type┆
0x0520…0540 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 75 22 20 28 71 75 6f 74 65 20 6d ┆)) (define-key map " u" (quote m┆
0x0540…0560 32 2d 75 6e 74 69 6c 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 76 22 20 28 ┆2-until)) (define-key map " v" (┆
0x0560…0580 71 75 6f 74 65 20 6d 32 2d 76 61 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 ┆quote m2-var)) (define-key map "┆
0x0580…05a0 03 77 22 20 28 71 75 6f 74 65 20 6d 32 2d 77 68 69 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 ┆ w" (quote m2-while)) (define-ke┆
0x05a0…05c0 79 20 6d 61 70 20 22 03 78 22 20 28 71 75 6f 74 65 20 6d 32 2d 65 78 70 6f 72 74 29 29 20 28 64 ┆y map " x" (quote m2-export)) (d┆
0x05c0…05e0 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 79 22 20 28 71 75 6f 74 65 20 6d 32 2d 69 6d 70 ┆efine-key map " y" (quote m2-imp┆
0x05e0…0600 6f 72 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 7b 22 20 28 71 75 6f 74 ┆ort)) (define-key map " {" (quot┆
0x0600…0620 65 20 6d 32 2d 62 65 67 69 6e 2d 63 6f 6d 6d 65 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 ┆e m2-begin-comment)) (define-key┆
0x0620…0640 20 6d 61 70 20 22 03 7d 22 20 28 71 75 6f 74 65 20 6d 32 2d 65 6e 64 2d 63 6f 6d 6d 65 6e 74 29 ┆ map " }" (quote m2-end-comment)┆
0x0640…0660 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 1a 22 20 28 71 75 6f 74 65 20 73 75 ┆) (define-key map " " (quote su┆
0x0660…0680 73 70 65 6e 64 2d 65 6d 61 63 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 ┆spend-emacs)) (define-key map " ┆
0x0680…06a0 16 22 20 28 71 75 6f 74 65 20 6d 32 2d 76 69 73 69 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 ┆ " (quote m2-visit)) (define-key┆
0x06a0…06c0 20 6d 61 70 20 22 03 14 22 20 28 71 75 6f 74 65 20 6d 32 2d 74 6f 67 67 6c 65 29 29 20 28 64 65 ┆ map " " (quote m2-toggle)) (de┆
0x06c0…06e0 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 0c 22 20 28 71 75 6f 74 65 20 6d 32 2d 6c 69 6e 6b ┆fine-key map " " (quote m2-link┆
0x06e0…0700 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 03 22 20 28 71 75 6f 74 65 20 6d ┆)) (define-key map " " (quote m┆
0x0700…0720 32 2d 63 6f 6d 70 69 6c 65 29 29 20 28 73 65 74 71 20 6d 32 2d 6d 6f 64 65 2d 6d 61 70 20 6d 61 ┆2-compile)) (setq m2-mode-map ma┆
0x0720…0740 70 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6d 32 2d 69 6e 64 65 6e 74 20 35 20 22 5c 0a 2a 54 68 ┆p))) (defvar m2-indent 5 "\ *Th┆
0x0740…0760 69 73 20 76 61 72 69 61 62 6c 65 20 67 69 76 65 73 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f ┆is variable gives the indentatio┆
0x0760…0780 6e 20 69 6e 20 4d 6f 64 75 6c 61 2d 32 2d 4d 6f 64 65 22 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 64 ┆n in Modula-2-Mode") (defun mod┆
0x0780…07a0 75 6c 61 2d 32 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20 69 73 20 61 20 6d 6f 64 65 ┆ula-2-mode nil "\ This is a mode┆
0x07a0…07c0 20 69 6e 74 65 6e 64 65 64 20 74 6f 20 73 75 70 70 6f 72 74 20 70 72 6f 67 72 61 6d 20 64 65 76 ┆ intended to support program dev┆
0x07c0…07e0 65 6c 6f 70 6d 65 6e 74 20 69 6e 20 4d 6f 64 75 6c 61 2d 32 2e 0a 41 6c 6c 20 63 6f 6e 74 72 6f ┆elopment in Modula-2. All contro┆
0x07e0…0800 6c 20 63 6f 6e 73 74 72 75 63 74 73 20 6f 66 20 4d 6f 64 75 6c 61 2d 32 20 63 61 6e 20 62 65 20 ┆l constructs of Modula-2 can be ┆
0x0800…0820 72 65 61 63 68 65 64 20 62 79 20 74 79 70 69 6e 67 0a 43 6f 6e 74 72 6f 6c 2d 43 20 66 6f 6c 6c ┆reached by typing Control-C foll┆
0x0820…0840 6f 77 65 64 20 62 79 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 ┆owed by the first character of t┆
0x0840…0860 68 65 20 63 6f 6e 73 74 72 75 63 74 2e 0a 5c 5c 7b 6d 32 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 20 20 ┆he construct. \\{m2-mode-map} ┆
0x0860…0880 43 6f 6e 74 72 6f 6c 2d 63 20 62 20 62 65 67 69 6e 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f ┆Control-c b begin Contro┆
0x0880…08a0 6c 2d 63 20 63 20 63 61 73 65 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 64 20 64 65 66 69 6e 69 74 ┆l-c c case Control-c d definit┆
0x08a0…08c0 69 6f 6e 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 65 20 65 6c 73 65 0a 20 20 43 6f 6e 74 72 6f ┆ion Control-c e else Contro┆
0x08c0…08e0 6c 2d 63 20 66 20 66 6f 72 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 68 20 ┆l-c f for Control-c h ┆
0x08e0…0900 68 65 61 64 65 72 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 69 20 69 66 20 20 20 20 20 20 20 20 20 ┆header Control-c i if ┆
0x0900…0920 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 6d 20 6d 6f 64 75 6c 65 0a 20 20 43 6f 6e 74 72 6f 6c 2d ┆ Control-c m module Control-┆
0x0920…0940 63 20 6c 20 6c 6f 6f 70 20 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 6f 20 6f 72 ┆c l loop Control-c o or┆
0x0940…0960 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 70 20 70 72 6f 63 65 64 75 72 65 20 20 20 20 20 43 6f 6e ┆ Control-c p procedure Con┆
0x0960…0980 74 72 6f 6c 2d 63 20 43 6f 6e 74 72 6f 6c 2d 77 20 77 69 74 68 0a 20 20 43 6f 6e 74 72 6f 6c 2d ┆trol-c Control-w with Control-┆
0x0980…09a0 63 20 72 20 72 65 63 6f 72 64 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 73 20 73 74 ┆c r record Control-c s st┆
0x09a0…09c0 64 69 6f 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 74 20 74 79 70 65 20 20 20 20 20 20 20 20 20 20 ┆dio Control-c t type ┆
0x09c0…09e0 43 6f 6e 74 72 6f 6c 2d 63 20 75 20 75 6e 74 69 6c 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 76 20 ┆Control-c u until Control-c v ┆
0x09e0…0a00 76 61 72 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 77 20 77 68 69 6c 65 0a ┆var Control-c w while ┆
0x0a00…0a20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 78 20 65 78 70 6f 72 74 20 20 20 20 20 20 20 20 43 6f 6e 74 ┆ Control-c x export Cont┆
0x0a20…0a40 72 6f 6c 2d 63 20 79 20 69 6d 70 6f 72 74 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 7b 20 62 65 67 ┆rol-c y import Control-c { beg┆
0x0a40…0a60 69 6e 2d 63 6f 6d 6d 65 6e 74 20 43 6f 6e 74 72 6f 6c 2d 63 20 7d 20 65 6e 64 2d 63 6f 6d 6d 65 ┆in-comment Control-c } end-comme┆
0x0a60…0a80 6e 74 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f 6e 74 72 6f 6c 2d 7a 20 73 75 73 70 65 6e 64 ┆nt Control-c Control-z suspend┆
0x0a80…0aa0 2d 65 6d 61 63 73 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f 6e 74 72 6f 6c 2d 74 20 74 ┆-emacs Control-c Control-t t┆
0x0aa0…0ac0 6f 67 67 6c 65 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f 6e 74 72 6f 6c 2d 63 20 63 6f 6d 70 ┆oggle Control-c Control-c comp┆
0x0ac0…0ae0 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 78 20 60 20 6e 65 78 74 2d 65 ┆ile Control-x ` next-e┆
0x0ae0…0b00 72 72 6f 72 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f 6e 74 72 6f 6c 2d 6c 20 6c 69 6e 6b 0a ┆rror Control-c Control-l link ┆
0x0b00…0b20 0a 20 20 20 6d 32 2d 69 6e 64 65 6e 74 20 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 6e 75 6d 62 65 ┆ m2-indent controls the numbe┆
0x0b20…0b40 72 20 6f 66 20 73 70 61 63 65 73 20 66 6f 72 20 65 61 63 68 20 69 6e 64 65 6e 74 61 74 69 6f 6e ┆r of spaces for each indentation┆
0x0b40…0b60 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 d0 88 d1 ┆." (interactive) (byte-code " ┆
0x0b60…0b80 20 88 d2 08 21 88 d3 89 11 88 d4 89 12 88 d5 c3 21 88 d6 89 13 88 d5 c4 21 88 d7 89 14 88 d8 0d ┆ ! ! ! ┆
0x0b80…0ba0 21 88 d5 c6 21 88 d9 0e 07 50 89 16 06 88 d5 c8 21 88 0e 06 89 16 08 88 d5 c9 21 88 ca 89 16 09 ┆! ! P ! ! ┆
0x0ba0…0bc0 88 d5 cb 21 88 da 89 16 0b 88 d5 cc 21 88 db 89 16 0c 88 d5 c3 21 88 d6 89 13 88 d5 cd 21 88 dc ┆ ! ! ! ! ┆
0x0bc0…0be0 89 16 0d 88 d5 ce 21 88 dd 89 16 0e 88 d5 cf 21 88 ca 89 16 0f 88 de df 21 87 22 20 5b 6d 32 2d ┆ ! ! ! " [m2-┆
0x0be0…0c00 6d 6f 64 65 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 63 6f ┆mode-map major-mode mode-name co┆
0x0c00…0c20 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 65 6e 64 2d 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 ┆mment-column end-comment-column ┆
0x0c20…0c40 6d 32 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 70 61 72 61 67 72 61 70 68 2d 73 ┆m2-mode-syntax-table paragraph-s┆
0x0c40…0c60 74 61 72 74 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 70 61 72 61 67 72 61 70 68 2d 73 65 ┆tart page-delimiter paragraph-se┆
0x0c60…0c80 70 61 72 61 74 65 20 72 65 71 75 69 72 65 2d 66 69 6e 61 6c 2d 6e 65 77 6c 69 6e 65 20 74 20 63 ┆parate require-final-newline t c┆
0x0c80…0ca0 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 2d 65 6e 64 20 63 6f 6d 6d 65 6e 74 ┆omment-start comment-end comment┆
0x0ca0…0cc0 2d 73 74 61 72 74 2d 73 6b 69 70 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 ┆-start-skip comment-indent-hook ┆
0x0cc0…0ce0 70 61 72 73 65 2d 73 65 78 70 2d 69 67 6e 6f 72 65 2d 63 6f 6d 6d 65 6e 74 73 20 6e 69 6c 20 6b ┆parse-sexp-ignore-comments nil k┆
0x0ce0…0d00 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 6f 63 61 ┆ill-all-local-variables use-loca┆
0x0d00…0d20 6c 2d 6d 61 70 20 6d 6f 64 75 6c 61 2d 32 2d 6d 6f 64 65 20 22 4d 6f 64 75 6c 61 2d 32 22 20 6d ┆l-map modula-2-mode "Modula-2" m┆
0x0d20…0d40 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 34 31 20 37 35 20 73 65 74 2d 73 79 6e ┆ake-local-variable 41 75 set-syn┆
0x0d40…0d60 74 61 78 2d 74 61 62 6c 65 20 22 5e 24 5c 5c 7c 22 20 22 28 2a 20 22 20 22 20 2a 29 22 20 22 2f ┆tax-table "^$\\|" "(* " " *)" "/┆
0x0d60…0d80 5c 5c 2a 2b 20 2a 22 20 63 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 72 75 6e 2d 68 6f 6f ┆\\*+ *" c-comment-indent run-hoo┆
0x0d80…0da0 6b 73 20 6d 32 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 31 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 ┆ks m2-mode-hook] 16)) (defun m2┆
0x0da0…0dc0 2d 74 61 62 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 74 6f 20 6e 65 78 74 20 74 61 62 20 73 ┆-tab nil "\ Indent to next tab s┆
0x0dc0…0de0 74 6f 70 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 ┆top." (interactive) (byte-code "┆
0x0de0…0e00 c1 88 c2 c3 c4 20 08 5c 22 54 08 5c 22 6a 87 22 20 5b 6d 32 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 ┆ \"T \"j " [m2-indent nil ┆
0x0e00…0e20 2a 20 2f 20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 ┆* / current-indentation] 5)) (d┆
0x0e20…0e40 65 66 75 6e 20 6d 32 2d 62 65 67 69 6e 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 20 42 45 ┆efun m2-begin nil "\ Insert a BE┆
0x0e40…0e60 47 49 4e 20 6b 65 79 77 6f 72 64 20 61 6e 64 20 69 6e 64 65 6e 74 20 66 6f 72 20 74 68 65 20 6e ┆GIN keyword and indent for the n┆
0x0e60…0e80 65 78 74 20 6c 69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 ┆ext line." (interactive) (byte-c┆
0x0e80…0ea0 6f 64 65 20 22 c0 88 c1 63 88 c2 20 88 c3 20 87 22 20 5b 6e 69 6c 20 22 42 45 47 49 4e 22 20 6d ┆ode " c " [nil "BEGIN" m┆
0x0ea0…0ec0 32 2d 6e 65 77 6c 69 6e 65 20 6d 32 2d 74 61 62 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 ┆2-newline m2-tab] 3)) (defun m2┆
0x0ec0…0ee0 2d 63 61 73 65 20 6e 69 6c 20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e 20 43 41 53 45 ┆-case nil "\ Build skeleton CASE┆
0x0ee0…0f00 20 73 74 61 74 6d 65 6e 74 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 74 68 65 20 3c 65 78 ┆ statment, prompting for the <ex┆
0x0f00…0f20 70 72 65 73 73 69 6f 6e 3e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d ┆pression>." (interactive) (byte-┆
0x0f20…0f40 63 6f 64 65 20 22 c0 88 c1 c2 c3 c4 21 c5 23 88 c6 20 88 c6 20 88 c7 63 88 c8 c9 21 88 ca 20 87 ┆code " ! # c ! ┆
0x0f40…0f60 22 20 5b 6e 69 6c 20 69 6e 73 65 72 74 20 22 43 41 53 45 20 22 20 72 65 61 64 2d 73 74 72 69 6e ┆" [nil insert "CASE " read-strin┆
0x0f60…0f80 67 20 22 3a 20 22 20 22 20 4f 46 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 20 28 2a 20 ┆g ": " " OF" m2-newline "END (* ┆
0x0f80…0fa0 63 61 73 65 20 2a 29 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 ┆case *);" end-of-line 0 m2-tab] ┆
0x0fa0…0fc0 37 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 69 6c 20 22 5c ┆7)) (defun m2-definition nil "\┆
0x0fc0…0fe0 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e 20 44 45 46 49 4e 49 54 49 4f 4e 20 4d 4f 44 55 4c ┆ Build skeleton DEFINITION MODUL┆
0x0fe0…1000 45 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 74 68 65 20 3c 6d 6f 64 75 6c 65 20 6e 61 6d ┆E, prompting for the <module nam┆
0x1000…1020 65 3e 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 ┆e>." (interactive) (byte-code " ┆
0x1020…1040 88 c2 63 88 c3 c4 21 18 c5 08 c6 08 c7 24 29 88 c8 c9 21 87 22 20 5b 6e 61 6d 65 20 6e 69 6c 20 ┆ c ! $) ! " [name nil ┆
0x1040…1060 22 44 45 46 49 4e 49 54 49 4f 4e 20 4d 4f 44 55 4c 45 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 ┆"DEFINITION MODULE " read-string┆
0x1060…1080 20 22 4e 61 6d 65 3a 20 22 20 69 6e 73 65 72 74 20 22 3b 0a 0a 0a 0a 45 4e 44 20 22 20 22 2e 0a ┆ "Name: " insert "; END " ". ┆
0x1080…10a0 22 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 33 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d ┆" previous-line 3] 6)) (defun m┆
0x10a0…10c0 32 2d 65 6c 73 65 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 45 4c 53 45 20 6b 65 79 77 6f 72 ┆2-else nil "\ Insert ELSE keywor┆
0x10c0…10e0 64 20 61 6e 64 20 69 6e 64 65 6e 74 20 66 6f 72 20 6e 65 78 74 20 6c 69 6e 65 2e 22 20 28 69 6e ┆d and indent for next line." (in┆
0x10e0…1100 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 c2 20 88 c3 08 c1 5c ┆teractive) (byte-code " \┆
0x1100…1120 22 88 c4 63 88 c2 20 88 c5 20 87 22 20 5b 6d 32 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 6d 32 2d 6e ┆" c " [m2-indent nil m2-n┆
0x1120…1140 65 77 6c 69 6e 65 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 ┆ewline backward-delete-char-unta┆
0x1140…1160 62 69 66 79 20 22 45 4c 53 45 22 20 6d 32 2d 74 61 62 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 ┆bify "ELSE" m2-tab] 5)) (defun ┆
0x1160…1180 6d 32 2d 66 6f 72 20 6e 69 6c 20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e 20 46 4f 52 ┆m2-for nil "\ Build skeleton FOR┆
0x1180…11a0 20 6c 6f 6f 70 20 73 74 61 74 6d 65 6e 74 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 74 68 ┆ loop statment, prompting for th┆
0x11a0…11c0 65 20 6c 6f 6f 70 20 70 61 72 61 6d 65 74 65 72 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆e loop parameters." (interactive┆
0x11c0…11e0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c4 c5 21 c6 c5 24 88 c4 c5 21 18 c7 08 c8 ┆) (byte-code " ! $ ! ┆
0x11e0…1200 5c 22 3f 83 1e 00 c2 c9 08 5c 22 82 1f 00 c1 29 88 ca 63 88 cb 20 88 cb 20 88 cc 63 88 cd ce 21 ┆\"? \" ) c c !┆
0x1200…1220 88 cf 20 87 22 20 5b 62 79 20 6e 69 6c 20 69 6e 73 65 72 74 20 22 46 4f 52 20 22 20 72 65 61 64 ┆ " [by nil insert "FOR " read┆
0x1220…1240 2d 73 74 72 69 6e 67 20 22 3a 20 22 20 22 20 54 4f 20 22 20 73 74 72 69 6e 67 2d 65 71 75 61 6c ┆-string ": " " TO " string-equal┆
0x1240…1260 20 22 22 20 22 20 42 59 20 22 20 22 20 44 4f 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 ┆ "" " BY " " DO" m2-newline "END┆
0x1260…1280 20 28 2a 20 66 6f 72 20 2a 29 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 ┆ (* for *);" end-of-line 0 m2-ta┆
0x1280…12a0 62 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 68 65 61 64 65 72 20 6e 69 6c 20 22 5c ┆b] 10)) (defun m2-header nil "\┆
0x12a0…12c0 0a 49 6e 73 65 72 74 20 61 20 63 6f 6d 6d 65 6e 74 20 62 6c 6f 63 6b 20 63 6f 6e 74 61 69 6e 69 ┆ Insert a comment block containi┆
0x12c0…12e0 6e 67 20 74 68 65 20 6d 6f 64 75 6c 65 20 74 69 74 6c 65 2c 20 61 75 74 68 6f 72 2c 20 65 74 63 ┆ng the module title, author, etc┆
0x12e0…1300 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 c0 88 c1 ┆." (interactive) (byte-code " ┆
0x1300…1320 63 88 c2 c3 21 63 88 c4 63 88 c5 20 63 88 c6 63 88 c7 20 63 88 c8 c9 ca 20 cb cc 20 cd 25 63 88 ┆c !c c c c c %c ┆
0x1320…1340 ce 63 87 22 20 5b 6e 69 6c 20 22 28 2a 0a 20 20 20 20 54 69 74 6c 65 3a 20 09 22 20 72 65 61 64 ┆ c " [nil "(* Title: " read┆
0x1340…1360 2d 73 74 72 69 6e 67 20 22 54 69 74 6c 65 3a 20 22 20 22 0a 20 20 20 20 43 72 65 61 74 65 64 3a ┆-string "Title: " " Created:┆
0x1360…1380 09 22 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 22 0a 20 20 20 20 41 75 74 ┆ " current-time-string " Aut┆
0x1380…13a0 68 6f 72 3a 20 09 22 20 75 73 65 72 2d 66 75 6c 6c 2d 6e 61 6d 65 20 63 6f 6e 63 61 74 20 22 0a ┆hor: " user-full-name concat " ┆
0x13a0…13c0 09 09 3c 22 20 75 73 65 72 2d 6c 6f 67 69 6e 2d 6e 61 6d 65 20 22 40 22 20 73 79 73 74 65 6d 2d ┆ <" user-login-name "@" system-┆
0x13c0…13e0 6e 61 6d 65 20 22 3e 0a 22 20 22 2a 29 0a 0a 22 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 6d ┆name "> " "*) "] 11)) (defun m┆
0x13e0…1400 32 2d 69 66 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 73 6b 65 6c 65 74 6f 6e 20 49 46 20 73 ┆2-if nil "\ Insert skeleton IF s┆
0x1400…1420 74 61 74 6d 65 6e 74 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 3c 62 6f 6f 6c 65 61 6e 2d ┆tatment, prompting for <boolean-┆
0x1420…1440 65 78 70 72 65 73 73 69 6f 6e 3e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 ┆expression>." (interactive) (byt┆
0x1440…1460 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 c4 21 c5 23 88 c6 20 88 c6 20 88 c7 63 88 c8 c9 21 88 ca ┆e-code " ! # c ! ┆
0x1460…1480 20 87 22 20 5b 6e 69 6c 20 69 6e 73 65 72 74 20 22 49 46 20 22 20 72 65 61 64 2d 73 74 72 69 6e ┆ " [nil insert "IF " read-strin┆
0x1480…14a0 67 20 22 3c 62 6f 6f 6c 65 61 6e 2d 65 78 70 72 65 73 73 69 6f 6e 3e 3a 20 22 20 22 20 54 48 45 ┆g "<boolean-expression>: " " THE┆
0x14a0…14c0 4e 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 20 28 2a 20 69 66 20 2a 29 3b 22 20 65 6e ┆N" m2-newline "END (* if *);" en┆
0x14c0…14e0 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 ┆d-of-line 0 m2-tab] 7)) (defun ┆
0x14e0…1500 6d 32 2d 6c 6f 6f 70 20 6e 69 6c 20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e 20 4c 4f ┆m2-loop nil "\ Build skeleton LO┆
0x1500…1520 4f 50 20 28 77 69 74 68 20 45 4e 44 29 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 ┆OP (with END)." (interactive) (b┆
0x1520…1540 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 20 88 c2 20 88 c3 63 88 c4 c5 21 88 c6 20 87 22 ┆yte-code " c c ! "┆
0x1540…1560 20 5b 6e 69 6c 20 22 4c 4f 4f 50 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 20 28 2a 20 ┆ [nil "LOOP" m2-newline "END (* ┆
0x1560…1580 6c 6f 6f 70 20 2a 29 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 ┆loop *);" end-of-line 0 m2-tab] ┆
0x1580…15a0 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 6d 6f 64 75 6c 65 20 6e 69 6c 20 22 5c 0a 42 75 69 ┆5)) (defun m2-module nil "\ Bui┆
0x15a0…15c0 6c 64 20 73 6b 65 6c 65 74 6f 6e 20 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 20 4d 4f 44 55 4c ┆ld skeleton IMPLEMENTATION MODUL┆
0x15c0…15e0 45 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 3c 6d 6f 64 75 6c 65 2d 6e 61 6d 65 3e 2e 22 ┆E, prompting for <module-name>."┆
0x15e0…1600 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 c2 63 88 ┆ (interactive) (byte-code " c ┆
0x1600…1620 c3 c4 21 18 c5 08 c6 08 c7 24 29 88 c8 c9 21 87 22 20 5b 6e 61 6d 65 20 6e 69 6c 20 22 49 4d 50 ┆ ! $) ! " [name nil "IMP┆
0x1620…1640 4c 45 4d 45 4e 54 41 54 49 4f 4e 20 4d 4f 44 55 4c 45 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 ┆LEMENTATION MODULE " read-string┆
0x1640…1660 20 22 4e 61 6d 65 3a 20 22 20 69 6e 73 65 72 74 20 22 3b 0a 0a 0a 0a 45 4e 44 20 22 20 22 2e 0a ┆ "Name: " insert "; END " ". ┆
0x1660…1680 22 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 33 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d ┆" previous-line 3] 6)) (defun m┆
0x1680…16a0 32 2d 6f 72 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 ┆2-or nil (interactive) (byte-cod┆
0x16a0…16c0 65 20 22 c1 88 c2 20 88 c3 08 21 88 c4 63 88 c2 20 88 c5 20 87 22 20 5b 6d 32 2d 69 6e 64 65 6e ┆e " ! c " [m2-inden┆
0x16c0…16e0 74 20 6e 69 6c 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 ┆t nil m2-newline backward-delete┆
0x16e0…1700 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 20 22 7c 22 20 6d 32 2d 74 61 62 5d 20 35 29 29 0a 0a ┆-char-untabify "|" m2-tab] 5)) ┆
0x1700…1720 28 64 65 66 75 6e 20 6d 32 2d 70 72 6f 63 65 64 75 72 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 ┆(defun m2-procedure nil (interac┆
0x1720…1740 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 63 88 c4 c5 21 c2 19 18 c6 08 c7 ┆tive) (byte-code " c ! ┆
0x1740…1760 5c 22 88 c6 c4 c8 21 c9 5c 22 88 c4 ca 21 89 11 88 cb 09 cc 5c 22 3f 83 2c 00 c6 cd 09 5c 22 82 ┆\" ! \" ! \"? , \" ┆
0x1760…1780 2d 00 c2 88 ce 63 88 cf 20 88 d0 63 88 cf 20 88 cf 20 88 d1 63 88 08 63 88 ce 63 88 d2 d3 21 88 ┆- c c c c c ! ┆
0x1780…17a0 d4 20 2a 87 22 20 5b 6e 61 6d 65 20 61 72 67 73 20 6e 69 6c 20 22 50 52 4f 43 45 44 55 52 45 20 ┆ * " [name args nil "PROCEDURE ┆
0x17a0…17c0 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 4e 61 6d 65 3a 20 22 20 69 6e 73 65 72 74 20 22 20 ┆" read-string "Name: " insert " ┆
0x17c0…17e0 28 22 20 22 41 72 67 75 6d 65 6e 74 73 3a 20 22 20 22 29 22 20 22 52 65 73 75 6c 74 20 54 79 70 ┆(" "Arguments: " ")" "Result Typ┆
0x17e0…1800 65 3a 20 22 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 22 22 20 22 20 3a 20 22 20 22 3b 22 20 6d ┆e: " string-equal "" " : " ";" m┆
0x1800…1820 32 2d 6e 65 77 6c 69 6e 65 20 22 42 45 47 49 4e 22 20 22 45 4e 44 20 22 20 65 6e 64 2d 6f 66 2d ┆2-newline "BEGIN" "END " end-of-┆
0x1820…1840 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 77 ┆line 0 m2-tab] 13)) (defun m2-w┆
0x1840…1860 69 74 68 20 6e 69 6c 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 ┆ith nil (interactive) (byte-code┆
0x1860…1880 20 22 c0 88 c1 63 88 c2 c3 21 63 88 c4 63 88 c5 20 88 c5 20 88 c6 63 88 c7 c8 21 88 c9 20 87 22 ┆ " c !c c c ! "┆
0x1880…18a0 20 5b 6e 69 6c 20 22 57 49 54 48 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 3a 20 22 20 22 ┆ [nil "WITH " read-string ": " "┆
0x18a0…18c0 20 44 4f 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 20 28 2a 20 77 69 74 68 20 2a 29 3b ┆ DO" m2-newline "END (* with *);┆
0x18c0…18e0 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 36 29 29 0a 0a 28 64 65 ┆" end-of-line 0 m2-tab] 6)) (de┆
0x18e0…1900 66 75 6e 20 6d 32 2d 72 65 63 6f 72 64 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 ┆fun m2-record nil (interactive) ┆
0x1900…1920 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 20 88 c2 20 88 c3 63 88 c4 c5 21 88 c6 20 ┆(byte-code " c c ! ┆
[…truncated at 200 lines…]