1 ; EMACS.RC: Startup file for MicroEMACS 3.9cs
\r
3 ; This file is executed every time the
\r
4 ; editor is entered, but only if it can
\r
5 ; be found on '.' or '$(PATH)'.
\r
8 ; if you want the 40 lines mode, then uncomment this line:
\r
12 write-message "[Setting up....]"
\r
14 ; Micro emacs now simulates tabs with blanks in some files (.c, .asm etc.)
\r
15 ; If you don't like this, then press "M-0 TAB" when inside the desired buffer.
\r
17 ; have fun with the Help and Keypad keys. They are all harmless functions.
\r
19 ; ***** Rebind the Function keys
\r
21 ; Since this are the standard settings on Atari, they need not be set !
\r
22 ; They just give an impression on the syntax needed.
\r
24 ; The bind-fn-key command is new by CS.
\r
25 ; Non-cs versions must use bind-to-key.
\r
27 ;bind-fn-key kill-to-end-of-line f1 ; non-shift f1
\r
28 ;bind-fn-key yank f2
\r
29 ;bind-fn-key search-forward f3
\r
30 ;bind-fn-key query-replace-string f4
\r
31 ;bind-fn-key search-reverse f5
\r
32 ;bind-fn-key execute-file f6
\r
33 ;bind-fn-key next-buffer f7
\r
34 ;bind-fn-key find-file f8
\r
35 ;bind-fn-key save-file f9
\r
36 ;bind-fn-key quick-exit f10
\r
37 ;bind-fn-key help S-F1 ; Shift-F1
\r
40 ;bind-fn-key help help
\r
41 ;bind-fn-key exit-emacs undo ; undo
\r
42 ;bind-fn-key previous-page pgup ; insert key on Atari
\r
43 ;bind-fn-key next-page pgdown ; clr/home key on Atari
\r
46 ;bind-fn-key set-mark leftmouse
\r
47 ;bind-fn-key copy-region rightmouse
\r
50 ;bind-fn-key move-window-up K(
\r
51 ;bind-fn-key move-window-down K)
\r
52 ;bind-fn-key split-current-window K/
\r
53 ;bind-fn-key delete-other-windows K*
\r
54 ;bind-fn-key previous-window K-
\r
55 ;bind-fn-key next-window K+
\r
56 ;bind-fn-key beginning-of-file K7
\r
57 ;bind-fn-key end-of-file K9
\r
58 ;bind-fn-key previous-word K4
\r
59 ;bind-fn-key redraw-display K5
\r
60 ;bind-fn-key next-word K6
\r
61 ;bind-fn-key beginning-of-line K1
\r
62 ;bind-fn-key end-of-line K3
\r
63 ;bind-fn-key execute-macro K0
\r
64 ;bind-fn-key goto-line K.
\r
66 ;; >>>> note: you get the name of a key by pressing help c <key>
\r
68 ; These are not standard:
\r
70 bind-to-key apropos FNV ; S-F3
\r
71 bind-to-key help FNW ; S-F4
\r
72 bind-to-key fill-paragraph FNX ; S-F5
\r
75 add-global-mode "White" ; foreground
\r
76 add-global-mode "blue" ; background
\r
77 add-mode "White" ; foreground
\r
78 add-mode "blue" ; background
\r
80 ; toggle function key window off
\r
84 !if &sequal "Function Keys" $cbufname
\r
87 bind-to-key execute-macro-14 FNT ; S-F1
\r
88 !force restore-window
\r
89 write-message "[Function key window OFF]"
\r
92 ; toggle function key window back on
\r
95 !if &sequal $cbufname "emacs.hlp"
\r
98 !if ¬ &sequal $cbufname "Function Keys"
\r
99 1 split-current-window
\r
100 select-buffer "Function Keys"
\r
102 !force 6 resize-window
\r
105 bind-to-key execute-macro-1 FNT
\r
107 write-message "[Function key window ON]"
\r
112 1 next-window ;Make sure the function key window isn't up!
\r
113 !if &sequal $cbufname "Function Keys"
\r
115 bind-to-key execute-macro-14 FNT
\r
119 bind-to-key execute-macro-12 FNh
\r
120 bind-to-key execute-macro-13 FNn
\r
121 bind-to-key execute-macro-11 FNU
\r
122 bind-to-key execute-macro-15 ^XO
\r
123 bind-to-key execute-macro-15 ^XP
\r
124 bind-to-key execute-macro-15 FNu
\r
127 2 forward-character
\r
133 bind-to-key previous-page FNh
\r
134 bind-to-key next-page FNn
\r
135 bind-to-key execute-macro-2 FNU
\r
136 bind-to-key next-window ^XO
\r
137 bind-to-key previous-window ^XP
\r
138 bind-to-key next-window FNu
\r
143 ; don't allow these commands from within the HELP screen
\r
145 write-message "[Use S-F2 to exit HELP (with SHIFT)]!!"
\r
151 search-reverse "=>"
\r
158 2 forward-character
\r
159 search-forward "=>"
\r
163 ; reformat indented paragraph
\r
166 write-message " [Fixing paragraph]"
\r
168 2 split-current-window
\r
169 select-buffer "[temp]"
\r
172 replace-string "~n " "~n"
\r
173 write-message " [Fixing paragraph]"
\r
175 write-message " [Fixing paragraph]"
\r
180 replace-string ~n "~n "
\r
181 write-message " [Fixing paragraph]"
\r
183 2 delete-previous-character
\r
186 write-message " [Fixing paragraph]"
\r
192 delete-buffer "[temp]"
\r
193 write-message " [Fixed paragraph]"
\r
199 write-message " [Indenting region]"
\r
201 2 split-current-window
\r
202 select-buffer "[temp]"
\r
206 replace-string "~n" "~n "
\r
208 4 delete-previous-character
\r
211 write-message " [Indenting region]"
\r
217 delete-buffer "[temp]"
\r
218 write-message " [Region Indented]"
\r
224 write-message " [Undenting region]"
\r
226 2 split-current-window
\r
227 select-buffer "[temp]"
\r
230 delete-next-character
\r
231 replace-string "~n " "~n"
\r
233 2 delete-previous-character
\r
236 write-message " [Undenting region]"
\r
242 delete-buffer "[temp]"
\r
243 write-message " [Region undented]"
\r
247 ; bring up the function key window
\r
249 1 split-current-window
\r
250 select-buffer "Function Keys"
\r
253 insert-string "f1 kill line f6 exec file | F1 toggle function list F7 indent region~n"
\r
254 insert-string "f2 yank f7 select buf | F2 toggle help file F8 undent region~n"
\r
255 insert-string "f3 search f8 find file | F3 find command/apropos ^X= where am I~n"
\r
256 insert-string "f4 replace f9 save file | F4 general HELP ! M-G goto line (ESC-G)~n"
\r
257 insert-string "f5 search back f10 exit emacs | F5 reformat paragraph M-< start of file~n"
\r
258 insert-string "^G cancel command (Control+G) | F6 ref undented region M-O toggle OVER mode~n"
\r