home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum3.lzh / BRIEFE / emacsrc < prev    next >
Text File  |  1987-12-27  |  8KB  |  242 lines
  1. ;    EMACSRC: Startup file for MicroEMACS 3.8 
  2. ; 
  3. ; This file is executed everytime the 
  4. ; editor is entered
  5.  
  6. bind-to-key delete-next-word            M-^F
  7. bind-to-key delete-previous-word        M-^B
  8.  
  9. ;    ***** Rebind the Function key group
  10.  
  11. bind-to-key hunt-forward                FN01 
  12. bind-to-key hunt-backward               FN02
  13. bind-to-key set-mark                    FN03 
  14. bind-to-key goto-line                   FN04 
  15. bind-to-key execute-macro-35            FN05
  16. bind-to-key search-forward              SFN01
  17. bind-to-key search-reverse              SFN02
  18. bind-to-key copy-region                 SFN03
  19. bind-to-key goto-matching-fence         SFN04
  20. bind-to-key transpose-characters        SFN05
  21. bind-to-key query-replace-string        CFN01
  22. bind-to-key replace-string              CFN02
  23. bind-to-key kill-region                 CFN03
  24. bind-to-key exchange-point-and-mark     CFN04
  25. bind-to-key execute-macro-37            CFN05
  26.  
  27. bind-to-key execute-macro-32            FN06 
  28. bind-to-key execute-macro-31            FN07
  29. bind-to-key split-current-window        FN08 
  30. bind-to-key delete-other-windows        FN09 
  31. bind-to-key execute-macro-26            FN10
  32. bind-to-key execute-macro-33            SFN06
  33. bind-to-key execute-macro-30            SFN07
  34. bind-to-key move-window-up              SFN08
  35. bind-to-key move-window-down            SFN09
  36. bind-to-key unmark-buffer               SFN10
  37. bind-to-key delete-buffer               CFN06
  38. bind-to-key execute-macro-29            CFN07
  39. bind-to-key execute-macro-27            CFN08
  40. bind-to-key execute-macro-28            CFN09
  41. bind-to-key execute-macro-38            CFN10
  42.  
  43. bind-to-key execute-named-command       FN11
  44. bind-to-key execute-macro               FN12
  45. bind-to-key i-shell                     FN13 
  46. bind-to-key apropos                     FN14 
  47. bind-to-key buffer-position             FN15
  48. bind-to-key exit-emacs                  SFN11
  49. bind-to-key begin-macro                 SFN12
  50. bind-to-key pipe-command                SFN13
  51. bind-to-key describe-key                SFN14
  52. bind-to-key list-buffers                SFN15
  53. bind-to-key quick-exit                  CFN11
  54. bind-to-key end-macro                   CFN12
  55. bind-to-key filter-buffer               CFN13
  56. bind-to-key describe-bindings           CFN14
  57. bind-to-key execute-macro-39            CFN15
  58.  
  59. ; macro: delete function key window if present
  60. 26 store-macro
  61.             save-window
  62.             1 next-window
  63.             !if &sequal $cbufname "Function Keys"
  64.                 delete-window
  65.             !endif
  66.             restore-window
  67. !endm
  68.  
  69. ; macro: grow window (resizing function keys window if present)
  70. 27 store-macro
  71.             shrink-window
  72.             save-window
  73.             1 next-window
  74.             !if &sequal $cbufname "Function Keys"
  75.                 !force 5 resize-window
  76.             !endif
  77.             restore-window
  78. !endm
  79.  
  80. ; macro: grow window (resizing function keys window if present)
  81. 28 store-macro
  82.             grow-window
  83.             save-window
  84.             1 next-window
  85.             !if &sequal $cbufname "Function Keys"
  86.                 !force 5 resize-window
  87.             !endif
  88.             restore-window
  89. !endm
  90.  
  91. ; macro: delete window (skipping function keys)
  92. 29 store-macro
  93.             delete-window
  94.             !if &sequal $cbufname "Function Keys"
  95.                 next-window
  96.             !endif
  97. !endm
  98.  
  99. ; macro: previous window (skipping function keys)
  100. 30 store-macro
  101.             previous-window
  102.             !if &sequal $cbufname "Function Keys"
  103.                 previous-window
  104.             !endif
  105. !endm
  106.  
  107. ; macro: next window (skipping function keys)
  108. 31 store-macro
  109.             next-window
  110.             !if &sequal $cbufname "Function Keys"
  111.                 next-window
  112.             !endif
  113. !endm
  114.  
  115. ; macro: next buffer (skipping function keys)
  116. 32 store-macro
  117.             next-buffer
  118.             !if &sequal $cbufname "Function Keys"
  119.                 next-buffer
  120.             !endif
  121. !endm
  122.  
  123. ; macro: previous buffer
  124. 33 store-macro
  125.             set %oldbuf $cbufname
  126. *L1       
  127.             set %prebuf $cbufname
  128.             execute-macro-32
  129.             !if &sequal %oldbuf $cbufname
  130.                 !goto L2
  131.             !endif
  132.             !goto L1
  133. *L2         
  134.             execute-macro-32
  135.             !if &sequal %prebuf $cbufname
  136.                 !goto found
  137.             !endif
  138.             !goto L2
  139. *found
  140. !endm
  141.  
  142. ; macro: enter insert mode
  143. 34 store-macro
  144.             delete-mode "OVER"
  145.             bind-to-key execute-macro-35 FN05
  146.             write-message "[Insert Mode]"
  147. !endm
  148.  
  149. ; macro: enter overwrite mode
  150. 35 store-macro
  151.             add-mode "OVER"
  152.             bind-to-key execute-macro-34 FN05
  153.             write-message "[Overwrite Mode]"
  154. !endm
  155.  
  156. ; macro: start window display with current line
  157. 36 store-macro
  158.             1 redraw-display
  159. !endm
  160.  
  161. ; macro: looking for function keys buffer
  162. 40 store-macro
  163.             1 next-window
  164.             !if &sequal "Function Keys" $cbufname
  165.                 !goto found
  166.             !endif
  167.             1 split-current-window
  168.             select-buffer "Function Keys"
  169. *found      
  170.             beginning-of-file
  171.             !force 5 resize-window
  172. !endm
  173.  
  174. ; macro: bring up function keys buffer, search for normal function keys
  175. 37 store-macro
  176.         save-window
  177.         execute-macro-40
  178.         search-forward "FN01"
  179.         1 redraw-display
  180.         restore-window
  181.         !if &sequal $cbufname "Function Keys"
  182.             next-window
  183.         !endif
  184. !endm
  185.  
  186. ; macro: bring up function keys buffer, search for shift function keys
  187. 38 store-macro
  188.         save-window
  189.         execute-macro-40
  190.         search-forward "FN06"
  191.         1 redraw-display
  192.         restore-window
  193.         !if &sequal $cbufname "Function Keys"
  194.             next-window
  195.         !endif
  196. !endm
  197.  
  198. ; macro: bring up function keys buffer, search for control function keys
  199. 39 store-macro
  200.         save-window
  201.         execute-macro-40
  202.         search-forward "FN11"
  203.         1 redraw-display
  204.         restore-window
  205.         !if &sequal $cbufname "Function Keys"
  206.             next-window
  207.         !endif
  208. !endm
  209.  
  210. ; this code is executed on startup
  211.         split-current-window
  212.         select-buffer "Function Keys"
  213.         add-mode "RED"
  214.         insert-string "FN01 hunt-forward          SFN01 search-forward       CFN01 query-replace~n"
  215.         insert-string "FN02 hunt-backward         SFN02 search-reverse       CFN02 replace~n"
  216.         insert-string "FN03 set-mark              SFN03 copy-region          CFN03 kill-region~n"
  217.         insert-string "FN04 goto-line             SFN04 goto-matching-fence  CFN04 exchange-point-mark~n"
  218.         insert-string "FN05 toggle overwrite      SFN05 transpose-characters CFN05 help~n"
  219.         insert-string "FN06 next-buffer           SFN06 previous-buffer      CFN06 delete-buffer~n"
  220.         insert-string "FN07 next-window           SFN07 previous-window      CFN07 delete-window~n"
  221.         insert-string "FN08 split-current-window  SFN08 move-window-up       CFN08 grow-window~n"
  222.         insert-string "FN09 delete-other-windows  SFN09 move-window-down     CFN09 shrink-window~n"
  223.         insert-string "FN10 delete-fkey-window    SFN10 unmark-buffer        CFN10 help~n"
  224.         insert-string "FN11 execute-named-command SFN11 exit-emacs           CFN11 quick-exit~n"
  225.         insert-string "FN12 execute-macro         SFN12 begin-macro          CFN12 end-macro~n"
  226.         insert-string "FN13 i-shell               SFN13 pipe-command         CFN13 filter-buffer~n"
  227.         insert-string "FN14 apropos               SFN14 describe-key         CFN14 describe-bindings~n"
  228.         insert-string "FN15 buffer-position       SFN15 list-buffers         CFN15 help~n"
  229.         unmark-buffer        
  230.         add-mode "VIEW"
  231.         next-window
  232.         delete-other-windows
  233.         
  234.         4 handle-tab
  235.         add-global-mode CMODE
  236.         add-global-mode MAGIC
  237.         unbind-key ^T
  238.         unbind-key ^L
  239.         bind-to-key previous-word ^L
  240.         bind-to-key next-word ^T
  241.         
  242.