Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!software.org!blakemore
From: blakemore@software.org (blakemore)
Newsgroups: comp.sys.apollo
Subject: More Apollo emacs key bindings
Keywords: emacs X-windows key bindings
Message-ID: <1535@software.software.org>
Date: 14 Aug 90 17:38:30 GMT
Sender: news@software.org
Reply-To: blakemore@software.org (blakemore)
Organization: Software Productivity Consortium, Herndon, Virginia
Lines: 56

! The following resources map Apollo integrated X keys to emacs
! key sequences.  They only work when using the Apollo supported
! version of the X server (R3) and running emacs in an xterm
! window (with -name emacs).  We are running an older version of emacs.
! The later versions don't need an xterm (which is doing the mapping
! to emacs escape sequences).  This scheme won't work in those
! circumstances, but something even better might if the right hand
! side of the following translations could be replaced with the
! proper function calls (rather than emitting characters).

! to use, cut below these directions and put into a file (e.g. ~.Xdefaults)
! load the resources, %xrdb -merge .Xdefaults
! start emacs %xterm -name emacs emacs $HOME

*font:				*-courier-medium-r*-140-*
*boldFont:			*-courier-bold-r*-140-*

!   emacs 
! emacs now runs in an xterm
! these should change for x based emacs

emacs*scrollBar:		off
emacs*VT100.Translations: #override \
      Shift<Key>Insert:    string(0x18) string(i)      \n \
      <Key>Insert:         string(0x1b) string(xset-mark-command) string(0x0d) \n \
      <Key>LineDel:        string(0x0b)                \n \
      <Key>CharDel:        string(0x04)                \n \
      Shift<Key>Copy:      string(0x17)                \n \
      <Key>Copy:           string(0x1b) string(w)      \n \
      Shift<Key>Paste:     string(0x18) string(u)      \n \
      <Key>Paste:          string(0x19)                \n \
      Shift<Key>LeftBar:   string(0x1b) string(a)      \n \
      <Key>LeftBar:        string(0x01)                \n \
      Shift<Key>Cmd:       string(0x1b) string(xshell) string(0x0d) \n \
      <Key>Cmd:            string(0x1b) string(x)      \n \
      Shift<Key>RightBar:  string(0x1b) string(e)      \n \
      <Key>RightBar:       string(0x05)                \n \
      <Key>Up:             string(0x10)                \n \
      Shift<Key>Left:      string(0x1b) string(b)      \n \
      <Key>Left:           string(0x02)                \n \
      Shift<Key>Next:      string(0x18) string(b) string(0x0d) \n \
      <Key>Next:           string(0x18) string(o)      \n \
      Shift<Key>Right:     string(0x1b) string(f)      \n \
      <Key>Right:          string(0x06)                \n \
      Shift<Key>UpBox:     string(0x1b) string(<)      \n \
      <Key>UpBox:          string(0x1b) string(v)      \n \
      <Key>Down:           string(0x0e)                \n \
      Shift<Key>DownBox:   string(0x1b) string(>)      \n \
      <Key>DownBox:        string(0x16)                \n \
      <Key>Read:           string(0x18) string(0x06)   \n \
      Shift<Key>Edit:      string(0x18) string(0x13)   \n \
      <Key>Edit:           string(0x18) string(0x06)   \n \
      Shift<Key>Exit:      string(0x18) string(k) string(0x0d) \n \
      <Key>Exit:           string(0x18) string(0x13) string(0x18) \
                           string(k) string(0x0d) \n \
      <Key>Help:           string(0x08)