DataMuseum.dk

top - metrics - download

    Length: 16382 (0x3ffe)
    Names: »ada.elc«

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

Hex Dump

0x0000…0020 0a 28 73 65 74 71 20 61 75 74 6f 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 28 63 6f 6e 73 20 28 63 6f   ┆ (setq auto-mode-alist (cons (co┆
0x0020…0040 6e 73 20 22 5c 5c 2e 61 64 61 24 22 20 28 71 75 6f 74 65 20 61 64 61 2d 6d 6f 64 65 29 29 20 61   ┆ns "\\.ada$" (quote ada-mode)) a┆
0x0040…0060 75 74 6f 2d 6d 6f 64 65 2d 61 6c 69 73 74 29 29 0a 0a 28 64 65 66 76 61 72 20 61 64 61 2d 6d 6f   ┆uto-mode-alist))  (defvar ada-mo┆
0x0060…0080 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 53 79 6e 74 61 78 20 74 61   ┆de-syntax-table nil "\ Syntax ta┆
0x0080…00a0 62 6c 65 20 69 6e 20 75 73 65 20 69 6e 20 41 64 61 2d 6d 6f 64 65 20 62 75 66 66 65 72 73 2e 22   ┆ble in use in Ada-mode buffers."┆
0x00a0…00c0 29 0a 0a 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62   ┆)  (let ((table (make-syntax-tab┆
0x00c0…00e0 6c 65 29 29 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 35 20 22 5f   ┆le))) (modify-syntax-entry 95 "_┆
0x00e0…0100 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 33 35   ┆" table) (modify-syntax-entry 35┆
0x0100…0120 20 22 5f 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   ┆ "_" table) (modify-syntax-entry┆
0x0120…0140 20 34 30 20 22 28 29 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   ┆ 40 "()" table) (modify-syntax-e┆
0x0140…0160 6e 74 72 79 20 34 31 20 22 29 28 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74   ┆ntry 41 ")(" table) (modify-synt┆
0x0160…0180 61 78 2d 65 6e 74 72 79 20 33 36 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73   ┆ax-entry 36 "." table) (modify-s┆
0x0180…01a0 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 32 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66   ┆yntax-entry 42 "." table) (modif┆
0x01a0…01c0 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 37 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f   ┆y-syntax-entry 47 "." table) (mo┆
0x01c0…01e0 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 33 20 22 2e 22 20 74 61 62 6c 65 29 20   ┆dify-syntax-entry 43 "." table) ┆
0x01e0…0200 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 35 20 22 2e 22 20 74 61 62 6c   ┆(modify-syntax-entry 45 "." tabl┆
0x0200…0220 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 31 20 22 2e 22 20 74   ┆e) (modify-syntax-entry 61 "." t┆
0x0220…0240 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 38 20 22 2e   ┆able) (modify-syntax-entry 38 ".┆
0x0240…0260 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 31 32   ┆" table) (modify-syntax-entry 12┆
0x0260…0280 34 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   ┆4 "." table) (modify-syntax-entr┆
0x0280…02a0 79 20 36 30 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 60 "." table) (modify-syntax-e┆
0x02a0…02c0 6e 74 72 79 20 36 32 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 62 "." table) (modify-synta┆
0x02c0…02e0 78 2d 65 6e 74 72 79 20 39 31 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79   ┆x-entry 91 "." table) (modify-sy┆
0x02e0…0300 6e 74 61 78 2d 65 6e 74 72 79 20 39 33 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79   ┆ntax-entry 93 "." table) (modify┆
0x0300…0320 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 33 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f   ┆-syntax-entry 123 "." table) (mo┆
0x0320…0340 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 35 20 22 2e 22 20 74 61 62 6c 65 29   ┆dify-syntax-entry 125 "." table)┆
0x0340…0360 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 36 20 22 2e 22 20 74 61 62   ┆ (modify-syntax-entry 46 "." tab┆
0x0360…0380 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 32 20 22 2e 22 20   ┆le) (modify-syntax-entry 92 "." ┆
0x0380…03a0 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 35 38 20 22   ┆table) (modify-syntax-entry 58 "┆
0x03a0…03c0 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 79 20 35   ┆." table) (modify-syntax-entry 5┆
0x03c0…03e0 39 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   ┆9 "." table) (modify-syntax-entr┆
0x03e0…0400 79 20 33 39 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 39 "." table) (modify-syntax-e┆
0x0400…0420 6e 74 72 79 20 33 34 20 22 5c 22 22 20 74 61 62 6c 65 29 20 28 73 65 74 71 20 61 64 61 2d 6d 6f   ┆ntry 34 "\"" table) (setq ada-mo┆
0x0420…0440 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 74 61 62 6c 65 29 29 0a 0a 28 64 65 66 76 61 72   ┆de-syntax-table table))  (defvar┆
0x0440…0460 20 61 64 61 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 75 73 65 64   ┆ ada-mode-map nil "\ Keymap used┆
0x0460…0480 20 69 6e 20 41 64 61 20 6d 6f 64 65 2e 22 29 0a 0a 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b   ┆ in Ada mode.")  (let ((map (mak┆
0x0480…04a0 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 65 79 20 6d   ┆e-sparse-keymap))) (define-key m┆
0x04a0…04c0 61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 61 64 61 2d 6e 65 77 6c 69 6e 65 29 29 20 28 64 65 66   ┆ap " " (quote ada-newline)) (def┆
0x04c0…04e0 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 7f 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d   ┆ine-key map " " (quote backward-┆
0x04e0…0500 64 65 6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 29 29 20 28 64 65 66 69 6e 65 2d 6b   ┆delete-char-untabify)) (define-k┆
0x0500…0520 65 79 20 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 61 64 61 2d 74 61 62 29 29 20 28 64 65 66   ┆ey map " " (quote ada-tab)) (def┆
0x0520…0540 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 09 22 20 28 71 75 6f 74 65 20 61 64 61 2d 75 6e 74 61   ┆ine-key map "  " (quote ada-unta┆
0x0540…0560 62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 3c 22 20 28 71 75 6f 74 65 20   ┆b)) (define-key map " <" (quote ┆
0x0560…0580 61 64 61 2d 62 61 63 6b 77 61 72 64 2d 74 6f 2d 73 61 6d 65 2d 69 6e 64 65 6e 74 29 29 20 28 64   ┆ada-backward-to-same-indent)) (d┆
0x0580…05a0 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 3e 22 20 28 71 75 6f 74 65 20 61 64 61 2d 66 6f   ┆efine-key map " >" (quote ada-fo┆
0x05a0…05c0 72 77 61 72 64 2d 74 6f 2d 73 61 6d 65 2d 69 6e 64 65 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b   ┆rward-to-same-indent)) (define-k┆
0x05c0…05e0 65 79 20 6d 61 70 20 22 03 68 22 20 28 71 75 6f 74 65 20 61 64 61 2d 68 65 61 64 65 72 29 29 20   ┆ey map " h" (quote ada-header)) ┆
0x05e0…0600 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 28 22 20 28 71 75 6f 74 65 20 61 64 61 2d   ┆(define-key map " (" (quote ada-┆
0x0600…0620 70 61 69 72 65 64 2d 70 61 72 65 6e 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20   ┆paired-parens)) (define-key map ┆
0x0620…0640 22 03 2d 22 20 28 71 75 6f 74 65 20 61 64 61 2d 69 6e 6c 69 6e 65 2d 63 6f 6d 6d 65 6e 74 29 29   ┆" -" (quote ada-inline-comment))┆
0x0640…0660 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 01 22 20 28 71 75 6f 74 65 20 61 64 61   ┆ (define-key map "  " (quote ada┆
0x0660…0680 2d 61 72 72 61 79 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 62 22 20 28 71   ┆-array)) (define-key map " b" (q┆
0x0680…06a0 75 6f 74 65 20 61 64 61 2d 65 78 63 65 70 74 69 6f 6e 2d 62 6c 6f 63 6b 29 29 20 28 64 65 66 69   ┆uote ada-exception-block)) (defi┆
0x06a0…06c0 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 64 22 20 28 71 75 6f 74 65 20 61 64 61 2d 64 65 63 6c 61   ┆ne-key map " d" (quote ada-decla┆
0x06c0…06e0 72 65 2d 62 6c 6f 63 6b 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 05 22 20   ┆re-block)) (define-key map "  " ┆
0x06e0…0700 28 71 75 6f 74 65 20 61 64 61 2d 65 78 63 65 70 74 69 6f 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b   ┆(quote ada-exception)) (define-k┆
0x0700…0720 65 79 20 6d 61 70 20 22 03 63 22 20 28 71 75 6f 74 65 20 61 64 61 2d 63 61 73 65 29 29 20 28 64   ┆ey map " c" (quote ada-case)) (d┆
0x0720…0740 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 0b 22 20 28 71 75 6f 74 65 20 61 64 61 2d 70 61   ┆efine-key map "  " (quote ada-pa┆
0x0740…0760 63 6b 61 67 65 2d 73 70 65 63 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 6b   ┆ckage-spec)) (define-key map " k┆
0x0760…0780 22 20 28 71 75 6f 74 65 20 61 64 61 2d 70 61 63 6b 61 67 65 2d 62 6f 64 79 29 29 20 28 64 65 66   ┆" (quote ada-package-body)) (def┆
0x0780…07a0 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 10 22 20 28 71 75 6f 74 65 20 61 64 61 2d 70 72 6f 63   ┆ine-key map "  " (quote ada-proc┆
0x07a0…07c0 65 64 75 72 65 2d 73 70 65 63 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 70   ┆edure-spec)) (define-key map " p┆
0x07c0…07e0 22 20 28 71 75 6f 74 65 20 61 64 61 2d 73 75 62 70 72 6f 67 72 61 6d 2d 62 6f 64 79 29 29 20 28   ┆" (quote ada-subprogram-body)) (┆
0x07e0…0800 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 06 22 20 28 71 75 6f 74 65 20 61 64 61 2d 66   ┆define-key map "  " (quote ada-f┆
0x0800…0820 75 6e 63 74 69 6f 6e 2d 73 70 65 63 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22   ┆unction-spec)) (define-key map "┆
0x0820…0840 03 66 22 20 28 71 75 6f 74 65 20 61 64 61 2d 66 6f 72 2d 6c 6f 6f 70 29 29 20 28 64 65 66 69 6e   ┆ f" (quote ada-for-loop)) (defin┆
0x0840…0860 65 2d 6b 65 79 20 6d 61 70 20 22 03 6c 22 20 28 71 75 6f 74 65 20 61 64 61 2d 6c 6f 6f 70 29 29   ┆e-key map " l" (quote ada-loop))┆
0x0860…0880 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 74 65 20 61 64 61   ┆ (define-key map " i" (quote ada┆
0x0880…08a0 2d 69 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 49 22 20 28 71 75 6f 74   ┆-if)) (define-key map " I" (quot┆
0x08a0…08c0 65 20 61 64 61 2d 65 6c 73 69 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03   ┆e ada-elsif)) (define-key map " ┆
0x08c0…08e0 65 22 20 28 71 75 6f 74 65 20 61 64 61 2d 65 6c 73 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79   ┆e" (quote ada-else)) (define-key┆
0x08e0…0900 20 6d 61 70 20 22 03 16 22 20 28 71 75 6f 74 65 20 61 64 61 2d 70 72 69 76 61 74 65 29 29 20 28   ┆ map "  " (quote ada-private)) (┆
0x0900…0920 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 12 22 20 28 71 75 6f 74 65 20 61 64 61 2d 72   ┆define-key map "  " (quote ada-r┆
0x0920…0940 65 63 6f 72 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 13 22 20 28 71 75   ┆ecord)) (define-key map "  " (qu┆
0x0940…0960 6f 74 65 20 61 64 61 2d 73 75 62 74 79 70 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61   ┆ote ada-subtype)) (define-key ma┆
0x0960…0980 70 20 22 03 73 22 20 28 71 75 6f 74 65 20 61 64 61 2d 73 65 70 61 72 61 74 65 29 29 20 28 64 65   ┆p " s" (quote ada-separate)) (de┆
0x0980…09a0 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 14 22 20 28 71 75 6f 74 65 20 61 64 61 2d 74 79 70   ┆fine-key map "  " (quote ada-typ┆
0x09a0…09c0 65 29 29 20 28 64 65 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   ┆e)) (define-key map " t" (quote ┆
0x09c0…09e0 61 64 61 2d 74 61 62 73 69 7a 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03   ┆ada-tabsize)) (define-key map " ┆
0x09e0…0a00 77 22 20 28 71 75 6f 74 65 20 61 64 61 2d 77 68 69 6c 65 2d 6c 6f 6f 70 29 29 20 28 64 65 66 69   ┆w" (quote ada-while-loop)) (defi┆
0x0a00…0a20 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 17 22 20 28 71 75 6f 74 65 20 61 64 61 2d 77 68 65 6e 29   ┆ne-key map "  " (quote ada-when)┆
0x0a20…0a40 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 78 22 20 28 71 75 6f 74 65 20 61 64   ┆) (define-key map " x" (quote ad┆
0x0a40…0a60 61 2d 65 78 69 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 43 22 20 28 71   ┆a-exit)) (define-key map " C" (q┆
0x0a60…0a80 75 6f 74 65 20 61 64 61 2d 63 6f 6d 70 69 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d   ┆uote ada-compile)) (define-key m┆
0x0a80…0aa0 61 70 20 22 03 42 22 20 28 71 75 6f 74 65 20 61 64 61 2d 62 69 6e 64 29 29 20 28 64 65 66 69 6e   ┆ap " B" (quote ada-bind)) (defin┆
0x0aa0…0ac0 65 2d 6b 65 79 20 6d 61 70 20 22 03 45 22 20 28 71 75 6f 74 65 20 61 64 61 2d 66 69 6e 64 2d 6c   ┆e-key map " E" (quote ada-find-l┆
0x0ac0…0ae0 69 73 74 69 6e 67 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 4c 22 20 28 71   ┆isting)) (define-key map " L" (q┆
0x0ae0…0b00 75 6f 74 65 20 61 64 61 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 29 29 20 28 64 65 66 69 6e 65 2d   ┆uote ada-library-name)) (define-┆
0x0b00…0b20 6b 65 79 20 6d 61 70 20 22 03 4f 22 20 28 71 75 6f 74 65 20 61 64 61 2d 6f 70 74 69 6f 6e 73 2d   ┆key map " O" (quote ada-options-┆
0x0b20…0b40 66 6f 72 2d 62 69 6e 64 29 29 20 28 73 65 74 71 20 61 64 61 2d 6d 6f 64 65 2d 6d 61 70 20 6d 61   ┆for-bind)) (setq ada-mode-map ma┆
0x0b40…0b60 70 29 29 0a 0a 28 64 65 66 76 61 72 20 61 64 61 2d 69 6e 64 65 6e 74 20 34 20 22 5c 0a 2a 56 61   ┆p))  (defvar ada-indent 4 "\ *Va┆
0x0b60…0b80 6c 75 65 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 74 6f 20   ┆lue is the number of columns to ┆
0x0b80…0ba0 69 6e 64 65 6e 74 20 69 6e 20 41 64 61 2d 4d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 61 64   ┆indent in Ada-Mode.")  (defun ad┆
0x0ba0…0bc0 61 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 20 69 6e 74   ┆a-mode nil "\ This is a mode int┆
0x0bc0…0be0 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 65 6c 6f 70   ┆ended to support program develop┆
0x0be0…0c00 6d 65 6e 74 20 69 6e 20 41 64 61 2e 0a 4d 6f 73 74 20 63 6f 6e 74 72 6f 6c 20 63 6f 6e 73 74 72   ┆ment in Ada. Most control constr┆
0x0c00…0c20 75 63 74 73 20 61 6e 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 6f 66 20 41 64 61 20 63 61 6e   ┆ucts and declarations of Ada can┆
0x0c20…0c40 20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 62 79 20 74 79   ┆ be inserted in the buffer by ty┆
0x0c40…0c60 70 69 6e 67 20 43 6f 6e 74 72 6f 6c 2d 43 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 63 68 61   ┆ping Control-C followed by a cha┆
0x0c60…0c80 72 61 63 74 65 72 20 6d 6e 65 6d 6f 6e 69 63 20 66 6f 72 20 74 68 65 20 63 6f 6e 73 74 72 75 63   ┆racter mnemonic for the construc┆
0x0c80…0ca0 74 2e 0a 0a 43 2d 63 20 43 2d 61 20 20 61 72 72 61 79 20 20 20 20 20 20 20 20 20 09 43 2d 63 20   ┆t.  C-c C-a  array          C-c ┆
0x0ca0…0cc0 62 20 20 20 20 65 78 63 65 70 74 69 6f 6e 20 62 6c 6f 63 6b 0a 43 2d 63 20 43 2d 65 20 20 65 78   ┆b    exception block C-c C-e  ex┆
0x0cc0…0ce0 63 65 70 74 69 6f 6e 20 20 20 20 20 20 43 2d 63 20 64 20 20 20 20 64 65 63 6c 61 72 65 20 62 6c   ┆ception      C-c d    declare bl┆
0x0ce0…0d00 6f 63 6b 0a 43 2d 63 20 43 2d 6b 20 20 70 61 63 6b 61 67 65 20 73 70 65 63 20 20 20 43 2d 63 20   ┆ock C-c C-k  package spec   C-c ┆
0x0d00…0d20 6b 20 20 20 20 70 61 63 6b 61 67 65 20 62 6f 64 79 0a 43 2d 63 20 43 2d 70 20 20 70 72 6f 63 65   ┆k    package body C-c C-p  proce┆
0x0d20…0d40 64 75 72 65 20 73 70 65 63 20 43 2d 63 20 70 20 20 20 20 70 72 6f 63 2f 66 75 6e 63 20 62 6f 64   ┆dure spec C-c p    proc/func bod┆
0x0d40…0d60 79 0a 43 2d 63 20 43 2d 66 20 20 66 75 6e 63 20 73 70 65 63 20 20 20 20 20 20 43 2d 63 20 66 20   ┆y C-c C-f  func spec      C-c f ┆
0x0d60…0d80 20 20 20 66 6f 72 20 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆   for loop                     ┆
0x0d80…0da0 20 20 20 20 43 2d 63 20 69 20 20 20 20 69 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆    C-c i    if                 ┆
0x0da0…0dc0 20 20 20 20 20 20 20 20 43 2d 63 20 49 20 20 20 20 65 6c 73 69 66 0a 20 20 20 20 20 20 20 20 20   ┆        C-c I    elsif          ┆
0x0dc0…0de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 2d 63 20 65 20 20 20 20 65 6c 73 65 0a 43 2d 63   ┆               C-c e    else C-c┆
0x0de0…0e00 20 43 2d 76 20 20 70 72 69 76 61 74 65 20 20 20 20 20 20 20 20 43 2d 63 20 6c 20 20 20 20 6c 6f   ┆ C-v  private        C-c l    lo┆
0x0e00…0e20 6f 70 0a 43 2d 63 20 43 2d 72 20 20 72 65 63 6f 72 64 20 20 20 20 20 20 20 20 20 43 2d 63 20 63   ┆op C-c C-r  record         C-c c┆
0x0e20…0e40 20 20 20 20 63 61 73 65 0a 43 2d 63 20 43 2d 73 20 20 73 75 62 74 79 70 65 20 20 20 20 20 20 20   ┆    case C-c C-s  subtype       ┆
0x0e40…0e60 20 43 2d 63 20 73 20 20 20 20 73 65 70 61 72 61 74 65 0a 43 2d 63 20 43 2d 74 20 20 74 79 70 65   ┆ C-c s    separate C-c C-t  type┆
0x0e60…0e80 20 20 20 20 20 20 20 20 20 20 20 43 2d 63 20 74 20 20 20 20 74 61 62 20 73 70 61 63 69 6e 67 20   ┆           C-c t    tab spacing ┆
0x0e80…0ea0 66 6f 72 20 69 6e 64 65 6e 74 73 0a 43 2d 63 20 43 2d 77 20 20 77 68 65 6e 20 20 20 20 20 20 20   ┆for indents C-c C-w  when       ┆
0x0ea0…0ec0 20 20 20 20 43 2d 63 20 77 20 20 20 20 77 68 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆    C-c w    while              ┆
0x0ec0…0ee0 20 20 20 20 20 20 20 20 20 20 20 43 2d 63 20 78 20 20 20 20 65 78 69 74 0a 43 2d 63 20 28 20 20   ┆           C-c x    exit C-c (  ┆
0x0ee0…0f00 20 20 70 61 69 72 65 64 20 70 61 72 65 6e 73 20 20 43 2d 63 20 2d 20 20 20 20 69 6e 6c 69 6e 65   ┆  paired parens  C-c -    inline┆
0x0f00…0f20 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ comment                        ┆
0x0f20…0f40 20 43 2d 63 20 68 20 20 20 20 68 65 61 64 65 72 20 73 65 63 0a 43 2d 63 20 43 20 20 20 20 63 6f   ┆ C-c h    header sec C-c C    co┆
0x0f40…0f60 6d 70 69 6c 65 20 20 20 20 20 20 20 20 43 2d 63 20 42 20 20 20 20 62 69 6e 64 0a 43 2d 63 20 45   ┆mpile        C-c B    bind C-c E┆
0x0f60…0f80 20 20 20 20 66 69 6e 64 20 65 72 72 6f 72 20 6c 69 73 74 0a 43 2d 63 20 4c 20 20 20 20 6e 61 6d   ┆    find error list C-c L    nam┆
0x0f80…0fa0 65 20 6c 69 62 72 61 72 79 20 20 20 43 2d 63 20 4f 20 20 20 20 6f 70 74 69 6f 6e 73 20 66 6f 72   ┆e library   C-c O    options for┆
0x0fa0…0fc0 20 62 69 6e 64 0a 0a 43 2d 63 20 3c 20 61 6e 64 20 43 2d 63 20 3e 20 6d 6f 76 65 20 62 61 63 6b   ┆ bind  C-c < and C-c > move back┆
0x0fc0…0fe0 77 61 72 64 20 61 6e 64 20 66 6f 72 77 61 72 64 20 72 65 73 70 65 63 74 69 76 65 6c 79 20 74 6f   ┆ward and forward respectively to┆
0x0fe0…1000 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 0a 68 61 76 69 6e 67 20 74 68 65 20 73 61 6d 65 20 28   ┆ the next line having the same (┆
0x1000…1020 6f 72 20 6c 65 73 73 65 72 29 20 6c 65 76 65 6c 20 6f 66 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2e   ┆or lesser) level of indentation.┆
0x1020…1040 0a 0a 56 61 72 69 61 62 6c 65 20 61 64 61 2d 69 6e 64 65 6e 74 20 63 6f 6e 74 72 6f 6c 73 20 74   ┆  Variable ada-indent controls t┆
0x1040…1060 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 61 63 65 73 20 66 6f 72 20 69 6e 64 65 6e 74 2f 75   ┆he number of spaces for indent/u┆
0x1060…1080 6e 64 65 6e 74 2e 0a 0a 5c 5c 7b 61 64 61 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 22 20 28 69 6e 74 65   ┆ndent.  \\{ada-mode-map} " (inte┆
0x1080…10a0 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 d1 88 d2 20 88 d3 08 21 88 d4 89   ┆ractive) (byte-code "       !   ┆
0x10a0…10c0 11 88 d5 89 12 88 d6 c3 21 88 d7 89 13 88 d6 c4 21 88 d8 89 14 88 d9 0d 21 88 d6 c6 21 88 da 0e   ┆        !       !       !   !   ┆
0x10c0…10e0 07 50 89 16 06 88 d6 c8 21 88 0e 06 89 16 08 88 d6 c9 21 88 ca 89 16 09 88 d6 cb 21 88 ca 89 16   ┆ P      !         !        !    ┆
0x10e0…1100 0b 88 d6 cc 21 88 db 89 16 0c 88 d6 cd 21 88 dc 89 16 0d 88 d6 c3 21 88 d7 89 13 88 d6 ce 21 88   ┆    !        !        !       ! ┆
0x1100…1120 dd 89 16 0e 88 d6 cf 21 88 de 89 16 0f 88 d6 d0 21 88 ca 89 16 10 88 df e0 21 87 22 20 5b 61 64   ┆       !        !        ! " [ad┆
0x1120…1140 61 2d 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   ┆a-mode-map major-mode mode-name ┆
0x1140…1160 63 6f 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   ┆comment-column end-comment-colum┆
0x1160…1180 6e 20 61 64 61 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   ┆n ada-mode-syntax-table paragrap┆
0x1180…11a0 68 2d 73 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   ┆h-start page-delimiter paragraph┆
0x11a0…11c0 2d 73 65 70 61 72 61 74 65 20 70 61 72 61 67 72 61 70 68 2d 69 67 6e 6f 72 65 2d 66 69 6c 6c 2d   ┆-separate paragraph-ignore-fill-┆
0x11c0…11e0 70 72 65 66 69 78 20 74 20 72 65 71 75 69 72 65 2d 66 69 6e 61 6c 2d 6e 65 77 6c 69 6e 65 20 63   ┆prefix t require-final-newline c┆
0x11e0…1200 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┆
0x1200…1220 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 ┆
0x1220…1240 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┆
0x1240…1260 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┆
0x1260…1280 6c 2d 6d 61 70 20 61 64 61 2d 6d 6f 64 65 20 22 41 64 61 22 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d   ┆l-map ada-mode "Ada" make-local-┆
0x1280…12a0 76 61 72 69 61 62 6c 65 20 34 31 20 37 32 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20   ┆variable 41 72 set-syntax-table ┆
0x12a0…12c0 22 5e 24 5c 5c 7c 22 20 22 2d 2d 22 20 22 0a 22 20 22 2d 2d 2b 20 2a 22 20 63 2d 63 6f 6d 6d 65   ┆"^$\\|" "--" " " "--+ *" c-comme┆
0x12c0…12e0 6e 74 2d 69 6e 64 65 6e 74 20 72 75 6e 2d 68 6f 6f 6b 73 20 61 64 61 2d 6d 6f 64 65 2d 68 6f 6f   ┆nt-indent run-hooks ada-mode-hoo┆
0x12e0…1300 6b 5d 20 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 74 61 62 73 69 7a 65 20 28 73 29 20   ┆k] 17))  (defun ada-tabsize (s) ┆
0x1300…1320 22 5c 0a 63 68 61 6e 67 65 73 20 73 70 61 63 69 6e 67 20 75 73 65 64 20 66 6f 72 20 69 6e 64 65   ┆"\ changes spacing used for inde┆
0x1320…1340 6e 74 61 74 69 6f 6e 2e 20 52 65 61 64 73 20 73 70 61 63 69 6e 67 20 66 72 6f 6d 20 6d 69 6e 69   ┆ntation. Reads spacing from mini┆
0x1340…1360 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 6e 6e 65 77 20 69 6e 64 65   ┆buffer." (interactive "nnew inde┆
0x1360…1380 6e 74 61 74 69 6f 6e 20 73 70 61 63 69 6e 67 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22   ┆ntation spacing: ") (byte-code "┆
0x1380…13a0 c2 88 09 89 10 87 22 20 5b 61 64 61 2d 69 6e 64 65 6e 74 20 73 20 6e 69 6c 5d 20 32 29 29 0a 0a   ┆      " [ada-indent s nil] 2))  ┆
0x13a0…13c0 28 64 65 66 75 6e 20 61 64 61 2d 6e 65 77 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 53 74 61 72 74 20   ┆(defun ada-newline nil "\ Start ┆
0x13c0…13e0 6e 65 77 20 6c 69 6e 65 20 61 6e 64 20 69 6e 64 65 6e 74 20 74 6f 20 63 75 72 72 65 6e 74 20 74   ┆new line and indent to current t┆
0x13e0…1400 61 62 20 73 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   ┆ab stop." (interactive) (byte-co┆
0x1400…1420 64 65 20 22 c1 88 c2 20 18 c3 20 88 08 6a 29 87 22 20 5b 61 64 61 2d 63 63 20 6e 69 6c 20 63 75   ┆de "         j) " [ada-cc nil cu┆
0x1420…1440 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 65 77 6c 69 6e 65 5d 20 33 29 29 0a 0a   ┆rrent-indentation newline] 3))  ┆
0x1440…1460 28 64 65 66 75 6e 20 61 64 61 2d 74 61 62 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 74 6f 20   ┆(defun ada-tab nil "\ Indent to ┆
0x1460…1480 6e 65 78 74 20 74 61 62 20 73 74 6f 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62   ┆next tab stop." (interactive) (b┆
0x1480…14a0 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c4 20 08 5c 22 54 08 5c 22 6a 87 22 20 5b 61 64 61 2d   ┆yte-code "       \"T \"j " [ada-┆
0x14a0…14c0 69 6e 64 65 6e 74 20 6e 69 6c 20 2a 20 2f 20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69   ┆indent nil * / current-indentati┆
0x14c0…14e0 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 75 6e 74 61 62 20 6e 69 6c 20 22 5c   ┆on] 5))  (defun ada-untab nil "\┆
0x14e0…1500 0a 44 65 6c 65 74 65 20 62 61 63 6b 77 61 72 64 73 20 74 6f 20 70 72 65 76 69 6f 75 73 20 74 61   ┆ Delete backwards to previous ta┆
0x1500…1520 62 20 73 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   ┆b stop." (interactive) (byte-cod┆
0x1520…1540 65 20 22 c1 88 c2 08 c1 5c 22 87 22 20 5b 61 64 61 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 62 61 63   ┆e "     \" " [ada-indent nil bac┆
0x1540…1560 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 5d 20 33 29 29 0a   ┆kward-delete-char-untabify] 3)) ┆
0x1560…1580 0a 28 64 65 66 75 6e 20 61 64 61 2d 67 6f 2d 74 6f 2d 74 68 69 73 2d 69 6e 64 65 6e 74 20 28 73   ┆ (defun ada-go-to-this-indent (s┆
0x1580…15a0 74 65 70 20 69 6e 64 65 6e 74 2d 6c 65 76 65 6c 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20   ┆tep indent-level) "\ Move point ┆
0x15a0…15c0 72 65 70 65 61 74 65 64 6c 79 20 62 79 20 3c 73 74 65 70 3e 20 6c 69 6e 65 73 20 74 69 6c 6c 20   ┆repeatedly by <step> lines till ┆
0x15c0…15e0 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 0a 68 61 73 20 67 69 76 65 6e 20 69 6e 64 65 6e   ┆the current line has given inden┆
0x15e0…1600 74 2d 6c 65 76 65 6c 20 6f 72 20 6c 65 73 73 2c 20 6f 72 20 74 68 65 20 73 74 61 72 74 2f 65 6e   ┆t-level or less, or the start/en┆
0x1600…1620 64 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 68 69 74 2e 0a 49 67 6e 6f 72 65 20 62   ┆d of the buffer is hit. Ignore b┆
0x1620…1640 6c 61 6e 6b 20 6c 69 6e 65 73 2c 20 73 74 61 74 65 6d 65 6e 74 20 6c 61 62 65 6c 73 2c 20 62 6c   ┆lank lines, statement labels, bl┆
0x1640…1660 6f 63 6b 2f 6c 6f 6f 70 20 6e 61 6d 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 08   ┆ock/loop names." (byte-code "   ┆
0x1660…1680 21 21 85 24 00 c5 c6 21 86 24 00 c5 c7 21 86 24 00 c5 c8 21 86 24 00 c5 c9 21 86 24 00 ca 20 09   ┆!! $   ! $   ! $   ! $   ! $    ┆
0x1680…16a0 56 85 2c 00 c2 88 82 00 00 87 22 20 5b 73 74 65 70 20 69 6e 64 65 6e 74 2d 6c 65 76 65 6c 20 6e   ┆V ,       " [step indent-level n┆
0x16a0…16c0 69 6c 20 7a 65 72 6f 70 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74   ┆il zerop forward-line looking-at┆
0x16c0…16e0 20 22 5e 5b 20 09 5d 2a 24 22 20 22 5e 5b 20 09 5d 2a 2d 2d 22 20 22 5e 3c 3c 5b 41 2d 5a 61 2d   ┆ "^[  ]*$" "^[  ]*--" "^<<[A-Za-┆
0x16e0…1700 7a 30 2d 39 5f 5d 2b 3e 3e 22 20 22 5e 5b 41 2d 5a 61 2d 7a 30 2d 39 5f 5d 2b 3a 22 20 63 75 72   ┆z0-9_]+>>" "^[A-Za-z0-9_]+:" cur┆
0x1700…1720 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 61 64   ┆rent-indentation] 9))  (defun ad┆
0x1720…1740 61 2d 62 61 63 6b 77 61 72 64 2d 74 6f 2d 73 61 6d 65 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 22 5c   ┆a-backward-to-same-indent nil "\┆
0x1740…1760 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 62 61 63 6b 77 61 72 64 73 20 74 6f 20 6e 65 61 72 65 73 74   ┆ Move point backwards to nearest┆
0x1760…1780 20 6c 69 6e 65 20 77 69 74 68 20 73 61 6d 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 72 20 6c   ┆ line with same indentation or l┆
0x1780…17a0 65 73 73 2e 0a 49 66 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 70 6f 69 6e 74 20 69 73 20 6c 65 66 74   ┆ess. If not found, point is left┆
0x17a0…17c0 20 61 74 20 74 6f 70 20 6f 66 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65   ┆ at top of buffer." (interactive┆
0x17c0…17e0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 20 5c 22 88 c4 20 87 22 20 5b 6e 69 6c   ┆) (byte-code "      \"    " [nil┆
0x17e0…1800 20 61 64 61 2d 67 6f 2d 74 6f 2d 74 68 69 73 2d 69 6e 64 65 6e 74 20 2d 31 20 63 75 72 72 65 6e   ┆ ada-go-to-this-indent -1 curren┆
0x1800…1820 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f   ┆t-indentation back-to-indentatio┆
0x1820…1840 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 61 2d 66 6f 72 77 61 72 64 2d 74 6f 2d 73 61   ┆n] 4))  (defun ada-forward-to-sa┆
0x1840…1860 6d 65 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 66 6f 72 77   ┆me-indent nil "\ Move point forw┆
0x1860…1880 61 72 64 73 20 74 6f 20 6e 65 61 72 65 73 74 20 6c 69 6e 65 20 77 69 74 68 20 73 61 6d 65 20 69   ┆ards to nearest line with same i┆
0x1880…18a0 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 72 20 6c 65 73 73 2e 0a 49 66 20 6e 6f 74 20 66 6f 75 6e 64   ┆ndentation or less. If not found┆
0x18a0…18c0 2c 20 70 6f 69 6e 74 20 69 73 20 6c 65 66 74 20 61 74 20 73 74 61 72 74 20 6f 66 20 6c 61 73 74   ┆, point is left at start of last┆
0x18c0…18e0 20 6c 69 6e 65 20 69 6e 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20   ┆ line in buffer." (interactive) ┆
0x18e0…1900 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 20 5c 22 88 c4 20 87 22 20 5b 6e 69 6c 20 61   ┆(byte-code "      \"    " [nil a┆
0x1900…1920 64 61 2d 67 6f 2d 74 6f 2d 74 68 69 73 2d 69 6e 64 65 6e 74 20 31 20 63 75 72 72 65 6e 74 2d 69   ┆da-go-to-this-indent 1 current-i┆
[…truncated at 200 lines…]