|
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: ┃ l ┃
Length: 11033 (0x2b19)
Names: »lisp-mode.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/lisp-mode.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 ┆ (defvar lisp-mode-syntax-table ┆
0x0020…0040 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 6d 6f 64 65 2d 61 62 62 ┆nil "\ ") (defvar lisp-mode-abb┆
0x0040…0060 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 69 66 20 28 6e 6f 74 20 6c 69 ┆rev-table nil "\ ") (if (not li┆
0x0060…0080 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6c 65 74 20 28 28 69 20 30 ┆sp-mode-syntax-table) (let ((i 0┆
0x0080…00a0 29 29 20 28 73 65 74 71 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 ┆)) (setq lisp-mode-syntax-table ┆
0x00a0…00c0 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 ┆(make-syntax-table)) (while (< i┆
0x00c0…00e0 20 34 38 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 5f 20 20 ┆ 48) (modify-syntax-entry i "_ ┆
0x00e0…0100 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 73 65 74 71 ┆ " lisp-mode-syntax-table) (setq┆
0x0100…0120 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 35 37 29 29 20 28 77 68 ┆ i (1+ i))) (setq i (1+ 57)) (wh┆
0x0120…0140 69 6c 65 20 28 3c 20 69 20 36 35 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 ┆ile (< i 65) (modify-syntax-entr┆
0x0140…0160 79 20 69 20 22 5f 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c ┆y i "_ " lisp-mode-syntax-tabl┆
0x0160…0180 65 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 28 31 2b 20 ┆e) (setq i (1+ i))) (setq i (1+ ┆
0x0180…01a0 39 30 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 39 37 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e ┆90)) (while (< i 97) (modify-syn┆
0x01a0…01c0 74 61 78 2d 65 6e 74 72 79 20 69 20 22 5f 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e ┆tax-entry i "_ " lisp-mode-syn┆
0x01c0…01e0 74 61 78 2d 74 61 62 6c 65 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 ┆tax-table) (setq i (1+ i))) (set┆
0x01e0…0200 71 20 69 20 28 31 2b 20 31 32 32 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 31 32 38 29 20 28 ┆q i (1+ 122)) (while (< i 128) (┆
0x0200…0220 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22 5f 20 20 20 22 20 6c 69 73 ┆modify-syntax-entry i "_ " lis┆
0x0220…0240 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 73 65 74 71 20 69 20 28 31 2b ┆p-mode-syntax-table) (setq i (1+┆
0x0240…0260 20 69 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 33 32 20 22 20 ┆ i))) (modify-syntax-entry 32 " ┆
0x0260…0280 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f ┆ " lisp-mode-syntax-table) (mo┆
0x0280…02a0 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 20 6c 69 73 70 2d ┆dify-syntax-entry 9 " " lisp-┆
0x02a0…02c0 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 ┆mode-syntax-table) (modify-synta┆
0x02c0…02e0 78 2d 65 6e 74 72 79 20 31 30 20 22 3e 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 ┆x-entry 10 "> " lisp-mode-synt┆
0x02e0…0300 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 ┆ax-table) (modify-syntax-entry 1┆
0x0300…0320 32 20 22 3e 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 ┆2 "> " lisp-mode-syntax-table)┆
0x0320…0340 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 20 ┆ (modify-syntax-entry 59 "< " ┆
0x0340…0360 6c 69 73 70 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 ┆lisp-mode-syntax-table) (modify-┆
0x0360…0380 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 36 20 22 27 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 ┆syntax-entry 96 "' " lisp-mode┆
0x0380…03a0 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e ┆-syntax-table) (modify-syntax-en┆
0x03a0…03c0 74 72 79 20 33 39 20 22 27 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 ┆try 39 "' " lisp-mode-syntax-t┆
0x03c0…03e0 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 34 20 22 27 ┆able) (modify-syntax-entry 44 "'┆
0x03e0…0400 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f ┆ " lisp-mode-syntax-table) (mo┆
0x0400…0420 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 36 20 22 27 20 20 20 22 20 6c 69 73 70 ┆dify-syntax-entry 46 "' " lisp┆
0x0420…0440 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 ┆-mode-syntax-table) (modify-synt┆
0x0440…0460 61 78 2d 65 6e 74 72 79 20 33 35 20 22 27 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e ┆ax-entry 35 "' " lisp-mode-syn┆
0x0460…0480 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 ┆tax-table) (modify-syntax-entry ┆
0x0480…04a0 33 34 20 22 5c 22 20 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 ┆34 "\" " lisp-mode-syntax-tab┆
0x04a0…04c0 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 34 20 22 5c 22 ┆le) (modify-syntax-entry 124 "\"┆
0x04c0…04e0 20 20 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d ┆ " lisp-mode-syntax-table) (m┆
0x04e0…0500 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 20 20 22 20 6c 69 ┆odify-syntax-entry 92 "\\ " li┆
0x0500…0520 73 70 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 ┆sp-mode-syntax-table) (modify-sy┆
0x0520…0540 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 28 29 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 ┆ntax-entry 40 "() " lisp-mode-s┆
0x0540…0560 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 ┆yntax-table) (modify-syntax-entr┆
0x0560…0580 79 20 34 31 20 22 29 28 20 20 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 ┆y 41 ")( " lisp-mode-syntax-tab┆
0x0580…05a0 6c 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 71 75 6f ┆le))) (define-abbrev-table (quo┆
0x05a0…05c0 74 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 29 20 6e 69 6c 29 0a ┆te lisp-mode-abbrev-table) nil) ┆
0x05c0…05e0 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20 6e 69 6c 20 ┆ (defun lisp-mode-variables nil ┆
0x05e0…0600 28 62 79 74 65 2d 63 6f 64 65 20 22 cb 08 21 88 0a 89 11 88 cc c3 21 88 cd 0c 50 89 13 88 cc c5 ┆(byte-code " ! ! P ┆
0x0600…0620 21 88 0b 89 15 88 cc c6 21 88 ce 89 16 06 88 cc c7 21 88 cf 89 16 07 88 cc c8 21 88 d0 89 16 08 ┆! ! ! ! ┆
0x0620…0640 88 cc c9 21 88 d1 89 16 09 88 cc ca 21 88 d2 89 16 0a 87 22 20 5b 6c 69 73 70 2d 6d 6f 64 65 2d ┆ ! ! " [lisp-mode-┆
0x0640…0660 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 20 ┆syntax-table local-abbrev-table ┆
0x0660…0680 6c 69 73 70 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 61 70 68 ┆lisp-mode-abbrev-table paragraph┆
0x0680…06a0 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 2d ┆-start page-delimiter paragraph-┆
0x06a0…06c0 73 65 70 61 72 61 74 65 20 69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f ┆separate indent-line-function co┆
0x06c0…06e0 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 20 63 ┆mment-start comment-start-skip c┆
0x06e0…0700 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 6f 6f ┆omment-column comment-indent-hoo┆
0x0700…0720 6b 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 ┆k set-syntax-table make-local-va┆
0x0720…0740 72 69 61 62 6c 65 20 22 5e 24 5c 5c 7c 22 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 ┆riable "^$\\|" lisp-indent-line ┆
0x0740…0760 22 3b 22 20 22 3b 2b 20 2a 22 20 34 30 20 6c 69 73 70 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e ┆";" ";+ *" 40 lisp-comment-inden┆
0x0760…0780 74 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e ┆t] 10)) (defun lisp-mode-comman┆
0x0780…07a0 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 23 ┆ds (map) (byte-code " # #┆
0x07a0…07c0 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 1b 11 22 20 69 6e ┆ # " [map define-key " " in┆
0x07c0…07e0 64 65 6e 74 2d 73 65 78 70 20 22 7f 22 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 ┆dent-sexp " " backward-delete-ch┆
0x07e0…0800 61 72 2d 75 6e 74 61 62 69 66 79 20 22 09 22 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 ┆ar-untabify " " lisp-indent-line┆
0x0800…0820 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d ┆] 6)) (defvar emacs-lisp-mode-m┆
0x0820…0840 61 70 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 69 66 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 ┆ap nil "\ ") (if emacs-lisp-mod┆
0x0840…0860 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d ┆e-map nil (setq emacs-lisp-mode-┆
0x0860…0880 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 64 65 66 69 6e ┆map (make-sparse-keymap)) (defin┆
0x0880…08a0 65 2d 6b 65 79 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 18 22 20 28 ┆e-key emacs-lisp-mode-map " " (┆
0x08a0…08c0 71 75 6f 74 65 20 65 76 61 6c 2d 64 65 66 75 6e 29 29 20 28 6c 69 73 70 2d 6d 6f 64 65 2d 63 6f ┆quote eval-defun)) (lisp-mode-co┆
0x08c0…08e0 6d 6d 61 6e 64 73 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 64 ┆mmands emacs-lisp-mode-map)) (d┆
0x08e0…0900 65 66 75 6e 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f ┆efun emacs-lisp-mode nil "\ Majo┆
0x0900…0920 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 4c 69 73 70 20 63 6f 64 65 20 74 6f 20 ┆r mode for editing Lisp code to ┆
0x0920…0940 72 75 6e 20 69 6e 20 45 6d 61 63 73 2e 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 6c 65 74 65 20 63 ┆run in Emacs. Commands: Delete c┆
0x0940…0960 6f 6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 70 61 63 65 73 20 61 73 20 69 74 20 6d 6f 76 ┆onverts tabs to spaces as it mov┆
0x0960…0980 65 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 ┆es back. Blank lines separate pa┆
0x0980…09a0 72 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 ┆ragraphs. Semicolons start comm┆
0x09a0…09c0 65 6e 74 73 2e 0a 5c 5c 7b 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 45 6e ┆ents. \\{emacs-lisp-mode-map} En┆
0x09c0…09e0 74 72 79 20 74 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 ┆try to this mode calls the value┆
0x09e0…0a00 20 6f 66 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 69 66 20 74 68 61 74 ┆ of emacs-lisp-mode-hook if that┆
0x0a00…0a20 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆ value is non-nil." (interactive┆
0x0a20…0a40 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 88 c5 08 21 88 c6 89 11 88 c7 89 12 88 c8 ┆) (byte-code " ! ┆
0x0a40…0a60 20 88 c9 ca 21 87 22 20 5b 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 6d 61 6a ┆ ! " [emacs-lisp-mode-map maj┆
0x0a60…0a80 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c ┆or-mode mode-name nil kill-all-l┆
0x0a80…0aa0 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 70 20 65 6d 61 ┆ocal-variables use-local-map ema┆
0x0aa0…0ac0 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 22 45 6d 61 63 73 2d 4c 69 73 70 22 20 6c 69 73 70 2d 6d ┆cs-lisp-mode "Emacs-Lisp" lisp-m┆
0x0ac0…0ae0 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20 72 75 6e 2d 68 6f 6f 6b 73 20 65 6d 61 63 73 2d 6c 69 ┆ode-variables run-hooks emacs-li┆
0x0ae0…0b00 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 35 29 29 0a 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d ┆sp-mode-hook] 5)) (defvar lisp-┆
0x0b00…0b20 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 ┆mode-map nil) (if lisp-mode-map┆
0x0b20…0b40 20 6e 69 6c 20 28 73 65 74 71 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 ┆ nil (setq lisp-mode-map (make-s┆
0x0b40…0b60 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 6c 69 73 70 2d ┆parse-keymap)) (define-key lisp-┆
0x0b60…0b80 6d 6f 64 65 2d 6d 61 70 20 22 1b 18 22 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 73 65 6e 64 2d 64 ┆mode-map " " (quote lisp-send-d┆
0x0b80…0ba0 65 66 75 6e 29 29 20 28 6c 69 73 70 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 6c 69 73 70 2d ┆efun)) (lisp-mode-commands lisp-┆
0x0ba0…0bc0 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 6d 6f 64 65 20 6e 69 6c ┆mode-map)) (defun lisp-mode nil┆
0x0bc0…0be0 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 67 20 4c 69 73 70 20 ┆ "\ Major mode for editing Lisp ┆
0x0be0…0c00 63 6f 64 65 20 66 6f 72 20 4c 69 73 70 73 20 6f 74 68 65 72 20 74 68 61 6e 20 47 4e 55 20 45 6d ┆code for Lisps other than GNU Em┆
0x0c00…0c20 61 63 73 20 4c 69 73 70 2e 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 6c 65 74 65 20 63 6f 6e 76 65 ┆acs Lisp. Commands: Delete conve┆
0x0c20…0c40 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 73 20 62 ┆rts tabs to spaces as it moves b┆
0x0c40…0c60 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 61 67 72 ┆ack. Blank lines separate paragr┆
0x0c60…0c80 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 6e 74 73 ┆aphs. Semicolons start comments┆
0x0c80…0ca0 2e 0a 5c 5c 7b 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 ┆. \\{lisp-mode-map} Entry to thi┆
0x0ca0…0cc0 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 6c 69 73 70 2d 6d ┆s mode calls the value of lisp-m┆
0x0cc0…0ce0 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 20 6e 6f 6e 2d 6e 69 ┆ode-hook if that value is non-ni┆
0x0ce0…0d00 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 6f 64 65 20 22 c3 88 ┆l." (interactive) (byte-code " ┆
0x0d00…0d20 c4 20 88 c5 08 21 88 c6 89 11 88 c7 89 12 88 c8 20 88 c9 ca 21 87 22 20 5b 6c 69 73 70 2d 6d 6f ┆ ! ! " [lisp-mo┆
0x0d20…0d40 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 6e 69 6c 20 ┆de-map major-mode mode-name nil ┆
0x0d40…0d60 6b 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 ┆kill-all-local-variables use-loc┆
0x0d60…0d80 61 6c 2d 6d 61 70 20 6c 69 73 70 2d 6d 6f 64 65 20 22 4c 69 73 70 22 20 6c 69 73 70 2d 6d 6f 64 ┆al-map lisp-mode "Lisp" lisp-mod┆
0x0d80…0da0 65 2d 76 61 72 69 61 62 6c 65 73 20 72 75 6e 2d 68 6f 6f 6b 73 20 6c 69 73 70 2d 6d 6f 64 65 2d ┆e-variables run-hooks lisp-mode-┆
0x0da0…0dc0 68 6f 6f 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 73 65 6e 64 2d 64 65 66 75 ┆hook] 5)) (defun lisp-send-defu┆
0x0dc0…0de0 6e 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 75 6e 20 ┆n nil "\ Send the current defun ┆
0x0de0…0e00 74 6f 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 6d 61 64 65 20 62 79 20 4d 2d 78 20 ┆to the Lisp process made by M-x ┆
0x0e00…0e20 72 75 6e 2d 6c 69 73 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 ┆run-lisp." (interactive) (byte-c┆
0x0e20…0e40 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 65 72 72 6f 72 20 22 50 72 6f 63 65 73 73 ┆ode " ! " [nil error "Process┆
0x0e40…0e60 20 6c 69 73 70 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 5d 20 32 29 29 0a 0a 28 64 65 66 ┆ lisp does not exist"] 2)) (def┆
0x0e60…0e80 76 61 72 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 ┆var lisp-interaction-mode-map ni┆
0x0e80…0ea0 6c 29 0a 0a 28 69 66 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 ┆l) (if lisp-interaction-mode-ma┆
0x0ea0…0ec0 70 20 6e 69 6c 20 28 73 65 74 71 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 ┆p nil (setq lisp-interaction-mod┆
0x0ec0…0ee0 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 6c 69 73 ┆e-map (make-sparse-keymap)) (lis┆
0x0ee0…0f00 70 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e ┆p-mode-commands lisp-interaction┆
0x0f00…0f20 2d 6d 6f 64 65 2d 6d 61 70 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6c 69 73 70 2d 69 6e 74 65 ┆-mode-map) (define-key lisp-inte┆
0x0f20…0f40 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 18 22 20 28 71 75 6f 74 65 20 65 76 61 ┆raction-mode-map " " (quote eva┆
0x0f40…0f60 6c 2d 64 65 66 75 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6c 69 73 70 2d 69 6e 74 65 72 ┆l-defun)) (define-key lisp-inter┆
0x0f60…0f80 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 22 0a 22 20 28 71 75 6f 74 65 20 65 76 61 6c 2d ┆action-mode-map " " (quote eval-┆
0x0f80…0fa0 70 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d ┆print-last-sexp))) (defun lisp-┆
0x0fa0…0fc0 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f ┆interaction-mode nil "\ Major mo┆
0x0fc0…0fe0 64 65 20 66 6f 72 20 74 79 70 69 6e 67 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6e 67 20 4c 69 73 ┆de for typing and evaluating Lis┆
0x0fe0…1000 70 20 66 6f 72 6d 73 2e 0a 4c 69 6b 65 20 4c 69 73 70 20 6d 6f 64 65 20 65 78 63 65 70 74 20 74 ┆p forms. Like Lisp mode except t┆
0x1000…1020 68 61 74 20 5c 5c 5b 65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70 5d 20 65 76 61 ┆hat \\[eval-print-last-sexp] eva┆
0x1020…1040 6c 73 20 74 68 65 20 4c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 0a 62 65 66 6f 72 65 20 70 6f ┆ls the Lisp expression before po┆
0x1040…1060 69 6e 74 2c 20 61 6e 64 20 70 72 69 6e 74 73 20 69 74 73 20 76 61 6c 75 65 20 69 6e 74 6f 20 74 ┆int, and prints its value into t┆
0x1060…1080 68 65 20 62 75 66 66 65 72 2c 20 61 64 76 61 6e 63 69 6e 67 20 70 6f 69 6e 74 2e 0a 0a 43 6f 6d ┆he buffer, advancing point. Com┆
0x1080…10a0 6d 61 6e 64 73 3a 0a 44 65 6c 65 74 65 20 63 6f 6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 ┆mands: Delete converts tabs to s┆
0x10a0…10c0 70 61 63 65 73 20 61 73 20 69 74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 50 61 72 61 67 72 61 70 ┆paces as it moves back. Paragrap┆
0x10c0…10e0 68 73 20 61 72 65 20 73 65 70 61 72 61 74 65 64 20 6f 6e 6c 79 20 62 79 20 62 6c 61 6e 6b 20 6c ┆hs are separated only by blank l┆
0x10e0…1100 69 6e 65 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 6e 74 73 ┆ines. Semicolons start comments┆
0x1100…1120 2e 0a 5c 5c 7b 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 7d 0a ┆. \\{lisp-interaction-mode-map} ┆
0x1120…1140 45 6e 74 72 79 20 74 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 ┆Entry to this mode calls the val┆
0x1140…1160 75 65 20 6f 66 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b ┆ue of lisp-interaction-mode-hook┆
0x1160…1180 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 ┆ if that value is non-nil." (int┆
0x1180…11a0 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 88 c5 08 21 88 c6 ┆eractive) (byte-code " ! ┆
0x11a0…11c0 89 11 88 c7 89 12 88 c8 20 88 c9 ca 21 87 22 20 5b 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f ┆ ! " [lisp-interactio┆
0x11c0…11e0 6e 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 ┆n-mode-map major-mode mode-name ┆
0x11e0…1200 6e 69 6c 20 6b 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 ┆nil kill-all-local-variables use┆
0x1200…1220 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 ┆-local-map lisp-interaction-mode┆
0x1220…1240 20 22 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 ┆ "Lisp Interaction" lisp-mode-va┆
0x1240…1260 72 69 61 62 6c 65 73 20 72 75 6e 2d 68 6f 6f 6b 73 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 ┆riables run-hooks lisp-interacti┆
0x1260…1280 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 65 76 61 6c 2d 70 ┆on-mode-hook] 5)) (defun eval-p┆
0x1280…12a0 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70 20 28 61 72 67 29 20 22 5c 0a 45 76 61 6c 75 61 74 65 ┆rint-last-sexp (arg) "\ Evaluate┆
0x12a0…12c0 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 3b 20 70 72 69 6e 74 20 76 61 6c 75 65 20 ┆ sexp before point; print value ┆
0x12c0…12e0 69 6e 74 6f 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 ┆into current buffer." (interacti┆
0x12e0…1300 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 c4 20 18 c5 8e 8a c6 09 21 ┆ve "P") (byte-code " !┆
0x1300…1320 88 c7 c8 21 88 60 29 29 29 60 70 23 87 22 20 5b 73 74 61 62 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 ┆ ! `)))`p# " [stab lisp-mode-s┆
0x1320…1340 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 79 6e 74 ┆yntax-table nil eval-region synt┆
0x1340…1360 61 78 2d 74 61 62 6c 65 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 73 74 61 ┆ax-table ((byte-code " ! " [sta┆
0x1360…1380 62 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 5d 20 32 29 29 20 73 65 74 2d 73 79 6e 74 ┆b set-syntax-table] 2)) set-synt┆
0x1380…13a0 61 78 2d 74 61 62 6c 65 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 2d 31 5d 20 37 29 29 0a 0a 28 ┆ax-table forward-sexp -1] 7)) (┆
0x13a0…13c0 64 65 66 75 6e 20 65 76 61 6c 2d 6c 61 73 74 2d 73 65 78 70 20 28 61 72 67 29 20 22 5c 0a 45 76 ┆defun eval-last-sexp (arg) "\ Ev┆
0x13c0…13e0 61 6c 75 61 74 65 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 3b 20 70 72 69 6e 74 20 ┆aluate sexp before point; print ┆
0x13e0…1400 76 61 6c 75 65 20 69 6e 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 ┆value in minibuffer. With argume┆
0x1400…1420 6e 74 2c 20 70 72 69 6e 74 20 6f 75 74 70 75 74 20 69 6e 74 6f 20 63 75 72 72 65 6e 74 20 62 75 ┆nt, print output into current bu┆
0x1420…1440 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 ┆ffer." (interactive "P") (byte-c┆
0x1440…1460 6f 64 65 20 22 c4 88 c5 c6 20 18 c7 8e 8a c8 09 21 88 c9 ca 21 88 60 29 29 29 60 0a 83 1e 00 70 ┆ode " ! ! `)))` p┆
0x1460…1480 82 1f 00 c3 23 87 22 20 5b 73 74 61 62 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 ┆ # " [stab lisp-mode-syntax-t┆
0x1480…14a0 61 62 6c 65 20 61 72 67 20 74 20 6e 69 6c 20 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 79 6e 74 61 ┆able arg t nil eval-region synta┆
0x14a0…14c0 78 2d 74 61 62 6c 65 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 73 74 61 62 ┆x-table ((byte-code " ! " [stab┆
0x14c0…14e0 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 5d 20 32 29 29 20 73 65 74 2d 73 79 6e 74 61 ┆ set-syntax-table] 2)) set-synta┆
0x14e0…1500 78 2d 74 61 62 6c 65 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 2d 31 5d 20 37 29 29 0a 0a 28 64 ┆x-table forward-sexp -1] 7)) (d┆
0x1500…1520 65 66 75 6e 20 65 76 61 6c 2d 64 65 66 75 6e 20 28 61 72 67 29 20 22 5c 0a 45 76 61 6c 75 61 74 ┆efun eval-defun (arg) "\ Evaluat┆
0x1520…1540 65 20 64 65 66 75 6e 20 74 68 61 74 20 70 6f 69 6e 74 20 69 73 20 69 6e 20 6f 72 20 62 65 66 6f ┆e defun that point is in or befo┆
0x1540…1560 72 65 2e 0a 50 72 69 6e 74 20 76 61 6c 75 65 20 69 6e 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 57 ┆re. Print value in minibuffer. W┆
0x1560…1580 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 69 6e 73 65 72 74 20 76 61 6c 75 65 20 69 6e 20 63 75 ┆ith argument, insert value in cu┆
0x1580…15a0 72 72 65 6e 74 20 62 75 66 66 65 72 20 61 66 74 65 72 20 74 68 65 20 64 65 66 75 6e 2e 22 20 28 ┆rrent buffer after the defun." (┆
0x15a0…15c0 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8a ┆interactive "P") (byte-code " ┆
0x15c0…15e0 c4 20 88 60 18 c5 20 88 c6 60 08 09 83 16 00 70 82 17 00 c2 23 29 29 87 22 20 5b 65 6e 64 20 61 ┆ ` ` p #)) " [end a┆
0x15e0…1600 72 67 20 74 20 6e 69 6c 20 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 20 62 65 67 69 6e 6e 69 6e 67 2d ┆rg t nil end-of-defun beginning-┆
0x1600…1620 6f 66 2d 64 65 66 75 6e 20 65 76 61 6c 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 ┆of-defun eval-region] 6)) (defu┆
0x1620…1640 6e 20 6c 69 73 70 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 28 62 79 74 65 2d ┆n lisp-comment-indent nil (byte-┆
0x1640…1660 63 6f 64 65 20 22 c2 c3 21 83 0a 00 69 82 32 00 c2 c4 21 83 5c 22 00 c5 20 18 08 3c 83 1d 00 08 ┆code " ! i 2 ! \" < ┆
0x1660…1680 40 82 1e 00 08 29 82 32 00 c6 c7 21 88 6e 83 2e 00 c8 82 30 00 69 54 09 5d 87 22 20 5b 74 65 6d ┆@ ) 2 ! n . 0 iT ] " [tem┆
0x1680…16a0 20 63 6f 6d 6d 65 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 ┆ comment-column looking-at ";;;"┆
0x16a0…16c0 20 22 3b 3b 22 20 63 61 6c 63 75 6c 61 74 65 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 20 73 6b 69 70 ┆ ";;" calculate-lisp-indent skip┆
0x16c0…16e0 2d 63 68 61 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 ┆-chars-backward " " 0] 6)) (de┆
0x16e0…1700 66 63 6f 6e 73 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6f 66 66 73 65 74 20 6e 69 6c 20 22 5c ┆fconst lisp-indent-offset nil "\┆
0x1700…1720 0a 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 ┆ ") (defconst lisp-indent-hook ┆
0x1720…1740 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 22 5c 0a 22 29 0a 0a ┆(quote lisp-indent-hook) "\ ") ┆
0x1740…1760 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e ┆(defun lisp-indent-line (&option┆
0x1760…1780 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 ┆
0x1780…17a0 6c 69 6e 65 20 61 73 20 4c 69 73 70 20 63 6f 64 65 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 ┆line as Lisp code. With argument┆
0x17a0…17c0 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 6f 66 ┆, indent any additional lines of┆
0x17c0…17e0 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 6c 6f ┆ the same expression rigidly alo┆
0x17e0…1800 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 65 20 ┆ng with this one." (interactive ┆
0x1800…1820 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 19 18 ┆"P") (byte-code " d`Z ┆
0x1820…1840 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 88 08 ┆ ` ! ! $ < - @ ┆
0x1840…1860 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 52 00 ┆iZ ! > E `\" j d Z`V R ┆
0x1860…1880 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 62 88 ┆d Zb !? b ! ` b ┆
0x1880…18a0 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 74 20 ┆ ! ` V) #- " [indent ┆
0x18a0…18c0 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 65 2d ┆shift-amt beg end pos nil whole-┆
0x18c0…18e0 65 78 70 20 63 61 6c 63 75 6c 61 74 65 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 20 62 65 67 69 6e 6e ┆exp calculate-lisp-indent beginn┆
0x18e0…1900 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 72 64 20 22 ┆ing-of-line skip-chars-forward "┆
0x1900…1920 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 72 6f 70 20 ┆ " looking-at "[ ]*;;;" zerop ┆
[…truncated at 200 lines…]