🚀 go-pugleaf

In <PETRILLI.91Jun6192752@geech.gnu.ai.mit.edu> petrilli@geech.gnu.ai.mit.edu (Chris Petrilli) writes:

>I have the same problem with the HP 9000/370s I use...   Below is the
>file 'swap-del-and-backspace.el' that will do exactly what you want.

>--- CUT HERE ---
>(defun swap-del-and-ctrl-h-key ()
>  "swaps the functions attached to backspace (C-h) and delete (C-?)."
>  (interactive)
>  (setq temporary-ctrl-h-key-binding (key-binding "\^h"))
>  (global-set-key "\^h" (key-binding "\^?"))
>  (global-set-key "\^?" temporary-ctrl-h-key-binding))

>;; (key-binding "\^h")
>;; (key-binding "\^?")
>--- CUT HERE ---


Unfortunately, the above just changes the key binding when editing
text.  It does not change the binking in various other modes (for
instance, inside incremental search DEL backs up 1 match).  The
problem is trying to find all occurrences of DEL and changing them to
\C-h.  What's really needed is a method which can change ALL bindings
of DEL to \C-h, but this probably requires an extra level of key
translation or rewriting the other key binding to work off the current
map (e.g. have incremental search bind to the "current
delete-backward-char" key.


I've sort of solved the same problem on a PC based X server by
redefining the PC keymap within the server, but this still has some
funny results.  You also need to then redefine how xterm and the shell
deal with these characters, while still putting up with some funny
goings on.