head     1.2;
branch   ;
access   ;
symbols  ;
locks    ;
comment  @@;


1.2
date     91.06.12.11.02.49;  author CCSMAINT;  state Exp;
branches ;
next     1.1;

1.1
date     91.06.12.10.58.25;  author CCSMAINT;  state Exp;
branches ;
next     ;


desc
@@


1.2
log
@test
@
text
@;  Micro Emacs (3.10) Initialization File
; set for vax/vms and the vt220 terminal
; rich gregory 20-jun-90

;set $discmd FALSE	;Don't display all of the bind-to-keys
;set %pc-vt  TRUE	;Set this TRUE if you are using PC-VT
set $tpause 300		;for tiger, this makes the fence check quicker
			;  in cmode, but still slow enough to follow.
;set $sscroll TRUE
set %ctr 0
;set %macro_logical 1
;set $curwidth 78
;
;

;
; Modes
;
add-global-mode "ASAVE"
set $asave 200		;Save after every 200 characters input
;
; My special functions
;

bind-to-key	quote-character		M-P	; make next char a literal
bind-to-key	execute-macro-1		M-O	;Set OVER mode in buffer
bind-to-key	search-forward		M-S	;
bind-to-key	save-file		^XS	;
bind-to-key	execute-macro-5		M->	; goto eof
bind-to-key	execute-macro-6		S-FN4	; F14 - add state names

bind-to-key	execute-macro-8		A--	; Minus - execute counting macro
bind-to-key	execute-macro-9		M-0	; set ctr to 0
bind-to-key	execute-macro-10	M-I	; set %ctr &add %ctr 1
bind-to-key	execute-macro-11	M-.	; put ctr
bind-to-key	execute-macro-12	FN^1	; PF1 - TURN OFF ASAVE
bind-to-key	execute-macro		FN^3	; PF3 - EXECUTE MACRO

	; replacing three char search string with number

execute-file set_the_meta_key	; set the meta key is a logical that is
				; set on login to see if I am a pc or vt220


;
; Macros
;
1 store-macro
	add-mode "OVER"
	bind-to-key	execute-macro-2		M-O	;Clear OVER mode in buffer
!endm

2 store-macro
	delete-mode "OVER"
	bind-to-key	execute-macro-1		M-O
!endm


5   store-macro
	end-of-file
	redraw-display
!endm

6 store-macro
	hunt-forward
	insert-string "colorado"
	hunt-forward
	insert-string "connecticut"
	hunt-forward
	insert-string "illinois"
	hunt-forward
	insert-string "indiana"
	hunt-forward
	insert-string "kentucky"
	hunt-forward
	insert-string "missouri"
	hunt-forward
	insert-string "oregon"
	hunt-forward
	insert-string "tennessee"
	hunt-forward
	insert-string "virginia"
!endm


8 store-macro
	hunt-forward
	delete-previous-character
	delete-previous-character
	delete-previous-character
	execute-macro-11
	execute-macro-10
!endm

9 store-macro
	set %ctr 0
	display %ctr
!endm

10 store-macro
	set %ctr &add %ctr 1
	display %ctr
!endm

11 store-macro
	insert-string &ind %ctr
!endm

12 store-macro
	delete-mode "ASAVE"
	bind-to-key	execute-macro-13	FN^1
!endm

13 store-macro
	add-mode "ASAVE"
	bind-to-key	execute-macro-12	FN^1
!endm


; vt220 keys for vms
	bind-to-key	previous-line		FNP	;\
	bind-to-key	next-line		FNN	; \__arrow keys
	bind-to-key	forward-character	FNF	; /
	bind-to-key	backward-character	FNB	;/

;edit keys - next and prev screen are already set correctly....
	bind-to-key	set-mark		FN@@ 	;select key
	bind-to-key	search-forward		FNS	;find key
	bind-to-key	yank			FNC	;insert key

	bind-to-key	scroll-next-up		M-FNZ	;
	bind-to-key	scroll-next-down	M-FNV	;


; std vms help key
	bind-to-key	help			S-FN5	;help key

set $discmd TRUE	;Now you can display messages

; eof - emacs.rc for vax/vms
@


1.1
log
@Initial revision
@
text
@d1 1
a1 1
; Micro Emacs (3.10) Initialization File
@