|
0
|
1 ;;; This file is designed for 7-bit connections.
|
|
|
2 ;;; Use the file ms-kermit if you have an 8-bit connection.
|
|
|
3
|
|
|
4 ;;; This kermit script maps the IBM-PC keyboard for use with Gnu Emacs.
|
|
|
5 ;;; The ALT key is used to generate Meta characters and, in conjunction
|
|
|
6 ;;; with the CTRL key, Control-Meta characters. A few other useful
|
|
|
7 ;;; mappings are also performed.
|
|
|
8 ;;; Andy Lowry, May 1989
|
|
|
9
|
|
|
10 ;;; Exchange ESC and backquote... tilde stays put (shift-backquote)
|
|
|
11 set key \27 `
|
|
|
12 set key ` \27
|
|
|
13
|
|
|
14 ;;; BACKSPACE deletes backward one character
|
|
|
15 set key scan \270 \127
|
|
|
16
|
|
|
17 ;;; The following mappings affect certain special keys... all the keys
|
|
|
18 ;;; are duplicated on the numeric keypad when NUM LOCK is off, but
|
|
|
19 ;;; the keypad versions are NOT mapped (string definition space too small
|
|
|
20 ;;; for that)
|
|
|
21
|
|
|
22 ;;; INSERT toggles overwrite mode
|
|
|
23 set key scan \4434 \27xoverwrite-mode\13
|
|
|
24 ;;; HOME moves point to beginning of buffer
|
|
|
25 set key scan \4423 \27<
|
|
|
26 ;;; PAGE-UP scrolls backward one screen
|
|
|
27 set key scan \4425 \27v
|
|
|
28 ;;; DELETE deletes one character *forward*
|
|
|
29 set key scan \4435 \4
|
|
|
30 ;;; END moves point to end of buffer
|
|
|
31 set key scan \4431 \27>
|
|
|
32 ;;; PAGE-DOWN scrolls forward one screen
|
|
|
33 set key scan \4433 \22
|
|
|
34 ;;; ARROW keys move in the appropriate directions
|
|
|
35 set key scan \4424 \16
|
|
|
36 set key scan \4427 \2
|
|
|
37 set key scan \4432 \14
|
|
|
38 set key scan \4429 \6
|
|
|
39
|
|
|
40 ;;; META versions of all the printing characters except uppercase
|
|
|
41 ;;; letters are generated by using the ALT key. The definition string
|
|
|
42 ;;; consists of an ESC character followed by the META-ized character.
|
|
|
43 ;;; The characters are listed roughly left-to-right and top-to-bottom
|
|
|
44 ;;; as they appear on the keyboard
|
|
|
45 set key scan \2345 \27`
|
|
|
46 set key scan \2424 \27\o61 ; need to use char code, since digit
|
|
|
47 set key scan \2425 \27\o62 ; would not terminate '\27'
|
|
|
48 set key scan \2426 \27\o63
|
|
|
49 set key scan \2427 \27\o64
|
|
|
50 set key scan \2428 \27\o65
|
|
|
51 set key scan \2429 \27\o66
|
|
|
52 set key scan \2430 \27\o67
|
|
|
53 set key scan \2431 \27\o70
|
|
|
54 set key scan \2432 \27\o71
|
|
|
55 set key scan \2433 \27\o60
|
|
|
56 set key scan \2434 \27\45
|
|
|
57 set key scan \2435 \27=
|
|
|
58 set key scan \2857 \27~
|
|
|
59 set key scan \2936 \27!
|
|
|
60 set key scan \2937 \27@
|
|
|
61 set key scan \2938 \27#
|
|
|
62 set key scan \2939 \27$
|
|
|
63 set key scan \2940 \27%
|
|
|
64 set key scan \2941 \27^
|
|
|
65 set key scan \2942 \27&
|
|
|
66 set key scan \2943 \27*
|
|
|
67 set key scan \2944 \27(
|
|
|
68 set key scan \2945 \27)
|
|
|
69 set key scan \2946 \27_
|
|
|
70 set key scan \2947 \27+
|
|
|
71 set key scan \2469 \27\9
|
|
|
72 set key scan \2320 \27q
|
|
|
73 set key scan \2321 \27w
|
|
|
74 set key scan \2322 \27e
|
|
|
75 set key scan \2323 \27r
|
|
|
76 set key scan \2324 \27t
|
|
|
77 set key scan \2325 \27y
|
|
|
78 set key scan \2326 \27u
|
|
|
79 set key scan \2327 \27i
|
|
|
80 set key scan \2328 \27o
|
|
|
81 set key scan \2329 \27p
|
|
|
82 set key scan \2330 \27[
|
|
|
83 set key scan \2842 \27{
|
|
|
84 set key scan \2331 \27]
|
|
|
85 set key scan \2843 \27}
|
|
|
86 set key scan \2347 \27\
|
|
|
87 set key scan \2859 \27|
|
|
|
88 set key scan \2334 \27a
|
|
|
89 set key scan \2335 \27s
|
|
|
90 set key scan \2336 \27d
|
|
|
91 set key scan \2337 \27f
|
|
|
92 set key scan \2338 \27g
|
|
|
93 set key scan \2339 \27h
|
|
|
94 set key scan \2340 \27j
|
|
|
95 set key scan \2341 \27k
|
|
|
96 set key scan \2342 \27l
|
|
|
97 set key scan \2343 \27\59
|
|
|
98 set key scan \2855 \27:
|
|
|
99 set key scan \2344 \27'
|
|
|
100 set key scan \2856 \27"
|
|
|
101 set key scan \2348 \27z
|
|
|
102 set key scan \2349 \27x
|
|
|
103 set key scan \2350 \27c
|
|
|
104 set key scan \2351 \27v
|
|
|
105 set key scan \2352 \27b
|
|
|
106 set key scan \2353 \27n
|
|
|
107 set key scan \2354 \27m
|
|
|
108 set key scan \2355 \27,
|
|
|
109 set key scan \2867 \27<
|
|
|
110 set key scan \2356 \27.
|
|
|
111 set key scan \2868 \27>
|
|
|
112 set key scan \2357 \27/
|
|
|
113 set key scan \2869 \27?
|
|
|
114
|
|
|
115 ;;; CONTROL-META characters are generated by using both the CTRL and
|
|
|
116 ;;; ALT keys simultaneously. All the lowercase letters are included.
|
|
|
117 ;;; The definition string consists of an ESC character followed by
|
|
|
118 ;;; the control character corresponding to the letter.
|
|
|
119 set key scan \3344 \27\17
|
|
|
120 set key scan \3345 \27\23
|
|
|
121 set key scan \3346 \27\5
|
|
|
122 set key scan \3347 \27\18
|
|
|
123 set key scan \3348 \27\20
|
|
|
124 set key scan \3349 \27\25
|
|
|
125 set key scan \3350 \27\21
|
|
|
126 set key scan \3351 \27\9
|
|
|
127 set key scan \3352 \27\15
|
|
|
128 set key scan \3353 \27\16
|
|
|
129 set key scan \3358 \27\1
|
|
|
130 set key scan \3359 \27\19
|
|
|
131 set key scan \3360 \27\4
|
|
|
132 set key scan \3361 \27\6
|
|
|
133 set key scan \3362 \27\7
|
|
|
134 set key scan \3363 \27\8
|
|
|
135 set key scan \3364 \27\10
|
|
|
136 set key scan \3365 \27\11
|
|
|
137 set key scan \3366 \27\12
|
|
|
138 set key scan \3372 \27\26
|
|
|
139 set key scan \3373 \27\24
|
|
|
140 set key scan \3374 \27\3
|
|
|
141 set key scan \3375 \27\22
|
|
|
142 set key scan \3376 \27\2
|
|
|
143 set key scan \3377 \27\14
|
|
|
144 set key scan \3378 \27\13
|
|
|
145
|
|
|
146 end of msiem2.ini
|
|
|
147 ------------------
|
|
|
148
|
|
|
149 msiema.hlp
|
|
|
150 -----------
|
|
|
151 Date: Wed, 14 Sep 88 05:20:08 GMT
|
|
|
152 From: spolsky@YALE.ARPA
|
|
|
153 Subject: Using MS kermit 2.31 with emacs
|
|
|
154 Keywords: MS-DOS Kermit 2.31, EMACS, Meta Key
|
|
|
155
|
|
|
156 If you are using kermit (version 2.31 only) with emacs on a mainframe, the
|
|
|
157 following file may help you. It assigns all the Alt-keys so that the Alt key
|
|
|
158 may be used as a "Meta" shift, e.g. Alt-x produces M-x, etc. Note that it
|
|
|
159 will distinguish correctly between upper and lower case and accepts all
|
|
|
160 printables. (If anybody has the patience to do the Meta-Ctrl combinations,
|
|
|
161 please post them!) This actually sends "escapes" so you don't need 8 bits.
|
|
|
162 This file also sets up the cursor keys to behave as expected.
|
|
|
163
|
|
|
164 On extended keyboards (the ones with a separate cursor pad, like PS/2s) you
|
|
|
165 also get assignments for Page Up/Down, Home, End, Insert, Delete, etc.
|
|
|
166
|
|
|
167 Please let me know if you find any problems with this.
|
|
|
168
|
|
|
169 Joel Spolsky bitnet: spolsky@yalecs uucp: ...!yale!spolsky
|
|
|
170 Yale University arpa: spolsky@yale.edu voicenet: 203-436-1483
|
|
|
171
|
|
|
172 [Ed. - Thanks, Joel! Your key definitions file has been put in the kermit
|
|
|
173 distribution area as msiema.ini ("ms" for MS-Kermit, "i" because it's an
|
|
|
174 initialization file, "ema" for EMACS), along with this message as msiema.hlp.]
|
|
|
175
|
|
|
176 end of msiema.hlp
|
|
|
177 -----------------
|
|
|
178
|
|
|
179
|
|
|
180 msiema.ini
|
|
|
181 ------------
|
|
|
182 ; Emacs keyboard layout for Kermit 2.31
|
|
|
183 ; by Joel Spolsky, Yale Univ. Save this in a file, then
|
|
|
184 ; initialize it by issuing the kermit command
|
|
|
185 ; take filename
|
|
|
186 ; It will set up the keyboard to allow ALT to be used
|
|
|
187 ; as a meta-key, and will allow cursor keys to be used
|
|
|
188 ; with emacs.
|
|
|
189
|
|
|
190 ; First, define all the ALT keys to send ESC+key
|
|
|
191 ; to simulate "meta"
|
|
|
192
|
|
|
193 set key \2320 \27q ;; letters: unshifted
|
|
|
194 set key \2321 \27w
|
|
|
195 set key \2322 \27e
|
|
|
196 set key \2323 \27r
|
|
|
197 set key \2324 \27t
|
|
|
198 set key \2325 \27y
|
|
|
199 set key \2326 \27u
|
|
|
200 set key \2327 \27i
|
|
|
201 set key \2328 \27o
|
|
|
202 set key \2329 \27p
|
|
|
203 set key \2334 \27a
|
|
|
204 set key \2335 \27s
|
|
|
205 set key \2336 \27d
|
|
|
206 set key \2337 \27f
|
|
|
207 set key \2338 \27g
|
|
|
208 set key \2339 \27h
|
|
|
209 set key \2340 \27j
|
|
|
210 set key \2341 \27k
|
|
|
211 set key \2342 \27l
|
|
|
212 set key \2348 \27z
|
|
|
213 set key \2349 \27x
|
|
|
214 set key \2350 \27c
|
|
|
215 set key \2351 \27v
|
|
|
216 set key \2352 \27b
|
|
|
217 set key \2353 \27n
|
|
|
218 set key \2354 \27m
|
|
|
219 set key \2832 \27Q ;; letters: shifted
|
|
|
220 set key \2833 \27W
|
|
|
221 set key \2834 \27E
|
|
|
222 set key \2835 \27R
|
|
|
223 set key \2836 \27T
|
|
|
224 set key \2837 \27Y
|
|
|
225 set key \2838 \27U
|
|
|
226 set key \2839 \27I
|
|
|
227 set key \2840 \27O
|
|
|
228 set key \2841 \27P
|
|
|
229 set key \2846 \27A
|
|
|
230 set key \2847 \27S
|
|
|
231 set key \2848 \27D
|
|
|
232 set key \2849 \27F
|
|
|
233 set key \2850 \27G
|
|
|
234 set key \2851 \27H
|
|
|
235 set key \2852 \27J
|
|
|
236 set key \2853 \27K
|
|
|
237 set key \2854 \27L
|
|
|
238 set key \2860 \27Z
|
|
|
239 set key \2861 \27X
|
|
|
240 set key \2862 \27C
|
|
|
241 set key \2863 \27V
|
|
|
242 set key \2864 \27B
|
|
|
243 set key \2865 \27N
|
|
|
244 set key \2866 \27M
|
|
|
245 set key \2857 \27\126 ; ALT + ~ ;; special symbols begin here
|
|
|
246 set key \2345 \27\96 ; ALT + `
|
|
|
247 set key \2936 \27\33 ; ALT + !
|
|
|
248 set key \2937 \27\64 ; ALT + @
|
|
|
249 set key \2938 \27\35 ; ALT + #
|
|
|
250 set key \2939 \27\36 ; ALT + $
|
|
|
251 set key \2940 \27\37 ; ALT + %
|
|
|
252 set key \2941 \27\94 ; ALT + ^
|
|
|
253 set key \2942 \27\38 ; ALT + &
|
|
|
254 set key \2943 \27\42 ; ALT + *
|
|
|
255 set key \2944 \27\40 ; ALT + (
|
|
|
256 set key \2945 \27\41 ; ALT + )
|
|
|
257 set key \2946 \27\95 ; ALT + _
|
|
|
258 set key \2947 \27\43 ; ALT + +
|
|
|
259 set key \2842 \27\123 ; ALT + {
|
|
|
260 set key \2843 \27\125 ; ALT + }
|
|
|
261 set key \2330 \27\91 ; ALT + [
|
|
|
262 set key \2331 \27\93 ; ALT + ]
|
|
|
263 set key \2859 \27\124 ; ALT + :
|
|
|
264 set key \2347 \27\92 ; ALT + \
|
|
|
265 set key \2867 \27< ; ALT + <
|
|
|
266 set key \2868 \27> ; ALT + >
|
|
|
267 set key \2343 \27\59 ; ALT + ;
|
|
|
268 set key \2855 \27\58 ; ALT + :
|
|
|
269 set key \2344 \27\39 ; ALT + '
|
|
|
270 set key \2856 \27\34 ; ALT + "
|
|
|
271 set key \2355 \27\44 ; ALT + ,
|
|
|
272 set key \2356 \27\46 ; ALT + .
|
|
|
273 set key \2357 \27\47 ; ALT + /
|
|
|
274 set key \2869 \27\63 ; ALT + ?
|
|
|
275 set key \2424 \27\49 ;; numbers
|
|
|
276 set key \2425 \27\50
|
|
|
277 set key \2426 \27\51
|
|
|
278 set key \2427 \27\52
|
|
|
279 set key \2428 \27\53
|
|
|
280 set key \2429 \27\54
|
|
|
281 set key \2430 \27\55
|
|
|
282 set key \2431 \27\56
|
|
|
283 set key \2432 \27\57
|
|
|
284 set key \2433 \27\48
|
|
|
285
|
|
|
286 ;; These 6 special keys for extended (PS/2) keyboards:
|
|
|
287 set key \4434 \25 ;; Insert is like ^Y - yank from kill ring
|
|
|
288 set key \4435 \23 ;; Delete is like ^W - kill to ring
|
|
|
289 set key \4423 \1 ;; Home is ^A
|
|
|
290 set key \4431 \5 ;; End is ^E
|
|
|
291 set key \4425 \27V ;; Page up is Esc-V
|
|
|
292 set key \4433 \22 ;; Page dn is ^v
|
|
|
293
|
|
|
294 set key \328 \16 ;; up cursor is ^P
|
|
|
295 set key \331 \2 ;; left cursor is ^B
|
|
|
296 set key \333 \6 ;; right cursor is ^F
|
|
|
297 set key \336 \14 ;; down cursor is ^N
|
|
|
298 set key \4427 \2 ;; left cursor on extended kbd
|
|
|
299 set key \4432 \14 ;; down cursor on extended kbd
|
|
|
300 set key \4424 \16 ;; up cursor on extended kbd
|
|
|
301 set key \4429 \6 ;; right cursor on extended kbd
|
|
|
302
|
|
|
303 set key \5491 \27b ;; ctrl-left cursor is M-b
|
|
|
304 set key \5492 \27f ;; ctrl-right cursor is M-f
|
|
|
305
|
|
|
306 ;; move kermit's screen scroll (playback) features to Alt- Home,End,PgUp,PgDn
|
|
|
307 ;; (this is an issue for extended keyboards only)
|
|
|
308
|
|
|
309 set key \2455 \khomscn
|
|
|
310 set key \2463 \kendscn
|
|
|
311 set key \2457 \kupscn
|
|
|
312 set key \2465 \kdnscn
|
