|
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: e
Length: 7393 (0x1ce1)
Names: »ehelp.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/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 77 69 74 68 2d 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 20 28 74 68 75 6e 6b 20 26 6f ┆fun with-electric-help (thunk &o┆
0x0520…0540 70 74 69 6f 6e 61 6c 20 62 75 66 66 65 72 20 6e 6f 65 72 61 73 65 29 20 22 5c 0a 41 72 67 75 6d ┆ptional buffer noerase) "\ Argum┆
0x0540…0560 65 6e 74 73 20 61 72 65 20 54 48 55 4e 4b 20 26 6f 70 74 69 6f 6e 61 6c 20 42 55 46 46 45 52 20 ┆ents are THUNK &optional BUFFER ┆
0x0560…0580 4e 4f 45 52 41 53 45 2e 0a 42 55 46 46 45 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20 5c 22 2a 48 ┆NOERASE. BUFFER defaults to \"*H┆
0x0580…05a0 65 6c 70 2a 5c 22 0a 54 48 55 4e 4b 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6e 6f ┆elp*\" THUNK is a function of no┆
0x05a0…05c0 20 61 72 67 75 6d 65 6e 74 73 20 77 68 69 63 68 20 69 73 20 63 61 6c 6c 65 64 20 74 6f 20 69 6e ┆ arguments which is called to in┆
0x05c0…05e0 69 74 69 61 6c 69 73 65 0a 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 42 55 46 46 45 52 ┆itialise the contents of BUFFER┆
0x05e0…0600 2e 20 20 42 55 46 46 45 52 20 77 69 6c 6c 20 62 65 20 65 72 61 73 65 64 20 62 65 66 6f 72 65 20 ┆. BUFFER will be erased before ┆
0x0600…0620 54 48 55 4e 4b 20 69 73 20 63 61 6c 6c 65 64 20 75 6e 6c 65 73 73 0a 20 4e 4f 45 52 41 53 45 20 ┆THUNK is called unless NOERASE ┆
0x0620…0640 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 20 20 54 48 55 4e 4b 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 ┆is non-nil. THUNK will be calle┆
0x0640…0660 64 20 77 69 74 68 20 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 20 62 6f 75 6e 64 20 74 ┆d with standard-output bound t┆
0x0660…0680 6f 0a 20 74 68 65 20 62 75 66 66 65 72 20 73 70 65 63 69 66 69 65 64 20 62 79 20 42 55 46 46 45 ┆o the buffer specified by BUFFE┆
0x0680…06a0 52 0a 0a 41 66 74 65 72 20 54 48 55 4e 4b 20 68 61 73 20 62 65 65 6e 20 63 61 6c 6c 65 64 2c 20 ┆R After THUNK has been called, ┆
0x06a0…06c0 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 5c 22 65 6c 65 63 74 72 69 63 61 6c 6c 79 5c 22 20 70 ┆this function \"electrically\" p┆
0x06c0…06e0 6f 70 73 20 75 70 20 61 20 77 69 6e 64 6f 77 0a 69 6e 20 77 68 69 63 68 20 42 55 46 46 45 52 20 ┆ops up a window in which BUFFER ┆
0x06e0…0700 69 73 20 64 69 73 70 6c 61 79 65 64 20 61 6e 64 20 61 6c 6c 6f 77 73 20 74 68 65 20 75 73 65 72 ┆is displayed and allows the user┆
0x0700…0720 20 74 6f 20 73 63 72 6f 6c 6c 20 74 68 72 6f 75 67 68 20 74 68 61 74 20 62 75 66 66 65 72 0a 69 ┆ to scroll through that buffer i┆
0x0720…0740 6e 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 6f 64 65 2e 0a 57 68 65 6e 20 74 68 65 20 75 ┆n electric-help-mode. When the u┆
0x0740…0760 73 65 72 20 65 78 69 74 73 20 28 77 69 74 68 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 ┆ser exits (with electric-help-ex┆
0x0760…0780 69 74 2c 20 6f 72 20 6f 74 68 65 72 77 69 73 65 29 20 74 68 65 20 68 65 6c 70 0a 62 75 66 66 65 ┆it, or otherwise) the help buffe┆
0x0780…07a0 72 27 73 20 77 69 6e 64 6f 77 20 64 69 73 61 70 70 65 61 72 73 20 28 69 65 20 77 65 20 75 73 65 ┆r's window disappears (ie we use┆
0x07a0…07c0 20 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 29 0a 42 55 46 46 45 52 20 69 ┆ save-window-excursion) BUFFER i┆
0x07c0…07e0 73 20 70 75 74 20 69 6e 74 6f 20 64 65 66 61 75 6c 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 28 6f ┆s put into default-major-mode (o┆
0x07e0…0800 72 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 29 20 77 68 65 6e 20 77 65 20 65 78 69 74 ┆r fundamental-mode) when we exit┆
0x0800…0820 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cb 08 86 06 00 cc 21 89 10 88 cd c2 21 c4 1b 19 ce 8b ┆" (byte-code " ! ! ┆
0x0820…0840 88 0b 83 55 00 c2 c4 1e 0a 1d cf 08 21 88 d0 d1 20 21 d2 0b d3 5c 22 5a 89 16 0a 88 0e 0a d3 56 ┆ U ! ! \"Z V┆
0x0840…0860 85 38 00 d4 0e 0a 21 88 d5 d1 20 d2 0b d6 5c 22 c2 23 88 d7 d1 20 d2 0b d8 5c 22 5c 22 88 d2 0b ┆ 8 ! \" # \"\" ┆
0x0860…0880 d9 5c 22 62 2a 82 5c 5c 00 da 08 21 88 db 08 21 2a 87 22 20 5b 62 75 66 66 65 72 20 6f 6e 65 20 ┆ \"b* \\ ! !* " [buffer one ┆
0x0880…08a0 74 20 74 77 6f 20 6e 69 6c 20 70 6f 70 2d 75 70 2d 77 69 6e 64 6f 77 73 20 62 75 66 66 65 72 2d ┆t two nil pop-up-windows buffer-┆
0x08a0…08c0 72 65 61 64 2d 6f 6e 6c 79 20 6e 6f 65 72 61 73 65 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 ┆read-only noerase standard-outpu┆
0x08c0…08e0 74 20 74 68 75 6e 6b 20 74 65 6d 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a ┆t thunk tem get-buffer-create "*┆
0x08e0…0900 48 65 6c 70 2a 22 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 20 28 28 62 79 74 65 2d 63 6f 64 65 20 ┆Help*" one-window-p ((byte-code ┆
0x0900…0920 22 8a 08 85 0a 00 ca cb 20 21 62 88 c2 19 cc 0b 21 29 88 cd 8e 8a 0b 71 88 ce 20 88 c5 89 14 88 ┆" !b !) q ┆
0x0920…0940 0e 06 86 26 00 cf 20 29 88 0b 1e 07 d0 0e 08 21 83 36 00 c5 82 48 00 0b 71 88 d1 c5 21 88 65 62 ┆ & ) ! 6 H q ! eb┆
0x0940…0960 88 08 85 48 00 d2 cb 20 21 29 88 0b 71 88 d3 d4 21 88 d5 20 89 16 09 88 d6 0e 09 21 d7 3d 83 75 ┆ H !) q ! ! = u┆
0x0960…0980 00 d8 d9 cb 20 21 ca cb 20 21 da cb 20 21 60 24 89 16 09 82 79 00 c5 89 16 09 29 29 87 22 20 5b ┆ ! ! !`$ y )) " [┆
0x0980…09a0 6f 6e 65 20 70 6f 70 2d 75 70 2d 77 69 6e 64 6f 77 73 20 74 20 62 75 66 66 65 72 20 62 75 66 66 ┆one pop-up-windows t buffer buff┆
0x09a0…09c0 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 6e 6f 65 72 61 73 65 20 73 74 61 6e 64 61 72 ┆er-read-only nil noerase standar┆
0x09c0…09e0 64 2d 6f 75 74 70 75 74 20 74 68 75 6e 6b 20 74 77 6f 20 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 ┆d-output thunk two window-start ┆
0x09e0…0a00 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 28 28 ┆selected-window pop-to-buffer ((┆
0x0a00…0a20 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 21 88 08 71 88 c2 89 11 88 c2 c5 c6 8f 87 22 20 5b 62 75 ┆byte-code " ! q " [bu┆
0x0a20…0a40 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 6d 65 73 73 61 67 ┆ffer buffer-read-only nil messag┆
0x0a40…0a60 65 20 22 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 86 06 00 c2 21 87 22 20 5b 64 65 66 61 ┆e "" (byte-code " ! " [defa┆
0x0a60…0a80 75 6c 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 66 75 6e 63 61 6c 6c 20 66 75 6e 64 61 6d 65 6e 74 ┆ult-major-mode funcall fundament┆
0x0a80…0aa0 61 6c 2d 6d 6f 64 65 5d 20 32 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆al-mode] 2) ((error (byte-code "┆
0x0aa0…0ac0 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 5d 20 34 29 29 20 65 6c 65 63 74 72 69 63 2d 68 65 6c ┆ " [nil] 1)))] 4)) electric-hel┆
0x0ac0…0ae0 70 2d 6d 6f 64 65 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 66 75 6e 63 61 6c 6c 20 73 65 74 2d ┆p-mode erase-buffer funcall set-┆
0x0ae0…0b00 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 2d ┆buffer-modified-p shrink-window-┆
0x0b00…0b20 69 66 2d 6c 61 72 67 65 72 2d 74 68 61 6e 2d 62 75 66 66 65 72 20 72 75 6e 2d 68 6f 6f 6b 73 20 ┆if-larger-than-buffer run-hooks ┆
0x0b20…0b40 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 65 6c 65 63 74 72 69 63 ┆electric-help-mode-hook electric┆
0x0b40…0b60 2d 68 65 6c 70 2d 63 6f 6d 6d 61 6e 64 2d 6c 6f 6f 70 20 63 61 72 2d 73 61 66 65 20 72 65 74 61 ┆-help-command-loop car-safe reta┆
0x0b60…0b80 69 6e 20 76 65 63 74 6f 72 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 77 69 6e 64 6f 77 2d 68 ┆in vector window-height window-h┆
0x0b80…0ba0 73 63 72 6f 6c 6c 5d 20 32 33 29 29 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 77 69 6e 64 6f ┆scroll] 23)) pop-to-buffer windo┆
0x0ba0…0bc0 77 2d 68 65 69 67 68 74 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 65 6c 74 20 30 20 73 ┆w-height selected-window elt 0 s┆
0x0bc0…0be0 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 20 73 65 74 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 31 20 ┆hrink-window set-window-start 1 ┆
0x0be0…0c00 73 65 74 2d 77 69 6e 64 6f 77 2d 68 73 63 72 6f 6c 6c 20 32 20 33 20 72 65 70 6c 61 63 65 2d 62 ┆set-window-hscroll 2 3 replace-b┆
0x0c00…0c20 75 66 66 65 72 2d 69 6e 2d 77 69 6e 64 6f 77 73 20 62 75 72 79 2d 62 75 66 66 65 72 5d 20 31 37 ┆uffer-in-windows bury-buffer] 17┆
0x0c20…0c40 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 63 6f 6d 6d 61 6e 64 ┆)) (defun electric-help-command┆
0x0c40…0c60 2d 6c 6f 6f 70 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 8d 87 22 20 5b 65 78 69 ┆-loop nil (byte-code " " [exi┆
0x0c60…0c80 74 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 64 21 85 1a 00 c8 c9 21 88 72 89 10 ca 55 85 1a 00 ┆t (byte-code " d! ! r U ┆
0x0c80…0ca0 cb 89 10 88 cc cd c1 5c 22 88 ce ce ce ce cf d0 21 d1 3d 85 3c 00 cf d2 21 d3 3d 85 3c 00 cf d4 ┆ \" ! = < ! = < ┆
0x0ca0…0cc0 21 d5 3d 85 3c 00 cf d6 21 d5 3d 1e 06 1d 1c 1b 1a d7 cd d8 c1 23 2d 87 22 20 5b 75 6e 72 65 61 ┆! = < ! = #- " [unrea┆
0x0cc0…0ce0 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 74 20 75 70 20 64 6f 77 6e 20 62 6f 74 68 20 6e 65 ┆d-command-char t up down both ne┆
0x0ce0…0d00 69 74 68 65 72 20 73 74 61 6e 64 61 72 64 20 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 ┆ither standard pos-visible-in-wi┆
0x0d00…0d20 6e 64 6f 77 2d 70 20 6d 65 73 73 61 67 65 20 22 3c 3c 3c 20 50 72 65 73 73 20 53 70 61 63 65 20 ┆ndow-p message "<<< Press Space ┆
0x0d20…0d40 74 6f 20 62 75 72 79 20 74 68 65 20 68 65 6c 70 20 62 75 66 66 65 72 20 3e 3e 3e 22 20 33 32 20 ┆to bury the help buffer >>>" 32 ┆
0x0d40…0d60 2d 31 20 74 68 72 6f 77 20 65 78 69 74 20 6e 69 6c 20 6b 65 79 2d 62 69 6e 64 69 6e 67 20 22 20 ┆-1 throw exit nil key-binding " ┆
0x0d60…0d80 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 22 51 22 20 ┆" scroll-up " " scroll-down "Q" ┆
0x0d80…0da0 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 20 22 71 22 20 45 6c 65 63 74 72 69 63 2d ┆electric-help-exit "q" Electric-┆
0x0da0…0dc0 63 6f 6d 6d 61 6e 64 2d 6c 6f 6f 70 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 ┆command-loop (lambda nil (byte-c┆
0x0dc0…0de0 6f 64 65 20 22 c8 65 21 c8 64 21 19 18 08 85 0d 00 09 83 24 00 0a 83 18 00 c9 82 21 00 0b 86 21 ┆ode " e! d! $ ! !┆
0x0de0…0e00 00 ca cb 21 89 13 82 69 00 08 83 3c 00 0a 83 30 00 cc 82 39 00 0d 86 39 00 ca cd 21 89 15 82 69 ┆ ! i < 0 9 9 ! i┆
0x0e00…0e20 00 09 83 56 00 0a 83 48 00 ce 82 53 00 0e 06 86 53 00 ca cf 21 89 16 06 82 69 00 0a 83 5e 00 d0 ┆ V H S S ! i ^ ┆
0x0e20…0e40 82 69 00 0e 07 86 69 00 ca d1 21 89 16 07 2a 87 22 20 5b 6d 69 6e 20 6d 61 78 20 73 74 61 6e 64 ┆ i i ! * " [min max stand┆
0x0e40…0e60 61 72 64 20 6e 65 69 74 68 65 72 20 74 20 75 70 20 64 6f 77 6e 20 62 6f 74 68 20 70 6f 73 2d 76 ┆ard neither t up down both pos-v┆
0x0e60…0e80 69 73 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 22 50 72 65 73 73 20 51 20 74 6f 20 65 ┆isible-in-window-p "Press Q to e┆
0x0e80…0ea0 78 69 74 20 22 20 73 75 62 73 74 69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 50 ┆xit " substitute-command-keys "P┆
0x0ea0…0ec0 72 65 73 73 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 75 70 5d 20 74 6f 20 65 78 69 74 20 22 20 22 50 72 ┆ress \\[scroll-up] to exit " "Pr┆
0x0ec0…0ee0 65 73 73 20 53 50 43 20 74 6f 20 73 63 72 6f 6c 6c 2c 20 51 20 74 6f 20 65 78 69 74 20 22 20 22 ┆ess SPC to scroll, Q to exit " "┆
0x0ee0…0f00 50 72 65 73 73 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 75 70 5d 20 74 6f 20 73 63 72 6f 6c 6c 3b 20 5c ┆Press \\[scroll-up] to scroll; \┆
0x0f00…0f20 5c 5b 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 5d 20 74 6f 20 65 78 69 74 20 22 20 ┆\[electric-help-exit] to exit " ┆
0x0f20…0f40 22 50 72 65 73 73 20 44 45 4c 20 74 6f 20 73 63 72 6f 6c 6c 20 62 61 63 6b 2c 20 51 20 74 6f 20 ┆"Press DEL to scroll back, Q to ┆
0x0f40…0f60 65 78 69 74 20 22 20 22 50 72 65 73 73 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 64 6f 77 6e 5d 20 74 6f ┆exit " "Press \\[scroll-down] to┆
0x0f60…0f80 20 73 63 72 6f 6c 6c 20 62 61 63 6b 2c 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 75 70 5d 20 74 6f 20 65 ┆ scroll back, \\[scroll-up] to e┆
0x0f80…0fa0 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 20 44 45 4c 20 ┆xit " "Press SPC to scroll, DEL ┆
0x0fa0…0fc0 74 6f 20 73 63 72 6f 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 ┆to scroll back, Q to exit " "Pre┆
0x0fc0…0fe0 73 73 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 75 70 5d 20 74 6f 20 73 63 72 6f 6c 6c 2c 20 5c 5c 5b 73 ┆ss \\[scroll-up] to scroll, \\[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 65 ┆croll-down] to scroll back, \\[e┆
0x1000…1020 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 5d 20 74 6f 20 65 78 69 74 20 22 5d 20 38 29 ┆lectric-help-exit] to exit "] 8)┆
0x1020…1040 29 5d 20 31 33 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 68 65 6c ┆)] 13)] 2)) (defun electric-hel┆
0x1040…1060 70 2d 65 78 69 74 20 6e 69 6c 20 22 5c 0a 3e 3e 3e 44 6f 63 22 20 28 69 6e 74 65 72 61 63 74 69 ┆p-exit nil "\ >>>Doc" (interacti┆
0x1060…1080 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c0 5c 22 87 22 20 5b 74 20 6e 69 6c ┆ve) (byte-code " \" " [t nil┆
0x1080…10a0 20 74 68 72 6f 77 20 65 78 69 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 ┆ throw exit] 3)) (defun electri┆
0x10a0…10c0 63 2d 68 65 6c 70 2d 72 65 74 61 69 6e 20 6e 69 6c 20 22 5c 0a 45 78 69 74 20 65 6c 65 63 74 72 ┆c-help-retain nil "\ Exit electr┆
0x10c0…10e0 69 63 2d 68 65 6c 70 2c 20 72 65 74 61 69 6e 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 ┆ic-help, retaining the current w┆
0x10e0…1100 69 6e 64 6f 77 2f 62 75 66 66 65 72 20 63 6f 6e 69 66 69 67 75 72 61 74 69 6f 6e 2e 0a 28 54 68 ┆indow/buffer conifiguration. (Th┆
0x1100…1120 65 20 2a 48 65 6c 70 2a 20 62 75 66 66 65 72 20 77 69 6c 6c 20 6e 6f 74 20 62 65 20 73 65 6c 65 ┆e *Help* buffer will not be sele┆
0x1120…1140 63 74 65 64 2c 20 62 75 74 20 5c 5c 5b 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 ┆cted, but \\[switch-to-buffer-ot┆
0x1140…1160 68 65 72 2d 77 69 6e 64 6f 77 5d 20 52 45 54 0a 77 69 6c 6c 20 73 65 6c 65 63 74 20 69 74 2e 29 ┆her-window] RET will select it.)┆
0x1160…1180 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 c0 88 c1 c2 ┆" (interactive) (byte-code " ┆
0x1180…11a0 c3 5c 22 87 22 20 5b 6e 69 6c 20 74 68 72 6f 77 20 65 78 69 74 20 28 72 65 74 61 69 6e 29 5d 20 ┆ \" " [nil throw exit (retain)] ┆
0x11a0…11c0 33 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 75 6e 64 65 66 69 ┆3)) (defun electric-help-undefi┆
0x11c0…11e0 6e 65 64 20 6e 69 6c 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 ┆ned nil (interactive) (byte-code┆
0x11e0…1200 20 22 c0 88 c1 c2 c3 c4 c5 20 c6 23 c7 c8 21 c9 3d 83 16 00 c8 82 19 00 ca cb 21 23 87 22 20 5b ┆ " # ! = !# " [┆
0x1200…1220 6e 69 6c 20 65 72 72 6f 72 20 22 25 73 20 69 73 20 75 6e 64 65 66 69 6e 65 64 20 2d 2d 20 50 72 ┆nil error "%s is undefined -- Pr┆
0x1220…1240 65 73 73 20 25 73 20 74 6f 20 65 78 69 74 22 20 6d 61 70 63 6f 6e 63 61 74 20 73 69 6e 67 6c 65 ┆ess %s to exit" mapconcat single┆
0x1240…1260 2d 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 ┆-key-description this-command-ke┆
0x1260…1280 79 73 20 22 20 22 20 6b 65 79 2d 62 69 6e 64 69 6e 67 20 22 51 22 20 65 6c 65 63 74 72 69 63 2d ┆ys " " key-binding "Q" electric-┆
0x1280…12a0 68 65 6c 70 2d 65 78 69 74 20 73 75 62 73 74 69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 ┆help-exit substitute-command-key┆
0x12a0…12c0 73 20 22 5c 5c 5b 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 5d 22 5d 20 38 29 29 0a ┆s "\\[electric-help-exit]"] 8)) ┆
0x12c0…12e0 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 68 65 6c 70 20 6e 69 6c 20 28 ┆ (defun electric-help-help nil (┆
0x12e0…1300 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 c3 3d ┆interactive) (byte-code " ! =┆
0x1300…1320 85 17 00 c1 c4 21 c5 3d 85 17 00 c1 c6 21 c7 3d 83 20 00 c8 c9 21 82 2a 00 c8 ca 21 88 c8 cb cc ┆ ! = ! = ! * ! ┆
0x1320…1340 cd 21 5c 22 88 ce cf 21 87 22 20 5b 6e 69 6c 20 6b 65 79 2d 62 69 6e 64 69 6e 67 20 22 51 22 20 ┆ !\" ! " [nil key-binding "Q" ┆
0x1340…1360 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 2d 65 78 69 74 20 22 20 22 20 73 63 72 6f 6c 6c 2d 75 70 ┆electric-help-exit " " scroll-up┆
0x1360…1380 20 22 7f 22 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 20 6d 65 73 73 61 67 65 20 22 53 50 43 20 73 63 ┆ " " scroll-down message "SPC sc┆
0x1380…13a0 72 6f 6c 6c 73 20 66 6f 72 77 61 72 64 2c 20 44 45 4c 20 73 63 72 6f 6c 6c 73 20 62 61 63 6b 2c ┆rolls forward, DEL scrolls back,┆
0x13a0…13c0 20 51 20 65 78 69 74 73 20 61 6e 64 20 62 75 72 79 73 20 68 65 6c 70 20 62 75 66 66 65 72 22 20 ┆ Q exits and burys help buffer" ┆
0x13c0…13e0 22 48 65 6c 70 2e 2e 2e 22 20 22 25 73 22 20 73 75 62 73 74 69 74 75 74 65 2d 63 6f 6d 6d 61 6e ┆"Help..." "%s" substitute-comman┆
0x13e0…1400 64 2d 6b 65 79 73 20 22 5c 5c 5b 73 63 72 6f 6c 6c 2d 75 70 5d 20 73 63 72 6f 6c 6c 73 20 66 6f ┆d-keys "\\[scroll-up] scrolls fo┆
0x1400…1420 72 77 61 72 64 2c 20 5c 5c 5b 73 63 72 6f 6c 6c 2d 64 6f 77 6e 5d 20 73 63 72 6f 6c 6c 73 20 62 ┆rward, \\[scroll-down] scrolls b┆
0x1420…1440 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 20 65 78 69 74 ┆ack, \\[electric-help-exit] exit┆
0x1440…1460 73 2e 22 20 73 69 74 2d 66 6f 72 20 32 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 ┆s." sit-for 2] 9)) (defun elect┆
0x1460…1480 72 69 63 2d 68 65 6c 70 69 66 79 20 28 66 75 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 18 ┆ric-helpify (fun) (byte-code " ┆
0x1480…14a0 c8 8b 85 0c 00 c9 ca 08 c6 23 29 87 22 20 5b 6e 61 6d 65 20 70 20 62 20 6d 20 6e 69 6c 20 66 75 ┆ #) " [name p b m nil fu┆
0x14a0…14c0 6e 20 74 20 22 2a 48 65 6c 70 2a 22 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 4b 18 c8 0a 21 ┆n t "*Help*" ((byte-code " K !┆
0x14c0…14e0 19 c9 09 21 1b 09 85 19 00 ca 09 21 3f 85 19 00 c4 89 11 88 cb 8e cc cd ce cf 0d 21 21 5c 22 88 ┆ ! !? !!\" ┆
0x14e0…1500 09 85 31 00 8a 09 71 88 d0 c6 21 29 88 c7 d1 4d 88 d2 0d 21 88 c8 0a 21 85 5a 00 ca c8 0a 21 21 ┆ 1 q !) M ! ! Z !!┆
0x1500…1520 85 5a 00 09 3f 86 5a 00 09 c8 0a 21 3d 3f 86 5a 00 c9 09 21 3f 29 2b 87 22 20 5b 70 20 62 20 6e ┆ Z ? Z !=? Z !?)+ " [p b n┆
0x1520…1540 61 6d 65 20 6d 20 6e 69 6c 20 66 75 6e 20 74 20 70 72 69 6e 74 2d 68 65 6c 70 2d 72 65 74 75 72 ┆ame m nil fun t print-help-retur┆
0x1540…1560 6e 2d 6d 65 73 73 61 67 65 20 67 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6d 6f 64 69 ┆n-message get-buffer buffer-modi┆
0x1560…1580 66 69 65 64 2d 70 20 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 28 62 79 74 65 2d ┆fied-p get-buffer-window ((byte-┆
0x1580…15a0 63 6f 64 65 20 22 c3 08 4d 88 09 85 16 00 c4 09 21 85 16 00 8a 09 71 88 c5 0a 21 29 87 22 20 5b ┆code " M ! q !) " [┆
0x15a0…15c0 70 20 62 20 6d 20 70 72 69 6e 74 2d 68 65 6c 70 2d 72 65 74 75 72 6e 2d 6d 65 73 73 61 67 65 20 ┆p b m print-help-return-message ┆
0x15c0…15e0 62 75 66 66 65 72 2d 6e 61 6d 65 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d ┆buffer-name set-buffer-modified-┆
0x15e0…1600 70 5d 20 33 29 29 20 6d 65 73 73 61 67 65 20 22 25 73 2e 2e 2e 22 20 63 61 70 69 74 61 6c 69 7a ┆p] 3)) message "%s..." capitaliz┆
0x1600…1620 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 ┆e symbol-name set-buffer-modifie┆
0x1620…1640 64 2d 70 20 69 67 6e 6f 72 65 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 5d 20 31 ┆d-p ignore call-interactively] 1┆
0x1640…1660 34 29 29 20 77 69 74 68 2d 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 20 69 67 6e 6f 72 65 5d 20 34 ┆4)) with-electric-help ignore] 4┆
0x1660…1680 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 64 65 73 63 72 69 62 65 2d 6b 65 79 ┆)) (defun electric-describe-key┆
0x1680…16a0 20 6e 69 6c 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 c0 ┆ nil (interactive) (byte-code " ┆
0x16a0…16c0 88 c1 c2 21 87 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 ┆ ! " [nil electric-helpify des┆
0x16c0…16e0 63 72 69 62 65 2d 6b 65 79 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d ┆cribe-key] 2)) (defun electric-┆
0x16e0…1700 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 ┆describe-mode nil (interactive) ┆
0x1700…1720 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 69 ┆(byte-code " ! " [nil electri┆
0x1720…1740 63 2d 68 65 6c 70 69 66 79 20 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 5d 20 32 29 29 0a 0a 28 64 ┆c-helpify describe-mode] 2)) (d┆
0x1740…1760 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 76 69 65 77 2d 6c 6f 73 73 61 67 65 20 6e 69 6c 20 28 ┆efun electric-view-lossage nil (┆
0x1760…1780 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 22 ┆interactive) (byte-code " ! "┆
0x1780…17a0 20 5b 6e 69 6c 20 65 6c 65 63 74 72 69 63 2d 68 65 6c 70 69 66 79 20 76 69 65 77 2d 6c 6f 73 73 ┆ [nil electric-helpify view-loss┆
0x17a0…17c0 61 67 65 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 73 63 72 69 ┆age] 2)) (defun electric-descri┆
0x17c0…17e0 62 65 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 ┆be-function nil (interactive) (b┆
0x17e0…1800 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 69 63 2d ┆yte-code " ! " [nil electric-┆
0x1800…1820 68 65 6c 70 69 66 79 20 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 5d 20 32 29 29 0a 0a ┆helpify describe-function] 2)) ┆
0x1820…1840 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c ┆(defun electric-describe-variabl┆
0x1840…1860 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 2d 63 6f 64 65 20 22 ┆e nil (interactive) (byte-code "┆
0x1860…1880 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 70 69 66 79 20 64 65 ┆ ! " [nil electric-helpify de┆
0x1880…18a0 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 ┆scribe-variable] 2)) (defun ele┆
0x18a0…18c0 63 74 72 69 63 2d 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 20 6e 69 6c 20 28 69 6e 74 ┆ctric-describe-bindings nil (int┆
0x18c0…18e0 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 5b 6e ┆eractive) (byte-code " ! " [n┆
0x18e0…1900 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 62 69 6e ┆il electric-helpify describe-bin┆
0x1900…1920 64 69 6e 67 73 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 73 63 ┆dings] 2)) (defun electric-desc┆
[…truncated at 200 lines…]