DataMuseum.dk

top - download

    Length: 1491 (0x5d3)
    Types: TextFile
    Names: »me150.rc«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/uEmacs/me150.rc« 

TextFile

;	EMACS.RC:	Startup file for MicroEMACS 3.4
;
;			This file is executed everytime the
;			editor is entered

;	***** Rebind the Function key group

bind-to-key hunt-forward		FN^@
1 label-function-key "hunt     forward"
bind-to-key hunt-backward		FN^A
2 label-function-key "hunt    backward"
bind-to-key next-window			FN^B
3 label-function-key "next      window"
bind-to-key execute-macro		FN^C
4 label-function-key "exec       macro"
bind-to-key find-file			FN^D
5 label-function-key "find       file"
bind-to-key view-file			FN^E
6 label-function-key "view       file"
bind-to-key save-file			FN^F
7 label-function-key "save       file"
bind-to-key exit-emacs			FN^G
8 label-function-key "exit      emacs"

;	Enter Help
1 store-macro
	help
	8 resize-window
	bind-to-key execute-macro-12 FNI
	bind-to-key execute-macro-13 FNQ
	bind-to-key execute-macro-11 FNT
	add-mode "red"
	begining-of-file
	2 forward-character
	clear-message-line
!endm

;	consult file
2 store-macro
	2 split-current-window
	previous-window
	view-file "@File to Consult: "
	8 resize-window
	add-mode "green"
	add-mode "Black"
	next-window
!endm

;	Exit Help
11 store-macro
	bind-to-key previous-page FNI
	bind-to-key next-page FNQ
	bind-to-key execute-macro-1 FNT
	delete-window
	clear-message-line
!endm

;	last help page
12 store-macro
	begining-of-line
	search-reverse "=>"
	1 redraw-display
!endm

;	next help page
13 store-macro
	begining-of-line
	2 forward-character
	search-forward "=>"
	1 redraw-display
!endm