home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / UE3112.ZIP / me.rc < prev    next >
Text File  |  1991-12-22  |  3KB  |  134 lines
  1. ; EMACS.RC:    Startup file for MicroEMACS 3.10b
  2.  
  3. ;        This file is executed everytime the
  4. ;        editor is entered
  5.  
  6.  
  7. set $discmd "FALSE"
  8.  
  9. ;    ***** some defaults
  10.  
  11. set $ssave   "FALSE"
  12. set $sscroll "FALSE"
  13. set $softtab 2
  14.  
  15.  
  16. ;     ***** screen colors
  17.  
  18. set %bgcolor "cyan"
  19. set %fgcolor "BLACK"
  20. add-mode %bgcolor
  21. add-mode %fgcolor
  22. ;add-global-mode %bgcolor
  23. ;add-global-mode %fgcolor
  24.  
  25.  
  26. ;    ***** rebind Cursor key group
  27.  
  28. bind-to-key yank            FNC
  29. bind-to-key yank            FNj
  30. bind-to-key delete-previous-character    ^H
  31. bind-to-key delete-next-character    FND
  32. bind-to-key delete-line            ^_
  33.  
  34. bind-to-key beginning-of-line        FNa
  35. bind-to-key end-of-line            FNg
  36. bind-to-key beginning-of-screen        FN^a
  37. bind-to-key end-of-screen        FN^g
  38. bind-to-key beginning-of-file        FN^c
  39. bind-to-key end-of-file            FN^i
  40. bind-to-key previous-paragraph        FN^b
  41. bind-to-key next-paragraph        FN^h
  42.  
  43. bind-to-key toggle-over-mode        FN^j
  44. bind-to-key next-buffer            FN^I
  45.  
  46.  
  47. ;    ***** rebind the Function key group
  48.  
  49. ; bind-to-key help            FN1
  50. bind-to-key next-window            FN2
  51. bind-to-key next-buffer            FN3
  52. bind-to-key hunt-forward        FN4
  53. bind-to-key hunt-backward        S-FN4
  54. bind-to-key delete-window        FN5
  55. bind-to-key delete-other-windows    FN6
  56. bind-to-key split-current-window    FN7
  57. bind-to-key shrink-window        FN8
  58. bind-to-key grow-window            S-FN8
  59. bind-to-key set-mark            FN9
  60. bind-to-key goto-mark            S-FN9
  61. bind-to-key quick-exit            FN0
  62. bind-to-key display            FNX
  63. bind-to-key set                S-FNX
  64. bind-to-key buffer-position        FNY
  65. bind-to-key execute-macro        S-FNY
  66.  
  67.  
  68. ;    ***** help system
  69.  
  70. 1 store-macro
  71.     execute-file d:\bin\mehelp.me
  72. !endm
  73.  
  74. bind-to-key execute-macro-1 FN1
  75.  
  76.  
  77. ;    ***** switch screen mode
  78. ;    valid under OS/2 only
  79.  
  80. 5 store-macro
  81.     set $sres @"Screen lines: "
  82. !endm
  83.  
  84. 6 store-macro
  85.     write-message &cat "Screen lines = " $sres
  86. !endm
  87.  
  88. bind-to-key execute-macro-5 FN^7
  89. bind-to-key execute-macro-6 A-FN7
  90.  
  91.  
  92. ;    ***** QuickHelp
  93.  
  94. 3 store-macro
  95.         set %qhresult &cat &env "TMP" "\PASTE.QH"  
  96.     shell-command &cat &cat &cat "QH -p " %qhresult " -t all " @"Topic: "
  97.     find-file %qhresult
  98.     delete-other-windows
  99. !endm
  100.  
  101. bind-to-key execute-macro-3 S-FN1
  102.  
  103.  
  104. ;    ***** read hook for colors and auto CMODE
  105.  
  106. 4    store-macro
  107.     add-mode %fgcolor
  108.     add-mode %bgcolor
  109.     set %rctmp &sin $cfname "."
  110.     !if &equ %rctmp 0
  111.         !return
  112.     !endif
  113.     set %rctmp &mid $cfname &add %rctmp 1 5
  114.     !if &or &seq %rctmp "c" &seq %rctmp "h"
  115.         add-mode "cmode"
  116.     !else
  117.         add-mode "wrap"
  118.     !endif
  119. !endm
  120.  
  121. set $readhook execute-macro-4
  122.  
  123.  
  124. ;    ***** cmd hook for line/coldisplay
  125.  
  126. 31    store-macro
  127.     write-message &cat &cat &cat "Line: " $curline "  Col: " $curcol
  128. !endm
  129.  
  130. ; set $cmdhook execute-macro-31
  131.  
  132.  
  133. set $discmd "TRUE"
  134.