Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!mit-eddie!ll-xn!ames!ucbcad!ucbvax!ucdavis!iris!windley
From: windley@iris.ucdavis.edu (Phil Windley)
Newsgroups: comp.emacs
Subject: Re: MicroEmacs 3.9e VT100 Key Mapping?
Message-ID: <620@ucdavis.ucdavis.edu>
Date: Tue, 1-Dec-87 15:23:00 EST
Article-I.D.: ucdavis.620
Posted: Tue Dec  1 15:23:00 1987
Date-Received: Fri, 4-Dec-87 22:15:24 EST
References: <1280@ncsuvx.ncsu.edu>
Sender: uucp@ucdavis.ucdavis.edu
Reply-To: windley@iris.UUCP (Phil Windley)
Organization: U.C. Davis - College of Engineering
Lines: 68

In article <1280@ncsuvx.ncsu.edu> sam@ncsuvx.ncsu.edu (Mr. Sam Moore) writes:
>
>I have MicroEmacs version 3.9e running on a MicroVax(Ultrix) and on a
>VAX(VMS). On both I want to use the function keys and cursor keys. I 
>compiled in the VT100 define. And I tried to map some keys in the
>autoload script file. I was unsuccessful. Does anyone know how to do
>this? Does anyone have any script files other than those in the distribution?
>If so, I would like to see them.

I will add my vt100.cmd file to the end of this.  Its not perfect yet,
but it does work.

>
> Unless I have compiled with the wrong options, it seems
>that there is a missing brace, {. If this is old news and there are fixes
>out there somewhere, please let me know. 
>

Yes there is a missing brace.  Just add it and everything will work
fine.  One more point.  The command file that follows has a line which
says 'write-message "~e="'.  This sends an escape-= to the terminal to
turn on the alternate keypad.  The ~e is not standard memacs.  I had
to modify the function token() in the file exec.c so that ~e output an
escape character.  This allows you to program the vt100 from within
a command file.  I'm not sure if this will cause other problems.  It
seems to me that there must be a goos reason for leaving it out, but
maybe not.


Phil Windley
Robotics Research Lab
University of California, Davis


----------------------- vt100.cmd -----------------------------------
;;; for vt100.
;;; alternate keypad mode.
       write-message "~e="
;;; bind alternate keypad.
;   bind-to-key                FNp                 ; 0	
      bind-to-key end-of-line           FNq	   ; 1
      bind-to-key  next-line            FNr	   ; 2
      bind-to-key next-page             FNs           ; 3
      bind-to-key backward-character    FNt           ; 4
;   bind-to-key                FNu	           ; 5
      bind-to-key forward-character     FNv	   ; 6
      bind-to-key beginning-of-line     FNw	   ; 7
      bind-to-key previous-line         FNx	   ; 8
      bind-to-key previous-page         FNy	   ; 9
      bind-to-key end-of-file           FNl	   ; ,
      bind-to-key beginning-of-file     FNm	   ; -
      bind-to-key delete-next-character FNn	   ; .
;   bind-to-key                FNM	           ;  enter


;;; function keys
     bind-to-key set-mark                FNP	   ;  pf1 (default)
     bind-to-key copy-region             FNQ	   ;  pf2 (default)
     bind-to-key kill-region             FNR	   ;  pf3 (default)
     bind-to-key yank                    FNS	   ;  pf4 (default)



 

Phil Windley
Robotics Research Lab
University of California, Davis