|
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: ┃ s ┃
Length: 7839 (0x1e9f)
Names: »scribe.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/scribe.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c ┆ (defvar scribe-mode-syntax-tabl┆
0x0020…0040 65 20 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 ┆e nil "\ Syntax table used while┆
0x0040…0060 20 69 6e 20 73 63 72 69 62 65 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 72 69 ┆ in scribe mode.") (defvar scri┆
0x0060…0080 62 65 2d 6d 6f 64 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 ┆be-mode-abbrev-table nil "\ Abbr┆
0x0080…00a0 65 76 20 74 61 62 6c 65 20 75 73 65 64 20 77 68 69 6c 65 20 69 6e 20 73 63 72 69 62 65 20 6d 6f ┆ev table used while in scribe mo┆
0x00a0…00c0 64 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 72 69 62 65 2d 66 61 6e 63 79 2d 70 61 72 61 ┆de.") (defvar scribe-fancy-para┆
0x00c0…00e0 67 72 61 70 68 73 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 4e 49 4c 20 6d 61 6b 65 73 20 53 63 72 ┆graphs nil "\ *Non-NIL makes Scr┆
0x00e0…0100 69 62 65 20 6d 6f 64 65 20 75 73 65 20 61 20 64 69 66 66 65 72 65 6e 74 20 73 74 79 6c 65 20 6f ┆ibe mode use a different style o┆
0x0100…0120 66 20 70 61 72 61 67 72 61 70 68 20 73 65 70 61 72 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 76 ┆f paragraph separation.") (defv┆
0x0120…0140 61 72 20 73 63 72 69 62 65 2d 65 6c 65 63 74 72 69 63 2d 71 75 6f 74 65 20 6e 69 6c 20 22 5c 0a ┆ar scribe-electric-quote nil "\ ┆
0x0140…0160 2a 4e 6f 6e 2d 4e 49 4c 20 6d 61 6b 65 73 20 69 6e 73 65 72 74 20 6f 66 20 64 6f 75 62 6c 65 20 ┆*Non-NIL makes insert of double ┆
0x0160…0180 71 75 6f 74 65 20 75 73 65 20 60 60 20 6f 72 20 27 27 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 ┆quote use `` or '' depending on ┆
0x0180…01a0 63 6f 6e 74 65 78 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 72 69 62 65 2d 65 6c 65 63 74 ┆context.") (defvar scribe-elect┆
0x01a0…01c0 72 69 63 2d 70 61 72 65 6e 74 68 65 73 69 73 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 4e 49 4c 20 ┆ric-parenthesis nil "\ *Non-NIL ┆
0x01c0…01e0 6d 61 6b 65 73 20 70 61 72 65 6e 74 68 65 73 69 73 20 63 68 61 72 20 28 20 28 5d 7d 3e 20 29 20 ┆makes parenthesis char ( (]}> ) ┆
0x01e0…0200 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 6e 73 65 72 74 20 69 74 73 20 63 6c 6f 73 65 0a 69 ┆automatically insert its close i┆
0x0200…0220 66 20 74 79 70 65 64 20 61 66 74 65 72 20 61 6e 20 40 43 6f 6d 6d 61 6e 64 20 66 6f 72 6d 2e 22 ┆f typed after an @Command form."┆
0x0220…0240 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 63 72 69 62 65 2d 6f 70 65 6e 2d 70 61 72 65 6e 74 68 ┆) (defconst scribe-open-parenth┆
0x0240…0260 65 73 65 73 20 22 5b 28 7b 3c 22 20 22 5c 0a 4f 70 65 6e 20 70 61 72 65 6e 74 68 65 73 69 73 20 ┆eses "[({<" "\ Open parenthesis ┆
0x0260…0280 63 68 61 72 61 63 74 65 72 73 20 66 6f 72 20 53 63 72 69 62 65 2e 22 29 0a 0a 28 64 65 66 63 6f ┆characters for Scribe.") (defco┆
0x0280…02a0 6e 73 74 20 73 63 72 69 62 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 74 68 65 73 65 73 20 22 5d 29 ┆nst scribe-close-parentheses "])┆
0x02a0…02c0 7d 3e 22 20 22 5c 0a 43 6c 6f 73 65 20 70 61 72 65 6e 74 68 65 73 69 73 20 63 68 61 72 61 63 74 ┆}>" "\ Close parenthesis charact┆
0x02c0…02e0 65 72 73 20 66 6f 72 20 53 63 72 69 62 65 2e 20 20 54 68 65 73 65 20 73 68 6f 75 6c 64 20 6d 61 ┆ers for Scribe. These should ma┆
0x02e0…0300 74 63 68 20 75 70 20 77 69 74 68 0a 73 63 72 69 62 65 2d 6f 70 65 6e 2d 70 61 72 65 6e 74 68 65 ┆tch up with scribe-open-parenthe┆
0x0300…0320 73 69 73 2e 22 29 0a 0a 28 69 66 20 28 6e 75 6c 6c 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 73 79 ┆sis.") (if (null scribe-mode-sy┆
0x0320…0340 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6c 65 74 20 28 28 73 74 20 28 73 79 6e 74 61 78 2d 74 61 ┆ntax-table) (let ((st (syntax-ta┆
0x0340…0360 62 6c 65 29 29 29 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28 70 72 6f 67 6e 20 28 73 ┆ble))) (unwind-protect (progn (s┆
0x0360…0380 65 74 71 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 63 6f ┆etq scribe-mode-syntax-table (co┆
0x0380…03a0 70 79 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 ┆py-syntax-table text-mode-syntax┆
0x03a0…03c0 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 73 63 72 69 62 ┆-table)) (set-syntax-table scrib┆
0x03c0…03e0 65 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 ┆e-mode-syntax-table) (modify-syn┆
0x03e0…0400 74 61 78 2d 65 6e 74 72 79 20 33 34 20 22 20 20 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆tax-entry 34 " ") (modify-syn┆
0x0400…0420 74 61 78 2d 65 6e 74 72 79 20 39 32 20 22 20 20 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆tax-entry 92 " ") (modify-syn┆
0x0420…0440 74 61 78 2d 65 6e 74 72 79 20 36 34 20 22 77 20 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆tax-entry 64 "w ") (modify-syn┆
0x0440…0460 74 61 78 2d 65 6e 74 72 79 20 36 30 20 22 28 3e 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆tax-entry 60 "(> ") (modify-syn┆
0x0460…0480 74 61 78 2d 65 6e 74 72 79 20 36 32 20 22 29 3c 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆tax-entry 62 ")< ") (modify-syn┆
0x0480…04a0 74 61 78 2d 65 6e 74 72 79 20 39 31 20 22 28 5d 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆tax-entry 91 "(] ") (modify-syn┆
0x04a0…04c0 74 61 78 2d 65 6e 74 72 79 20 39 33 20 22 29 5b 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆tax-entry 93 ")[ ") (modify-syn┆
0x04c0…04e0 74 61 78 2d 65 6e 74 72 79 20 31 32 33 20 22 28 7d 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 ┆tax-entry 123 "(} ") (modify-sy┆
0x04e0…0500 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 35 20 22 29 7b 20 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 ┆ntax-entry 125 "){ ") (modify-s┆
0x0500…0520 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 77 20 20 20 22 29 29 20 28 73 65 74 2d 73 79 6e ┆yntax-entry 39 "w ")) (set-syn┆
0x0520…0540 74 61 78 2d 74 61 62 6c 65 20 73 74 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 72 69 62 65 ┆tax-table st)))) (defvar scribe┆
0x0540…0560 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d ┆-mode-map nil) (if scribe-mode-┆
0x0560…0580 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d ┆map nil (setq scribe-mode-map (m┆
0x0580…05a0 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 6b 65 79 20 ┆ake-sparse-keymap)) (define-key ┆
0x05a0…05c0 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 ┆scribe-mode-map " " (quote scrib┆
0x05c0…05e0 65 2d 74 61 62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d ┆e-tab)) (define-key scribe-mode-┆
0x05e0…0600 6d 61 70 20 22 1b 09 22 20 28 71 75 6f 74 65 20 74 61 62 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 29 ┆map " " (quote tab-to-tab-stop)┆
0x0600…0620 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b ┆) (define-key scribe-mode-map " ┆
0x0620…0640 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 66 69 6e 65 2d ┆s" (quote center-line)) (define-┆
0x0640…0660 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 7d 22 20 28 71 75 6f 74 65 20 ┆key scribe-mode-map " }" (quote ┆
0x0660…0680 75 70 2d 6c 69 73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 ┆up-list)) (define-key scribe-mod┆
0x0680…06a0 65 2d 6d 61 70 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 ┆e-map " S" (quote center-paragra┆
0x06a0…06c0 70 68 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 ┆ph)) (define-key scribe-mode-map┆
0x06c0…06e0 20 22 5c 22 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 69 6e 73 65 72 74 2d 71 75 6f 74 65 ┆ "\"" (quote scribe-insert-quote┆
0x06e0…0700 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 ┆)) (define-key scribe-mode-map "┆
0x0700…0720 28 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 70 61 72 65 6e 74 68 65 73 69 73 29 29 20 28 ┆(" (quote scribe-parenthesis)) (┆
0x0720…0740 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 5b 22 20 28 ┆define-key scribe-mode-map "[" (┆
0x0740…0760 71 75 6f 74 65 20 73 63 72 69 62 65 2d 70 61 72 65 6e 74 68 65 73 69 73 29 29 20 28 64 65 66 69 ┆quote scribe-parenthesis)) (defi┆
0x0760…0780 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 7b 22 20 28 71 75 6f 74 ┆ne-key scribe-mode-map "{" (quot┆
0x0780…07a0 65 20 73 63 72 69 62 65 2d 70 61 72 65 6e 74 68 65 73 69 73 29 29 20 28 64 65 66 69 6e 65 2d 6b ┆e scribe-parenthesis)) (define-k┆
0x07a0…07c0 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 3c 22 20 28 71 75 6f 74 65 20 73 63 ┆ey scribe-mode-map "<" (quote sc┆
0x07c0…07e0 72 69 62 65 2d 70 61 72 65 6e 74 68 65 73 69 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 ┆ribe-parenthesis)) (define-key s┆
0x07e0…0800 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 63 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 ┆cribe-mode-map " c" (quote scrib┆
0x0800…0820 65 2d 63 68 61 70 74 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d ┆e-chapter)) (define-key scribe-m┆
0x0820…0840 6f 64 65 2d 6d 61 70 20 22 03 53 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 73 65 63 74 69 ┆ode-map " S" (quote scribe-secti┆
0x0840…0860 6f 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 ┆on)) (define-key scribe-mode-map┆
0x0860…0880 20 22 03 73 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 73 75 62 73 65 63 74 69 6f 6e 29 29 ┆ " s" (quote scribe-subsection))┆
0x0880…08a0 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 65 ┆ (define-key scribe-mode-map " e┆
0x08a0…08c0 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 69 6e 73 65 72 74 2d 65 6e 76 69 72 6f 6e 6d 65 ┆" (quote scribe-insert-environme┆
0x08c0…08e0 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 ┆nt)) (define-key scribe-mode-map┆
0x08e0…0900 20 22 03 05 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 62 72 61 63 6b 65 74 2d 72 65 67 69 ┆ " " (quote scribe-bracket-regi┆
0x0900…0920 6f 6e 2d 62 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d ┆on-be)) (define-key scribe-mode-┆
0x0920…0940 6d 61 70 20 22 03 5b 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 62 65 67 69 6e 29 29 20 28 ┆map " [" (quote scribe-begin)) (┆
0x0940…0960 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 5d 22 20 ┆define-key scribe-mode-map " ]" ┆
0x0960…0980 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 65 6e 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆(quote scribe-end)) (define-key ┆
0x0980…09a0 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 69 22 20 28 71 75 6f 74 65 20 73 63 72 69 ┆scribe-mode-map " i" (quote scri┆
0x09a0…09c0 62 65 2d 69 74 61 6c 69 63 69 7a 65 2d 77 6f 72 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆be-italicize-word)) (define-key ┆
0x09c0…09e0 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 62 22 20 28 71 75 6f 74 65 20 73 63 72 69 ┆scribe-mode-map " b" (quote scri┆
0x09e0…0a00 62 65 2d 62 6f 6c 64 2d 77 6f 72 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 63 72 69 62 ┆be-bold-word)) (define-key scrib┆
0x0a00…0a20 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 75 22 20 28 71 75 6f 74 65 20 73 63 72 69 62 65 2d 75 6e ┆e-mode-map " u" (quote scribe-un┆
0x0a20…0a40 64 65 72 6c 69 6e 65 2d 77 6f 72 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 6d ┆derline-word))) (defun scribe-m┆
0x0a40…0a60 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 64 69 74 69 6e ┆ode nil "\ Major mode for editin┆
0x0a60…0a80 67 20 66 69 6c 65 73 20 6f 66 20 53 63 72 69 62 65 20 28 61 20 74 65 78 74 20 66 6f 72 6d 61 74 ┆g files of Scribe (a text format┆
0x0a80…0aa0 74 65 72 29 20 73 6f 75 72 63 65 2e 0a 53 63 72 69 62 65 2d 6d 6f 64 65 20 69 73 20 73 69 6d 69 ┆ter) source. Scribe-mode is simi┆
0x0aa0…0ac0 6c 61 72 20 74 65 78 74 2d 6d 6f 64 65 2c 20 77 69 74 68 20 61 20 66 65 77 20 65 78 74 72 61 20 ┆lar text-mode, with a few extra ┆
0x0ac0…0ae0 63 6f 6d 6d 61 6e 64 73 20 61 64 64 65 64 2e 0a 5c 5c 7b 73 63 72 69 62 65 2d 6d 6f 64 65 2d 6d ┆commands added. \\{scribe-mode-m┆
0x0ae0…0b00 61 70 7d 0a 0a 49 6e 74 65 72 65 73 74 69 6e 67 20 76 61 72 69 61 62 6c 65 73 3a 0a 0a 73 63 72 ┆ap} Interesting variables: scr┆
0x0b00…0b20 69 62 65 2d 66 61 6e 63 79 2d 70 61 72 61 67 72 61 70 68 73 0a 20 20 4e 6f 6e 2d 6e 69 6c 20 6d ┆ibe-fancy-paragraphs Non-nil m┆
0x0b20…0b40 61 6b 65 73 20 53 63 72 69 62 65 20 6d 6f 64 65 20 75 73 65 20 61 20 64 69 66 66 65 72 65 6e 74 ┆akes Scribe mode use a different┆
0x0b40…0b60 20 73 74 79 6c 65 20 6f 66 20 70 61 72 61 67 72 61 70 68 20 73 65 70 61 72 61 74 69 6f 6e 2e 0a ┆ style of paragraph separation. ┆
0x0b60…0b80 0a 73 63 72 69 62 65 2d 65 6c 65 63 74 72 69 63 2d 71 75 6f 74 65 0a 20 20 4e 6f 6e 2d 6e 69 6c ┆ scribe-electric-quote Non-nil┆
0x0b80…0ba0 20 6d 61 6b 65 73 20 69 6e 73 65 72 74 20 6f 66 20 64 6f 75 62 6c 65 20 71 75 6f 74 65 20 75 73 ┆ makes insert of double quote us┆
0x0ba0…0bc0 65 20 60 60 20 6f 72 20 27 27 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 63 6f 6e 74 65 78 74 2e ┆e `` or '' depending on context.┆
0x0bc0…0be0 0a 0a 73 63 72 69 62 65 2d 65 6c 65 63 74 72 69 63 2d 70 61 72 65 6e 74 68 65 73 69 73 0a 20 20 ┆ scribe-electric-parenthesis ┆
0x0be0…0c00 4e 6f 6e 2d 6e 69 6c 20 6d 61 6b 65 73 20 61 6e 20 6f 70 65 6e 2d 70 61 72 65 6e 74 68 65 73 69 ┆Non-nil makes an open-parenthesi┆
0x0c00…0c20 73 20 63 68 61 72 20 28 6f 6e 65 20 6f 66 20 60 28 5b 3c 7b 27 29 0a 20 20 61 75 74 6f 6d 61 74 ┆s char (one of `([<{') automat┆
0x0c20…0c40 69 63 61 6c 6c 79 20 69 6e 73 65 72 74 20 69 74 73 20 63 6c 6f 73 65 20 69 66 20 74 79 70 65 64 ┆ically insert its close if typed┆
0x0c40…0c60 20 61 66 74 65 72 20 61 6e 20 40 43 6f 6d 6d 61 6e 64 20 66 6f 72 6d 2e 22 20 28 69 6e 74 65 72 ┆ after an @Command form." (inter┆
0x0c60…0c80 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 d1 20 88 d2 08 21 88 d3 89 11 ┆active) (byte-code " ! ┆
0x0c80…0ca0 88 d4 89 12 88 d5 c5 c3 5c 22 88 0d 89 14 88 d6 c6 21 88 d7 89 16 06 88 d6 c7 21 88 d7 0e 08 d8 ┆ \" ! ! ┆
0x0ca0…0cc0 51 89 16 07 88 d6 c9 21 88 d9 89 16 09 88 d6 ca 21 88 d8 89 16 0a 88 d6 cb 21 88 da db 0e 08 dc ┆Q ! ! ! ┆
0x0cc0…0ce0 0e 0c dd 25 89 16 0b 88 d6 cd 21 88 0e 0e 83 61 00 0e 0b 82 62 00 de 89 16 0d 88 d6 cf 21 88 df ┆ % ! a b ! ┆
0x0ce0…0d00 e0 20 50 89 16 0f 88 e1 0e 10 21 88 e2 e3 e4 5c 22 87 22 20 5b 73 63 72 69 62 65 2d 6d 6f 64 65 ┆ P ! \" " [scribe-mode┆
0x0d00…0d20 2d 6d 61 70 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6e 69 6c 20 6c 6f ┆-map mode-name major-mode nil lo┆
0x0d20…0d40 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 61 62 62 ┆cal-abbrev-table scribe-mode-abb┆
0x0d40…0d60 72 65 76 2d 74 61 62 6c 65 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 2d ┆rev-table comment-start comment-┆
0x0d60…0d80 73 74 61 72 74 2d 73 6b 69 70 20 73 63 72 69 62 65 2d 6f 70 65 6e 2d 70 61 72 65 6e 74 68 65 73 ┆start-skip scribe-open-parenthes┆
0x0d80…0da0 65 73 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 63 6f 6d 6d 65 6e 74 2d 65 6e 64 20 70 61 ┆es comment-column comment-end pa┆
0x0da0…0dc0 72 61 67 72 61 70 68 2d 73 74 61 72 74 20 73 63 72 69 62 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e ┆ragraph-start scribe-close-paren┆
0x0dc0…0de0 74 68 65 73 65 73 20 70 61 72 61 67 72 61 70 68 2d 73 65 70 61 72 61 74 65 20 73 63 72 69 62 65 ┆theses paragraph-separate scribe┆
0x0de0…0e00 2d 66 61 6e 63 79 2d 70 61 72 61 67 72 61 70 68 73 20 63 6f 6d 70 69 6c 65 2d 63 6f 6d 6d 61 6e ┆-fancy-paragraphs compile-comman┆
0x0e00…0e20 64 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6b 69 6c 6c 2d ┆d scribe-mode-syntax-table kill-┆
0x0e20…0e40 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 6c 2d 6d 61 ┆all-local-variables use-local-ma┆
0x0e40…0e60 70 20 22 53 63 72 69 62 65 22 20 73 63 72 69 62 65 2d 6d 6f 64 65 20 64 65 66 69 6e 65 2d 61 62 ┆p "Scribe" scribe-mode define-ab┆
0x0e60…0e80 62 72 65 76 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 65 20 22 ┆brev-table make-local-variable "┆
0x0e80…0ea0 40 43 6f 6d 6d 65 6e 74 5b 22 20 22 5d 22 20 30 20 63 6f 6e 63 61 74 20 22 5c 5c 28 5e 5b 0a 0c ┆@Comment[" "]" 0 concat "\\(^[ ┆
0x0ea0…0ec0 5d 5c 5c 29 5c 5c 7c 5c 5c 28 5e 40 5c 5c 77 2b 5b 22 20 22 5d 2e 2a 5b 22 20 22 5d 24 5c 5c 29 ┆]\\)\\|\\(^@\\w+[" "].*[" "]$\\)┆
0x0ec0…0ee0 22 20 22 5e 24 22 20 22 73 63 72 69 62 65 20 22 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d ┆" "^$" "scribe " buffer-file-nam┆
0x0ee0…0f00 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 73 20 74 65 78 ┆e set-syntax-table run-hooks tex┆
0x0f00…0f20 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 73 63 72 69 62 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 31 36 ┆t-mode-hook scribe-mode-hook] 16┆
0x0f20…0f40 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 74 61 62 20 6e 69 6c 20 28 69 6e 74 65 72 ┆)) (defun scribe-tab nil (inter┆
0x0f40…0f60 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 87 22 20 5b 6e 69 6c 20 ┆active) (byte-code " c " [nil ┆
0x0f60…0f80 22 40 5c 5c 22 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 20 6e 69 6c 20 22 5c ┆"@\\"] 1)) (defun scribe nil "\┆
0x0f80…0fa0 0a 52 75 6e 20 53 63 72 69 62 65 20 6f 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 ┆ Run Scribe on the current buffe┆
0x0fa0…0fc0 72 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 ┆r." (interactive) (byte-code " ┆
0x0fc0…0fe0 c1 c2 21 87 22 20 5b 6e 69 6c 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 63 6f ┆ ! " [nil call-interactively co┆
0x0fe0…1000 6d 70 69 6c 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 65 6e 76 65 6c 6f ┆mpile] 2)) (defun scribe-envelo┆
0x1000…1020 70 2d 77 6f 72 64 20 28 73 74 72 69 6e 67 20 63 6f 75 6e 74 29 20 22 5c 0a 53 75 72 72 6f 75 6e ┆p-word (string count) "\ Surroun┆
0x1020…1040 64 20 63 75 72 72 65 6e 74 20 77 6f 72 64 20 77 69 74 68 20 53 63 72 69 62 65 20 63 6f 6e 73 74 ┆d current word with Scribe const┆
0x1040…1060 72 75 63 74 20 40 53 54 52 49 4e 47 5b 2e 2e 2e 5d 2e 20 20 43 4f 55 4e 54 0a 73 70 65 63 69 66 ┆ruct @STRING[...]. COUNT specif┆
0x1060…1080 69 65 73 20 68 6f 77 20 6d 61 6e 79 20 77 6f 72 64 73 20 74 6f 20 73 75 72 72 6f 75 6e 64 2e 20 ┆ies how many words to surround. ┆
0x1080…10a0 20 41 20 6e 65 67 61 74 69 76 65 20 63 6f 75 6e 74 20 6d 65 61 6e 73 20 74 6f 20 73 6b 69 70 20 ┆ A negative count means to skip ┆
0x10a0…10c0 0a 62 61 63 6b 77 61 72 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 60 c9 ca 1b 1a 19 18 ┆ backward." (byte-code "`` ┆
0x10c0…10e0 cb 0c 21 3f 85 44 00 cc 68 21 cd 55 85 1c 00 ce cf 0c 5e 21 88 60 89 10 88 d0 d1 0d d2 51 21 83 ┆ !? D h! U ^! ` Q! ┆
0x10e0…1100 30 00 d3 d4 21 82 3a 00 09 62 88 d5 d6 21 88 d3 cf 21 88 ce 0c d7 5d 21 88 60 89 11 88 08 62 88 ┆0 ! : b ! ! ]! ` b ┆
0x1100…1120 0a 0d 47 57 85 6e 00 8a d8 d9 0d 0a 48 21 09 c6 23 86 66 00 d8 d9 0e 07 0a 48 21 09 c6 23 29 85 ┆ GW n H! # f H! #) ┆
0x1120…1140 6e 00 0a 54 89 12 85 76 00 ca 88 82 48 00 88 0a 0d 47 59 83 94 00 09 62 88 da db 0e 08 dc 23 88 ┆n T v H GY b # ┆
0x1140…1160 08 62 88 da dd 0e 08 dc 23 82 b4 00 09 62 88 0e 07 0a 48 63 88 08 62 88 da de 0e 08 0d 0a 48 23 ┆ b # b Hc b H#┆
0x1160…1180 88 09 62 88 d3 df 21 88 e0 0e 07 21 2c 87 22 20 5b 73 70 6f 73 20 65 70 6f 73 20 63 63 6f 75 6e ┆ b ! !, " [spos epos ccoun┆
0x1180…11a0 20 6e 6f 70 61 72 65 6e 73 20 63 6f 75 6e 74 20 73 63 72 69 62 65 2d 6f 70 65 6e 2d 70 61 72 65 ┆ noparens count scribe-open-pare┆
0x11a0…11c0 6e 74 68 65 73 65 73 20 74 20 73 63 72 69 62 65 2d 63 6c 6f 73 65 2d 70 61 72 65 6e 74 68 65 73 ┆ntheses t scribe-close-parenthes┆
0x11c0…11e0 65 73 20 73 74 72 69 6e 67 20 30 20 6e 69 6c 20 7a 65 72 6f 70 20 63 68 61 72 2d 73 79 6e 74 61 ┆es string 0 nil zerop char-synta┆
0x11e0…1200 78 20 31 31 39 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 2d 31 20 6c 6f 6f 6b 69 6e 67 2d 61 74 ┆x 119 forward-sexp -1 looking-at┆
0x1200…1220 20 22 40 5c 5c 77 5b 22 20 22 5d 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 32 20 73 6b 69 70 ┆ "@\\w[" "]" forward-char 2 skip┆
0x1220…1240 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 5c 5c 57 22 20 31 20 73 65 61 72 63 68 2d 66 ┆-chars-backward "\\W" 1 search-f┆
0x1240…1260 6f 72 77 61 72 64 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 69 6e 73 65 72 74 20 22 40 65 ┆orward char-to-string insert "@e┆
0x1260…1280 6e 64 28 22 20 22 29 22 20 22 40 62 65 67 69 6e 28 22 20 22 40 22 20 33 20 73 6b 69 70 2d 63 68 ┆nd(" ")" "@begin(" "@" 3 skip-ch┆
0x1280…12a0 61 72 73 2d 66 6f 72 77 61 72 64 5d 20 31 39 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 ┆ars-forward] 19)) (defun scribe┆
0x12a0…12c0 2d 75 6e 64 65 72 6c 69 6e 65 2d 77 6f 72 64 20 28 63 6f 75 6e 74 29 20 22 5c 0a 55 6e 64 65 72 ┆-underline-word (count) "\ Under┆
0x12c0…12e0 6c 69 6e 65 20 43 4f 55 4e 54 20 77 6f 72 64 73 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 62 79 ┆line COUNT words around point by┆
0x12e0…1300 20 6d 65 61 6e 73 20 6f 66 20 53 63 72 69 62 65 20 63 6f 6e 73 74 72 75 63 74 73 2e 22 20 28 69 ┆ means of Scribe constructs." (i┆
0x1300…1320 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 ┆nteractive "p") (byte-code " ┆
0x1320…1340 08 5c 22 87 22 20 5b 63 6f 75 6e 74 20 6e 69 6c 20 73 63 72 69 62 65 2d 65 6e 76 65 6c 6f 70 2d ┆ \" " [count nil scribe-envelop-┆
0x1340…1360 77 6f 72 64 20 22 75 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 62 6f 6c ┆word "u"] 3)) (defun scribe-bol┆
0x1360…1380 64 2d 77 6f 72 64 20 28 63 6f 75 6e 74 29 20 22 5c 0a 42 6f 6c 64 66 61 63 65 20 43 4f 55 4e 54 ┆d-word (count) "\ Boldface COUNT┆
0x1380…13a0 20 77 6f 72 64 73 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 ┆ words around point by means of ┆
0x13a0…13c0 53 63 72 69 62 65 20 63 6f 6e 73 74 72 75 63 74 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆Scribe constructs." (interactive┆
0x13c0…13e0 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 08 5c 22 87 22 20 5b 63 6f 75 ┆ "p") (byte-code " \" " [cou┆
0x13e0…1400 6e 74 20 6e 69 6c 20 73 63 72 69 62 65 2d 65 6e 76 65 6c 6f 70 2d 77 6f 72 64 20 22 62 22 5d 20 ┆nt nil scribe-envelop-word "b"] ┆
0x1400…1420 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 69 74 61 6c 69 63 69 7a 65 2d 77 6f 72 ┆3)) (defun scribe-italicize-wor┆
0x1420…1440 64 20 28 63 6f 75 6e 74 29 20 22 5c 0a 49 74 61 6c 69 63 69 7a 65 20 43 4f 55 4e 54 20 77 6f 72 ┆d (count) "\ Italicize COUNT wor┆
0x1440…1460 64 73 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 62 79 20 6d 65 61 6e 73 20 6f 66 20 53 63 72 69 ┆ds around point by means of Scri┆
0x1460…1480 62 65 20 63 6f 6e 73 74 72 75 63 74 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 ┆be constructs." (interactive "p"┆
0x1480…14a0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 08 5c 22 87 22 20 5b 63 6f 75 6e 74 20 6e ┆) (byte-code " \" " [count n┆
0x14a0…14c0 69 6c 20 73 63 72 69 62 65 2d 65 6e 76 65 6c 6f 70 2d 77 6f 72 64 20 22 69 22 5d 20 33 29 29 0a ┆il scribe-envelop-word "i"] 3)) ┆
0x14c0…14e0 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 62 65 67 69 6e 20 6e 69 6c 20 28 69 6e 74 65 72 61 ┆ (defun scribe-begin nil (intera┆
0x14e0…1500 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 63 88 c3 c4 21 88 c5 c6 c7 5c ┆ctive) (byte-code " c ! \┆
0x1500…1520 22 88 c8 c9 08 ca 51 21 87 22 20 5b 73 63 72 69 62 65 2d 6f 70 65 6e 2d 70 61 72 65 6e 74 68 65 ┆" Q! " [scribe-open-parenthe┆
0x1520…1540 73 65 73 20 6e 69 6c 20 22 0a 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 73 63 72 69 ┆ses nil " " forward-char -1 scri┆
0x1540…1560 62 65 2d 65 6e 76 65 6c 6f 70 2d 77 6f 72 64 20 22 42 65 67 69 6e 22 20 30 20 72 65 2d 73 65 61 ┆be-envelop-word "Begin" 0 re-sea┆
0x1560…1580 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 22 20 22 5d 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e ┆rch-forward "[" "]"] 6)) (defun┆
0x1580…15a0 20 73 63 72 69 62 65 2d 65 6e 64 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 ┆ scribe-end nil (interactive) (b┆
0x15a0…15c0 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 63 88 c3 c4 21 88 c5 c6 c7 5c 22 88 c8 c9 08 ca 51 21 87 ┆yte-code " c ! \" Q! ┆
0x15c0…15e0 22 20 5b 73 63 72 69 62 65 2d 6f 70 65 6e 2d 70 61 72 65 6e 74 68 65 73 65 73 20 6e 69 6c 20 22 ┆" [scribe-open-parentheses nil "┆
0x15e0…1600 0a 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 73 63 72 69 62 65 2d 65 6e 76 65 6c 6f ┆ " forward-char -1 scribe-envelo┆
0x1600…1620 70 2d 77 6f 72 64 20 22 45 6e 64 22 20 30 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 ┆p-word "End" 0 re-search-forward┆
0x1620…1640 20 22 5b 22 20 22 5d 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 63 68 61 ┆ "[" "]"] 6)) (defun scribe-cha┆
0x1640…1660 70 74 65 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 ┆pter nil (interactive) (byte-cod┆
0x1660…1680 65 20 22 c1 88 c2 63 88 c3 c4 21 88 c5 c6 c7 5c 22 88 c8 c9 08 ca 51 21 87 22 20 5b 73 63 72 69 ┆e " c ! \" Q! " [scri┆
0x1680…16a0 62 65 2d 6f 70 65 6e 2d 70 61 72 65 6e 74 68 65 73 65 73 20 6e 69 6c 20 22 0a 22 20 66 6f 72 77 ┆be-open-parentheses nil " " forw┆
0x16a0…16c0 61 72 64 2d 63 68 61 72 20 2d 31 20 73 63 72 69 62 65 2d 65 6e 76 65 6c 6f 70 2d 77 6f 72 64 20 ┆ard-char -1 scribe-envelop-word ┆
0x16c0…16e0 22 43 68 61 70 74 65 72 22 20 30 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b ┆"Chapter" 0 re-search-forward "[┆
0x16e0…1700 22 20 22 5d 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 73 65 63 74 69 6f ┆" "]"] 6)) (defun scribe-sectio┆
0x1700…1720 6e 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 20 22 ┆n nil (interactive) (byte-code "┆
0x1720…1740 c1 88 c2 63 88 c3 c4 21 88 c5 c6 c7 5c 22 88 c8 c9 08 ca 51 21 87 22 20 5b 73 63 72 69 62 65 2d ┆ c ! \" Q! " [scribe-┆
0x1740…1760 6f 70 65 6e 2d 70 61 72 65 6e 74 68 65 73 65 73 20 6e 69 6c 20 22 0a 22 20 66 6f 72 77 61 72 64 ┆open-parentheses nil " " forward┆
0x1760…1780 2d 63 68 61 72 20 2d 31 20 73 63 72 69 62 65 2d 65 6e 76 65 6c 6f 70 2d 77 6f 72 64 20 22 53 65 ┆-char -1 scribe-envelop-word "Se┆
0x1780…17a0 63 74 69 6f 6e 22 20 30 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 22 20 22 ┆ction" 0 re-search-forward "[" "┆
0x17a0…17c0 5d 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 73 75 62 73 65 63 74 69 6f ┆]"] 6)) (defun scribe-subsectio┆
0x17c0…17e0 6e 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 20 22 ┆n nil (interactive) (byte-code "┆
0x17e0…1800 c1 88 c2 63 88 c3 c4 21 88 c5 c6 c7 5c 22 88 c8 c9 08 ca 51 21 87 22 20 5b 73 63 72 69 62 65 2d ┆ c ! \" Q! " [scribe-┆
0x1800…1820 6f 70 65 6e 2d 70 61 72 65 6e 74 68 65 73 65 73 20 6e 69 6c 20 22 0a 22 20 66 6f 72 77 61 72 64 ┆open-parentheses nil " " forward┆
0x1820…1840 2d 63 68 61 72 20 2d 31 20 73 63 72 69 62 65 2d 65 6e 76 65 6c 6f 70 2d 77 6f 72 64 20 22 53 75 ┆-char -1 scribe-envelop-word "Su┆
0x1840…1860 62 53 65 63 74 69 6f 6e 22 20 30 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b ┆bSection" 0 re-search-forward "[┆
0x1860…1880 22 20 22 5d 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 65 2d 62 72 61 63 6b 65 ┆" "]"] 6)) (defun scribe-bracke┆
0x1880…18a0 74 2d 72 65 67 69 6f 6e 2d 62 65 20 28 65 6e 76 20 6d 69 6e 20 6d 61 78 29 20 28 69 6e 74 65 72 ┆t-region-be (env min max) (inter┆
0x18a0…18c0 61 63 74 69 76 65 20 22 73 45 6e 76 69 72 6f 6e 6d 65 6e 74 3a 20 0a 72 22 29 20 28 62 79 74 65 ┆active "sEnvironment: r") (byte┆
0x18c0…18e0 2d 63 6f 64 65 20 22 c3 88 8a 08 62 88 c4 c5 09 c6 23 88 0a 62 88 c4 c7 09 c6 23 29 87 22 20 5b ┆-code " b # b #) " [┆
0x18e0…1900 6d 61 78 20 65 6e 76 20 6d 69 6e 20 6e 69 6c 20 69 6e 73 65 72 74 20 22 40 65 6e 64 28 22 20 22 ┆max env min nil insert "@end(" "┆
0x1900…1920 29 0a 22 20 22 40 62 65 67 69 6e 28 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 69 62 ┆) " "@begin("] 5)) (defun scrib┆
[…truncated at 200 lines…]