home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / kermit / ker_scp3.zip / EMACSKER.SCP next >
Internet Message Format  |  1988-09-27  |  5KB
  1. Date: Friday, 16 September 1988  23:42-MDT
  2. From: spolsky@Yale.EDU (Joel Spolsky)
  3. Newsgroups: comp.sys.ibm.pc
  4. Re:   Emacs / Kermit 2.31 keyboard script
  5. Keywords: emacs, kermit, communications, keyboard
  6.  
  7. A number of people have requested my MS-kermit script for Emacs users.
  8. This script allows the "ALT" key to function as the emacs Meta-key. It
  9. should work on any PC compatible keyboard. It also assigns reasonable
  10. functions to the cursor motion keys, Insert, and Delete. See the
  11. comments in the file for specifics.
  12.  
  13. Please let me know if (a) you find this useful or (b) you find any
  14. bugs / incompatabilities / things I forgot. 
  15.  
  16. I think the keyboard reassignment in previous versions of Kermit was
  17. different; to the best of my knowledge this will *only* work with 2.31
  18.  
  19. Enjoy!
  20.  
  21. Joel Spolsky             bitnet: spolsky@yalecs     uucp: ...!yale!spolsky
  22. Yale University          arpa:   spolsky@yale.edu   voicenet: 203-436-1483
  23. "You can't expect to wield supreme executive power just 'cause 
  24. some watery tart threw a sword at you!!"
  25.  
  26. -----cut here----8<-------
  27.  
  28. ; Emacs keyboard layout for Kermit 2.31
  29. ; by Joel Spolsky. Save this in a file, then
  30. ; initialize it by issuing the kermit command
  31. ; take filename
  32. ; It will set up the keyboard to allow ALT to be used
  33. ; as a meta-key, and will allow cursor keys to be used
  34. ; with emacs.
  35.  
  36. ; First, define all the ALT keys to send ESC+key
  37. ; to simulate "meta"
  38.  
  39. set key \2320 \27q  ;; letters: unshifted
  40. set key \2321 \27w
  41. set key \2322 \27e
  42. set key \2323 \27r
  43. set key \2324 \27t
  44. set key \2325 \27y
  45. set key \2326 \27u
  46. set key \2327 \27i
  47. set key \2328 \27o
  48. set key \2329 \27p
  49. set key \2334 \27a
  50. set key \2335 \27s
  51. set key \2336 \27d
  52. set key \2337 \27f
  53. set key \2338 \27g
  54. set key \2339 \27h
  55. set key \2340 \27j
  56. set key \2341 \27k
  57. set key \2342 \27l
  58. set key \2348 \27z
  59. set key \2349 \27x
  60. set key \2350 \27c
  61. set key \2351 \27v
  62. set key \2352 \27b
  63. set key \2353 \27n
  64. set key \2354 \27m
  65. set key \2832 \27Q ;; letters: shifted
  66. set key \2833 \27W
  67. set key \2834 \27E
  68. set key \2835 \27R
  69. set key \2836 \27T
  70. set key \2837 \27Y
  71. set key \2838 \27U
  72. set key \2839 \27I
  73. set key \2840 \27O
  74. set key \2841 \27P
  75. set key \2846 \27A
  76. set key \2847 \27S
  77. set key \2848 \27D
  78. set key \2849 \27F
  79. set key \2850 \27G
  80. set key \2851 \27H
  81. set key \2852 \27J
  82. set key \2853 \27K
  83. set key \2854 \27L
  84. set key \2860 \27Z
  85. set key \2861 \27X
  86. set key \2862 \27C
  87. set key \2863 \27V
  88. set key \2864 \27B
  89. set key \2865 \27N
  90. set key \2866 \27M
  91. set key \2857 \27\126    ; ALT + ~   ;; special symbols begin here
  92. set key \2345 \27\96     ; ALT + `
  93. set key \2936 \27\33     ; ALT + !
  94. set key \2937 \27\64     ; ALT + @
  95. set key \2938 \27\35     ; ALT + #
  96. set key \2939 \27\36     ; ALT + $
  97. set key \2940 \27\37     ; ALT + %
  98. set key \2941 \27\94     ; ALT + ^
  99. set key \2942 \27\38     ; ALT + &
  100. set key \2943 \27\42     ; ALT + *
  101. set key \2944 \27\40     ; ALT + (
  102. set key \2945 \27\41     ; ALT + )
  103. set key \2946 \27\95     ; ALT + _
  104. set key \2947 \27\43     ; ALT + +
  105. set key \2842 \27\123    ; ALT + {
  106. set key \2843 \27\125    ; ALT + }
  107. set key \2330 \27\91     ; ALT + [
  108. set key \2331 \27\93     ; ALT + ]
  109. set key \2859 \27\124    ; ALT + |
  110. set key \2347 \27\92     ; ALT + \
  111. set key \2867 \27<       ; ALT + <
  112. set key \2868 \27>       ; ALT + >
  113. set key \2343 \27\59     ; ALT + ;
  114. set key \2855 \27\58     ; ALT + :
  115. set key \2344 \27\39     ; ALT + '
  116. set key \2856 \27\34     ; ALT + "
  117. set key \2355 \27\44     ; ALT + ,
  118. set key \2356 \27\46     ; ALT + .
  119. set key \2357 \27\47     ; ALT + /
  120. set key \2869 \27\63     ; ALT + ?
  121. set key \2424 \27\49  ;; numbers
  122. set key \2425 \27\50
  123. set key \2426 \27\51
  124. set key \2427 \27\52
  125. set key \2428 \27\53
  126. set key \2429 \27\54
  127. set key \2430 \27\55
  128. set key \2431 \27\56
  129. set key \2432 \27\57
  130. set key \2433 \27\48
  131. ;; known bug: I haven't done the Meta-Ctrl combinations. (does anybody
  132. ;; use these?)
  133.  
  134.  
  135. ;; These 6 special keys for extended (PS/2) keyboards:
  136. set key \4434 \25      ;; Insert is like ^Y - yank from kill ring
  137. set key \4435 \23      ;; Delete is like ^W - kill to ring
  138. set key \4423 \1       ;; Home is ^A
  139. set key \4431 \5       ;; End is ^E
  140. set key \4425 \27V     ;; Page up is Esc-V
  141. set key \4433 \22      ;; Page dn is ^v
  142.  
  143. set key \328 \16       ;; up cursor is ^P
  144. set key \331 \2        ;; left cursor is ^B
  145. set key \333 \6        ;; right cursor is ^F
  146. set key \336 \14       ;; down cursor is ^N
  147. set key \4427 \2       ;; left cursor on extended kbd
  148. set key \4432 \14      ;; down cursor on extended kbd
  149. set key \4424 \16      ;; up cursor on extended kbd
  150. set key \4429 \6       ;; right cursor on extended kbd
  151.  
  152. set key \5491 \27b     ;; ctrl-left cursor is M-b (left word)
  153. set key \5492 \27f     ;; ctrl-right cursor is M-f (right word)
  154.  
  155. ;; move kermit's screen scroll (playback) features to Alt- Home,End,PgUp,PgDn
  156. ;; (if you are on an extended keyboard, the PgUp, PgDn, Home and End
  157. ;; keys are reassigned to do logical emacs things. If you wish to scroll
  158. ;; the kermit memory, use ALT with the keys).
  159.  
  160. set key \2455 \khomscn
  161. set key \2463 \kendscn
  162. set key \2457 \kupscn
  163. set key \2465 \kdnscn
  164.