Category : Word Processors
Archive   : ME310.ZIP
Filename : ME.RC

 
Output of file : ME.RC contained in archive : ME310.ZIP
; EMACS.RC: Startup file for MicroEMACS 3.10

; This file is executed everytime the
; editor is entered


set $discmd "FALSE"
; set $sscroll "TRUE"

add-mode "yellow"
add-mode "BLACK"
add-global-mode "yellow"
add-global-mode "BLACK"


; ***** Rebind Cursor key group

bind-to-key yank FNC
bind-to-key delete-previous-character ^H
bind-to-key delete-next-character FND
bind-to-key delete-line ^_

bind-to-key beginning-of-line FN<
bind-to-key end-of-line FN>
bind-to-key beginning-of-screen FN^<
bind-to-key end-of-screen FN^>
bind-to-key beginning-of-file FN^Z
bind-to-key end-of-file FN^V
bind-to-key previous-paragraph FN^P
bind-to-key next-paragraph FN^N


; ***** Rebind the Function key group

bind-to-key help FN1
bind-to-key next-window FN2
bind-to-key next-buffer FN3
bind-to-key hunt-forward FN4
bind-to-key hunt-backward S-FN4
bind-to-key delete-window FN5
bind-to-key delete-other-windows FN6
bind-to-key split-current-window FN7
bind-to-key shrink-window FN8
bind-to-key grow-window S-FN8
bind-to-key set-mark FN9
bind-to-key goto-mark S-FN9
bind-to-key quick-exit FN0
bind-to-key display FNX
bind-to-key set S-FNX
bind-to-key buffer-position FNY


; Set up auto CMODE

4 store-macro
add-mode "yellow"
add-mode "BLACK"
set %rctmp &sin $cfname "."
!if &equ %rctmp 0
!return
!endif
set %rctmp &mid $cfname &add %rctmp 1 5
!if &or &seq %rctmp "c" &seq %rctmp "h"
add-mode "cmode"
set $softtab 2
!else
add-mode "wrap"
set $softtab 0
!endif
!endm

set $readhook execute-macro-4


; switch screen mode
; under OS/2, $sres is CGA, EGA, VGA or MONO
; under DOS, $sres is like 80x25 or 100x42 etc.

!if &sless $sres "A"
5 store-macro
execute-program &cat "EGA " @"Screen mode: "
delete-other-windows
!endm
!else
5 store-macro
!if &equal $pagelen 25
set $sres "EGA"
!else
set $sres "CGA"
!endif
!endm
!endif

bind-to-key execute-macro-5 FN^7


; reformat indented paragraph

6 store-macro
write-message " [Fixing paragraph]"
kill-region
2 split-current-window
select-buffer "[temp]"
yank
beginning-of-file
replace-string "~n " "~n"
write-message " [Fixing paragraph]"
66 set-fill-column
write-message " [Fixing paragraph]"
fill-paragraph
77 set-fill-column
beginning-of-file
handle-tab
replace-string ~n "~n "
write-message " [Fixing paragraph]"
end-of-file
2 delete-previous-character
beginning-of-file
set-mark
write-message " [Fixing paragraph]"
end-of-file
kill-region
unmark-buffer
delete-window
yank
delete-buffer "[temp]"
write-message " [Fixed paragraph]"
!endm


; indent region

7 store-macro
write-message " [Indenting region]"
kill-region
2 split-current-window
select-buffer "[temp]"
yank
beginning-of-file
handle-tab
replace-string "~n" "~n "
end-of-file
4 delete-previous-character
beginning-of-file
set-mark
write-message " [Indenting region]"
end-of-file
kill-region
unmark-buffer
delete-window
yank
delete-buffer "[temp]"
write-message " [Region Indented]"
!endm


; undent region

8 store-macro
write-message " [Undenting region]"
kill-region
2 split-current-window
select-buffer "[temp]"
yank
beginning-of-file
delete-next-character
replace-string "~n " "~n"
end-of-file
2 delete-previous-character
beginning-of-file
set-mark
write-message " [Undenting region]"
end-of-file
kill-region
unmark-buffer
delete-window
yank
delete-buffer "[temp]"
write-message " [Region undented]"
!endm


set $discmd "TRUE"


  3 Responses to “Category : Word Processors
Archive   : ME310.ZIP
Filename : ME.RC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/