/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / keypad.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 6b 65 79 70 61 64 2d 64 |.(defun |keypad-d|
|00000010| 65 66 61 75 6c 74 20 28 | 63 68 61 72 20 64 65 66 |efault (|char def|
|00000020| 69 6e 69 74 69 6f 6e 29 | 20 28 62 79 74 65 2d 63 |inition)| (byte-c|
|00000030| 6f 64 65 20 22 c3 08 09 | 5c 22 86 0c 00 c4 08 09 |ode "...|\"......|
|00000040| 0a 23 87 22 20 5b 66 75 | 6e 63 74 69 6f 6e 2d 6b |.#." [fu|nction-k|
|00000050| 65 79 6d 61 70 20 63 68 | 61 72 20 64 65 66 69 6e |eymap ch|ar defin|
|00000060| 69 74 69 6f 6e 20 6c 6f | 6f 6b 75 70 2d 6b 65 79 |ition lo|okup-key|
|00000070| 20 64 65 66 69 6e 65 2d | 6b 65 79 5d 20 35 29 29 | define-|key] 5))|
|00000080| 0a 0a 28 6b 65 79 70 61 | 64 2d 64 65 66 61 75 6c |..(keypa|d-defaul|
|00000090| 74 20 22 6c 22 20 28 71 | 75 6f 74 65 20 62 61 63 |t "l" (q|uote bac|
|000000a0| 6b 77 61 72 64 2d 63 68 | 61 72 29 29 0a 0a 28 6b |kward-ch|ar))..(k|
|000000b0| 65 79 70 61 64 2d 64 65 | 66 61 75 6c 74 20 22 72 |eypad-de|fault "r|
|000000c0| 22 20 28 71 75 6f 74 65 | 20 66 6f 72 77 61 72 64 |" (quote| forward|
|000000d0| 2d 63 68 61 72 29 29 0a | 0a 28 6b 65 79 70 61 64 |-char)).|.(keypad|
|000000e0| 2d 64 65 66 61 75 6c 74 | 20 22 44 22 20 28 71 75 |-default| "D" (qu|
|000000f0| 6f 74 65 20 64 65 6c 65 | 74 65 2d 63 68 61 72 29 |ote dele|te-char)|
|00000100| 29 0a 0a 28 6b 65 79 70 | 61 64 2d 64 65 66 61 75 |)..(keyp|ad-defau|
|00000110| 6c 74 20 22 75 22 20 28 | 71 75 6f 74 65 20 70 72 |lt "u" (|quote pr|
|00000120| 65 76 69 6f 75 73 2d 6c | 69 6e 65 29 29 0a 0a 28 |evious-l|ine))..(|
|00000130| 6b 65 79 70 61 64 2d 64 | 65 66 61 75 6c 74 20 22 |keypad-d|efault "|
|00000140| 64 22 20 28 71 75 6f 74 | 65 20 6e 65 78 74 2d 6c |d" (quot|e next-l|
|00000150| 69 6e 65 29 29 0a 0a 28 | 6b 65 79 70 61 64 2d 64 |ine))..(|keypad-d|
|00000160| 65 66 61 75 6c 74 20 22 | 4e 22 20 28 71 75 6f 74 |efault "|N" (quot|
|00000170| 65 20 73 63 72 6f 6c 6c | 2d 75 70 29 29 0a 0a 28 |e scroll|-up))..(|
|00000180| 6b 65 79 70 61 64 2d 64 | 65 66 61 75 6c 74 20 22 |keypad-d|efault "|
|00000190| 50 22 20 28 71 75 6f 74 | 65 20 73 63 72 6f 6c 6c |P" (quot|e scroll|
|000001a0| 2d 64 6f 77 6e 29 29 0a | 0a 28 6b 65 79 70 61 64 |-down)).|.(keypad|
|000001b0| 2d 64 65 66 61 75 6c 74 | 20 22 43 22 20 28 71 75 |-default| "C" (qu|
|000001c0| 6f 74 65 20 72 65 63 65 | 6e 74 65 72 29 29 0a 0a |ote rece|nter))..|
|000001d0| 28 6b 65 79 70 61 64 2d | 64 65 66 61 75 6c 74 20 |(keypad-|default |
|000001e0| 22 3f 22 20 28 71 75 6f | 74 65 20 68 65 6c 70 2d |"?" (quo|te help-|
|000001f0| 66 6f 72 2d 68 65 6c 70 | 29 29 0a 0a 28 6b 65 79 |for-help|))..(key|
|00000200| 70 61 64 2d 64 65 66 61 | 75 6c 74 20 22 73 22 20 |pad-defa|ult "s" |
|00000210| 28 71 75 6f 74 65 20 73 | 65 74 2d 6d 61 72 6b 2d |(quote s|et-mark-|
|00000220| 63 6f 6d 6d 61 6e 64 29 | 29 0a 0a 28 6b 65 79 70 |command)|)..(keyp|
|00000230| 61 64 2d 64 65 66 61 75 | 6c 74 20 22 6b 22 20 28 |ad-defau|lt "k" (|
|00000240| 71 75 6f 74 65 20 6b 69 | 6c 6c 2d 72 65 67 69 6f |quote ki|ll-regio|
|00000250| 6e 29 29 0a 0a 28 6b 65 | 79 70 61 64 2d 64 65 66 |n))..(ke|ypad-def|
|00000260| 61 75 6c 74 20 22 66 22 | 20 28 71 75 6f 74 65 20 |ault "f"| (quote |
|00000270| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00000280| 64 29 29 0a 0a 28 6b 65 | 79 70 61 64 2d 64 65 66 |d))..(ke|ypad-def|
|00000290| 61 75 6c 74 20 22 01 22 | 20 28 71 75 6f 74 65 20 |ault "."| (quote |
|000002a0| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|000002b0| 65 29 29 0a 0a 28 6b 65 | 79 70 61 64 2d 64 65 66 |e))..(ke|ypad-def|
|000002c0| 61 75 6c 74 20 22 02 22 | 20 28 71 75 6f 74 65 20 |ault "."| (quote |
|000002d0| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 29 29 0a 0a 28 |end-of-l|ine))..(|
|000002e0| 6b 65 79 70 61 64 2d 64 | 65 66 61 75 6c 74 20 22 |keypad-d|efault "|
|000002f0| 03 22 20 28 71 75 6f 74 | 65 20 69 73 65 61 72 63 |." (quot|e isearc|
|00000300| 68 2d 66 6f 72 77 61 72 | 64 29 29 0a 0a 28 6b 65 |h-forwar|d))..(ke|
|00000310| 79 70 61 64 2d 64 65 66 | 61 75 6c 74 20 22 04 22 |ypad-def|ault "."|
|00000320| 20 28 71 75 6f 74 65 20 | 6b 69 6c 6c 2d 6c 69 6e | (quote |kill-lin|
|00000330| 65 29 29 0a 0a 28 6b 65 | 79 70 61 64 2d 64 65 66 |e))..(ke|ypad-def|
|00000340| 61 75 6c 74 20 22 2e 22 | 20 28 71 75 6f 74 65 20 |ault "."| (quote |
|00000350| 64 65 6c 65 74 65 2d 63 | 68 61 72 29 29 0a 0a 28 |delete-c|har))..(|
|00000360| 6b 65 79 70 61 64 2d 64 | 65 66 61 75 6c 74 20 22 |keypad-d|efault "|
|00000370| 30 22 20 28 71 75 6f 74 | 65 20 79 61 6e 6b 29 29 |0" (quot|e yank))|
|00000380| 0a 0a 28 6b 65 79 70 61 | 64 2d 64 65 66 61 75 6c |..(keypa|d-defaul|
|00000390| 74 20 22 65 22 20 28 71 | 75 6f 74 65 20 6f 70 65 |t "e" (q|uote ope|
|000003a0| 6e 2d 6c 69 6e 65 29 29 | 0a 0a 28 6b 65 79 70 61 |n-line))|..(keypa|
|000003b0| 64 2d 64 65 66 61 75 6c | 74 20 22 31 22 20 28 71 |d-defaul|t "1" (q|
|000003c0| 75 6f 74 65 20 62 61 63 | 6b 77 61 72 64 2d 77 6f |uote bac|kward-wo|
|000003d0| 72 64 29 29 0a 0a 28 6b | 65 79 70 61 64 2d 64 65 |rd))..(k|eypad-de|
|000003e0| 66 61 75 6c 74 20 22 33 | 22 20 28 71 75 6f 74 65 |fault "3|" (quote|
|000003f0| 20 66 6f 72 77 61 72 64 | 2d 77 6f 72 64 29 29 0a | forward|-word)).|
|00000400| 0a 28 6b 65 79 70 61 64 | 2d 64 65 66 61 75 6c 74 |.(keypad|-default|
|00000410| 20 22 37 22 20 28 71 75 | 6f 74 65 20 62 61 63 6b | "7" (qu|ote back|
|00000420| 77 61 72 64 2d 70 61 72 | 61 67 72 61 70 68 29 29 |ward-par|agraph))|
|00000430| 0a 0a 28 6b 65 79 70 61 | 64 2d 64 65 66 61 75 6c |..(keypa|d-defaul|
|00000440| 74 20 22 39 22 20 28 71 | 75 6f 74 65 20 66 6f 72 |t "9" (q|uote for|
|00000450| 77 61 72 64 2d 70 61 72 | 61 67 72 61 70 68 29 29 |ward-par|agraph))|
|00000460| 0a 0a 28 6b 65 79 70 61 | 64 2d 64 65 66 61 75 6c |..(keypa|d-defaul|
|00000470| 74 20 22 68 22 20 28 71 | 75 6f 74 65 20 6d 6f 76 |t "h" (q|uote mov|
|00000480| 65 2d 74 6f 2d 77 69 6e | 64 6f 77 2d 6c 69 6e 65 |e-to-win|dow-line|
|00000490| 29 29 0a 0a 28 64 65 66 | 75 6e 20 73 65 74 75 70 |))..(def|un setup|
|000004a0| 2d 74 65 72 6d 69 6e 61 | 6c 2d 6b 65 79 6d 61 70 |-termina|l-keymap|
|000004b0| 20 28 6d 61 70 20 74 72 | 61 6e 73 6c 61 74 69 6f | (map tr|anslatio|
|000004c0| 6e 73 29 20 22 5c 0a 53 | 65 74 20 75 70 20 6b 65 |ns) "\.S|et up ke|
|000004d0| 79 6d 61 70 20 4d 41 50 | 20 74 6f 20 66 6f 72 77 |ymap MAP| to forw|
|000004e0| 61 72 64 20 74 6f 20 66 | 75 6e 63 74 69 6f 6e 2d |ard to f|unction-|
|000004f0| 6b 65 79 6d 61 70 20 61 | 63 63 6f 72 64 69 6e 67 |keymap a|ccording|
|00000500| 20 74 6f 20 54 52 41 4e | 53 4c 41 54 49 4f 4e 53 | to TRAN|SLATIONS|
|00000510| 2e 0a 54 52 41 4e 53 4c | 41 54 49 4f 4e 53 20 69 |..TRANSL|ATIONS i|
|00000520| 73 20 61 6e 20 61 6c 69 | 73 74 3b 20 65 61 63 68 |s an ali|st; each|
|00000530| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 69 74 20 6c | element| of it l|
|00000540| 6f 6f 6b 73 20 6c 69 6b | 65 20 28 46 52 4f 4d 53 |ooks lik|e (FROMS|
|00000550| 54 52 49 4e 47 20 2e 20 | 54 4f 43 48 41 52 29 2e |TRING . |TOCHAR).|
|00000560| 0a 46 6f 72 20 65 61 63 | 68 20 73 75 63 68 20 70 |.For eac|h such p|
|00000570| 61 69 72 2c 20 77 65 20 | 64 65 66 69 6e 65 20 74 |air, we |define t|
|00000580| 68 65 20 6b 65 79 20 73 | 65 71 75 65 6e 63 65 20 |he key s|equence |
|00000590| 46 52 4f 4d 53 54 52 49 | 4e 47 20 69 6e 20 4d 41 |FROMSTRI|NG in MA|
|000005a0| 50 0a 74 6f 20 66 6f 72 | 77 61 72 64 20 74 6f 20 |P.to for|ward to |
|000005b0| 74 68 65 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 6f |the defi|nition o|
|000005c0| 66 20 63 68 61 72 61 63 | 74 65 72 20 54 4f 43 48 |f charac|ter TOCH|
|000005d0| 41 52 20 69 6e 20 66 75 | 6e 63 74 69 6f 6e 2d 6b |AR in fu|nction-k|
|000005e0| 65 79 6d 61 70 2e 0a 5c | 22 46 6f 72 77 61 72 64 |eymap..\|"Forward|
|000005f0| 69 6e 67 5c 22 20 6d 65 | 61 6e 73 20 74 68 61 74 |ing\" me|ans that|
|00000600| 20 73 75 62 73 65 71 75 | 65 6e 74 20 72 65 64 65 | subsequ|ent rede|
|00000610| 66 69 6e 69 74 69 6f 6e | 20 6f 66 20 54 4f 43 48 |finition| of TOCH|
|00000620| 41 52 20 69 6e 0a 66 75 | 6e 63 74 69 6f 6e 2d 6b |AR in.fu|nction-k|
|00000630| 65 79 6d 61 70 20 77 69 | 6c 6c 20 62 65 20 73 65 |eymap wi|ll be se|
|00000640| 65 6e 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |en autom|atically|
|00000650| 20 69 6e 20 4d 41 50 20 | 61 73 20 77 65 6c 6c 2e | in MAP |as well.|
|00000660| 0a 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |..This f|unction |
|00000670| 69 73 20 75 73 65 64 20 | 62 79 20 66 69 6c 65 73 |is used |by files|
|00000680| 20 74 65 72 6d 2f 2a 2e | 65 6c 20 74 6f 20 73 65 | term/*.|el to se|
|00000690| 74 20 75 70 20 74 68 65 | 20 6d 61 70 70 69 6e 67 |t up the| mapping|
|000006a0| 20 66 72 6f 6d 20 74 68 | 65 0a 65 73 63 61 70 65 | from th|e.escape|
|000006b0| 20 73 65 71 75 65 6e 63 | 65 73 20 73 65 6e 74 20 | sequenc|es sent |
|000006c0| 62 79 20 66 75 6e 63 74 | 69 6f 6e 20 6b 65 79 73 |by funct|ion keys|
|000006d0| 20 6f 6e 20 70 61 72 74 | 69 63 75 6c 61 72 20 74 | on part|icular t|
|000006e0| 65 72 6d 69 6e 61 6c 73 | 20 28 46 52 4f 4d 53 54 |erminals| (FROMST|
|000006f0| 52 49 4e 47 73 29 0a 69 | 6e 74 6f 20 45 6d 61 63 |RINGs).i|nto Emac|
|00000700| 73 20 73 74 61 6e 64 61 | 72 64 20 66 75 6e 63 74 |s standa|rd funct|
|00000710| 69 6f 6e 20 6b 65 79 20 | 73 6c 6f 74 73 20 28 54 |ion key |slots (T|
|00000720| 4f 43 48 41 52 73 29 2e | 0a 41 6e 20 61 63 74 75 |OCHARs).|.An actu|
|00000730| 61 6c 20 64 65 66 69 6e | 69 74 69 6f 6e 20 28 73 |al defin|ition (s|
|00000740| 75 63 68 20 61 73 20 61 | 20 73 79 6d 62 6f 6c 29 |uch as a| symbol)|
|00000750| 20 6d 61 79 20 62 65 20 | 67 69 76 65 6e 20 69 6e | may be |given in|
|00000760| 20 70 6c 61 63 65 20 6f | 66 20 54 4f 43 48 41 52 | place o|f TOCHAR|
|00000770| 2e 0a 47 65 6e 65 72 61 | 6c 6c 79 2c 20 4d 41 50 |..Genera|lly, MAP|
|00000780| 20 69 73 20 61 20 70 72 | 65 66 69 78 20 6b 65 79 | is a pr|efix key|
|00000790| 6d 61 70 20 77 68 69 63 | 68 20 77 69 6c 6c 20 62 |map whic|h will b|
|000007a0| 65 20 61 74 74 61 63 68 | 65 64 20 74 6f 20 61 20 |e attach|ed to a |
|000007b0| 6b 65 79 0a 74 68 61 74 | 20 69 73 20 74 68 65 20 |key.that| is the |
|000007c0| 63 6f 6d 6d 6f 6e 20 70 | 72 65 66 69 78 20 73 65 |common p|refix se|
|000007d0| 6e 74 20 62 79 20 61 6c | 6c 20 66 75 6e 63 74 69 |nt by al|l functi|
|000007e0| 6f 6e 20 6b 65 79 73 20 | 28 6f 66 74 65 6e 20 45 |on keys |(often E|
|000007f0| 53 43 20 4f 20 6f 72 20 | 45 53 43 20 5b 29 2e 22 |SC O or |ESC [)."|
|00000800| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 85 26 | (byte-c|ode "..&|
|00000810| 00 c3 09 08 40 40 c4 08 | 40 41 21 83 19 00 0a 08 |....@@..|@A!.....|
|00000820| 40 41 42 82 1c 00 08 40 | 41 23 88 08 41 89 10 88 |@AB....@|A#..A...|
|00000830| 82 00 00 87 22 20 5b 74 | 72 61 6e 73 6c 61 74 69 |...." [t|ranslati|
|00000840| 6f 6e 73 20 6d 61 70 20 | 66 75 6e 63 74 69 6f 6e |ons map |function|
|00000850| 2d 6b 65 79 6d 61 70 20 | 64 65 66 69 6e 65 2d 6b |-keymap |define-k|
|00000860| 65 79 20 6e 75 6d 62 65 | 72 70 5d 20 37 29 29 0a |ey numbe|rp] 7)).|
|00000870| 0a 28 64 65 66 75 6e 20 | 66 75 6e 63 74 69 6f 6e |.(defun |function|
|00000880| 2d 6b 65 79 2d 73 65 71 | 75 65 6e 63 65 20 28 63 |-key-seq|uence (c|
|00000890| 68 61 72 29 20 22 5c 0a | 52 65 74 75 72 6e 20 6b |har) "\.|Return k|
|000008a0| 65 79 20 73 65 71 75 65 | 6e 63 65 20 66 6f 72 20 |ey seque|nce for |
|000008b0| 66 75 6e 63 74 69 6f 6e | 20 6b 65 79 20 74 68 61 |function| key tha|
|000008c0| 74 20 6f 6e 20 74 68 69 | 73 20 74 65 72 6d 69 6e |t on thi|s termin|
|000008d0| 61 6c 0a 74 72 61 6e 73 | 6c 61 74 65 73 20 69 6e |al.trans|lates in|
|000008e0| 74 6f 20 73 6c 6f 74 20 | 43 48 41 52 20 69 6e 20 |to slot |CHAR in |
|000008f0| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 6d 61 70 2e |function|-keymap.|
|00000900| 0a 4f 72 20 72 65 74 75 | 72 6e 20 6e 69 6c 20 69 |.Or retu|rn nil i|
|00000910| 66 20 74 68 65 72 65 20 | 69 73 20 6e 6f 6e 65 2e |f there |is none.|
|00000920| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 08 |" (byte-|code "..|
|00000930| 09 42 c3 20 5c 22 40 87 | 22 20 5b 66 75 6e 63 74 |.B. \"@.|" [funct|
|00000940| 69 6f 6e 2d 6b 65 79 6d | 61 70 20 63 68 61 72 20 |ion-keym|ap char |
|00000950| 77 68 65 72 65 2d 69 73 | 2d 69 6e 74 65 72 6e 61 |where-is|-interna|
|00000960| 6c 20 63 75 72 72 65 6e | 74 2d 6c 6f 63 61 6c 2d |l curren|t-local-|
|00000970| 6d 61 70 5d 20 34 29 29 | 0a 0a 28 70 72 6f 76 69 |map] 4))|..(provi|
|00000980| 64 65 20 28 71 75 6f 74 | 65 20 6b 65 79 70 61 64 |de (quot|e keypad|
|00000990| 29 29 0a                |                         |)).     |        |
+--------+-------------------------+-------------------------+--------+--------+