blakemore@software.org (blakemore) (08/15/90)
! 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)