![[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.