From xemacs-m  Wed Apr 30 03:31:02 1997
Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228])
	by xemacs.org (8.8.5/8.8.5) with SMTP id DAA22341
	for <xemacs-beta@xemacs.org>; Wed, 30 Apr 1997 03:31:01 -0500 (CDT)
Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id KAA23596; Wed, 30 Apr 1997 10:30:17 +0200
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id KAA16997; Wed, 30 Apr 1997 10:30:52 +0200
To: Hunter Kelly <retnuh@corona.pixar.com>
Cc: Kyle Jones <kyle_jones@wonderworks.com>, xemacs-beta@xemacs.org
Subject: Re: Brain lossage
References: <bciwwpmohxl.fsf@corp.Sun.COM> 	<m2sp0azpbk.fsf@altair.xemacs.org> <QQcnhg04407.199704290003@crystal.WonderWorks.COM> <yvtpvvdv2ti.fsf@corona.pixar.com>
Organization: The Church of Emacs
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: 30 Apr 1997 10:30:52 +0200
In-Reply-To: Hunter Kelly's message of 29 Apr 1997 16:15:05 -0700
Message-ID: <rjg1w8kj43.fsf@zuse.dina.kvl.dk>
Lines: 23
X-Mailer: Gnus v5.4.46/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit

Hunter Kelly <retnuh@corona.pixar.com> writes:

> bind the backspace key to delete-backward-char
> bind the delete key to delete-char
> bind M-Backspace to backward-kill-word
> bind M-Delete to kill-word

Like this?

;;;###autoload
(defun enable-delete-forward ()
  "Set up the delete key to delete forward, and backspace to delete backward."
  (interactive)
  (define-key key-translation-map [ backspace ] "\C-?")
  (define-key key-translation-map [ delete ] "\C-d")
  (define-key key-translation-map [ (meta backspace) ] "\M-\C-?")
  (define-key key-translation-map [ (meta delete) ] "\M-d"))

It ought to work in all well-behaved[1] modes.

Footnotes: 
[1]  Given a suitable definition of `well-behaved'.
 

