Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!ucsd!sdcsvax!ucsdhub!hp-sdd!hplabs!hpda!hpcuhb!hpcllla!hpclisp!hpclscu!shankar
From: shankar@hpclscu.HP.COM (Shankar Unni)
Newsgroups: comp.sys.hp
Subject: Re: Remap Backspace in GNU Emacs with X11 under HP
Message-ID: <1340050@hpclscu.HP.COM>
Date: 27 Mar 89 21:45:13 GMT
References: <320@mohawk.cs.utexas.edu>
Organization: Hewlett-Packard Calif. Language Lab
Lines: 19

> I am looking for in intelligent way to remap the Backspace key on
> HP9000/350 to DEL in Emacs with X11.  Seems to me the x-rebind-key
> in X10 does not exist anymore and globally rebind ^h to DEL is not
> acceptable. 

The following works fine for me:

    (let ((the-table (make-string 128 0)))
      (let ((i 0))
        (while (< i 128)
          (aset the-table i i)
          (setq i (1+ i))))
      (aset the-table ?\177 ?\^h)                   ; Swap <BS> and DEL
      (aset the-table ?\^h ?\177)                   ; Swap DEL and <BS>
      (setq keyboard-translate-table the-table))

---
Shankar Unni.
HP Computer Language Lab.