|
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: ┃ h ┃
Length: 3042 (0xbe2)
Names: »helper.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/helper.elc«
0x000…020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 68 65 6c 70 65 72 29 29 0a 0a 28 64 65 66 76 ┆ (provide (quote helper)) (defv┆
0x020…040 61 72 20 48 65 6c 70 65 72 2d 72 65 74 75 72 6e 2d 62 6c 75 72 62 20 6e 69 6c 29 0a 0a 28 64 65 ┆ar Helper-return-blurb nil) (de┆
0x040…060 66 76 61 72 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 48 ┆fvar Helper-help-map nil) (if H┆
0x060…080 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 48 65 6c 70 65 72 2d ┆elper-help-map nil (setq Helper-┆
0x080…0a0 68 65 6c 70 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d ┆help-map (make-keymap)) (define-┆
0x0a0…0c0 6b 65 79 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 22 6d 22 20 28 71 75 6f 74 65 20 48 ┆key Helper-help-map "m" (quote H┆
0x0c0…0e0 65 6c 70 65 72 2d 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 ┆elper-describe-mode)) (define-ke┆
0x0e0…100 79 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 22 62 22 20 28 71 75 6f 74 65 20 48 65 6c ┆y Helper-help-map "b" (quote Hel┆
0x100…120 70 65 72 2d 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 29 29 20 28 64 65 66 69 6e 65 2d ┆per-describe-bindings)) (define-┆
0x120…140 6b 65 79 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 22 63 22 20 28 71 75 6f 74 65 20 48 ┆key Helper-help-map "c" (quote H┆
0x140…160 65 6c 70 65 72 2d 64 65 73 63 72 69 62 65 2d 6b 65 79 2d 62 72 69 65 66 6c 79 29 29 20 28 64 65 ┆elper-describe-key-briefly)) (de┆
0x160…180 66 69 6e 65 2d 6b 65 79 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 22 6b 22 20 28 71 75 ┆fine-key Helper-help-map "k" (qu┆
0x180…1a0 6f 74 65 20 48 65 6c 70 65 72 2d 64 65 73 63 72 69 62 65 2d 6b 65 79 29 29 20 28 64 65 66 69 6e ┆ote Helper-describe-key)) (defin┆
0x1a0…1c0 65 2d 6b 65 79 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 22 3f 22 20 28 71 75 6f 74 65 ┆e-key Helper-help-map "?" (quote┆
0x1c0…1e0 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6f 70 74 69 6f 6e 73 29 29 20 28 64 65 66 69 6e 65 2d 6b ┆ Helper-help-options)) (define-k┆
0x1e0…200 65 79 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69 ┆ey Helper-help-map (char-to-stri┆
0x200…220 6e 67 20 68 65 6c 70 2d 63 68 61 72 29 20 28 71 75 6f 74 65 20 48 65 6c 70 65 72 2d 68 65 6c 70 ┆ng help-char) (quote Helper-help┆
0x220…240 2d 6f 70 74 69 6f 6e 73 29 29 20 28 66 73 65 74 20 28 71 75 6f 74 65 20 48 65 6c 70 65 72 2d 68 ┆-options)) (fset (quote Helper-h┆
0x240…260 65 6c 70 2d 6d 61 70 29 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 29 29 0a 0a 28 64 65 66 ┆elp-map) Helper-help-map)) (def┆
0x260…280 75 6e 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 73 63 72 6f 6c 6c 65 72 20 6e 69 6c 20 28 62 79 74 ┆un Helper-help-scroller nil (byt┆
0x280…2a0 65 2d 63 6f 64 65 20 22 c6 c1 21 85 07 00 09 86 0b 00 c7 18 c8 8b 29 87 22 20 5b 62 6c 75 72 62 ┆e-code " ! ) " [blurb┆
0x2a0…2c0 20 48 65 6c 70 65 72 2d 72 65 74 75 72 6e 2d 62 6c 75 72 62 20 63 6f 6e 74 69 6e 75 65 20 74 20 ┆ Helper-return-blurb continue t ┆
0x2c0…2e0 73 74 61 74 65 20 6e 69 6c 20 62 6f 75 6e 64 70 20 22 72 65 74 75 72 6e 22 20 28 28 62 79 74 65 ┆state nil boundp "return" ((byte┆
0x2e0…300 2d 63 6f 64 65 20 22 c5 c6 20 21 62 88 c7 c8 21 83 12 00 c9 c8 21 82 15 00 ca c8 21 88 65 62 88 ┆-code " !b ! ! ! eb ┆
0x300…320 c1 c4 1a 18 08 85 84 00 cb cc cd 64 21 83 2d 00 ce 82 2e 00 cf 5c 22 cd 65 21 83 39 00 ce 82 3a ┆ d! - . \" e! 9 :┆
0x320…340 00 cf 5c 5c 89 12 88 d0 0a d1 38 0b 5c 22 88 72 89 10 88 08 d2 3e 85 52 00 0a cc 57 83 5a 00 d3 ┆ \\ 8 \" r > R W Z ┆
0x340…360 20 82 80 00 08 d4 55 83 65 00 d5 20 82 80 00 08 d6 55 85 71 00 d7 d8 0a cc 5c 22 21 83 79 00 d9 ┆ U e U q \"! y ┆
0x360…380 20 82 80 00 c1 85 80 00 c4 89 10 88 82 1d 00 2a 87 22 20 5b 63 6f 6e 74 69 6e 75 65 20 74 20 73 ┆ * " [continue t s┆
0x380…3a0 74 61 74 65 20 62 6c 75 72 62 20 6e 69 6c 20 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 65 6c 65 ┆tate blurb nil window-start sele┆
0x3a0…3c0 63 74 65 64 2d 77 69 6e 64 6f 77 20 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 22 2a ┆cted-window get-buffer-window "*┆
0x3c0…3e0 48 65 6c 70 2a 22 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 73 77 69 74 63 68 2d 74 6f 2d 62 ┆Help*" pop-to-buffer switch-to-b┆
0x3e0…400 75 66 66 65 72 20 2a 20 32 20 70 6f 73 2d 76 69 73 69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d ┆uffer * 2 pos-visible-in-window-┆
0x400…420 70 20 31 20 30 20 6d 65 73 73 61 67 65 20 28 22 53 70 61 63 65 20 66 6f 72 77 61 72 64 2c 20 44 ┆p 1 0 message ("Space forward, D┆
0x420…440 65 6c 65 74 65 20 62 61 63 6b 2e 20 4f 74 68 65 72 20 6b 65 79 73 20 25 73 22 20 22 53 70 61 63 ┆elete back. Other keys %s" "Spac┆
0x440…460 65 20 73 63 72 6f 6c 6c 73 20 66 6f 72 77 61 72 64 2e 20 4f 74 68 65 72 20 6b 65 79 73 20 25 73 ┆e scrolls forward. Other keys %s┆
0x460…480 22 20 22 44 65 6c 65 74 65 20 73 63 72 6f 6c 6c 73 20 62 61 63 6b 2e 20 4f 74 68 65 72 20 6b 65 ┆" "Delete scrolls back. Other ke┆
0x480…4a0 79 73 20 25 73 22 20 22 54 79 70 65 20 61 6e 79 74 68 69 6e 67 20 74 6f 20 25 73 22 29 20 28 33 ┆ys %s" "Type anything to %s") (3┆
0x4a0…4c0 32 20 32 32 29 20 73 63 72 6f 6c 6c 2d 75 70 20 31 32 20 72 65 63 65 6e 74 65 72 20 31 32 37 20 ┆2 22) scroll-up 12 recenter 127 ┆
0x4c0…4e0 7a 65 72 6f 70 20 25 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 5d 20 31 37 29 29 5d 20 32 29 29 0a 0a ┆zerop % scroll-down] 17))] 2)) ┆
0x4e0…500 28 64 65 66 75 6e 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6f 70 74 69 6f 6e 73 20 6e 69 6c 20 22 ┆(defun Helper-help-options nil "┆
0x500…520 5c 0a 44 65 73 63 72 69 62 65 20 68 65 6c 70 20 6f 70 74 69 6f 6e 73 2e 22 20 28 69 6e 74 65 72 ┆\ Describe help options." (inter┆
0x520…540 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 88 c3 c4 21 87 22 20 ┆active) (byte-code " ! ! " ┆
0x540…560 5b 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 63 20 28 6b 65 79 20 62 72 69 65 66 6c 79 29 2c 20 6d ┆[nil message "c (key briefly), m┆
0x560…580 20 28 6d 6f 64 65 29 2c 20 6b 20 28 6b 65 79 29 2c 20 62 20 28 62 69 6e 64 69 6e 67 73 29 22 20 ┆ (mode), k (key), b (bindings)" ┆
0x580…5a0 73 69 74 2d 66 6f 72 20 34 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 48 65 6c 70 65 72 2d 64 65 ┆sit-for 4] 3)) (defun Helper-de┆
0x5a0…5c0 73 63 72 69 62 65 2d 6b 65 79 2d 62 72 69 65 66 6c 79 20 28 6b 65 79 29 20 22 5c 0a 42 72 69 65 ┆scribe-key-briefly (key) "\ Brie┆
0x5c0…5e0 66 6c 79 20 64 65 73 63 72 69 62 65 20 62 69 6e 64 69 6e 67 20 6f 66 20 4b 45 59 53 2e 22 20 28 ┆fly describe binding of KEYS." (┆
0x5e0…600 69 6e 74 65 72 61 63 74 69 76 65 20 22 6b 44 65 73 63 72 69 62 65 20 6b 65 79 20 62 72 69 65 66 ┆interactive "kDescribe key brief┆
0x600…620 6c 79 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 21 88 c3 c4 21 87 22 20 5b ┆ly: ") (byte-code " ! ! " [┆
0x620…640 6b 65 79 20 6e 69 6c 20 64 65 73 63 72 69 62 65 2d 6b 65 79 2d 62 72 69 65 66 6c 79 20 73 69 74 ┆key nil describe-key-briefly sit┆
0x640…660 2d 66 6f 72 20 34 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 48 65 6c 70 65 72 2d 64 65 73 63 72 ┆-for 4] 3)) (defun Helper-descr┆
0x660…680 69 62 65 2d 6b 65 79 20 28 6b 65 79 29 20 22 5c 0a 44 65 73 63 72 69 62 65 20 62 69 6e 64 69 6e ┆ibe-key (key) "\ Describe bindin┆
0x680…6a0 67 20 6f 66 20 4b 45 59 53 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 6b 44 65 73 63 72 ┆g of KEYS." (interactive "kDescr┆
0x6a0…6c0 69 62 65 20 6b 65 79 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 8b 88 c3 20 87 ┆ibe key: ") (byte-code " ┆
0x6c0…6e0 22 20 5b 6b 65 79 20 6e 69 6c 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 6b ┆" [key nil ((byte-code " ! " [k┆
0x6e0…700 65 79 20 64 65 73 63 72 69 62 65 2d 6b 65 79 5d 20 32 29 29 20 48 65 6c 70 65 72 2d 68 65 6c 70 ┆ey describe-key] 2)) Helper-help┆
0x700…720 2d 73 63 72 6f 6c 6c 65 72 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 48 65 6c 70 65 72 2d 64 65 ┆-scroller] 2)) (defun Helper-de┆
0x720…740 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 22 5c 0a 44 65 73 63 72 69 62 65 20 ┆scribe-function nil "\ Describe ┆
0x740…760 61 20 66 75 6e 63 74 69 6f 6e 2e 20 20 4e 61 6d 65 20 72 65 61 64 20 69 6e 74 65 72 61 63 74 69 ┆a function. Name read interacti┆
0x760…780 76 65 6c 79 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 ┆vely." (interactive) (byte-code ┆
0x780…7a0 22 c0 88 c1 8b 88 c2 20 87 22 20 5b 6e 69 6c 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 ┆" " [nil ((byte-code " !┆
0x7a0…7c0 87 22 20 5b 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 64 65 73 63 72 69 62 65 2d ┆ " [call-interactively describe-┆
0x7c0…7e0 66 75 6e 63 74 69 6f 6e 5d 20 32 29 29 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 73 63 72 6f 6c 6c ┆function] 2)) Helper-help-scroll┆
0x7e0…800 65 72 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 48 65 6c 70 65 72 2d 64 65 73 63 72 69 62 65 2d ┆er] 2)) (defun Helper-describe-┆
0x800…820 76 61 72 69 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 44 65 73 63 72 69 62 65 20 61 20 76 61 72 69 61 ┆variable nil "\ Describe a varia┆
0x820…840 62 6c 65 2e 20 20 4e 61 6d 65 20 72 65 61 64 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2e 22 20 ┆ble. Name read interactively." ┆
0x840…860 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 8b 88 c2 ┆(interactive) (byte-code " ┆
0x860…880 20 87 22 20 5b 6e 69 6c 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 63 61 6c ┆ " [nil ((byte-code " ! " [cal┆
0x880…8a0 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c ┆l-interactively describe-variabl┆
0x8a0…8c0 65 5d 20 32 29 29 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 73 63 72 6f 6c 6c 65 72 5d 20 32 29 29 ┆e] 2)) Helper-help-scroller] 2))┆
0x8c0…8e0 0a 0a 28 64 65 66 75 6e 20 48 65 6c 70 65 72 2d 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 20 6e 69 ┆ (defun Helper-describe-mode ni┆
0x8e0…900 6c 20 22 5c 0a 44 65 73 63 72 69 62 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 6f 64 65 2e 22 ┆l "\ Describe the current mode."┆
0x900…920 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 09 c2 0b ┆ (interactive) (byte-code " ┆
0x920…940 21 1a 18 8a c5 c6 21 71 88 c7 20 88 c8 08 c9 0a 23 29 2a 88 ca 20 87 22 20 5b 6e 61 6d 65 20 6d ┆! !q #)* " [name m┆
0x940…960 6f 64 65 2d 6e 61 6d 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6d 61 6a 6f 72 2d 6d 6f 64 ┆ode-name documentation major-mod┆
0x960…980 65 20 6e 69 6c 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 48 65 6c 70 2a 22 ┆e nil get-buffer-create "*Help*"┆
0x980…9a0 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 20 22 20 4d 6f 64 65 0a 22 20 48 65 ┆ erase-buffer insert " Mode " He┆
0x9a0…9c0 6c 70 65 72 2d 68 65 6c 70 2d 73 63 72 6f 6c 6c 65 72 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 ┆lper-help-scroller] 7)) (defun ┆
0x9c0…9e0 48 65 6c 70 65 72 2d 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 20 6e 69 6c 20 22 5c 0a ┆Helper-describe-bindings nil "\ ┆
0x9e0…a00 44 65 73 63 72 69 62 65 20 63 75 72 72 65 6e 74 20 6c 6f 63 61 6c 20 6b 65 79 20 62 69 6e 64 69 ┆Describe current local key bindi┆
0xa00…a20 6e 67 73 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 ┆ngs." (interactive) (byte-code "┆
0xa20…a40 c0 88 c1 c2 21 88 c3 8b 88 c4 20 87 22 20 5b 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 4d 61 6b 69 ┆ ! " [nil message "Maki┆
0xa40…a60 6e 67 20 62 69 6e 64 69 6e 67 20 6c 69 73 74 2e 2e 2e 22 20 28 28 62 79 74 65 2d 63 6f 64 65 20 ┆ng binding list..." ((byte-code ┆
0xa60…a80 22 c0 20 87 22 20 5b 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 5d 20 32 29 29 20 48 65 ┆" " [describe-bindings] 2)) He┆
0xa80…aa0 6c 70 65 72 2d 68 65 6c 70 2d 73 63 72 6f 6c 6c 65 72 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 ┆lper-help-scroller] 3)) (defun ┆
0xaa0…ac0 48 65 6c 70 65 72 2d 68 65 6c 70 20 6e 69 6c 20 22 5c 0a 50 72 6f 76 69 64 65 20 68 65 6c 70 20 ┆Helper-help nil "\ Provide help ┆
0xac0…ae0 66 6f 72 20 63 75 72 72 65 6e 74 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 ┆for current mode." (interactive)┆
0xae0…b00 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c1 c4 1a 18 08 85 46 00 c5 c6 21 88 c7 c8 72 21 21 ┆ (byte-code " F ! r!!┆
0xb00…b20 89 12 88 c9 0b 0a 5c 22 89 12 88 0a ca 3d 83 28 00 ca 20 82 42 00 cb 0a 21 83 38 00 cc 0a 21 88 ┆ \" = ( B ! 8 ! ┆
0xb20…b40 c4 89 10 82 42 00 c1 85 42 00 cd 20 88 c4 89 10 88 82 06 00 2a 87 22 20 5b 63 6f 6e 74 69 6e 75 ┆ B B * " [continu┆
0xb40…b60 65 20 74 20 63 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6d 61 70 20 6e 69 6c 20 6d 65 73 73 61 67 ┆e t c Helper-help-map nil messag┆
0xb60…b80 65 20 22 48 65 6c 70 20 28 54 79 70 65 20 3f 20 66 6f 72 20 66 75 72 74 68 65 72 20 6f 70 74 69 ┆e "Help (Type ? for further opti┆
0xb80…ba0 6f 6e 73 29 22 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 75 70 63 61 73 65 20 6c 6f 6f 6b ┆ons)" char-to-string upcase look┆
0xba0…bc0 75 70 2d 6b 65 79 20 48 65 6c 70 65 72 2d 68 65 6c 70 2d 6f 70 74 69 6f 6e 73 20 63 6f 6d 6d 61 ┆up-key Helper-help-options comma┆
0xbc0…be0 6e 64 70 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 64 69 6e 67 5d 20 31 31 29 ┆ndp call-interactively ding] 11)┆
0xbe0…be2 29 0a ┆) ┆