home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / c / ue312d / vms / vms.rc < prev   
Encoding:
Text File  |  1990-05-25  |  3.1 KB  |  149 lines
  1. ;    EMACS.RC:    Startup file for MicroEMACS 3.10+
  2. ;
  3. ;            This file is executed every time the
  4. ;            editor is entered
  5.  
  6. ;
  7. ; Turn off the message-line during the set-up.
  8. ;
  9. set $discmd    FALSE
  10. write-message "Setting up..."
  11.  
  12. ;
  13. ; Couple of machine dependent vars here - $flicker is
  14. ; for IBM PCs with CGA monitors, and $ssave makes sense
  15. ; for all machines except VAX/VMS.
  16. ;
  17. set $flicker    FALSE
  18. set $ssave    FALSE
  19.  
  20. ;
  21. ; I prefer the old line shift method, and high-bit characters
  22. ; in 'control' form.
  23. ;
  24. set $hscroll FALSE
  25. set $disphigh TRUE
  26.  
  27. ;add-global-mode blue
  28. ;add-global-mode White
  29.  
  30. ;
  31. ; Let CMODE paren flashing hang around for 50% longer.
  32. ;
  33. set $tpause 150
  34.  
  35. ;
  36. ; A delete-to-beginning-of-line procedure.
  37. ;
  38. store-procedure        "Kill_to_BOL"
  39.     0 kill-to-end-of-line
  40. !endm
  41.  
  42. ;
  43. ; An end-of-line/next-end-of-line macro.
  44. ;
  45. store-procedure        "Next_EOL"
  46.     forward-character
  47.     end-of-line
  48. !endm
  49.  
  50. ;
  51. ; A beginning-of-line/previous-beginning-of-line macro.
  52. ;
  53. store-procedure        "Prev_BOL"
  54.     backward-character
  55.     beginning-of-line
  56. !endm
  57.  
  58. ;
  59. ; Toggle insert/overwrite mode in current buffer.
  60. ;
  61. store-procedure        "Toggle_Overwrite"
  62.     set $cmode &bxor 32 $cmode
  63. !endm
  64.  
  65. ;
  66. ; At the tone, the time will be...
  67. ;
  68. store-procedure        "Time_and_Temp"
  69.     display $time
  70. !endm
  71.  
  72. ;
  73. ; Insert the date into the file.
  74. ;
  75. store-procedure        "Insert_Date"
  76.     set %date $time
  77.     insert-string %date
  78. !endm
  79.  
  80. ;
  81. ; A divide-window-into-thirds macro.
  82. ; The argument of 1 to split-current-window
  83. ; guarentees that the top window will be the
  84. ; one the cursor is in.  The numeric argument
  85. ; to resize-window is to specify the number of
  86. ; lines in that window.
  87. ;
  88. store-procedure        "TriWindow"
  89.     set %wlthird &div $wline 3
  90.     1 split-current-window
  91.     %wlthird resize-window
  92.     next-window
  93.     1 split-current-window
  94.     previous-window
  95. !endm
  96.  
  97. ;
  98. ; Set up auto modes, depending upon file extension.
  99. ; This is for the $readhook.
  100. ;
  101. 20    store-macro
  102.     set %rctmp &sin $cbufname "."
  103.     !if &equ %rctmp 0
  104.         !return
  105.     !endif
  106.     set %rctmp &mid $cbufname &add %rctmp 1 5
  107.     !if &or &or &or &seq %rctmp "c" &seq %rctmp "h" &seq %rctmp "cxx" &seq %rctmp "hxx"
  108.         add-mode "cmode"
  109.         add-mode "magic"
  110.         add-mode "exact"
  111.     !endif
  112.     !if &or &or &seq %rctmp "mss" &seq %rctmp "r" &seq %rctmp "txt"
  113.         add-mode "wrap"
  114.     !endif
  115. !endm
  116.  
  117. set $readhook execute-macro-20
  118.  
  119. bind-to-key    meta-prefix        `
  120. ;bind-to-key    nop            ^[    ; Undo the escape key.
  121.  
  122. bind-to-key    next-window        FN^1
  123. bind-to-key    next-buffer        FN^2
  124. bind-to-key    hunt-backward        FN^3
  125. bind-to-key    hunt-forward        FN^4
  126. bind-to-key    move-window-up        A-7
  127. bind-to-key    move-window-down    A-8
  128. bind-to-key    universal-argument    A-6
  129. bind-to-key    goto-matching-fence    A-,
  130. bind-to-key    search-reverse        A-1
  131. bind-to-key    search-forward        A-2
  132. bind-to-key    hunt-forward        M-/
  133. bind-to-key    hunt-backward        M-\
  134. bind-to-key    execute-macro        A-5
  135. bind-to-key    end-of-word        M-F    ; Override standard next-word
  136. bind-to-key    buffer-position        A-9
  137. macro-to-key    Kill_to_BOL        ^U
  138. macro-to-key    Next_EOL        ^E
  139. macro-to-key    Prev_BOL        ^H
  140. macro-to-key    Toggle_Overwrite    ^A
  141. macro-to-key    Time_and_Temp        A--
  142. macro-to-key    Insert_Date        A-.
  143. macro-to-key    TriWindow        ^X3
  144.  
  145. ;
  146. ; Turn the message-line back on.
  147. ;
  148. set $discmd    TRUE
  149.