[comp.sys.apollo] Emacs key mapping on the apollo keyboard

gah@CML.UNL.EDU (Glen A. Hansen) (02/19/91)

      I would like to use the apollo DM control keys (cut, copy
paste, undo, etc.), mapped to their corresponding commands in
the emacs editor. I am currently running in the X environment,
so these keys are not functional. 

      Does anyone have any experience with this?

                  Thanks in advance,

                   Glen Hansen
                   gah@cml.unl.edu

mike@vlsivie.tuwien.ac.at (Michael K. Gschwind) (02/21/91)

In article <9102191401.AA10500@cml.unl.edu> gah@CML.UNL.EDU (Glen A. Hansen) writes:
>      I would like to use the apollo DM control keys (cut, copy
>paste, undo, etc.), mapped to their corresponding commands in
>the emacs editor. I am currently running in the X environment,
>so these keys are not functional. 

First of all, you must get these keys to emacs - if you start up Xapollo
with the -K option, you may not exclude the keys you want to use from
the list of keys passed to Xapollo. This is normally done in
/usr/X11/lib/keyboard/keyboard.config - just comment out the relevant
exclude commands. If you do not use the Xapollo server with the -K
option, you can skip this step.

After having rebooted the node (if /usr/X11/lib/keyboard/keyboard.config
was changed), you add the following lines to your .emacs file:

(if (eq window-system 'x)
    (progn
    (x-rebind-key "RightBox" nil "\C-x<")       ; shift window right
    (x-rebind-key "LeftBox" nil "\C-x>")        ; shift window left
    (x-rebind-key "DownBox" nil "\C-v") ; shift window down
    (x-rebind-key "UpBox" nil "\M-v")   ; shift window up

    ....
    )
)

For a full explanation of the x-rebind-key function see the doc in the
emacs manuals - the names of the keys you get by using the xev 
utility in /usr/bin/X11.

If you want your mappings to fully mimic DM functionality look at the
.../emacs/etc/apollo.el file by Leonard Zubkoff - it contains lisp
function you may want to assign to various Apollo keys.

			Hope this helps,
					mike



Michael K. Gschwind, Institute for VLSI-Design, Vienna University of Technology
mike@vlsivie.tuwien.ac.at	1-2-3-4 kick the lawsuits out the door 
mike@vlsivie.uucp		5-6-7-8 innovate don't litigate         
e182202@awituw01.bitnet		9-A-B-C interfaces should be free
Voice: (++43).1.58801 8144	D-E-F-O look and feel has got to go!
Fax:   (++43).1.569697