|
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: ┃ k ┃
Length: 2408 (0x968)
Names: »keypad.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/keypad.elc«
0x000…020 0a 28 64 65 66 75 6e 20 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 28 63 68 61 72 20 64 65 66 ┆ (defun keypad-default (char def┆ 0x020…040 69 6e 69 74 69 6f 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 09 5c 22 86 0c 00 c4 08 09 ┆inition) (byte-code " \" ┆ 0x040…060 0a 23 87 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 63 68 61 72 20 64 65 66 69 6e ┆ # " [function-keymap char defin┆ 0x060…080 69 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2d 6b 65 79 20 64 65 66 69 6e 65 2d 6b 65 79 5d 20 35 29 29 ┆ition lookup-key define-key] 5))┆ 0x080…0a0 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 6c 22 20 28 71 75 6f 74 65 20 62 61 63 ┆ (keypad-default "l" (quote bac┆ 0x0a0…0c0 6b 77 61 72 64 2d 63 68 61 72 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 72 ┆kward-char)) (keypad-default "r┆ 0x0c0…0e0 22 20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64 2d 63 68 61 72 29 29 0a 0a 28 6b 65 79 70 61 64 ┆" (quote forward-char)) (keypad┆ 0x0e0…100 2d 64 65 66 61 75 6c 74 20 22 75 22 20 28 71 75 6f 74 65 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e ┆-default "u" (quote previous-lin┆ 0x100…120 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 64 22 20 28 71 75 6f 74 65 20 ┆e)) (keypad-default "d" (quote ┆ 0x120…140 6e 65 78 74 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 4e 22 ┆next-line)) (keypad-default "N"┆ 0x140…160 20 28 71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d 75 70 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 ┆ (quote scroll-up)) (keypad-def┆ 0x160…180 61 75 6c 74 20 22 50 22 20 28 71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 29 29 0a 0a 28 ┆ault "P" (quote scroll-down)) (┆ 0x180…1a0 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 43 22 20 28 71 75 6f 74 65 20 72 65 63 65 6e 74 ┆keypad-default "C" (quote recent┆ 0x1a0…1c0 65 72 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 3f 22 20 28 71 75 6f 74 65 ┆er)) (keypad-default "?" (quote┆ 0x1c0…1e0 20 68 65 6c 70 2d 63 6f 6d 6d 61 6e 64 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 ┆ help-command)) (keypad-default┆ 0x1e0…200 20 22 73 22 20 28 71 75 6f 74 65 20 73 65 74 2d 6d 61 72 6b 2d 63 6f 6d 6d 61 6e 64 29 29 0a 0a ┆ "s" (quote set-mark-command)) ┆ 0x200…220 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 6b 22 20 28 71 75 6f 74 65 20 6b 69 6c 6c 2d ┆(keypad-default "k" (quote kill-┆ 0x220…240 72 65 67 69 6f 6e 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 66 22 20 28 71 ┆region)) (keypad-default "f" (q┆ 0x240…260 75 6f 74 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 29 29 0a 0a 28 6b 65 79 70 61 ┆uote re-search-forward)) (keypa┆ 0x260…280 64 2d 64 65 66 61 75 6c 74 20 22 01 22 20 28 71 75 6f 74 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f ┆d-default " " (quote beginning-o┆ 0x280…2a0 66 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 02 22 20 28 71 ┆f-line)) (keypad-default " " (q┆ 0x2a0…2c0 75 6f 74 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 ┆uote end-of-line)) (keypad-defa┆ 0x2c0…2e0 75 6c 74 20 22 03 22 20 28 71 75 6f 74 65 20 69 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 29 29 ┆ult " " (quote isearch-forward))┆ 0x2e0…300 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 04 22 20 28 71 75 6f 74 65 20 6b 69 6c ┆ (keypad-default " " (quote kil┆ 0x300…320 6c 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 2e 22 20 28 71 ┆l-line)) (keypad-default "." (q┆ 0x320…340 75 6f 74 65 20 64 65 6c 65 74 65 2d 63 68 61 72 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 ┆uote delete-char)) (keypad-defa┆ 0x340…360 75 6c 74 20 22 30 22 20 28 71 75 6f 74 65 20 79 61 6e 6b 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 ┆ult "0" (quote yank)) (keypad-d┆ 0x360…380 65 66 61 75 6c 74 20 22 65 22 20 28 71 75 6f 74 65 20 6f 70 65 6e 2d 6c 69 6e 65 29 29 0a 0a 28 ┆efault "e" (quote open-line)) (┆ 0x380…3a0 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 31 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 ┆keypad-default "1" (quote backwa┆ 0x3a0…3c0 72 64 2d 77 6f 72 64 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 33 22 20 28 ┆rd-word)) (keypad-default "3" (┆ 0x3c0…3e0 71 75 6f 74 65 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 ┆quote forward-word)) (keypad-de┆ 0x3e0…400 66 61 75 6c 74 20 22 37 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 ┆fault "7" (quote backward-paragr┆ 0x400…420 61 70 68 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 39 22 20 28 71 75 6f 74 ┆aph)) (keypad-default "9" (quot┆ 0x420…440 65 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 ┆e forward-paragraph)) (keypad-d┆ 0x440…460 65 66 61 75 6c 74 20 22 68 22 20 28 71 75 6f 74 65 20 6d 6f 76 65 2d 74 6f 2d 77 69 6e 64 6f 77 ┆efault "h" (quote move-to-window┆ 0x460…480 2d 6c 69 6e 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 74 75 70 2d 74 65 72 6d 69 6e 61 6c 2d 6b ┆-line)) (defun setup-terminal-k┆ 0x480…4a0 65 79 6d 61 70 20 28 6d 61 70 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 29 20 22 5c 0a 53 65 74 20 ┆eymap (map translations) "\ Set ┆ 0x4a0…4c0 75 70 20 6b 65 79 6d 61 70 20 4d 41 50 20 74 6f 20 66 6f 72 77 61 72 64 20 74 6f 20 66 75 6e 63 ┆up keymap MAP to forward to func┆ 0x4c0…4e0 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 54 52 41 4e 53 4c 41 ┆tion-keymap according to TRANSLA┆ 0x4e0…500 54 49 4f 4e 53 2e 0a 54 52 41 4e 53 4c 41 54 49 4f 4e 53 20 69 73 20 61 6e 20 61 6c 69 73 74 3b ┆TIONS. TRANSLATIONS is an alist;┆ 0x500…520 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 69 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 28 ┆ each element of it looks like (┆ 0x520…540 46 52 4f 4d 53 54 52 49 4e 47 20 2e 20 54 4f 43 48 41 52 29 2e 0a 46 6f 72 20 65 61 63 68 20 73 ┆FROMSTRING . TOCHAR). For each s┆ 0x540…560 75 63 68 20 70 61 69 72 2c 20 77 65 20 64 65 66 69 6e 65 20 74 68 65 20 6b 65 79 20 73 65 71 75 ┆uch pair, we define the key sequ┆ 0x560…580 65 6e 63 65 20 46 52 4f 4d 53 54 52 49 4e 47 20 69 6e 20 4d 41 50 0a 74 6f 20 66 6f 72 77 61 72 ┆ence FROMSTRING in MAP to forwar┆ 0x580…5a0 64 20 74 6f 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 63 68 61 72 61 63 74 65 72 ┆d to the definition of character┆ 0x5a0…5c0 20 54 4f 43 48 41 52 20 69 6e 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 2e 0a 5c 22 46 6f ┆ TOCHAR in function-keymap. \"Fo┆ 0x5c0…5e0 72 77 61 72 64 69 6e 67 5c 22 20 6d 65 61 6e 73 20 74 68 61 74 20 73 75 62 73 65 71 75 65 6e 74 ┆rwarding\" means that subsequent┆ 0x5e0…600 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 54 4f 43 48 41 52 20 69 6e 0a 66 75 6e 63 74 ┆ redefinition of TOCHAR in funct┆ 0x600…620 69 6f 6e 2d 6b 65 79 6d 61 70 20 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 61 75 74 6f 6d 61 74 69 ┆ion-keymap will be seen automati┆ 0x620…640 63 61 6c 6c 79 20 69 6e 20 4d 41 50 20 61 73 20 77 65 6c 6c 2e 0a 0a 54 68 69 73 20 66 75 6e 63 ┆cally in MAP as well. This func┆ 0x640…660 74 69 6f 6e 20 69 73 20 75 73 65 64 20 62 79 20 66 69 6c 65 73 20 74 65 72 6d 2f 2a 2e 65 6c 20 ┆tion is used by files term/*.el ┆ 0x660…680 74 6f 20 73 65 74 20 75 70 20 74 68 65 20 6d 61 70 70 69 6e 67 20 66 72 6f 6d 20 74 68 65 0a 65 ┆to set up the mapping from the e┆ 0x680…6a0 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 73 20 73 65 6e 74 20 62 79 20 66 75 6e 63 74 69 6f 6e ┆scape sequences sent by function┆ 0x6a0…6c0 20 6b 65 79 73 20 6f 6e 20 70 61 72 74 69 63 75 6c 61 72 20 74 65 72 6d 69 6e 61 6c 73 20 28 46 ┆ keys on particular terminals (F┆ 0x6c0…6e0 52 4f 4d 53 54 52 49 4e 47 73 29 0a 69 6e 74 6f 20 45 6d 61 63 73 20 73 74 61 6e 64 61 72 64 20 ┆ROMSTRINGs) into Emacs standard ┆ 0x6e0…700 66 75 6e 63 74 69 6f 6e 20 6b 65 79 20 73 6c 6f 74 73 20 28 54 4f 43 48 41 52 73 29 2e 0a 41 6e ┆function key slots (TOCHARs). An┆ 0x700…720 20 61 63 74 75 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 28 73 75 63 68 20 61 73 20 61 20 73 79 ┆ actual definition (such as a sy┆ 0x720…740 6d 62 6f 6c 29 20 6d 61 79 20 62 65 20 67 69 76 65 6e 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 54 ┆mbol) may be given in place of T┆ 0x740…760 4f 43 48 41 52 2e 0a 47 65 6e 65 72 61 6c 6c 79 2c 20 4d 41 50 20 69 73 20 61 20 70 72 65 66 69 ┆OCHAR. Generally, MAP is a prefi┆ 0x760…780 78 20 6b 65 79 6d 61 70 20 77 68 69 63 68 20 77 69 6c 6c 20 62 65 20 61 74 74 61 63 68 65 64 20 ┆x keymap which will be attached ┆ 0x780…7a0 74 6f 20 61 20 6b 65 79 0a 74 68 61 74 20 69 73 20 74 68 65 20 63 6f 6d 6d 6f 6e 20 70 72 65 66 ┆to a key that is the common pref┆ 0x7a0…7c0 69 78 20 73 65 6e 74 20 62 79 20 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 6b 65 79 73 20 28 6f 66 ┆ix sent by all function keys (of┆ 0x7c0…7e0 74 65 6e 20 45 53 43 20 4f 20 6f 72 20 45 53 43 20 5b 29 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 ┆ten ESC O or ESC [)." (byte-code┆ 0x7e0…800 20 22 08 85 26 00 c3 09 08 40 40 c4 08 40 41 21 83 19 00 0a 08 40 41 42 82 1c 00 08 40 41 23 88 ┆ " & @@ @A! @AB @A# ┆ 0x800…820 08 41 89 10 88 82 00 00 87 22 20 5b 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 6d 61 70 20 66 75 6e ┆ A " [translations map fun┆ 0x820…840 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 6e 75 6d 62 65 72 70 5d ┆ction-keymap define-key numberp]┆ 0x840…860 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 2d 73 65 71 75 65 6e ┆ 7)) (defun function-key-sequen┆ 0x860…880 63 65 20 28 63 68 61 72 29 20 22 5c 0a 52 65 74 75 72 6e 20 6b 65 79 20 73 65 71 75 65 6e 63 65 ┆ce (char) "\ Return key sequence┆ 0x880…8a0 20 66 6f 72 20 66 75 6e 63 74 69 6f 6e 20 6b 65 79 20 74 68 61 74 20 6f 6e 20 74 68 69 73 20 74 ┆ for function key that on this t┆ 0x8a0…8c0 65 72 6d 69 6e 61 6c 0a 74 72 61 6e 73 6c 61 74 65 73 20 69 6e 74 6f 20 73 6c 6f 74 20 43 48 41 ┆erminal translates into slot CHA┆ 0x8c0…8e0 52 20 69 6e 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 2e 0a 4f 72 20 72 65 74 75 72 6e 20 ┆R in function-keymap. Or return ┆ 0x8e0…900 6e 69 6c 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 6e 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 ┆nil if there is none." (byte-cod┆ 0x900…920 65 20 22 c2 08 09 42 c3 20 5c 22 40 87 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 ┆e " B \"@ " [function-keymap ┆ 0x920…940 63 68 61 72 20 77 68 65 72 65 2d 69 73 2d 69 6e 74 65 72 6e 61 6c 20 63 75 72 72 65 6e 74 2d 6c ┆char where-is-internal current-l┆ 0x940…960 6f 63 61 6c 2d 6d 61 70 5d 20 34 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 6b ┆ocal-map] 4)) (provide (quote k┆ 0x960…968 65 79 70 61 64 29 29 0a ┆eypad)) ┆