From xemacs-m  Thu May  1 03:00:38 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 DAA27357
	for <xemacs-beta@xemacs.org>; Thu, 1 May 1997 03:00:37 -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 JAA02316; Thu, 1 May 1997 09:59:58 +0200
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id KAA18144; Thu, 1 May 1997 10:00:34 +0200
To: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Cc: 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> <rjg1w8kj43.fsf@zuse.dina.kvl.dk> <bciafmgcxf8.fsf@corp.Sun.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: 01 May 1997 10:00:34 +0200
In-Reply-To: Gary.Foster@Corp.Sun.COM's message of 30 Apr 1997 09:01:15 -0700
Message-ID: <rj207ripul.fsf@zuse.dina.kvl.dk>
Lines: 44
X-Mailer: Gnus v5.4.46/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit

Gary.Foster@Corp.Sun.COM (Gary D. Foster) writes:

> Doesn't work in message mode for me.

Really?  It works perfectly for me.

% xemacs-20.1 -q

(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"))

M-x enable-delete-forward RET

M-x message-mail RET

`delete' now delete forward, `backspace' deletes backward, `M-delete'
deletes words forward, and `M-backspace' deletes words backward.

Maybe you used an XEmacs where you already had experimented with the
keybindings? 

> I *think* the problem could be _easily_ fixed by changing the
> following in lisp/prim/keydefs.el:
> 
> ;; Default binding of "Backspace" is the same as delete.
> ;; Default binding of "Control-h" is help.
> 
> (define-key global-map 'backspace '[delete])
> (define-key global-map '(meta backspace) '[(meta delete)])
> (define-key global-map '(control backspace) '[(control delete)])
> (define-key global-map '(control meta backspace) '[(control meta delete)])

Yep.  The following bindings should avoid a lot of practical problems:

	(define-key global-map 'backspace "\C-?")
	(define-key global-map '(meta backspace) "\e\C-?")
	;; Don't bind control backspace.

I can think of some religious problems, but who cares?

