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)