DataMuseum.dk

top - metrics - download

    Length: 11883 (0x2e6b)
    Names: »lisp-mode.elc«

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

Hex Dump

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 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f   ┆nil "\ ")  (defvar emacs-lisp-mo┆
0x0040…0060 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 64 65 66 76   ┆de-syntax-table nil "\ ")  (defv┆
0x0060…0080 61 72 20 6c 69 73 70 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   ┆ar lisp-mode-abbrev-table nil "\┆
0x0080…00a0 0a 22 29 0a 0a 28 69 66 20 28 6e 6f 74 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79   ┆ ")  (if (not emacs-lisp-mode-sy┆
0x00a0…00c0 6e 74 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 65   ┆ntax-table) (let ((i 0)) (setq e┆
0x00c0…00e0 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b   ┆macs-lisp-mode-syntax-table (mak┆
0x00e0…0100 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 20 34 38 29   ┆e-syntax-table)) (while (< i 48)┆
0x0100…0120 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 20 22 20 65   ┆ (modify-syntax-entry i "_   " e┆
0x0120…0140 6d 61 63 73 2d 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   ┆macs-lisp-mode-syntax-table) (se┆
0x0140…0160 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 35 37 29 29 20 28   ┆tq i (1+ i))) (setq i (1+ 57)) (┆
0x0160…0180 77 68 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   ┆while (< i 65) (modify-syntax-en┆
0x0180…01a0 74 72 79 20 69 20 22 5f 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e   ┆try i "_   " emacs-lisp-mode-syn┆
0x01a0…01c0 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┆
0x01c0…01e0 71 20 69 20 28 31 2b 20 39 30 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 39 37 29 20 28 6d 6f   ┆q i (1+ 90)) (while (< i 97) (mo┆
0x01e0…0200 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 65 6d 61 63 73   ┆dify-syntax-entry i "_   " emacs┆
0x0200…0220 2d 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 20 69   ┆-lisp-mode-syntax-table) (setq i┆
0x0220…0240 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 31 32 32 29 29 20 28 77 68 69   ┆ (1+ i))) (setq i (1+ 122)) (whi┆
0x0240…0260 6c 65 20 28 3c 20 69 20 31 32 38 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72   ┆le (< i 128) (modify-syntax-entr┆
0x0260…0280 79 20 69 20 22 5f 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61   ┆y i "_   " emacs-lisp-mode-synta┆
0x0280…02a0 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 6d 6f 64 69 66   ┆x-table) (setq i (1+ i))) (modif┆
0x02a0…02c0 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 32 20 22 20 20 20 20 22 20 65 6d 61 63 73 2d 6c   ┆y-syntax-entry 32 "    " emacs-l┆
0x02c0…02e0 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 73   ┆isp-mode-syntax-table) (modify-s┆
0x02e0…0300 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 20 22 20 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d   ┆yntax-entry 9 "    " emacs-lisp-┆
0x0300…0320 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┆
0x0320…0340 78 2d 65 6e 74 72 79 20 31 30 20 22 3e 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64   ┆x-entry 10 ">   " emacs-lisp-mod┆
0x0340…0360 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 78 2d 65   ┆e-syntax-table) (modify-syntax-e┆
0x0360…0380 6e 74 72 79 20 31 32 20 22 3e 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73   ┆ntry 12 ">   " emacs-lisp-mode-s┆
0x0380…03a0 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┆
0x03a0…03c0 79 20 35 39 20 22 3c 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74   ┆y 59 "<   " emacs-lisp-mode-synt┆
0x03c0…03e0 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 39   ┆ax-table) (modify-syntax-entry 9┆
0x03e0…0400 36 20 22 27 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d   ┆6 "'   " emacs-lisp-mode-syntax-┆
0x0400…0420 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 39 20 22   ┆table) (modify-syntax-entry 39 "┆
0x0420…0440 27 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62   ┆'   " emacs-lisp-mode-syntax-tab┆
0x0440…0460 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 20 20   ┆le) (modify-syntax-entry 44 "'  ┆
0x0460…0480 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29   ┆ " emacs-lisp-mode-syntax-table)┆
0x0480…04a0 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 27 20 20 20 22 20   ┆ (modify-syntax-entry 46 "'   " ┆
0x04a0…04c0 65 6d 61 63 73 2d 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   ┆emacs-lisp-mode-syntax-table) (m┆
0x04c0…04e0 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 20 20 22 20 65 6d 61   ┆odify-syntax-entry 35 "'   " ema┆
0x04e0…0500 63 73 2d 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   ┆cs-lisp-mode-syntax-table) (modi┆
0x0500…0520 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 20 22 20 65 6d 61 63   ┆fy-syntax-entry 34 "\"    " emac┆
0x0520…0540 73 2d 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   ┆s-lisp-mode-syntax-table) (modif┆
0x0540…0560 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 65 6d 61 63 73 2d   ┆y-syntax-entry 92 "\\   " emacs-┆
0x0560…0580 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-┆
0x0580…05a0 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 28 29 20 20 22 20 65 6d 61 63 73 2d 6c 69 73   ┆syntax-entry 40 "()  " emacs-lis┆
0x05a0…05c0 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 6e   ┆p-mode-syntax-table) (modify-syn┆
0x05c0…05e0 74 61 78 2d 65 6e 74 72 79 20 34 31 20 22 29 28 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d   ┆tax-entry 41 ")(  " emacs-lisp-m┆
0x05e0…0600 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 78   ┆ode-syntax-table) (modify-syntax┆
0x0600…0620 2d 65 6e 74 72 79 20 39 31 20 22 28 5d 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65   ┆-entry 91 "(]  " emacs-lisp-mode┆
0x0620…0640 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┆
0x0640…0660 74 72 79 20 39 33 20 22 29 5b 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79   ┆try 93 ")[  " emacs-lisp-mode-sy┆
0x0660…0680 6e 74 61 78 2d 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61   ┆ntax-table)))  (define-abbrev-ta┆
0x0680…06a0 62 6c 65 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c   ┆ble (quote lisp-mode-abbrev-tabl┆
0x06a0…06c0 65 29 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62   ┆e) nil)  (defun lisp-mode-variab┆
0x06c0…06e0 6c 65 73 20 28 6c 69 73 70 2d 73 79 6e 74 61 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85   ┆les (lisp-syntax) (byte-code "  ┆
0x06e0…0700 24 00 09 3f 85 20 00 cf 0a 21 89 11 88 d0 d1 d2 09 23 88 d0 d3 d4 09 23 88 d0 d5 d4 09 23 88 d6   ┆$  ?     !       #     #     #  ┆
0x0700…0720 09 21 88 0c 89 13 88 d7 c5 21 88 d8 0e 06 50 89 15 88 d7 c7 21 88 0d 89 16 07 88 d7 c8 21 88 c9   ┆ !       !    P     !        !  ┆
0x0720…0740 89 16 08 88 d7 ca 21 88 d9 89 16 0a 88 d7 cb 21 88 da 89 16 0b 88 d7 cc 21 88 db 89 16 0c 88 d7   ┆      !        !        !       ┆
0x0740…0760 cd 21 88 dc 89 16 0d 88 d7 ce 21 88 dd 89 16 0e 87 22 20 5b 6c 69 73 70 2d 73 79 6e 74 61 78 20   ┆ !        !      " [lisp-syntax ┆
0x0760…0780 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 65 6d 61 63 73 2d 6c 69 73   ┆lisp-mode-syntax-table emacs-lis┆
0x0780…07a0 70 2d 6d 6f 64 65 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   ┆p-mode-syntax-table local-abbrev┆
0x07a0…07c0 2d 74 61 62 6c 65 20 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   ┆-table lisp-mode-abbrev-table pa┆
0x07c0…07e0 72 61 67 72 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   ┆ragraph-start page-delimiter par┆
0x07e0…0800 61 67 72 61 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   ┆agraph-separate paragraph-ignore┆
0x0800…0820 2d 66 69 6c 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   ┆-fill-prefix t indent-line-funct┆
0x0820…0840 69 6f 6e 20 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   ┆ion comment-start comment-start-┆
0x0840…0860 73 6b 69 70 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   ┆skip comment-column comment-inde┆
0x0860…0880 6e 74 2d 68 6f 6f 6b 20 63 6f 70 79 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 6f 64 69 66 79   ┆nt-hook copy-syntax-table modify┆
0x0880…08a0 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 34 20 22 5c 22 20 20 20 22 20 39 31 20 22 5f 20   ┆-syntax-entry 124 "\"   " 91 "_ ┆
0x08a0…08c0 20 20 22 20 39 33 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   ┆  " 93 set-syntax-table make-loc┆
0x08c0…08e0 61 6c 2d 76 61 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   ┆al-variable "^$\\|" lisp-indent-┆
0x08e0…0900 6c 69 6e 65 20 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   ┆line ";" ";+ *" 40 lisp-comment-┆
0x0900…0920 69 6e 64 65 6e 74 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 6d 6f 64 65 2d 63   ┆indent] 15))  (defun lisp-mode-c┆
0x0920…0940 6f 6d 6d 61 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   ┆ommands (map) (byte-code "    # ┆
0x0940…0960 c1 08 c4 c5 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 1b   ┆    #     # " [map define-key " ┆
0x0960…0980 11 22 20 69 6e 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   ┆ " indent-sexp " " backward-dele┆
0x0980…09a0 74 65 2d 63 68 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   ┆te-char-untabify " " lisp-indent┆
0x09a0…09c0 2d 6c 69 6e 65 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   ┆-line] 6))  (defvar emacs-lisp-m┆
0x09c0…09e0 6f 64 65 2d 6d 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   ┆ode-map nil "\ ")  (if emacs-lis┆
0x09e0…0a00 70 2d 6d 6f 64 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   ┆p-mode-map nil (setq emacs-lisp-┆
0x0a00…0a20 6d 6f 64 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   ┆mode-map (make-sparse-keymap)) (┆
0x0a20…0a40 64 65 66 69 6e 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   ┆define-key emacs-lisp-mode-map "┆
0x0a40…0a60 1b 18 22 20 28 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   ┆  " (quote eval-defun)) (lisp-mo┆
0x0a60…0a80 64 65 2d 63 6f 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   ┆de-commands emacs-lisp-mode-map)┆
0x0a80…0aa0 29 0a 0a 28 64 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   ┆)  (defun emacs-lisp-mode nil "\┆
0x0aa0…0ac0 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 63 6f 64   ┆ Major mode for editing Lisp cod┆
0x0ac0…0ae0 65 20 74 6f 20 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   ┆e to run in Emacs. Commands: Del┆
0x0ae0…0b00 65 74 65 20 63 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   ┆ete converts tabs to spaces as i┆
0x0b00…0b20 74 20 6d 6f 76 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   ┆t moves back. Blank lines separa┆
0x0b20…0b40 74 65 20 70 61 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   ┆te paragraphs.  Semicolons start┆
0x0b40…0b60 20 63 6f 6d 6d 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   ┆ comments. \\{emacs-lisp-mode-ma┆
0x0b60…0b80 70 7d 0a 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   ┆p} Entry to this mode calls the ┆
0x0b80…0ba0 76 61 6c 75 65 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   ┆value of emacs-lisp-mode-hook if┆
0x0ba0…0bc0 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 65 72 61   ┆ that value is non-nil." (intera┆
0x0bc0…0be0 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 20 88 c6 08 21 88 c7 09 21 88   ┆ctive) (byte-code "       !   ! ┆
0x0be0…0c00 c8 89 12 88 c9 89 13 88 ca c4 21 88 cb cc 21 87 22 20 5b 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f   ┆          !   ! " [emacs-lisp-mo┆
0x0c00…0c20 64 65 2d 6d 61 70 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61   ┆de-map emacs-lisp-mode-syntax-ta┆
0x0c20…0c40 62 6c 65 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 6b 69 6c   ┆ble major-mode mode-name nil kil┆
0x0c40…0c60 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 6c 2d   ┆l-all-local-variables use-local-┆
0x0c60…0c80 6d 61 70 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 65 6d 61 63 73 2d 6c 69 73 70 2d   ┆map set-syntax-table emacs-lisp-┆
0x0c80…0ca0 6d 6f 64 65 20 22 45 6d 61 63 73 2d 4c 69 73 70 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69   ┆mode "Emacs-Lisp" lisp-mode-vari┆
0x0ca0…0cc0 61 62 6c 65 73 20 72 75 6e 2d 68 6f 6f 6b 73 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d   ┆ables run-hooks emacs-lisp-mode-┆
0x0cc0…0ce0 68 6f 6f 6b 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70   ┆hook] 6))  (defvar lisp-mode-map┆
0x0ce0…0d00 20 6e 69 6c 29 0a 0a 28 69 66 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65   ┆ nil)  (if lisp-mode-map nil (se┆
0x0d00…0d20 74 71 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65   ┆tq lisp-mode-map (make-sparse-ke┆
0x0d20…0d40 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70   ┆ymap)) (define-key lisp-mode-map┆
0x0d40…0d60 20 22 1b 18 22 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 73 65 6e 64 2d 64 65 66 75 6e 29 29 20 28   ┆ "  " (quote lisp-send-defun)) (┆
0x0d60…0d80 64 65 66 69 6e 65 2d 6b 65 79 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 0c 22 20 28 71   ┆define-key lisp-mode-map "  " (q┆
0x0d80…0da0 75 6f 74 65 20 72 75 6e 2d 6c 69 73 70 29 29 20 28 6c 69 73 70 2d 6d 6f 64 65 2d 63 6f 6d 6d 61   ┆uote run-lisp)) (lisp-mode-comma┆
0x0da0…0dc0 6e 64 73 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70   ┆nds lisp-mode-map))  (defun lisp┆
0x0dc0…0de0 2d 6d 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   ┆-mode nil "\ Major mode for edit┆
0x0de0…0e00 69 6e 67 20 4c 69 73 70 20 63 6f 64 65 20 66 6f 72 20 4c 69 73 70 73 20 6f 74 68 65 72 20 74 68   ┆ing Lisp code for Lisps other th┆
0x0e00…0e20 61 6e 20 47 4e 55 20 45 6d 61 63 73 20 4c 69 73 70 2e 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 6c   ┆an GNU Emacs Lisp. Commands: Del┆
0x0e20…0e40 65 74 65 20 63 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   ┆ete converts tabs to spaces as i┆
0x0e40…0e60 74 20 6d 6f 76 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   ┆t moves back. Blank lines separa┆
0x0e60…0e80 74 65 20 70 61 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   ┆te paragraphs.  Semicolons start┆
0x0e80…0ea0 20 63 6f 6d 6d 65 6e 74 73 2e 0a 5c 5c 7b 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 4e 6f 74   ┆ comments. \\{lisp-mode-map} Not┆
0x0ea0…0ec0 65 20 74 68 61 74 20 60 72 75 6e 2d 6c 69 73 70 27 20 6d 61 79 20 62 65 20 75 73 65 64 20 65 69   ┆e that `run-lisp' may be used ei┆
0x0ec0…0ee0 74 68 65 72 20 74 6f 20 73 74 61 72 74 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 4c 69 73 70 20 6a   ┆ther to start an inferior Lisp j┆
0x0ee0…0f00 6f 62 0a 6f 72 20 74 6f 20 73 77 69 74 63 68 20 62 61 63 6b 20 74 6f 20 61 6e 20 65 78 69 73 74   ┆ob or to switch back to an exist┆
0x0f00…0f20 69 6e 67 20 6f 6e 65 2e 0a 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c   ┆ing one.  Entry to this mode cal┆
0x0f20…0f40 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 69   ┆ls the value of lisp-mode-hook i┆
0x0f40…0f60 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 65 72   ┆f that value is non-nil." (inter┆
0x0f60…0f80 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c6 20 88 c7 08 21 88 c8 89 11   ┆active) (byte-code "       !    ┆
0x0f80…0fa0 88 c9 89 12 88 ca c3 21 88 cb 0c 21 88 cc cd 21 87 22 20 5b 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61   ┆       !   !   ! " [lisp-mode-ma┆
0x0fa0…0fc0 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 74 20 6c 69 73 70 2d 6d 6f   ┆p major-mode mode-name t lisp-mo┆
0x0fc0…0fe0 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63   ┆de-syntax-table nil kill-all-loc┆
0x0fe0…1000 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 6c 69 73 70 2d   ┆al-variables use-local-map lisp-┆
0x1000…1020 6d 6f 64 65 20 22 4c 69 73 70 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20   ┆mode "Lisp" lisp-mode-variables ┆
0x1020…1040 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 6c 69 73 70 2d   ┆set-syntax-table run-hooks lisp-┆
0x1040…1060 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 73 65 6e 64   ┆mode-hook] 6))  (defun lisp-send┆
0x1060…1080 2d 64 65 66 75 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   ┆-defun nil "\ Send the current d┆
0x1080…10a0 65 66 75 6e 20 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   ┆efun to the Lisp process made by┆
0x10a0…10c0 20 4d 2d 78 20 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   ┆ M-x run-lisp." (interactive) (b┆
0x10c0…10e0 79 74 65 2d 63 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   ┆yte-code "    ! " [nil error "Pr┆
0x10e0…1100 6f 63 65 73 73 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   ┆ocess lisp does not exist"] 2)) ┆
0x1100…1120 0a 28 64 65 66 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   ┆ (defvar lisp-interaction-mode-m┆
0x1120…1140 61 70 20 6e 69 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   ┆ap nil)  (if lisp-interaction-mo┆
0x1140…1160 64 65 2d 6d 61 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   ┆de-map nil (setq lisp-interactio┆
0x1160…1180 6e 2d 6d 6f 64 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   ┆n-mode-map (make-sparse-keymap))┆
0x1180…11a0 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 69 6e 74 65 72 61   ┆ (lisp-mode-commands lisp-intera┆
0x11a0…11c0 63 74 69 6f 6e 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   ┆ction-mode-map) (define-key lisp┆
0x11c0…11e0 2d 69 6e 74 65 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   ┆-interaction-mode-map "  " (quot┆
0x11e0…1200 65 20 65 76 61 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   ┆e eval-defun)) (define-key lisp-┆
0x1200…1220 69 6e 74 65 72 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   ┆interaction-mode-map " " (quote ┆
0x1220…1240 65 76 61 6c 2d 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   ┆eval-print-last-sexp)))  (defun ┆
0x1240…1260 6c 69 73 70 2d 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   ┆lisp-interaction-mode nil "\ Maj┆
0x1260…1280 6f 72 20 6d 6f 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   ┆or mode for typing and evaluatin┆
0x1280…12a0 67 20 4c 69 73 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   ┆g Lisp forms. Like Lisp mode exc┆
0x12a0…12c0 65 70 74 20 74 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   ┆ept that \\[eval-print-last-sexp┆
0x12c0…12e0 5d 20 65 76 61 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   ┆] evals the Lisp expression befo┆
0x12e0…1300 72 65 20 70 6f 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   ┆re point, and prints its value i┆
0x1300…1320 6e 74 6f 20 74 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   ┆nto the buffer, advancing point.┆
0x1320…1340 0a 0a 43 6f 6d 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   ┆  Commands: Delete converts tabs┆
0x1340…1360 20 74 6f 20 73 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   ┆ to spaces as it moves back. Par┆
0x1360…1380 61 67 72 61 70 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   ┆agraphs are separated only by bl┆
0x1380…13a0 61 6e 6b 20 6c 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   ┆ank lines.  Semicolons start com┆
0x13a0…13c0 6d 65 6e 74 73 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   ┆ments. \\{lisp-interaction-mode-┆
0x13c0…13e0 6d 61 70 7d 0a 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   ┆map} Entry to this mode calls th┆
0x13e0…1400 65 20 76 61 6c 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   ┆e value of lisp-interaction-mode┆
0x1400…1420 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 6c 2e 22   ┆-hook if that value is non-nil."┆
0x1420…1440 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 c4 88 c5 20 88   ┆ (interactive) (byte-code "     ┆
0x1440…1460 c6 08 21 88 c7 89 11 88 c8 89 12 88 c9 c3 21 88 ca cb 21 87 22 20 5b 6c 69 73 70 2d 69 6e 74 65   ┆  !           !   ! " [lisp-inte┆
0x1460…1480 72 61 63 74 69 6f 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   ┆raction-mode-map major-mode mode┆
0x1480…14a0 2d 6e 61 6d 65 20 74 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61   ┆-name t nil kill-all-local-varia┆
0x14a0…14c0 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74   ┆bles use-local-map lisp-interact┆
0x14c0…14e0 69 6f 6e 2d 6d 6f 64 65 20 22 4c 69 73 70 20 49 6e 74 65 72 61 63 74 69 6f 6e 22 20 6c 69 73 70   ┆ion-mode "Lisp Interaction" lisp┆
0x14e0…1500 2d 6d 6f 64 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 69   ┆-mode-variables run-hooks lisp-i┆
0x1500…1520 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75   ┆nteraction-mode-hook] 5))  (defu┆
0x1520…1540 6e 20 65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70 20 28 61 72 67 29 20 22 5c 0a   ┆n eval-print-last-sexp (arg) "\ ┆
0x1540…1560 45 76 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   ┆Evaluate sexp before point; prin┆
0x1560…1580 74 20 76 61 6c 75 65 20 69 6e 74 6f 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 20 28 69   ┆t value into current buffer." (i┆
0x1580…15a0 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 c2 88 c3 c4   ┆nteractive "P") (byte-code "    ┆
0x15a0…15c0 20 18 c5 8e 8a c6 09 21 88 c7 c8 21 88 60 29 29 29 60 70 23 87 22 20 5b 73 74 61 62 20 65 6d 61   ┆       !   ! `)))`p# " [stab ema┆
0x15c0…15e0 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 65 76   ┆cs-lisp-mode-syntax-table nil ev┆
0x15e0…1600 61 6c 2d 72 65 67 69 6f 6e 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 28 62 79 74 65 2d 63 6f   ┆al-region syntax-table ((byte-co┆
0x1600…1620 64 65 20 22 c1 08 21 87 22 20 5b 73 74 61 62 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65   ┆de "  ! " [stab set-syntax-table┆
0x1620…1640 5d 20 32 29 29 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 66 6f 72 77 61 72 64 2d 73   ┆] 2)) set-syntax-table forward-s┆
0x1640…1660 65 78 70 20 2d 31 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 65 76 61 6c 2d 6c 61 73 74 2d 73 65   ┆exp -1] 7))  (defun eval-last-se┆
0x1660…1680 78 70 20 28 61 72 67 29 20 22 5c 0a 45 76 61 6c 75 61 74 65 20 73 65 78 70 20 62 65 66 6f 72 65   ┆xp (arg) "\ Evaluate sexp before┆
0x1680…16a0 20 70 6f 69 6e 74 3b 20 70 72 69 6e 74 20 76 61 6c 75 65 20 69 6e 20 6d 69 6e 69 62 75 66 66 65   ┆ point; print value in minibuffe┆
0x16a0…16c0 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 70 72 69 6e 74 20 6f 75 74 70 75 74 20 69   ┆r. With argument, print output i┆
0x16c0…16e0 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 76   ┆nto current buffer." (interactiv┆
0x16e0…1700 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 c6 20 18 c7 8e 8a c8 09 21 88   ┆e "P") (byte-code "           ! ┆
0x1700…1720 c9 ca 21 88 60 29 29 29 60 0a 83 1e 00 70 82 1f 00 c3 23 87 22 20 5b 73 74 61 62 20 65 6d 61 63   ┆  ! `)))`    p    # " [stab emac┆
0x1720…1740 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 61 72 67 20 74 20 6e   ┆s-lisp-mode-syntax-table arg t n┆
0x1740…1760 69 6c 20 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 28 62 79   ┆il eval-region syntax-table ((by┆
0x1760…1780 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 73 74 61 62 20 73 65 74 2d 73 79 6e 74 61 78 2d   ┆te-code "  ! " [stab set-syntax-┆
0x1780…17a0 74 61 62 6c 65 5d 20 32 29 29 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 66 6f 72 77   ┆table] 2)) set-syntax-table forw┆
0x17a0…17c0 61 72 64 2d 73 65 78 70 20 2d 31 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 65 76 61 6c 2d 64 65   ┆ard-sexp -1] 7))  (defun eval-de┆
0x17c0…17e0 66 75 6e 20 28 61 72 67 29 20 22 5c 0a 45 76 61 6c 75 61 74 65 20 64 65 66 75 6e 20 74 68 61 74   ┆fun (arg) "\ Evaluate defun that┆
0x17e0…1800 20 70 6f 69 6e 74 20 69 73 20 69 6e 20 6f 72 20 62 65 66 6f 72 65 2e 0a 50 72 69 6e 74 20 76 61   ┆ point is in or before. Print va┆
0x1800…1820 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 6e 74   ┆lue in minibuffer. With argument┆
0x1820…1840 2c 20 69 6e 73 65 72 74 20 76 61 6c 75 65 20 69 6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72   ┆, insert value in current buffer┆
0x1840…1860 20 61 66 74 65 72 20 74 68 65 20 64 65 66 75 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20   ┆ after the defun." (interactive ┆
0x1860…1880 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8a c4 20 88 60 18 c5 20 88 c6 60 08 09   ┆"P") (byte-code "      `     `  ┆
0x1880…18a0 83 16 00 70 82 17 00 c2 23 29 29 87 22 20 5b 65 6e 64 20 61 72 67 20 74 20 6e 69 6c 20 65 6e 64   ┆   p    #)) " [end arg t nil end┆
0x18a0…18c0 2d 6f 66 2d 64 65 66 75 6e 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 65 76 61   ┆-of-defun beginning-of-defun eva┆
0x18c0…18e0 6c 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 63 6f 6d 6d 65   ┆l-region] 6))  (defun lisp-comme┆
0x18e0…1900 6e 74 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 83 0a 00   ┆nt-indent nil (byte-code "  !   ┆
0x1900…1920 69 82 32 00 c2 c4 21 83 5c 22 00 c5 20 18 08 3c 83 1d 00 08 40 82 1e 00 08 29 82 32 00 c6 c7 21   ┆i 2   ! \"     <    @    ) 2   !┆
[…truncated at 200 lines…]