spolsky@Yale.EDU (Joel Spolsky) (09/17/88)
A number of people have requested my MS-kermit script for Emacs users.
This script allows the "ALT" key to function as the emacs Meta-key. It
should work on any PC compatible keyboard. It also assigns reasonable
functions to the cursor motion keys, Insert, and Delete. See the
comments in the file for specifics.
Please let me know if (a) you find this useful or (b) you find any
bugs / incompatabilities / things I forgot.
I think the keyboard reassignment in previous versions of Kermit was
different; to the best of my knowledge this will *only* work with 2.31
Enjoy!
Joel Spolsky bitnet: spolsky@yalecs uucp: ...!yale!spolsky
Yale University arpa: spolsky@yale.edu voicenet: 203-436-1483
"You can't expect to wield supreme executive power just 'cause
some watery tart threw a sword at you!!"
-----cut here----8<-------
; Emacs keyboard layout for Kermit 2.31
; by Joel Spolsky. Save this in a file, then
; initialize it by issuing the kermit command
; take filename
; It will set up the keyboard to allow ALT to be used
; as a meta-key, and will allow cursor keys to be used
; with emacs.
; First, define all the ALT keys to send ESC+key
; to simulate "meta"
set key \2320 \27q ;; letters: unshifted
set key \2321 \27w
set key \2322 \27e
set key \2323 \27r
set key \2324 \27t
set key \2325 \27y
set key \2326 \27u
set key \2327 \27i
set key \2328 \27o
set key \2329 \27p
set key \2334 \27a
set key \2335 \27s
set key \2336 \27d
set key \2337 \27f
set key \2338 \27g
set key \2339 \27h
set key \2340 \27j
set key \2341 \27k
set key \2342 \27l
set key \2348 \27z
set key \2349 \27x
set key \2350 \27c
set key \2351 \27v
set key \2352 \27b
set key \2353 \27n
set key \2354 \27m
set key \2832 \27Q ;; letters: shifted
set key \2833 \27W
set key \2834 \27E
set key \2835 \27R
set key \2836 \27T
set key \2837 \27Y
set key \2838 \27U
set key \2839 \27I
set key \2840 \27O
set key \2841 \27P
set key \2846 \27A
set key \2847 \27S
set key \2848 \27D
set key \2849 \27F
set key \2850 \27G
set key \2851 \27H
set key \2852 \27J
set key \2853 \27K
set key \2854 \27L
set key \2860 \27Z
set key \2861 \27X
set key \2862 \27C
set key \2863 \27V
set key \2864 \27B
set key \2865 \27N
set key \2866 \27M
set key \2857 \27\126 ; ALT + ~ ;; special symbols begin here
set key \2345 \27\96 ; ALT + `
set key \2936 \27\33 ; ALT + !
set key \2937 \27\64 ; ALT + @
set key \2938 \27\35 ; ALT + #
set key \2939 \27\36 ; ALT + $
set key \2940 \27\37 ; ALT + %
set key \2941 \27\94 ; ALT + ^
set key \2942 \27\38 ; ALT + &
set key \2943 \27\42 ; ALT + *
set key \2944 \27\40 ; ALT + (
set key \2945 \27\41 ; ALT + )
set key \2946 \27\95 ; ALT + _
set key \2947 \27\43 ; ALT + +
set key \2842 \27\123 ; ALT + {
set key \2843 \27\125 ; ALT + }
set key \2330 \27\91 ; ALT + [
set key \2331 \27\93 ; ALT + ]
set key \2859 \27\124 ; ALT + |
set key \2347 \27\92 ; ALT + \
set key \2867 \27< ; ALT + <
set key \2868 \27> ; ALT + >
set key \2343 \27\59 ; ALT + ;
set key \2855 \27\58 ; ALT + :
set key \2344 \27\39 ; ALT + '
set key \2856 \27\34 ; ALT + "
set key \2355 \27\44 ; ALT + ,
set key \2356 \27\46 ; ALT + .
set key \2357 \27\47 ; ALT + /
set key \2869 \27\63 ; ALT + ?
set key \2424 \27\49 ;; numbers
set key \2425 \27\50
set key \2426 \27\51
set key \2427 \27\52
set key \2428 \27\53
set key \2429 \27\54
set key \2430 \27\55
set key \2431 \27\56
set key \2432 \27\57
set key \2433 \27\48
;; known bug: I haven't done the Meta-Ctrl combinations. (does anybody
;; use these?)
;; These 6 special keys for extended (PS/2) keyboards:
set key \4434 \25 ;; Insert is like ^Y - yank from kill ring
set key \4435 \23 ;; Delete is like ^W - kill to ring
set key \4423 \1 ;; Home is ^A
set key \4431 \5 ;; End is ^E
set key \4425 \27V ;; Page up is Esc-V
set key \4433 \22 ;; Page dn is ^v
set key \328 \16 ;; up cursor is ^P
set key \331 \2 ;; left cursor is ^B
set key \333 \6 ;; right cursor is ^F
set key \336 \14 ;; down cursor is ^N
set key \4427 \2 ;; left cursor on extended kbd
set key \4432 \14 ;; down cursor on extended kbd
set key \4424 \16 ;; up cursor on extended kbd
set key \4429 \6 ;; right cursor on extended kbd
set key \5491 \27b ;; ctrl-left cursor is M-b (left word)
set key \5492 \27f ;; ctrl-right cursor is M-f (right word)
;; move kermit's screen scroll (playback) features to Alt- Home,End,PgUp,PgDn
;; (if you are on an extended keyboard, the PgUp, PgDn, Home and End
;; keys are reassigned to do logical emacs things. If you wish to scroll
;; the kermit memory, use ALT with the keys).
set key \2455 \khomscn
set key \2463 \kendscn
set key \2457 \kupscn
set key \2465 \kdnscn