!* PuTTY/SecureCRT/xterm support for TECO EMACS
   Define bindings for arrow keys and (soon) mouse clicks.
   Based on http://www.emacswiki.org/cgi-bin/wiki/tecoemacs
	which is apparently based on aim 447
	_an introduction to the emacs editor_ by ecc!

  !* rebind paragraph movement to gnu emacs keys.!
  m.m ^r backward paragraph u..{
  m.m ^r forward paragraph u..}

  m.v m-[ prefix table
  !* make m-[ a prefix character.!
  m(m.m make prefix character)m-[ prefix table u..[
  !* the usual cursor movement keys.!
  qm-[ prefix table [0
    m.m ^r up real line u:0(A)
    m.m ^r down real line u:0(B)
    m.m ^r forward character u:0(C)
    m.m ^r backward character u:0(D)
!    m.v ^r mouse click
    m.m ^r mouse click u:0(M)!
  ]0

  m.v ^X@ Prefix Table
  !* Make ^X@ a prefix sequence.!
  M(M.M Make Prefix Character)^X@ Prefix Table U:.x(@)
  !* GNU Emacs @c control prefix.!
  Q^X@ Prefix Table [0
    M.M ^r Prefix Control U:0(C)
  ]0