home *** CD-ROM | disk | FTP | other *** search
- ;;; This kermit script maps the IBM-PC keyboard for use with Gnu Emacs.
- ;;; The ALT key is used to generate Meta characters and, in conjunction
- ;;; with the CTRL key, Control-Meta characters. A few other useful
- ;;; mappings are also performed.
- ;;; Andy Lowry, May 1989
-
- ;;; Exchange ESC and backquote... tilde stays put (shift-backquote)
- set key \27 `
- set key ` \27
-
- ;;; BACKSPACE deletes backward one character
- set key scan \270 \127
-
- ;;; The following mappings affect certain special keys... all the keys
- ;;; are duplicated on the numeric keypad when NUM LOCK is off, but
- ;;; the keypad versions are NOT mapped (string definition space too small
- ;;; for that)
-
- ;;; INSERT toggles overwrite mode
- set key scan \4434 \27xoverwrite-mode\13
- ;;; HOME moves point to beginning of buffer
- set key scan \4423 \27<
- ;;; PAGE-UP scrolls backward one screen
- set key scan \4425 \27v
- ;;; DELETE deletes one character *forward*
- set key scan \4435 \4
- ;;; END moves point to end of buffer
- set key scan \4431 \27>
- ;;; PAGE-DOWN scrolls forward one screen
- set key scan \4433 \22
- ;;; ARROW keys move in the appropriate directions
- set key scan \4424 \16
- set key scan \4427 \2
- set key scan \4432 \14
- set key scan \4429 \6
-
- ;;; META versions of all the printing characters except uppercase
- ;;; letters are generated by using the ALT key. The definition string
- ;;; consists of an ESC character followed by the META-ized character.
- ;;; The characters are listed roughly left-to-right and top-to-bottom
- ;;; as they appear on the keyboard
- set key scan \2345 \27`
- set key scan \2424 \27\o61 ; need to use char code, since digit
- set key scan \2425 \27\o62 ; would not terminate '\27'
- set key scan \2426 \27\o63
- set key scan \2427 \27\o64
- set key scan \2428 \27\o65
- set key scan \2429 \27\o66
- set key scan \2430 \27\o67
- set key scan \2431 \27\o70
- set key scan \2432 \27\o71
- set key scan \2433 \27\o60
- set key scan \2434 \27\45
- set key scan \2435 \27=
- set key scan \2857 \27~
- set key scan \2936 \27!
- set key scan \2937 \27@
- set key scan \2938 \27#
- set key scan \2939 \27$
- set key scan \2940 \27%
- set key scan \2941 \27^
- set key scan \2942 \27&
- set key scan \2943 \27*
- set key scan \2944 \27(
- set key scan \2945 \27)
- set key scan \2946 \27_
- set key scan \2947 \27+
- set key scan \2469 \27\9
- set key scan \2320 \27q
- set key scan \2321 \27w
- set key scan \2322 \27e
- set key scan \2323 \27r
- set key scan \2324 \27t
- set key scan \2325 \27y
- set key scan \2326 \27u
- set key scan \2327 \27i
- set key scan \2328 \27o
- set key scan \2329 \27p
- set key scan \2330 \27[
- set key scan \2842 \27{
- set key scan \2331 \27]
- set key scan \2843 \27}
- set key scan \2347 \27\
- set key scan \2859 \27|
- set key scan \2334 \27a
- set key scan \2335 \27s
- set key scan \2336 \27d
- set key scan \2337 \27f
- set key scan \2338 \27g
- set key scan \2339 \27h
- set key scan \2340 \27j
- set key scan \2341 \27k
- set key scan \2342 \27l
- set key scan \2343 \27\59
- set key scan \2855 \27:
- set key scan \2344 \27'
- set key scan \2856 \27"
- set key scan \2348 \27z
- set key scan \2349 \27x
- set key scan \2350 \27c
- set key scan \2351 \27v
- set key scan \2352 \27b
- set key scan \2353 \27n
- set key scan \2354 \27m
- set key scan \2355 \27,
- set key scan \2867 \27<
- set key scan \2356 \27.
- set key scan \2868 \27>
- set key scan \2357 \27/
- set key scan \2869 \27?
-
- ;;; CONTROL-META characters are generated by using both the CTRL and
- ;;; ALT keys simultaneously. All the lowercase letters are included.
- ;;; The definition string consists of an ESC character followed by
- ;;; the control character corresponding to the letter.
- set key scan \3344 \27\17
- set key scan \3345 \27\23
- set key scan \3346 \27\5
- set key scan \3347 \27\18
- set key scan \3348 \27\20
- set key scan \3349 \27\25
- set key scan \3350 \27\21
- set key scan \3351 \27\9
- set key scan \3352 \27\15
- set key scan \3353 \27\16
- set key scan \3358 \27\1
- set key scan \3359 \27\19
- set key scan \3360 \27\4
- set key scan \3361 \27\6
- set key scan \3362 \27\7
- set key scan \3363 \27\8
- set key scan \3364 \27\10
- set key scan \3365 \27\11
- set key scan \3366 \27\12
- set key scan \3372 \27\26
- set key scan \3373 \27\24
- set key scan \3374 \27\3
- set key scan \3375 \27\22
- set key scan \3376 \27\2
- set key scan \3377 \27\14
- set key scan \3378 \27\13
-