home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / cpm / emacs / emacssrc.lzh / mapping.h < prev    next >
Text File  |  1992-03-11  |  5KB  |  194 lines
  1. /* the OV macro is for overlays; the BI macro is for built-ins */
  2.  
  3. #ifdef OLDMAP
  4. BI( 0x1f&'@',    &gotobol )    /* ZMAP */
  5.     /* ^A == TVI magic prefix */
  6. BI( 0x1f&'B',    &backword )    /* ZMAP */
  7. OV( 0x1f&'C',    23, 2 )        /* forwpage ZMAP */
  8. BI( 0x1f&'D',    &forwdel )    /* ZMAp */
  9. BI( 0x1f&'E',    &gotoeol )
  10. #else
  11. OV( 0x1f&'@',    31, 12 )    /* gotobol ZMAP */
  12.     /* ^A == TVI magic prefix */
  13. OV( 0x1f&'B',    31, 3 )        /* wordback ZMAP */
  14. OV( 0x1f&'C',    31, 10 )    /* forwpage ZMAP */
  15. OV( 0x1f&'D',    31, 6  )    /* forwdel ZMAP */
  16. OV( 0x1f&'E',    31, 13 )    /* gotoeol ZMAP */
  17. #endif
  18.  
  19.  
  20.  
  21.  
  22. #ifdef OLDMAP
  23. BI( 0x1f&'F',    &forwword )    /* ZMAP */
  24. #else
  25. OV( 0x1f&'F',    31, 2 )    /* forwword ZMAP */
  26. #endif
  27.  
  28. BI( 0x1f&'G',    &ctrlg )    /* ZMAP */
  29. BI( 0x1f&'H',    &backchar )    /* ZMAP */
  30.  
  31. #ifdef OLDMAP
  32. BI( 0x1f&'I',    &tab )        /* ZMAP */
  33. OV( 0x1f&'J',    22, 0 )        /* forwline ZMAP */
  34. OV( 0x1f&'K',    22, 1 )        /* backline, ZMAP */
  35. #else
  36. OV( 0x1f&'I',    31, 40 )        /* tab, ZMAP */
  37. OV( 0x1f&'J',    31, 0 )        /* forwline ZMAP */
  38. OV( 0x1f&'K',    31, 1 )        /* backline, ZMAP */
  39. #endif
  40.  
  41. BI( 0x1f&'L',    &forwchar )    /* ZMAP */
  42.  
  43. #ifdef OLDMAP
  44. OV( 0x1f&'M',    26, 0 )        /* indent ZMAP */
  45. #else
  46. OV( 0x1f&'M',    31, 42 )    /* indent ZMAP */
  47. #endif
  48.  
  49. OV( 0x1f&'N',    2, 0 )        /* fsearch ZMAP */
  50.  
  51. #ifdef OLDMAP
  52. OV( 0x1f&'O',    26, 1 )        /* openline */
  53. #else
  54. OV( 0x1f&'O',    31, 41 )    /* openline */
  55. #endif
  56.  
  57. OV( 0x1f&'P',    1, 0 )        /* bsearch, ZMAP */
  58.     /* ^Q available */
  59.  
  60. #ifdef OLDMAP
  61. OV( 0x1f&'R',    23, 3 )        /* backpage ZMAP */
  62. #else
  63. OV( 0x1f&'R',    31, 11 )    /* backpage ZMAP */
  64. #endif
  65.  
  66.     /* ^S available */
  67.     /* ^T findchar ZMAP */
  68.     /* ^U parameter introducer ZMAP */
  69.  
  70. #ifdef OLDMAP
  71. OV( 0x1f&'V',    22, 0 )        /* forwline TVI arrow */
  72. #else
  73. OV( 0x1f&'V',    31, 0 )        /* forwline TVI arrow */
  74. #endif
  75.  
  76.     /* ^W */
  77.     /* ^X ZMAP prefix */
  78.  
  79. #ifdef OLDMAP
  80. OV( 0x1f&'Y',    25, 1 )        /* ????yank */
  81. #else
  82. OV( 0x1f&'Y',    31, 44 )    /* ????yank */
  83. #endif
  84.  
  85. #ifdef OLDMAP
  86. OV( 0x1f&'Z',    24, 1 )        /* swapmark, TVI CLEAR key */
  87. #else
  88. OV( 0x1f&'Z',    31, 46 )        /* swapmark, TVI CLEAR key */
  89. #endif
  90.  
  91.     /* ^[ META prefix ZMAP */
  92.     /* ^\ negative parameter introducer ZMAP */
  93.     /* ^] */
  94. OV( 0x1f&'^',    16, 1 )    /* next buffer, TVI HOME key */
  95.     /* ^_ */
  96.  
  97.     /* space to twiddle (0x20 to 0x7e) self-insert */
  98.  
  99. #ifdef OLDMAP
  100. BI( 0x7F,    &backdel )    /* ZMAP */
  101. #else
  102. OV( 0x7F,    31, 7 )        /* backdel ZMAP */
  103. #endif
  104.  
  105. /* META-control: mostly not used for now */
  106.  
  107. OV( META|(0x1f&'Z'), 30, 1 )        /* quick save and exit    */
  108.  
  109.  
  110. /* M-punctuation: mostly not used for now */
  111.  
  112. #ifdef OLDMAP
  113. OV( META|'*',    24, 0 )        /* setmark TVI SHIFT-CLEAR key */
  114. #else
  115. OV( META|'*',    31, 45 )    /* setmark TVI SHIFT-CLEAR key */
  116. #endif
  117.  
  118.     /* M-6 is SHIFT SEND (programmable) */
  119.     /* M-7 is SEND (programmable) */
  120. OV( META|'!',    14, 1 )        /* ???reposition */
  121.  
  122. #ifdef OLDMAP
  123. OV( META|'<',    23, 0 )        /* gotobob */
  124. OV( META|'>',    23, 1 )        /* gotoeob */
  125. BI( META|'b',    &delbword )    /* ??? */
  126. #else
  127. OV( META|'g',    31, 8 )        /* gotobob gotoline ZMAP */
  128. OV( META|'G',    31, 9 )        /* gotoeob */
  129. OV( META|'b',    31, 5 )        /* delbword ??? */
  130. #endif
  131.  
  132. OV( META|'c',    21, 2 )        /* capword */
  133.     /* M-E TVI "LINE INS" */
  134.  
  135. #ifdef OLDMAP
  136. BI( META|'f',    &delfword )    /* ??? */
  137. #else
  138. OV( META|'f',    31, 4 )    /* delfword ??? */
  139. #endif
  140.  
  141. OV( META|'I',    29, 2 )        /* exec kbmac, TVI BACKTAB key */
  142. OV( META|'j',    10, 0 )        /* uppercase region, TVI "SHIFT uparrow" */
  143. OV( META|'L',    3, 0 )        /* killregion, TVI "SHIFT PRINT" key */
  144.     /* M-N TVI "SHIFT LINE INS" */
  145.     /* M-O TVI "SHIFT LINE DEL " key */
  146. OV( META|'P',    19, 0 )        /* copyregion, TVI "PRINT" key */
  147. OV( META|'Q',    5, 1 )        /* quote, ZMAP and TVI "CHAR INS" */
  148.  
  149. #ifdef OLDMAP
  150. OV( META|'T',    25, 0 )        /* kill, TVI "LINE ERA" key */
  151. #else
  152. OV( META|'R',    31, 47 )    /* kill lines vi-style, TVI "LINE DEL" */
  153. OV( META|'T',    31, 43 )    /* kill, TVI "LINE ERA" key */
  154. #endif
  155.  
  156. OV( META|'W',   30, 4 )        /* WORD/word mode */
  157. OV( META|'w',   30, 2 )        /* WORD/word mode */
  158. OV( META|'Y',    17, 0 )        /* killbuffer, TVI "PAGE ERA" key */
  159. OV( META|'\\',    14, 2 )        /* refresh */
  160. OV( META|'_',    21, 1 )        /* lowerword */
  161. OV( META|'^',    21, 0 )        /* upperword */
  162. OV( META|'~',    7, 1 )    /* twiddle */
  163.  
  164.  
  165.  
  166.  
  167. OV( CTLX|(0x1f&'B'), 4, 0 )    /* listbuf */
  168. OV( CTLX|(0x1f&'C'), 30, 0 )    /* Hard quit. */
  169. OV( CTLX|(0x1f&'F'), 11, 0 )    /* visit file */
  170. OV( CTLX|(0x1f&'J'), 8, 0 )    /* scroll down window */
  171. OV( CTLX|(0x1f&'K'), 8, 1 )    /* scroll up window */
  172. OV( CTLX|(0x1f&'L'), 6, 0 )    /* ??? lowercase region */
  173. OV( CTLX|(0x1f&'N'), 5, 0 )    /* filename */
  174. OV( CTLX|(0x1f&'O'), 7, 2 )    /* ???deblank */
  175. OV( CTLX|(0x1f&'R'), 20, 0 )    /* fileread */
  176. OV( CTLX|(0x1f&'S'), 9, 0 )    /* filesave */
  177. OV( CTLX|(0x1f&'V'), 8, 0 )    /* scroll down window */
  178. OV( CTLX|(0x1f&'W'), 12, 0 )    /* ???write file */
  179. OV( CTLX|(0x1f&'Z'), 13, 0 )    /* ???shrink current window. */
  180.  
  181. #ifdef NEVER
  182. OV( CTLX|'F', 21, 3 )        /* setfillcol??? */
  183. #endif
  184.     /*CTLX|'!',        &spawn,        /* Run 1 command.    */
  185. OV( CTLX|'=',    7, 0 )        /* show cursor stats */
  186. OV( CTLX|'1',    14, 0 )        /* one window */
  187. OV( CTLX|'2',    15, 0 )        /* split window */
  188. OV( CTLX|'b',    16, 0 )        /* ??? use buffer. */
  189. OV( CTLX|'(',    29, 0 )        /* startmacro */
  190. OV( CTLX|')',    29, 1 )        /* endmacro */
  191. OV( CTLX|'n',    8, 2 )        /* ???nextwind */
  192. OV( CTLX|'p',    8, 3 )        /* ???prevwind */
  193. OV( CTLX|'z',    18, 0 )        /* ???enlarge window */
  194.