[comp.emacs] Defining fcn keys for vt220 in .emacs

nks661@csc.anu.edu.au (04/18/91)

I use emacs on a VT220 clone terminal.  This is a segment from my .emacs file.  
------------------------------------------------------------------------------
(setq term-setup-hook
   '(lambda ()
       (progn (edt-emulation-on)
	   (if (string-match "\\`vt[123][024]0" (or (getenv "TERM") ""))
               (enable-arrow-keys))
           (if (string-match "^vt220" (or (getenv "TERM") ""))
               (define-key CSI-map "2~" 'yank)                 ;; "Insert Here"
               (define-key CSI-map "28~" 'help-for-help)              ;; "Help"
               (define-key CSI-map "29~" 'execute-extended-command)   ;; "Do"
))))
-----------------------------------------------------------------------------
As you can see, I want to (amongst other things) define 3 of the dark keys.  
The strange thing is that depending on which order I place the define-key 
statements, some of the keys are or aren't defined.  There are 3!=6 ways 
of ordering them: here are the results:

2   y       2   y       29  y       28  y       28  y       29  y
28  y       29  n       2   n       2   n       29  n       28  y
29  n       28  y       28  y       29  n       2   n       2   n

Where I've labelled each key definition ordering (2,28,29) and 'y' or 'n'
meaning whether or not the statement did what it should have.
You will see that I only get 2 out of 3 definitions working at best!
I am mystified why.  Any ideas?

(I am aware that I am trying to redefine the "Insert Here" key, but the
edt-emulation-on does not work for that particular key!  Does this mean
there is something wrong in the circuits of my dumb terminal?)

Thanks for any help via email.  I will post a summary if a solution is found.

Nick

-==-=-=---=-=---=-=---=-----=-=-----=---=-=---=-----=-----=-=-----=---=-=-----=-
Human ID: Nicholas Spencer       |"It saddens me that educated people don't even
Internet: nks661@csc1.anu.edu.au | know that my subject exists."  -  Paul Halmos
Location: Computer Sciences Lab/Mathematics Dept, Australian National University
--=-----=-------=---=-=---=-=---=-------------=---=-----=-=---------=-=-----=---