|
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 - metrics - downloadIndex: s
Length: 10904 (0x2a98)
Names: »scheme.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/scheme.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 29 29 0a 0a 28 64 65 66 76 ┆ (provide (quote scheme)) (defv┆
0x0020…0040 61 72 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 ┆ar scheme-mode-syntax-table nil ┆
0x0040…0060 22 5c 0a 22 29 0a 0a 28 69 66 20 28 6e 6f 74 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 ┆"\ ") (if (not scheme-mode-synt┆
0x0060…0080 61 78 2d 74 61 62 6c 65 29 20 28 6c 65 74 20 28 28 69 20 30 29 29 20 28 73 65 74 71 20 73 63 68 ┆ax-table) (let ((i 0)) (setq sch┆
0x0080…00a0 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 ┆eme-mode-syntax-table (make-synt┆
0x00a0…00c0 61 78 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 68 ┆ax-table)) (set-syntax-table sch┆
0x00c0…00e0 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 77 68 69 6c 65 20 28 3c ┆eme-mode-syntax-table) (while (<┆
0x00e0…0100 20 69 20 32 35 36 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22 ┆ i 256) (modify-syntax-entry i "┆
0x0100…0120 5f 20 20 20 22 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 ┆_ ") (setq i (1+ i))) (setq i ┆
0x0120…0140 34 38 29 20 28 77 68 69 6c 65 20 28 3c 3d 20 69 20 35 37 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆48) (while (<= i 57) (modify-syn┆
0x0140…0160 74 61 78 2d 65 6e 74 72 79 20 69 20 22 77 20 20 20 22 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 ┆tax-entry i "w ") (setq i (1+ ┆
0x0160…0180 69 29 29 29 20 28 73 65 74 71 20 69 20 36 35 29 20 28 77 68 69 6c 65 20 28 3c 3d 20 69 20 39 30 ┆i))) (setq i 65) (while (<= i 90┆
0x0180…01a0 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22 77 20 20 20 22 29 ┆) (modify-syntax-entry i "w ")┆
0x01a0…01c0 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 39 37 29 20 28 77 ┆ (setq i (1+ i))) (setq i 97) (w┆
0x01c0…01e0 68 69 6c 65 20 28 3c 3d 20 69 20 31 32 32 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 ┆hile (<= i 122) (modify-syntax-e┆
0x01e0…0200 6e 74 72 79 20 69 20 22 77 20 20 20 22 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 ┆ntry i "w ") (setq i (1+ i))) ┆
0x0200…0220 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 20 22 20 20 20 20 22 29 20 28 ┆(modify-syntax-entry 9 " ") (┆
0x0220…0240 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 30 20 22 3e 20 20 20 22 29 20 28 ┆modify-syntax-entry 10 "> ") (┆
0x0240…0260 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 20 22 20 20 20 20 22 29 20 28 ┆modify-syntax-entry 12 " ") (┆
0x0260…0280 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 33 20 22 20 20 20 20 22 29 20 28 ┆modify-syntax-entry 13 " ") (┆
0x0280…02a0 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 32 20 22 20 20 20 20 22 29 20 28 ┆modify-syntax-entry 32 " ") (┆
0x02a0…02c0 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 20 20 22 29 20 28 ┆modify-syntax-entry 91 "(] ") (┆
0x02c0…02e0 6d 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 29 20 28 ┆modify-syntax-entry 93 ")[ ") (┆
0x02e0…0300 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 33 20 22 28 7d 20 20 22 29 20 ┆modify-syntax-entry 123 "(} ") ┆
0x0300…0320 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 22 29 7b 20 20 22 29 ┆(modify-syntax-entry 125 "){ ")┆
0x0320…0340 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 34 20 22 20 20 32 33 22 ┆ (modify-syntax-entry 124 " 23"┆
0x0340…0360 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 "() "┆
0x0360…0380 29 20 28 6d 6f 64 69 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 ┆) (modify-syntax-entry 41 ")( "┆
0x0380…03a0 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 35 39 20 22 3c 20 20 20 22 ┆) (modify-syntax-entry 59 "< "┆
0x03a0…03c0 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 34 20 22 5c 22 20 20 20 ┆) (modify-syntax-entry 34 "\" ┆
0x03c0…03e0 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 27 20 20 ┆ ") (modify-syntax-entry 39 "' ┆
0x03e0…0400 20 22 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 20 22 27 20 20 ┆ ") (modify-syntax-entry 96 "' ┆
0x0400…0420 20 22 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 ┆ ") (modify-syntax-entry 44 "' ┆
0x0420…0440 20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 34 20 22 27 20 20 ┆ ") (modify-syntax-entry 64 "' ┆
0x0440…0460 20 22 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 20 22 27 20 31 ┆ ") (modify-syntax-entry 35 "' 1┆
0x0460…0480 34 22 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 5c 5c 20 ┆4") (modify-syntax-entry 92 "\\ ┆
0x0480…04a0 20 20 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 61 62 62 72 ┆ "))) (defvar scheme-mode-abbr┆
0x04a0…04c0 65 76 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72 ┆ev-table nil "\ ") (define-abbr┆
0x04c0…04e0 65 76 2d 74 61 62 6c 65 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 61 62 62 72 ┆ev-table (quote scheme-mode-abbr┆
0x04e0…0500 65 76 2d 74 61 62 6c 65 29 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f ┆ev-table) nil) (defun scheme-mo┆
0x0500…0520 64 65 2d 76 61 72 69 61 62 6c 65 73 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ce 08 21 ┆de-variables nil (byte-code " !┆
0x0520…0540 88 0a 89 11 88 cf c3 21 88 d0 0c 50 89 13 88 cf c5 21 88 0b 89 15 88 cf c6 21 88 c7 89 16 06 88 ┆ ! P ! ! ┆
0x0540…0560 cf c8 21 88 d1 89 16 08 88 cf c9 21 88 d2 89 16 09 88 cf ca 21 88 d3 89 16 0a 88 cf cb 21 88 d4 ┆ ! ! ! ! ┆
0x0560…0580 89 16 0b 88 cf cc 21 88 d5 89 16 0c 88 d6 89 16 0d 87 22 20 5b 73 63 68 65 6d 65 2d 6d 6f 64 65 ┆ ! " [scheme-mode┆
0x0580…05a0 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 ┆-syntax-table local-abbrev-table┆
0x05a0…05c0 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 70 61 72 61 67 72 ┆ scheme-mode-abbrev-table paragr┆
0x05c0…05e0 61 70 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 ┆aph-start page-delimiter paragra┆
0x05e0…0600 70 68 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 ┆ph-separate paragraph-ignore-fil┆
0x0600…0620 6c 2d 70 72 65 66 69 78 20 74 20 69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 ┆l-prefix t indent-line-function ┆
0x0620…0640 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 2d 73 6b 69 70 ┆comment-start comment-start-skip┆
0x0640…0660 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 68 ┆ comment-column comment-indent-h┆
0x0660…0680 6f 6f 6b 20 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 73 65 74 2d 73 79 6e 74 61 78 ┆ook mode-line-process set-syntax┆
0x0680…06a0 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 5e 24 5c 5c ┆-table make-local-variable "^$\\┆
0x06a0…06c0 7c 22 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 22 3b 22 20 22 3b 2b 5b 20 09 ┆|" scheme-indent-line ";" ";+[ ┆
0x06c0…06e0 5d 2a 22 20 34 30 20 73 63 68 65 6d 65 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 28 22 22 ┆]*" 40 scheme-comment-indent (""┆
0x06e0…0700 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 29 5d 20 31 31 29 29 ┆ scheme-mode-line-process)] 11))┆
0x0700…0720 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 ┆ (defvar scheme-mode-line-proce┆
0x0720…0740 73 73 20 22 22 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 ┆ss "") (defun scheme-mode-comma┆
0x0740…0760 6e 64 73 20 28 6d 61 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 08 c4 c5 ┆nds (map) (byte-code " # ┆
0x0760…0780 23 88 c1 08 c6 c7 23 87 22 20 5b 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 09 22 20 73 63 ┆# # " [map define-key " " sc┆
0x0780…07a0 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 22 7f 22 20 62 61 63 6b 77 61 72 64 2d 64 65 ┆heme-indent-line " " backward-de┆
0x07a0…07c0 6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 20 22 1b 11 22 20 73 63 68 65 6d 65 2d 69 ┆lete-char-untabify " " scheme-i┆
0x07c0…07e0 6e 64 65 6e 74 2d 73 65 78 70 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d ┆ndent-sexp] 6)) (defvar scheme-┆
0x07e0…0800 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 28 6e 6f 74 20 73 63 68 65 6d 65 2d 6d ┆mode-map nil) (if (not scheme-m┆
0x0800…0820 6f 64 65 2d 6d 61 70 29 20 28 70 72 6f 67 6e 20 28 73 65 74 71 20 73 63 68 65 6d 65 2d 6d 6f 64 ┆ode-map) (progn (setq scheme-mod┆
0x0820…0840 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 73 63 68 ┆e-map (make-sparse-keymap)) (sch┆
0x0840…0860 65 6d 65 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 ┆eme-mode-commands scheme-mode-ma┆
0x0860…0880 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a ┆p))) (defun scheme-mode nil "\ ┆
0x0880…08a0 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 53 63 68 65 6d 65 20 63 6f ┆Major mode for editing Scheme co┆
0x08a0…08c0 64 65 2e 0a 45 64 69 74 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 73 69 6d 69 6c 61 72 ┆de. Editing commands are similar┆
0x08c0…08e0 20 74 6f 20 74 68 6f 73 65 20 6f 66 20 6c 69 73 70 2d 6d 6f 64 65 2e 0a 0a 49 6e 20 61 64 64 69 ┆ to those of lisp-mode. In addi┆
0x08e0…0900 74 69 6f 6e 2c 20 69 66 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63 ┆tion, if an inferior Scheme proc┆
0x0900…0920 65 73 73 20 69 73 20 72 75 6e 6e 69 6e 67 2c 20 73 6f 6d 65 20 61 64 64 69 74 69 6f 6e 61 6c 0a ┆ess is running, some additional ┆
0x0920…0940 63 6f 6d 6d 61 6e 64 73 20 77 69 6c 6c 20 62 65 20 64 65 66 69 6e 65 64 2c 20 66 6f 72 20 65 76 ┆commands will be defined, for ev┆
0x0940…0960 61 6c 75 61 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 6e 64 20 63 6f 6e 74 72 6f 6c ┆aluating expressions and control┆
0x0960…0980 6c 69 6e 67 0a 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 61 6e 64 20 74 68 65 20 73 74 ┆ling the interpreter, and the st┆
0x0980…09a0 61 74 65 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 62 65 20 64 69 73 70 6c ┆ate of the process will be displ┆
0x09a0…09c0 61 79 65 64 20 69 6e 20 74 68 65 0a 6d 6f 64 65 6c 69 6e 65 20 6f 66 20 61 6c 6c 20 53 63 68 65 ┆ayed in the modeline of all Sche┆
0x09c0…09e0 6d 65 20 62 75 66 66 65 72 73 2e 20 20 54 68 65 20 6e 61 6d 65 73 20 6f 66 20 63 6f 6d 6d 61 6e ┆me buffers. The names of comman┆
0x09e0…0a00 64 73 20 74 68 61 74 20 69 6e 74 65 72 61 63 74 0a 77 69 74 68 20 74 68 65 20 53 63 68 65 6d 65 ┆ds that interact with the Scheme┆
0x0a00…0a20 20 70 72 6f 63 65 73 73 20 73 74 61 72 74 20 77 69 74 68 20 5c 22 78 73 63 68 65 6d 65 2d 5c 22 ┆ process start with \"xscheme-\"┆
0x0a20…0a40 2e 20 20 46 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 73 65 65 20 74 68 65 20 ┆. For more information see the ┆
0x0a40…0a60 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 78 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 ┆documentation for xscheme-intera┆
0x0a60…0a80 63 74 69 6f 6e 2d 6d 6f 64 65 2e 0a 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 6c 65 74 65 20 63 6f ┆ction-mode. Commands: Delete co┆
0x0a80…0aa0 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 74 20 6d 6f 76 65 ┆nverts tabs to spaces as it move┆
0x0aa0…0ac0 73 20 62 61 63 6b 2e 0a 42 6c 61 6e 6b 20 6c 69 6e 65 73 20 73 65 70 61 72 61 74 65 20 70 61 72 ┆s back. Blank lines separate par┆
0x0ac0…0ae0 61 67 72 61 70 68 73 2e 20 20 53 65 6d 69 63 6f 6c 6f 6e 73 20 73 74 61 72 74 20 63 6f 6d 6d 65 ┆agraphs. Semicolons start comme┆
0x0ae0…0b00 6e 74 73 2e 0a 5c 5c 7b 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 45 6e 74 72 79 20 74 ┆nts. \\{scheme-mode-map} Entry t┆
0x0b00…0b20 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 73 ┆o this mode calls the value of s┆
0x0b20…0b40 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 ┆cheme-mode-hook if that value is┆
0x0b40…0b60 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 ┆ non-nil." (interactive) (byte-c┆
0x0b60…0b80 6f 64 65 20 22 c0 88 c1 20 88 c2 20 88 c3 20 88 c4 c5 21 87 22 20 5b 6e 69 6c 20 6b 69 6c 6c 2d ┆ode " ! " [nil kill-┆
0x0b80…0ba0 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d ┆all-local-variables scheme-mode-┆
0x0ba0…0bc0 69 6e 69 74 69 61 6c 69 7a 65 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 ┆initialize scheme-mode-variables┆
0x0bc0…0be0 20 72 75 6e 2d 68 6f 6f 6b 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 35 29 29 ┆ run-hooks scheme-mode-hook] 5))┆
0x0be0…0c00 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 69 6e 69 74 69 61 6c 69 7a 65 20 ┆ (defun scheme-mode-initialize ┆
0x0c00…0c20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 88 c4 89 11 88 c5 89 12 87 22 20 5b 73 ┆nil (byte-code " ! " [s┆
0x0c20…0c40 63 68 65 6d 65 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 ┆cheme-mode-map major-mode mode-n┆
0x0c40…0c60 61 6d 65 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 73 63 68 65 6d 65 2d 6d 6f 64 65 20 22 53 ┆ame use-local-map scheme-mode "S┆
0x0c60…0c80 63 68 65 6d 65 22 5d 20 33 29 29 0a 0a 28 61 75 74 6f 6c 6f 61 64 20 28 71 75 6f 74 65 20 72 75 ┆cheme"] 3)) (autoload (quote ru┆
0x0c80…0ca0 6e 2d 73 63 68 65 6d 65 29 20 22 78 73 63 68 65 6d 65 22 20 22 5c 0a 52 75 6e 20 61 6e 20 69 6e ┆n-scheme) "xscheme" "\ Run an in┆
0x0ca0…0cc0 66 65 72 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 0a 4f 75 74 70 75 74 20 67 6f ┆ferior Scheme process. Output go┆
0x0cc0…0ce0 65 73 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 20 60 2a 73 63 68 65 6d 65 2a 27 2e 0a 57 69 74 ┆es to the buffer `*scheme*'. Wit┆
0x0ce0…0d00 68 20 61 72 67 75 6d 65 6e 74 2c 20 61 73 6b 73 20 66 6f 72 20 61 20 63 6f 6d 6d 61 6e 64 20 6c ┆h argument, asks for a command l┆
0x0d00…0d20 69 6e 65 2e 22 20 74 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 6d 69 74 2d 64 69 61 ┆ine." t) (defvar scheme-mit-dia┆
0x0d20…0d40 6c 65 63 74 20 74 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 63 68 65 6d 65 20 6d 6f 64 ┆lect t "\ If non-nil, scheme mod┆
0x0d40…0d60 65 20 69 73 20 73 70 65 63 69 61 6c 69 7a 65 64 20 66 6f 72 20 4d 49 54 20 53 63 68 65 6d 65 2e ┆e is specialized for MIT Scheme.┆
0x0d60…0d80 0a 53 65 74 20 74 68 69 73 20 74 6f 20 6e 69 6c 20 69 66 20 79 6f 75 20 6e 6f 72 6d 61 6c 6c 79 ┆ Set this to nil if you normally┆
0x0d80…0da0 20 75 73 65 20 61 6e 6f 74 68 65 72 20 64 69 61 6c 65 63 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 ┆ use another dialect.") (defun ┆
0x0da0…0dc0 73 63 68 65 6d 65 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c ┆scheme-comment-indent (&optional┆
0x0dc0…0de0 20 70 6f 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a 08 85 07 00 08 62 88 c4 c5 21 83 12 00 ┆ pos) (byte-code " b ! ┆
0x0de0…0e00 69 82 3a 00 c4 c6 21 83 2a 00 c7 20 19 09 3c 83 25 00 09 40 82 26 00 09 29 82 3a 00 c8 c9 21 88 ┆i : ! * < % @ & ) : ! ┆
0x0e00…0e20 6e 83 36 00 ca 82 38 00 69 54 0b 5d 29 87 22 20 5b 70 6f 73 20 74 65 6d 20 74 20 63 6f 6d 6d 65 ┆n 6 8 iT ]) " [pos tem t comme┆
0x0e20…0e40 6e 74 2d 63 6f 6c 75 6d 6e 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3b 3b 3b 22 20 22 3b 3b 22 20 ┆nt-column looking-at ";;;" ";;" ┆
0x0e40…0e60 63 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 20 73 6b 69 70 2d 63 68 61 ┆calculate-scheme-indent skip-cha┆
0x0e60…0e80 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 20 30 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 ┆rs-backward " " 0] 6)) (defvar┆
0x0e80…0ea0 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6f 66 66 73 65 74 20 6e 69 6c 20 22 5c 0a 22 29 0a ┆ scheme-indent-offset nil "\ ") ┆
0x0ea0…0ec0 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 28 71 75 6f ┆ (defvar scheme-indent-hook (quo┆
0x0ec0…0ee0 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 22 5c 0a 22 29 0a 0a 28 64 ┆te scheme-indent-hook) "\ ") (d┆
0x0ee0…0f00 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e ┆efun scheme-indent-line (&option┆
0x0f00…0f20 61 6c 20 77 68 6f 6c 65 2d 65 78 70 29 20 22 5c 0a 49 6e 64 65 6e 74 20 63 75 72 72 65 6e 74 20 ┆al whole-exp) "\ Indent current ┆
0x0f20…0f40 6c 69 6e 65 20 61 73 20 53 63 68 65 6d 65 20 63 6f 64 65 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 ┆line as Scheme code. With argume┆
0x0f40…0f60 6e 74 2c 20 69 6e 64 65 6e 74 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 6c 69 6e 65 73 20 ┆nt, indent any additional lines ┆
0x0f60…0f80 6f 66 20 74 68 65 20 73 61 6d 65 20 65 78 70 72 65 73 73 69 6f 6e 0a 72 69 67 69 64 6c 79 20 61 ┆of the same expression rigidly a┆
0x0f80…0fa0 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 6f 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 ┆long with this one." (interactiv┆
0x0fa0…0fc0 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c7 20 c5 c5 c5 64 60 5a 1c 1b 1a ┆e "P") (byte-code " d`Z ┆
0x0fc0…0fe0 19 18 c8 20 88 60 89 12 88 c9 ca 21 88 cb cc 21 83 24 00 c5 82 82 00 08 3c 85 2d 00 08 40 89 10 ┆ ` ! ! $ < - @ ┆
0x0fe0…1000 88 08 69 5a 89 11 88 cd 09 21 83 3e 00 c5 82 45 00 ce 0a 60 5c 22 88 08 6a 88 64 0c 5a 60 56 85 ┆ iZ ! > E `\" j d Z`V ┆
0x1000…1020 52 00 64 0c 5a 62 88 0e 06 85 82 00 cd 09 21 3f 85 82 00 8a 0a 62 88 cf d0 21 88 60 89 13 88 0a ┆R d Zb !? b ! ` ┆
0x1020…1040 62 88 d1 d0 21 88 60 89 12 88 0b 0a 56 29 85 82 00 d2 0a 0b 09 23 2d 87 22 20 5b 69 6e 64 65 6e ┆b ! ` V) #- " [inden┆
0x1040…1060 74 20 73 68 69 66 74 2d 61 6d 74 20 62 65 67 20 65 6e 64 20 70 6f 73 20 6e 69 6c 20 77 68 6f 6c ┆t shift-amt beg end pos nil whol┆
0x1060…1080 65 2d 65 78 70 20 63 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 20 62 65 ┆e-exp calculate-scheme-indent be┆
0x1080…10a0 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 ┆ginning-of-line skip-chars-forwa┆
0x10a0…10c0 72 64 20 22 20 09 22 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 20 09 5d 2a 3b 3b 3b 22 20 7a 65 ┆rd " " looking-at "[ ]*;;;" ze┆
0x10c0…10e0 72 6f 70 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 ┆rop delete-region forward-sexp 1┆
0x10e0…1100 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 69 6e 64 65 6e 74 2d 63 6f 64 65 2d 72 69 67 69 64 6c ┆ forward-line indent-code-rigidl┆
0x1100…1120 79 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 ┆y] 13)) (defun calculate-scheme┆
0x1120…1140 2d 69 6e 64 65 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 72 73 65 2d 73 74 61 72 74 29 20 ┆-indent (&optional parse-start) ┆
0x1140…1160 22 5c 0a 52 65 74 75 72 6e 20 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 64 65 6e 74 61 74 69 6f ┆"\ Return appropriate indentatio┆
0x1160…1180 6e 20 66 6f 72 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 73 63 68 65 6d 65 20 63 6f 64 ┆n for current line as scheme cod┆
0x1180…11a0 65 2e 0a 49 6e 20 75 73 75 61 6c 20 63 61 73 65 20 72 65 74 75 72 6e 73 20 61 6e 20 69 6e 74 65 ┆e. In usual case returns an inte┆
0x11a0…11c0 67 65 72 3a 20 74 68 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 6f 2e 0a 43 61 ┆ger: the column to indent to. Ca┆
0x11c0…11e0 6e 20 69 6e 73 74 65 61 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2c 20 77 68 6f 73 65 20 63 ┆n instead return a list, whose c┆
0x11e0…1200 61 72 20 69 73 20 74 68 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 6f 2e 0a 54 ┆ar is the column to indent to. T┆
0x1200…1220 68 69 73 20 6d 65 61 6e 73 20 74 68 61 74 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 73 20 61 ┆his means that following lines a┆
0x1220…1240 74 20 74 68 65 20 73 61 6d 65 20 6c 65 76 65 6c 20 6f 66 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a ┆t the same level of indentation ┆
0x1240…1260 73 68 6f 75 6c 64 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 62 65 20 69 6e 64 65 6e 74 ┆should not necessarily be indent┆
0x1260…1280 65 64 20 74 68 65 20 73 61 6d 65 20 77 61 79 2e 0a 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d ┆ed the same way. The second elem┆
0x1280…12a0 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 69 73 20 74 68 65 20 62 75 66 66 65 72 20 70 6f ┆ent of the list is the buffer po┆
0x12a0…12c0 73 69 74 69 6f 6e 0a 6f 66 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 63 6f 6e 74 61 ┆sition of the start of the conta┆
0x12c0…12e0 69 6e 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a ┆ining expression." (byte-code " ┆
0x12e0…1300 ce 20 88 60 ca ca ca c5 ca ca ca 1e 08 1e 07 1e 06 1c 1b 1a 19 18 0e 09 83 5c 22 00 0e 09 62 82 ┆ ` \" b ┆
0x1300…1320 24 00 cf 20 88 60 08 57 85 36 00 d0 60 08 d1 23 89 11 88 82 25 00 88 0c 85 45 00 09 40 89 12 85 ┆$ ` W 6 ` # % E @ ┆
0x1320…1340 45 00 0a d1 56 85 ea 00 ca 89 14 88 d2 09 38 89 16 06 88 09 41 40 89 16 07 88 0e 07 54 62 88 0e ┆E V 8 A@ Tb ┆
0x1340…1360 06 85 68 00 0e 06 60 56 85 81 00 d0 0e 06 08 d1 23 1e 0b 0e 0b 41 40 89 14 85 80 00 0e 0b 89 11 ┆ h `V # A@ ┆
0x1360…1380 29 88 0c 3f 85 e6 00 0e 07 54 62 88 0e 06 3f 83 98 00 69 89 13 82 e6 00 d0 60 0e 06 d1 c5 24 88 ┆) ? Tb ? i ` $ ┆
0x1380…13a0 d3 d4 21 89 16 08 88 8a d5 d6 21 88 60 29 0e 06 56 83 d5 00 d0 60 0e 06 d1 c5 24 88 d7 60 0e 06 ┆ ! ! `) V ` $ ` ┆
0x13a0…13c0 5c 22 85 cf 00 d8 d6 21 88 d0 60 0e 06 d1 c5 24 88 d9 20 82 e6 00 0e 06 62 88 ce 20 88 d0 60 0e ┆\" ! ` $ b ` ┆
0x13c0…13e0 06 d1 c5 24 88 d9 20 88 82 37 00 88 0e 08 85 f3 00 69 89 13 88 da db 09 5c 22 40 83 09 01 08 62 ┆ $ 7 i \"@ b┆
0x13e0…1400 88 dc dd 21 88 69 89 13 82 45 01 de 0e 0c 21 85 12 01 0e 07 83 5c 22 01 0e 07 62 88 0e 0c 69 5c ┆ ! i E ! \" b i\┆
0x1400…1420 5c 89 13 82 45 01 0b 86 3e 01 df cd 21 85 3e 01 0e 0d 85 3e 01 0c 3f 85 3e 01 e0 0e 0d 08 09 23 ┆\ E > ! > > ? > #┆
0x1420…1440 89 13 3f 85 45 01 69 89 13 88 0b 2e 08 29 87 22 20 5b 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 ┆ ? E i . ) " [indent-point s┆
0x1440…1460 74 61 74 65 20 70 61 72 65 6e 2d 64 65 70 74 68 20 64 65 73 69 72 65 64 2d 69 6e 64 65 6e 74 20 ┆tate paren-depth desired-indent ┆
0x1460…1480 72 65 74 72 79 20 74 20 6c 61 73 74 2d 73 65 78 70 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 73 65 78 ┆retry t last-sexp containing-sex┆
0x1480…14a0 70 20 66 69 72 73 74 2d 73 65 78 70 2d 6c 69 73 74 2d 70 20 70 61 72 73 65 2d 73 74 61 72 74 20 ┆p first-sexp-list-p parse-start ┆
0x14a0…14c0 6e 69 6c 20 70 65 65 6b 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6f 66 66 73 65 74 20 73 63 ┆nil peek scheme-indent-offset sc┆
0x14c0…14e0 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 ┆heme-indent-hook beginning-of-li┆
0x14e0…1500 6e 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 70 61 72 73 65 2d 70 61 72 74 ┆ne beginning-of-defun parse-part┆
0x1500…1520 69 61 6c 2d 73 65 78 70 20 30 20 32 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 28 22 20 66 ┆ial-sexp 0 2 looking-at "\\s(" f┆
0x1520…1540 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 2f 3d 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 62 61 ┆orward-line 1 /= forward-sexp ba┆
0x1540…1560 63 6b 77 61 72 64 2d 70 72 65 66 69 78 2d 63 68 61 72 73 20 6e 74 68 63 64 72 20 33 20 73 6b 69 ┆ckward-prefix-chars nthcdr 3 ski┆
0x1560…1580 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 69 6e 74 65 67 65 72 70 20 62 6f ┆p-chars-forward " " integerp bo┆
0x1580…15a0 75 6e 64 70 20 66 75 6e 63 61 6c 6c 5d 20 32 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d ┆undp funcall] 23)) (defun schem┆
0x15a0…15c0 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 28 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 74 61 74 ┆e-indent-hook (indent-point stat┆
0x15c0…15e0 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 69 18 8a 09 41 40 54 62 88 c5 c6 21 88 c7 60 09 41 ┆e) (byte-code "i A@Tb ! ` A┆
0x15e0…1600 40 5c 22 85 63 00 c8 c9 ca 21 88 60 cb cc 21 88 60 5c 22 cd 1b 1a ce 0a 21 89 12 88 cf 0a 21 d0 ┆@\" c ! ` ! `\" ! ! ┆
0x1600…1620 4e 89 13 88 d1 0b 21 83 41 00 d2 0b 09 0c 23 82 62 00 0b 83 4d 00 d3 0b 09 0c 23 82 62 00 0a 47 ┆N ! A # b M # b G┆
0x1620…1640 d4 56 85 5b 00 d5 0a d6 d4 4f d7 5c 22 85 62 00 d8 09 0c 5c 22 2a 29 29 87 22 20 5b 6e 6f 72 6d ┆ V [ O \" b \"*)) " [norm┆
0x1640…1660 61 6c 2d 69 6e 64 65 6e 74 20 73 74 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 20 ┆al-indent state function method ┆
0x1660…1680 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 ┆indent-point re-search-forward "┆
0x1680…16a0 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 22 20 2f 3d 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 ┆\\sw\\|\\s_" /= buffer-substring┆
0x16a0…16c0 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 ┆ forward-char -1 forward-sexp 1 ┆
0x16c0…16e0 6e 69 6c 20 64 6f 77 6e 63 61 73 65 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 73 63 68 65 6d 65 2d ┆nil downcase intern-soft scheme-┆
0x16e0…1700 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 69 6e 74 65 67 65 72 70 20 73 63 68 65 6d 65 2d 69 6e 64 65 ┆indent-hook integerp scheme-inde┆
0x1700…1720 6e 74 2d 73 70 65 63 66 6f 72 6d 20 66 75 6e 63 61 6c 6c 20 33 20 73 74 72 69 6e 67 2d 65 71 75 ┆nt-specform funcall 3 string-equ┆
0x1720…1740 61 6c 20 30 20 22 64 65 66 22 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 64 65 66 66 6f 72 6d ┆al 0 "def" scheme-indent-defform┆
0x1740…1760 5d 20 31 34 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 62 6f 64 79 2d 69 6e 64 65 ┆] 14)) (defvar scheme-body-inde┆
0x1760…1780 6e 74 20 32 20 22 5c 0a 22 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 ┆nt 2 "\ ") (defun scheme-indent┆
0x1780…17a0 2d 73 70 65 63 66 6f 72 6d 20 28 63 6f 75 6e 74 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f ┆-specform (count state indent-po┆
0x17a0…17c0 69 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 41 40 0b ca ca 1d 1c 1a 18 08 62 88 69 89 ┆int) (byte-code " A@ b i ┆
0x17c0…17e0 15 88 0e 06 0d 5c 5c 89 14 88 cb cc 21 88 cd cc 21 88 ce 60 0e 07 cc c8 24 88 60 0e 07 57 85 33 ┆ \\ ! ! ` $ ` W 3┆
0x17e0…1800 00 ca cf d0 8f 85 3b 00 ca 88 82 28 00 88 0b d1 56 83 4e 00 0d d2 d3 0e 06 5c 22 5c 5c 08 44 82 ┆ ; ( V N \"\\ D ┆
0x1800…1820 67 00 0b d1 55 85 5e 00 0a d1 55 86 5e 00 0c 0e 09 58 83 65 00 0c 82 67 00 0e 09 2c 87 22 20 5b ┆g U ^ U ^ X e g , " [┆
0x1820…1840 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 20 73 74 61 74 65 20 69 20 63 6f ┆containing-form-start state i co┆
0x1840…1860 75 6e 74 20 62 6f 64 79 2d 69 6e 64 65 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d ┆unt body-indent containing-form-┆
0x1860…1880 63 6f 6c 75 6d 6e 20 73 63 68 65 6d 65 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 69 6e 64 65 6e 74 ┆column scheme-body-indent indent┆
0x1880…18a0 2d 70 6f 69 6e 74 20 74 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 66 6f 72 77 61 ┆-point t normal-indent nil forwa┆
0x18a0…18c0 72 64 2d 63 68 61 72 20 31 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 70 61 72 73 65 2d 70 61 72 ┆rd-char 1 forward-sexp parse-par┆
0x18c0…18e0 74 69 61 6c 2d 73 65 78 70 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 53 89 10 88 c3 c4 21 88 c5 ┆tial-sexp (byte-code " S ! ┆
0x18e0…1900 60 09 c4 c2 24 87 22 20 5b 63 6f 75 6e 74 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 74 20 66 6f ┆` $ " [count indent-point t fo┆
0x1900…1920 72 77 61 72 64 2d 73 65 78 70 20 31 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 5d ┆rward-sexp 1 parse-partial-sexp]┆
[…truncated at 200 lines…]