Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!rutgers!iuvax!pur-ee!uiucdcs!uxc.cso.uiuc.edu!uxe.cso.uiuc.edu!mcdonald
From: mcdonald@uxe.cso.uiuc.edu
Newsgroups: comp.emacs
Subject: Re: MicroEmacs 3.9e VT100 Key Mapping?
Message-ID: <46800009@uxe.cso.uiuc.edu>
Date: Wed, 2-Dec-87 11:11:00 EST
Article-I.D.: uxe.46800009
Posted: Wed Dec  2 11:11:00 1987
Date-Received: Sun, 6-Dec-87 23:43:26 EST
References: <1280@ncsuvx.ncsu.edu>
Lines: 113
Nf-ID: #R:ncsuvx.ncsu.edu:1280:uxe.cso.uiuc.edu:46800009:000:3077
Nf-From: uxe.cso.uiuc.edu!mcdonald    Dec  2 10:11:00 1987



Here is an EMACS.RC file for VT-100 use. You should have the ANSI and VT100
bits set in your estruct.h file before compiling. This works on VAX/VMS
and on a friend's virulently non-IBM-compatible MSDOS machine. The bindings
to the functions keys can be changed according to taste.

Doug McDonald




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

set $discmd "FALSE"
write-message "[Setting up....]"
; the following line has to transmit the sequence =  i.e. 27, 61
; in decimal. Input it in Emacs as "ctrl-q" then "esc" then "="
; This put the VT100 in application keymad mode as opposed to numeric keypad
write-message "="

;	***** Rebind the Function key group
bind-to-key next-line                   FNB
bind-to-key previous-line               FNA
bind-to-key backward-character          FND
bind-to-key forward-character           FNC


bind-to-key search-forward		FNP
bind-to-key search-reverse		FNQ
bind-to-key hunt-forward		FNR
bind-to-key hunt-backward		FNS
bind-to-key next-window			FNw
bind-to-key describe-bindings		FNx
bind-to-key find-file			FNy
bind-to-key execute-file		FNm
bind-to-key save-file			FNv
bind-to-key exit-emacs			FNl
bind-to-key next-page                   FNt
bind-to-key previous-page               FNu
bind-to-key execute-macro-10            FNM
bind-to-key end-of-line                 FNq
bind-to-key execute-macro-11            FNr
bind-to-key beginning-of-line           FNs
bind-to-key execute-macro-12            FNp
bind-to-key help                        FNn

;	Toggle function key window display

10	store-macro
	!if %rcfkeys
		!goto rcfoff
	!endif

;	toggle function key window on
	save-window
	1 next-window
	!if ¬ &sequal $cbufname "Function Keys"
		1 split-current-window
		select-buffer "Function Keys"
		!force 5 resize-window
		1 goto-line
	!endif
	set %rcfkeys TRUE
	!force restore-window
	!if &sequal $cbufname "Function Keys"
		next-window
	!endif
	write-message "[Function key window ON]"
	!return

	;Toggle the function key window off
*rcfoff
	save-window
	1 next-window
	!if &sequal "Function Keys" $cbufname
		delete-window
	!endif
	!force restore-window
	write-message "[Function key window OFF]"
	set %rcfkeys FALSE
!endm

11      store-macro
        beginning-of-line
        kill-to-end-of-line
        delete-next-character
!endm

12      store-macro
        yank
        insert-string "~n"
!endm

;	bring up the function key window

	1 split-current-window
	select-buffer "Function Keys"
	5 resize-window
	insert-string "f1 search      f2 search back    f3 hunt        f4 hunt back   ~n"
	insert-string "k7 next window k8 dscrbe-bndgs   k9 find file   k- exec file   ~n"
	insert-string "k4 next page   k5 previous page  k6 save file   k, exit emacs  ~n"
        insert-string "k1 jmp eol     k2 delete to eol  k3 jmp bol     ke toggle this~n"
        insert-string "      k0 restore kill buffer     k. help ~n "         
	beginning-of-file
	unmark-buffer
	next-window
	set %rcfkeys TRUE
	set $discmd "TRUE"
	write-message "[Emacs is READY]"