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]"