|
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: ┃ e ┃
Length: 7535 (0x1d6f)
Names: »ehelp.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/ehelp.elc«
0x0000…0020 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 65 6c 65 63 74 72 69 63 29 29 0a 0a 28 70 72 ┆ (require (quote electric)) (pr┆
0x0020…0040 6f 76 69 64 65 20 28 71 75 6f 74 65 20 65 68 65 6c 70 29 29 0a 0a 28 64 65 66 76 61 72 20 65 6c ┆ovide (quote ehelp)) (defvar el┆
0x0040…0060 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 64 65 ┆ectric-help-map nil "\ Keymap de┆
0x0060…0080 66 69 6e 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 76 61 69 6c 61 62 6c 65 20 77 68 69 6c 73 74 ┆fining commands available whilst┆
0x0080…00a0 20 73 63 72 6f 6c 6c 69 6e 67 0a 74 68 72 6f 75 67 68 20 61 20 62 75 66 66 65 72 20 69 6e 20 65 ┆ scrolling through a buffer in e┆
0x00a0…00c0 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 6f 64 65 22 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 ┆lectric-help-mode") (put (quote┆
0x00c0…00e0 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 75 6e 64 65 66 69 6e 65 64 29 20 28 71 75 6f 74 65 ┆ electric-help-undefined) (quote┆
0x00e0…0100 20 73 75 70 70 72 65 73 73 2d 6b 65 79 6d 61 70 29 20 74 29 0a 0a 28 69 66 20 65 6c 65 63 74 72 ┆ suppress-keymap) t) (if electr┆
0x0100…0120 69 63 2d 68 65 6c 70 2d 6d 61 70 20 6e 69 6c 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 ┆ic-help-map nil (let ((map (make┆
0x0120…0140 2d 6b 65 79 6d 61 70 29 29 29 20 28 66 69 6c 6c 61 72 72 61 79 20 6d 61 70 20 28 71 75 6f 74 65 ┆-keymap))) (fillarray map (quote┆
0x0140…0160 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 75 6e 64 65 66 69 6e 65 64 29 29 20 28 64 65 66 69 ┆ electric-help-undefined)) (defi┆
0x0160…0180 6e 65 2d 6b 65 79 20 6d 61 70 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 6d 65 74 61 2d ┆ne-key map (char-to-string meta-┆
0x0180…01a0 70 72 65 66 69 78 2d 63 68 61 72 29 20 28 63 6f 70 79 2d 6b 65 79 6d 61 70 20 6d 61 70 29 29 20 ┆prefix-char) (copy-keymap map)) ┆
0x01a0…01c0 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 ┆(define-key map (char-to-string ┆
0x01c0…01e0 68 65 6c 70 2d 63 68 61 72 29 20 28 71 75 6f 74 65 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d ┆help-char) (quote electric-help-┆
0x01e0…0200 68 65 6c 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 3f 22 20 28 71 75 6f 74 ┆help)) (define-key map "?" (quot┆
0x0200…0220 65 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 68 65 6c 70 29 29 20 28 64 65 66 69 6e 65 2d 6b ┆e electric-help-help)) (define-k┆
0x0220…0240 65 79 20 6d 61 70 20 22 20 22 20 28 71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d 75 70 29 29 20 28 64 ┆ey map " " (quote scroll-up)) (d┆
0x0240…0260 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 7f 22 20 28 71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d ┆efine-key map " " (quote scroll-┆
0x0260…0280 64 6f 77 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 2e 22 20 28 71 75 6f 74 ┆down)) (define-key map "." (quot┆
0x0280…02a0 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 75 66 66 65 72 29 29 20 28 64 65 66 69 6e 65 2d ┆e beginning-of-buffer)) (define-┆
0x02a0…02c0 6b 65 79 20 6d 61 70 20 22 3c 22 20 28 71 75 6f 74 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d ┆key map "<" (quote beginning-of-┆
0x02c0…02e0 62 75 66 66 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 3e 22 20 28 71 75 ┆buffer)) (define-key map ">" (qu┆
0x02e0…0300 6f 74 65 20 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆ote end-of-buffer)) (define-key ┆
0x0300…0320 6d 61 70 20 22 71 22 20 28 71 75 6f 74 65 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 ┆map "q" (quote electric-help-exi┆
0x0320…0340 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 51 22 20 28 71 75 6f 74 65 20 65 ┆t)) (define-key map "Q" (quote e┆
0x0340…0360 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆lectric-help-exit)) (define-key ┆
0x0360…0380 6d 61 70 20 22 72 22 20 28 71 75 6f 74 65 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 72 65 74 ┆map "r" (quote electric-help-ret┆
0x0380…03a0 61 69 6e 29 29 20 28 73 65 74 71 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 61 70 20 6d 61 ┆ain)) (setq electric-help-map ma┆
0x03a0…03c0 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 6f 64 65 20 ┆p))) (defun electric-help-mode ┆
0x03c0…03e0 6e 69 6c 20 22 5c 0a 77 69 74 68 2d 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 20 74 65 6d 70 6f 72 ┆nil "\ with-electric-help tempor┆
0x03e0…0400 61 72 69 6c 79 20 70 6c 61 63 65 73 20 69 74 73 20 62 75 66 66 65 72 20 69 6e 20 74 68 69 73 20 ┆arily places its buffer in this ┆
0x0400…0420 6d 6f 64 65 0a 28 4f 6e 20 65 78 69 74 20 66 72 6f 6d 20 77 69 74 68 2d 65 6c 65 63 74 72 69 63 ┆mode (On exit from with-electric┆
0x0420…0440 2d 68 65 6c 70 2c 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 70 75 74 20 69 6e 20 64 65 66 61 ┆-help, the buffer is put in defa┆
0x0440…0460 75 6c 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 29 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 89 10 ┆ult-major-mode)" (byte-code " ┆
0x0460…0480 88 c6 89 12 88 c7 89 13 88 c8 89 14 88 c9 0d 21 87 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d ┆ ! " [buffer-read-┆
0x0480…04a0 6f 6e 6c 79 20 74 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 ┆only t mode-name major-mode mode┆
0x04a0…04c0 2d 6c 69 6e 65 2d 62 75 66 66 65 72 2d 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 65 6c 65 63 ┆-line-buffer-identification elec┆
0x04c0…04e0 74 72 69 63 2d 68 65 6c 70 2d 6d 61 70 20 22 48 65 6c 70 22 20 68 65 6c 70 20 28 22 20 48 65 6c ┆tric-help-map "Help" help (" Hel┆
0x04e0…0500 70 3a 20 20 25 62 22 29 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 5d 20 32 29 29 0a 0a 28 64 65 ┆p: %b") use-local-map] 2)) (de┆
0x0500…0520 66 75 6e 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 6d 69 ┆fun one-window-p (&optional nomi┆
0x0520…0540 6e 69 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 08 85 0a 00 c2 c3 20 21 83 12 00 c4 20 82 ┆ni) (byte-code " ! ┆
0x0540…0560 16 00 c4 c4 20 21 3d 87 22 20 5b 6e 6f 6d 69 6e 69 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f ┆ != " [nomini selected-windo┆
0x0560…0580 77 20 7a 65 72 6f 70 20 6d 69 6e 69 62 75 66 66 65 72 2d 64 65 70 74 68 20 6e 65 78 74 2d 77 69 ┆w zerop minibuffer-depth next-wi┆
0x0580…05a0 6e 64 6f 77 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 77 69 74 68 2d 65 6c 65 63 74 72 69 63 2d ┆ndow] 8)) (defun with-electric-┆
0x05a0…05c0 68 65 6c 70 20 28 74 68 75 6e 6b 20 26 6f 70 74 69 6f 6e 61 6c 20 62 75 66 66 65 72 20 6e 6f 65 ┆help (thunk &optional buffer noe┆
0x05c0…05e0 72 61 73 65 29 20 22 5c 0a 41 72 67 75 6d 65 6e 74 73 20 61 72 65 20 54 48 55 4e 4b 20 26 6f 70 ┆rase) "\ Arguments are THUNK &op┆
0x05e0…0600 74 69 6f 6e 61 6c 20 42 55 46 46 45 52 20 4e 4f 45 52 41 53 45 2e 0a 42 55 46 46 45 52 20 64 65 ┆tional BUFFER NOERASE. BUFFER de┆
0x0600…0620 66 61 75 6c 74 73 20 74 6f 20 5c 22 2a 48 65 6c 70 2a 5c 22 0a 54 48 55 4e 4b 20 69 73 20 61 20 ┆faults to \"*Help*\" THUNK is a ┆
0x0620…0640 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 20 77 68 69 63 68 20 69 ┆function of no arguments which i┆
0x0640…0660 73 20 63 61 6c 6c 65 64 20 74 6f 20 69 6e 69 74 69 61 6c 69 73 65 0a 20 74 68 65 20 63 6f 6e 74 ┆s called to initialise the cont┆
0x0660…0680 65 6e 74 73 20 6f 66 20 42 55 46 46 45 52 2e 20 20 42 55 46 46 45 52 20 77 69 6c 6c 20 62 65 20 ┆ents of BUFFER. BUFFER will be ┆
0x0680…06a0 65 72 61 73 65 64 20 62 65 66 6f 72 65 20 54 48 55 4e 4b 20 69 73 20 63 61 6c 6c 65 64 20 75 6e ┆erased before THUNK is called un┆
0x06a0…06c0 6c 65 73 73 0a 20 4e 4f 45 52 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 20 20 54 48 55 4e 4b ┆less NOERASE is non-nil. THUNK┆
0x06c0…06e0 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 20 73 74 61 6e 64 61 72 64 2d 6f ┆ will be called with standard-o┆
0x06e0…0700 75 74 70 75 74 20 20 62 6f 75 6e 64 20 74 6f 0a 20 74 68 65 20 62 75 66 66 65 72 20 73 70 65 63 ┆utput bound to the buffer spec┆
0x0700…0720 69 66 69 65 64 20 62 79 20 42 55 46 46 45 52 0a 0a 41 66 74 65 72 20 54 48 55 4e 4b 20 68 61 73 ┆ified by BUFFER After THUNK has┆
0x0720…0740 20 62 65 65 6e 20 63 61 6c 6c 65 64 2c 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 5c 22 65 6c ┆ been called, this function \"el┆
0x0740…0760 65 63 74 72 69 63 61 6c 6c 79 5c 22 20 70 6f 70 73 20 75 70 20 61 20 77 69 6e 64 6f 77 0a 69 6e ┆ectrically\" pops up a window in┆
0x0760…0780 20 77 68 69 63 68 20 42 55 46 46 45 52 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 61 6e 64 20 61 ┆ which BUFFER is displayed and a┆
0x0780…07a0 6c 6c 6f 77 73 20 74 68 65 20 75 73 65 72 20 74 6f 20 73 63 72 6f 6c 6c 20 74 68 72 6f 75 67 68 ┆llows the user to scroll through┆
0x07a0…07c0 20 74 68 61 74 20 62 75 66 66 65 72 0a 69 6e 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 6f ┆ that buffer in electric-help-mo┆
0x07c0…07e0 64 65 2e 0a 57 68 65 6e 20 74 68 65 20 75 73 65 72 20 65 78 69 74 73 20 28 77 69 74 68 20 65 6c ┆de. When the user exits (with el┆
0x07e0…0800 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 2c 20 6f 72 20 6f 74 68 65 72 77 69 73 65 29 20 ┆ectric-help-exit, or otherwise) ┆
0x0800…0820 74 68 65 20 68 65 6c 70 0a 62 75 66 66 65 72 27 73 20 77 69 6e 64 6f 77 20 64 69 73 61 70 70 65 ┆the help buffer's window disappe┆
0x0820…0840 61 72 73 20 28 69 65 20 77 65 20 75 73 65 20 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 ┆ars (ie we use save-window-excur┆
0x0840…0860 73 69 6f 6e 29 0a 42 55 46 46 45 52 20 69 73 20 70 75 74 20 69 6e 74 6f 20 64 65 66 61 75 6c 74 ┆sion) BUFFER is put into default┆
0x0860…0880 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 28 6f 72 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 ┆-major-mode (or fundamental-mode┆
0x0880…08a0 29 20 77 68 65 6e 20 77 65 20 65 78 69 74 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cb 08 86 06 ┆) when we exit" (byte-code " ┆
0x08a0…08c0 00 cc 21 89 10 88 cd c2 21 c4 1b 19 ce 8b 88 0b 83 55 00 c2 c4 1e 0a 1d cf 08 21 88 d0 d1 20 21 ┆ ! ! U ! !┆
0x08c0…08e0 d2 0b d3 5c 22 5a 89 16 0a 88 0e 0a d3 56 85 38 00 d4 0e 0a 21 88 d5 d1 20 d2 0b d6 5c 22 c2 23 ┆ \"Z V 8 ! \" #┆
0x08e0…0900 88 d7 d1 20 d2 0b d8 5c 22 5c 22 88 d2 0b d9 5c 22 62 2a 82 5c 5c 00 da 08 21 88 db 08 21 2a 87 ┆ \"\" \"b* \\ ! !* ┆
0x0900…0920 22 20 5b 62 75 66 66 65 72 20 6f 6e 65 20 74 20 74 77 6f 20 6e 69 6c 20 70 6f 70 2d 75 70 2d 77 ┆" [buffer one t two nil pop-up-w┆
0x0920…0940 69 6e 64 6f 77 73 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 6f 65 72 61 73 65 20 ┆indows buffer-read-only noerase ┆
0x0940…0960 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 74 68 75 6e 6b 20 74 65 6d 20 67 65 74 2d 62 75 ┆standard-output thunk tem get-bu┆
0x0960…0980 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 48 65 6c 70 2a 22 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d ┆ffer-create "*Help*" one-window-┆
0x0980…09a0 70 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 8a 08 85 0a 00 ca cb 20 21 62 88 c2 19 cc 0b 21 29 ┆p ((byte-code " !b !)┆
0x09a0…09c0 88 cd 8e 8a 0b 71 88 ce 20 88 c5 89 14 88 0e 06 86 26 00 cf 20 29 88 0b 1e 07 d0 0e 08 21 83 36 ┆ q & ) ! 6┆
0x09c0…09e0 00 c5 82 48 00 0b 71 88 d1 c5 21 88 65 62 88 08 85 48 00 d2 cb 20 21 29 88 0b 71 88 d3 d4 21 88 ┆ H q ! eb H !) q ! ┆
0x09e0…0a00 d5 20 89 16 09 88 d6 0e 09 21 d7 3d 83 75 00 d8 d9 cb 20 21 ca cb 20 21 da cb 20 21 60 24 89 16 ┆ ! = u ! ! !`$ ┆
0x0a00…0a20 09 82 79 00 c5 89 16 09 29 29 87 22 20 5b 6f 6e 65 20 70 6f 70 2d 75 70 2d 77 69 6e 64 6f 77 73 ┆ y )) " [one pop-up-windows┆
0x0a20…0a40 20 74 20 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 6e ┆ t buffer buffer-read-only nil n┆
0x0a40…0a60 6f 65 72 61 73 65 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 74 68 75 6e 6b 20 74 77 6f ┆oerase standard-output thunk two┆
0x0a60…0a80 20 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 70 6f ┆ window-start selected-window po┆
0x0a80…0aa0 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 21 88 08 71 88 ┆p-to-buffer ((byte-code " ! q ┆
0x0aa0…0ac0 c2 89 11 88 c2 c5 c6 8f 87 22 20 5b 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f ┆ " [buffer buffer-read-o┆
0x0ac0…0ae0 6e 6c 79 20 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 ┆nly nil message "" (byte-code " ┆
0x0ae0…0b00 08 86 06 00 c2 21 87 22 20 5b 64 65 66 61 75 6c 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 66 75 6e ┆ ! " [default-major-mode fun┆
0x0b00…0b20 63 61 6c 6c 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 5d 20 32 29 20 28 28 65 72 72 6f ┆call fundamental-mode] 2) ((erro┆
0x0b20…0b40 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 5d 20 34 29 ┆r (byte-code " " [nil] 1)))] 4)┆
0x0b40…0b60 29 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 6f 64 65 20 65 72 61 73 65 2d 62 75 66 66 65 ┆) electric-help-mode erase-buffe┆
0x0b60…0b80 72 20 66 75 6e 63 61 6c 6c 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 ┆r funcall set-buffer-modified-p ┆
0x0b80…0ba0 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 2d 69 66 2d 6c 61 72 67 65 72 2d 74 68 61 6e 2d 62 75 66 ┆shrink-window-if-larger-than-buf┆
0x0ba0…0bc0 66 65 72 20 72 75 6e 2d 68 6f 6f 6b 73 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 6f 64 65 ┆fer run-hooks electric-help-mode┆
0x0bc0…0be0 2d 68 6f 6f 6b 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 63 6f 6d 6d 61 6e 64 2d 6c 6f 6f 70 ┆-hook electric-help-command-loop┆
0x0be0…0c00 20 63 61 72 2d 73 61 66 65 20 72 65 74 61 69 6e 20 76 65 63 74 6f 72 20 77 69 6e 64 6f 77 2d 68 ┆ car-safe retain vector window-h┆
0x0c00…0c20 65 69 67 68 74 20 77 69 6e 64 6f 77 2d 68 73 63 72 6f 6c 6c 5d 20 32 33 29 29 20 70 6f 70 2d 74 ┆eight window-hscroll] 23)) pop-t┆
0x0c20…0c40 6f 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 73 65 6c 65 63 74 65 64 2d ┆o-buffer window-height selected-┆
0x0c40…0c60 77 69 6e 64 6f 77 20 65 6c 74 20 30 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 20 73 65 74 2d 77 ┆window elt 0 shrink-window set-w┆
0x0c60…0c80 69 6e 64 6f 77 2d 73 74 61 72 74 20 31 20 73 65 74 2d 77 69 6e 64 6f 77 2d 68 73 63 72 6f 6c 6c ┆indow-start 1 set-window-hscroll┆
0x0c80…0ca0 20 32 20 33 20 72 65 70 6c 61 63 65 2d 62 75 66 66 65 72 2d 69 6e 2d 77 69 6e 64 6f 77 73 20 62 ┆ 2 3 replace-buffer-in-windows b┆
0x0ca0…0cc0 75 72 79 2d 62 75 66 66 65 72 5d 20 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 ┆ury-buffer] 17)) (defun electri┆
0x0cc0…0ce0 63 2d 68 65 6c 70 2d 63 6f 6d 6d 61 6e 64 2d 6c 6f 6f 70 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f ┆c-help-command-loop nil (byte-co┆
0x0ce0…0d00 64 65 20 22 c0 c1 8d 87 22 20 5b 65 78 69 74 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 64 21 85 ┆de " " [exit (byte-code " d! ┆
0x0d00…0d20 1a 00 c8 c9 21 88 72 89 10 ca 55 85 1a 00 cb 89 10 88 cc cd c1 5c 22 88 ce ce ce ce cf d0 21 d1 ┆ ! r U \" ! ┆
0x0d20…0d40 3d 85 3c 00 cf d2 21 d3 3d 85 3c 00 cf d4 21 d5 3d 85 3c 00 cf d6 21 d5 3d 1e 06 1d 1c 1b 1a d7 ┆= < ! = < ! = < ! = ┆
0x0d40…0d60 cd d8 c1 23 2d 87 22 20 5b 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 74 20 75 ┆ #- " [unread-command-char t u┆
0x0d60…0d80 70 20 64 6f 77 6e 20 62 6f 74 68 20 6e 65 69 74 68 65 72 20 73 74 61 6e 64 61 72 64 20 70 6f 73 ┆p down both neither standard pos┆
0x0d80…0da0 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 6d 65 73 73 61 67 65 20 22 3c 3c ┆-visible-in-window-p message "<<┆
0x0da0…0dc0 3c 20 50 72 65 73 73 20 53 70 61 63 65 20 74 6f 20 62 75 72 79 20 74 68 65 20 68 65 6c 70 20 62 ┆< Press Space to bury the help b┆
0x0dc0…0de0 75 66 66 65 72 20 3e 3e 3e 22 20 33 32 20 2d 31 20 74 68 72 6f 77 20 65 78 69 74 20 6e 69 6c 20 ┆uffer >>>" 32 -1 throw exit nil ┆
0x0de0…0e00 6b 65 79 2d 62 69 6e 64 69 6e 67 20 22 20 22 20 73 63 72 6f 6c 6c 2d 75 70 20 22 7f 22 20 73 63 ┆key-binding " " scroll-up " " sc┆
0x0e00…0e20 72 6f 6c 6c 2d 64 6f 77 6e 20 22 51 22 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 ┆roll-down "Q" electric-help-exit┆
0x0e20…0e40 20 22 71 22 20 45 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 6c 6f 6f 70 20 28 6c 61 6d 62 ┆ "q" Electric-command-loop (lamb┆
0x0e40…0e60 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 65 21 c8 64 21 19 18 08 85 0d 00 09 ┆da nil (byte-code " e! d! ┆
0x0e60…0e80 83 24 00 0a 83 18 00 c9 82 21 00 0b 86 21 00 ca cb 21 89 13 82 69 00 08 83 3c 00 0a 83 30 00 cc ┆ $ ! ! ! i < 0 ┆
0x0e80…0ea0 82 39 00 0d 86 39 00 ca cd 21 89 15 82 69 00 09 83 56 00 0a 83 48 00 ce 82 53 00 0e 06 86 53 00 ┆ 9 9 ! i V H S S ┆
0x0ea0…0ec0 ca cf 21 89 16 06 82 69 00 0a 83 5e 00 d0 82 69 00 0e 07 86 69 00 ca d1 21 89 16 07 2a 87 22 20 ┆ ! i ^ i i ! * " ┆
0x0ec0…0ee0 5b 6d 69 6e 20 6d 61 78 20 73 74 61 6e 64 61 72 64 20 6e 65 69 74 68 65 72 20 74 20 75 70 20 64 ┆[min max standard neither t up d┆
0x0ee0…0f00 6f 77 6e 20 62 6f 74 68 20 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 ┆own both pos-visible-in-window-p┆
0x0f00…0f20 20 22 50 72 65 73 73 20 51 20 74 6f 20 65 78 69 74 20 22 20 73 75 62 73 74 69 74 75 74 65 2d 63 ┆ "Press Q to exit " substitute-c┆
0x0f20…0f40 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 50 72 65 73 73 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 75 70 5d ┆ommand-keys "Press \\[scroll-up]┆
0x0f40…0f60 20 74 6f 20 65 78 69 74 20 22 20 22 50 72 65 73 73 20 53 50 43 20 74 6f 20 73 63 72 6f 6c 6c 2c ┆ to exit " "Press SPC to scroll,┆
0x0f60…0f80 20 51 20 74 6f 20 65 78 69 74 20 22 20 22 50 72 65 73 73 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 75 70 ┆ Q to exit " "Press \\[scroll-up┆
0x0f80…0fa0 5d 20 74 6f 20 73 63 72 6f 6c 6c 3b 20 5c 5c 5b 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 ┆] to scroll; \\[electric-help-ex┆
0x0fa0…0fc0 69 74 5d 20 74 6f 20 65 78 69 74 20 22 20 22 50 72 65 73 73 20 44 45 4c 20 74 6f 20 73 63 72 6f ┆it] to exit " "Press DEL to scro┆
0x0fc0…0fe0 6c 6c 20 62 61 63 6b 2c 20 51 20 74 6f 20 65 78 69 74 20 22 20 22 50 72 65 73 73 20 5c 5c 5b 73 ┆ll back, Q to exit " "Press \\[s┆
0x0fe0…1000 63 72 6f 6c 6c 2d 64 6f 77 6e 5d 20 74 6f 20 73 63 72 6f 6c 6c 20 62 61 63 6b 2c 20 5c 5c 5b 73 ┆croll-down] to scroll back, \\[s┆
0x1000…1020 63 72 6f 6c 6c 2d 75 70 5d 20 74 6f 20 65 78 69 74 20 22 20 22 50 72 65 73 73 20 53 50 43 20 74 ┆croll-up] to exit " "Press SPC t┆
0x1020…1040 6f 20 73 63 72 6f 6c 6c 2c 20 44 45 4c 20 74 6f 20 73 63 72 6f 6c 6c 20 62 61 63 6b 2c 20 51 20 ┆o scroll, DEL to scroll back, Q ┆
0x1040…1060 74 6f 20 65 78 69 74 20 22 20 22 50 72 65 73 73 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 75 70 5d 20 74 ┆to exit " "Press \\[scroll-up] t┆
0x1060…1080 6f 20 73 63 72 6f 6c 6c 2c 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 64 6f 77 6e 5d 20 74 6f 20 73 63 72 ┆o scroll, \\[scroll-down] to scr┆
0x1080…10a0 6f 6c 6c 20 62 61 63 6b 2c 20 5c 5c 5b 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 5d ┆oll back, \\[electric-help-exit]┆
0x10a0…10c0 20 74 6f 20 65 78 69 74 20 22 5d 20 38 29 29 5d 20 31 33 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 ┆ to exit "] 8))] 13)] 2)) (defu┆
0x10c0…10e0 6e 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 20 6e 69 6c 20 22 5c 0a 3e 3e 3e 44 ┆n electric-help-exit nil "\ >>>D┆
0x10e0…1100 6f 63 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 c1 88 ┆oc" (interactive) (byte-code " ┆
0x1100…1120 c2 c3 c0 5c 22 87 22 20 5b 74 20 6e 69 6c 20 74 68 72 6f 77 20 65 78 69 74 5d 20 33 29 29 0a 0a ┆ \" " [t nil throw exit] 3)) ┆
0x1120…1140 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 72 65 74 61 69 6e 20 6e 69 6c 20 ┆(defun electric-help-retain nil ┆
0x1140…1160 22 5c 0a 45 78 69 74 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2c 20 72 65 74 61 69 6e 69 6e 67 ┆"\ Exit electric-help, retaining┆
0x1160…1180 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 69 6e 64 6f 77 2f 62 75 66 66 65 72 20 63 6f 6e 69 66 ┆ the current window/buffer conif┆
0x1180…11a0 69 67 75 72 61 74 69 6f 6e 2e 0a 28 54 68 65 20 2a 48 65 6c 70 2a 20 62 75 66 66 65 72 20 77 69 ┆iguration. (The *Help* buffer wi┆
0x11a0…11c0 6c 6c 20 6e 6f 74 20 62 65 20 73 65 6c 65 63 74 65 64 2c 20 62 75 74 20 5c 5c 5b 73 77 69 74 63 ┆ll not be selected, but \\[switc┆
0x11c0…11e0 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 5d 20 52 45 54 0a 77 69 ┆h-to-buffer-other-window] RET wi┆
0x11e0…1200 6c 6c 20 73 65 6c 65 63 74 20 69 74 2e 29 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 ┆ll select it.)" (interactive) (b┆
0x1200…1220 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 74 68 72 6f 77 20 65 ┆yte-code " \" " [nil throw e┆
0x1220…1240 78 69 74 20 28 72 65 74 61 69 6e 29 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 ┆xit (retain)] 3)) (defun electr┆
0x1240…1260 69 63 2d 68 65 6c 70 2d 75 6e 64 65 66 69 6e 65 64 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 ┆ic-help-undefined nil (interacti┆
0x1260…1280 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 c4 c5 20 c6 23 c7 c8 21 c9 3d 83 ┆ve) (byte-code " # ! = ┆
0x1280…12a0 16 00 c8 82 19 00 ca cb 21 23 87 22 20 5b 6e 69 6c 20 65 72 72 6f 72 20 22 25 73 20 69 73 20 75 ┆ !# " [nil error "%s is u┆
0x12a0…12c0 6e 64 65 66 69 6e 65 64 20 2d 2d 20 50 72 65 73 73 20 25 73 20 74 6f 20 65 78 69 74 22 20 6d 61 ┆ndefined -- Press %s to exit" ma┆
0x12c0…12e0 70 63 6f 6e 63 61 74 20 73 69 6e 67 6c 65 2d 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 74 ┆pconcat single-key-description t┆
0x12e0…1300 68 69 73 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 20 22 20 6b 65 79 2d 62 69 6e 64 69 6e 67 ┆his-command-keys " " key-binding┆
0x1300…1320 20 22 51 22 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 20 73 75 62 73 74 69 74 75 ┆ "Q" electric-help-exit substitu┆
0x1320…1340 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 5c 5c 5b 65 6c 65 63 74 72 69 63 2d 68 65 6c ┆te-command-keys "\\[electric-hel┆
0x1340…1360 70 2d 65 78 69 74 5d 22 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 68 ┆p-exit]"] 8)) (defun electric-h┆
0x1360…1380 65 6c 70 2d 68 65 6c 70 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 ┆elp-help nil (interactive) (byte┆
0x1380…13a0 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 c3 3d 85 17 00 c1 c4 21 c5 3d 85 17 00 c1 c6 21 c7 3d 83 20 ┆-code " ! = ! = ! = ┆
0x13a0…13c0 00 c8 c9 21 82 2a 00 c8 ca 21 88 c8 cb cc cd 21 5c 22 88 ce cf 21 87 22 20 5b 6e 69 6c 20 6b 65 ┆ ! * ! !\" ! " [nil ke┆
0x13c0…13e0 79 2d 62 69 6e 64 69 6e 67 20 22 51 22 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 ┆y-binding "Q" electric-help-exit┆
0x13e0…1400 20 22 20 22 20 73 63 72 6f 6c 6c 2d 75 70 20 22 7f 22 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 20 6d ┆ " " scroll-up " " scroll-down m┆
0x1400…1420 65 73 73 61 67 65 20 22 53 50 43 20 73 63 72 6f 6c 6c 73 20 66 6f 72 77 61 72 64 2c 20 44 45 4c ┆essage "SPC scrolls forward, DEL┆
0x1420…1440 20 73 63 72 6f 6c 6c 73 20 62 61 63 6b 2c 20 51 20 65 78 69 74 73 20 61 6e 64 20 62 75 72 79 73 ┆ scrolls back, Q exits and burys┆
0x1440…1460 20 68 65 6c 70 20 62 75 66 66 65 72 22 20 22 48 65 6c 70 2e 2e 2e 22 20 22 25 73 22 20 73 75 62 ┆ help buffer" "Help..." "%s" sub┆
0x1460…1480 73 74 69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 5c 5c 5b 73 63 72 6f 6c 6c 2d ┆stitute-command-keys "\\[scroll-┆
0x1480…14a0 75 70 5d 20 73 63 72 6f 6c 6c 73 20 66 6f 72 77 61 72 64 2c 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 64 ┆up] scrolls forward, \\[scroll-d┆
0x14a0…14c0 6f 77 6e 5d 20 73 63 72 6f 6c 6c 73 20 62 61 63 6b 2c 20 5c 5c 5b 65 6c 65 63 74 72 69 63 2d 68 ┆own] scrolls back, \\[electric-h┆
0x14c0…14e0 65 6c 70 2d 65 78 69 74 5d 20 65 78 69 74 73 2e 22 20 73 69 74 2d 66 6f 72 20 32 5d 20 39 29 29 ┆elp-exit] exits." sit-for 2] 9))┆
0x14e0…1500 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 69 66 79 20 28 66 75 6e 29 20 ┆ (defun electric-helpify (fun) ┆
0x1500…1520 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 18 c8 8b 85 0c 00 c9 ca 08 c6 23 29 87 22 20 5b 6e 61 6d ┆(byte-code " #) " [nam┆
0x1520…1540 65 20 70 20 62 20 6d 20 6e 69 6c 20 66 75 6e 20 74 20 22 2a 48 65 6c 70 2a 22 20 28 28 62 79 74 ┆e p b m nil fun t "*Help*" ((byt┆
0x1540…1560 65 2d 63 6f 64 65 20 22 c7 4b 18 c8 0a 21 19 c9 09 21 1b 09 85 19 00 ca 09 21 3f 85 19 00 c4 89 ┆e-code " K ! ! !? ┆
0x1560…1580 11 88 cb 8e cc cd ce cf 0d 21 21 5c 22 88 09 85 31 00 8a 09 71 88 d0 c6 21 29 88 c7 d1 4d 88 d2 ┆ !!\" 1 q !) M ┆
0x1580…15a0 0d 21 88 c8 0a 21 85 5a 00 ca c8 0a 21 21 85 5a 00 09 3f 86 5a 00 09 c8 0a 21 3d 3f 86 5a 00 c9 ┆ ! ! Z !! Z ? Z !=? Z ┆
0x15a0…15c0 09 21 3f 29 2b 87 22 20 5b 70 20 62 20 6e 61 6d 65 20 6d 20 6e 69 6c 20 66 75 6e 20 74 20 70 72 ┆ !?)+ " [p b name m nil fun t pr┆
0x15c0…15e0 69 6e 74 2d 68 65 6c 70 2d 72 65 74 75 72 6e 2d 6d 65 73 73 61 67 65 20 67 65 74 2d 62 75 66 66 ┆int-help-return-message get-buff┆
0x15e0…1600 65 72 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 67 65 74 2d 62 75 66 66 65 72 2d ┆er buffer-modified-p get-buffer-┆
0x1600…1620 77 69 6e 64 6f 77 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 4d 88 09 85 16 00 c4 09 21 85 ┆window ((byte-code " M ! ┆
0x1620…1640 16 00 8a 09 71 88 c5 0a 21 29 87 22 20 5b 70 20 62 20 6d 20 70 72 69 6e 74 2d 68 65 6c 70 2d 72 ┆ q !) " [p b m print-help-r┆
0x1640…1660 65 74 75 72 6e 2d 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 73 65 74 2d 62 75 ┆eturn-message buffer-name set-bu┆
0x1660…1680 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 33 29 29 20 6d 65 73 73 61 67 65 20 22 25 73 ┆ffer-modified-p] 3)) message "%s┆
0x1680…16a0 2e 2e 2e 22 20 63 61 70 69 74 61 6c 69 7a 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 65 74 2d ┆..." capitalize symbol-name set-┆
0x16a0…16c0 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 69 67 6e 6f 72 65 20 63 61 6c 6c 2d 69 6e ┆buffer-modified-p ignore call-in┆
0x16c0…16e0 74 65 72 61 63 74 69 76 65 6c 79 5d 20 31 34 29 29 20 77 69 74 68 2d 65 6c 65 63 74 72 69 63 2d ┆teractively] 14)) with-electric-┆
0x16e0…1700 68 65 6c 70 20 69 67 6e 6f 72 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 ┆help ignore] 4)) (defun electri┆
0x1700…1720 63 2d 64 65 73 63 72 69 62 65 2d 6b 65 79 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 ┆c-describe-key nil (interactive)┆
0x1720…1740 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 65 6c 65 63 74 72 ┆ (byte-code " ! " [nil electr┆
0x1740…1760 69 63 2d 68 65 6c 70 69 66 79 20 64 65 73 63 72 69 62 65 2d 6b 65 79 5d 20 32 29 29 0a 0a 28 64 ┆ic-helpify describe-key] 2)) (d┆
0x1760…1780 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 20 6e 69 6c 20 ┆efun electric-describe-mode nil ┆
0x1780…17a0 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 ┆(interactive) (byte-code " ! ┆
0x17a0…17c0 22 20 5b 6e 69 6c 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 69 66 79 20 64 65 73 63 72 69 62 65 ┆" [nil electric-helpify describe┆
0x17c0…17e0 2d 6d 6f 64 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 76 69 65 77 ┆-mode] 2)) (defun electric-view┆
0x17e0…1800 2d 6c 6f 73 73 61 67 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 ┆-lossage nil (interactive) (byte┆
0x1800…1820 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 65 6c 65 63 74 72 69 63 2d 68 65 6c ┆-code " ! " [nil electric-hel┆
0x1820…1840 70 69 66 79 20 76 69 65 77 2d 6c 6f 73 73 61 67 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 ┆pify view-lossage] 2)) (defun e┆
0x1840…1860 6c 65 63 74 72 69 63 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 28 69 ┆lectric-describe-function nil (i┆
0x1860…1880 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 ┆nteractive) (byte-code " ! " ┆
0x1880…18a0 5b 6e 69 6c 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 69 66 79 20 64 65 73 63 72 69 62 65 2d 66 ┆[nil electric-helpify describe-f┆
0x18a0…18c0 75 6e 63 74 69 6f 6e 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 64 65 ┆unction] 2)) (defun electric-de┆
0x18c0…18e0 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆scribe-variable nil (interactive┆
0x18e0…1900 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 65 6c 65 63 74 ┆) (byte-code " ! " [nil elect┆
0x1900…1920 72 69 63 2d 68 65 6c 70 69 66 79 20 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 5d 20 32 ┆ric-helpify describe-variable] 2┆
[…truncated at 200 lines…]