![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ms-kermit-7bit CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / emacs / etc|
Return to ms-kermit-7bit CVS log | Up to [Apple XNU] / GNUtools / emacs / etc |
1.1 root 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: [email protected]
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: [email protected] 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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.