From xemacs-m  Wed Apr 30 11:01:30 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id LAA10158
	for <xemacs-beta@xemacs.org>; Wed, 30 Apr 1997 11:01:27 -0500 (CDT)
Received: from Corp.Sun.COM ([129.145.35.78]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id JAA21212 for <xemacs-beta@xemacs.org>; Wed, 30 Apr 1997 09:11:16 -0700
Received: from legba.Corp.Sun.COM by Corp.Sun.COM (SMI-8.6/SMI-5.3)
	id JAA07045; Wed, 30 Apr 1997 09:01:26 -0700
Received: by legba.Corp.Sun.COM (SMI-8.6/SMI-SVR4)
	id JAA13738; Wed, 30 Apr 1997 09:01:15 -0700
To: 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>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
From: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Date: 30 Apr 1997 09:01:15 -0700
In-Reply-To: Per Abrahamsen's message of 30 Apr 1997 10:30:52 +0200
Message-ID: <bciafmgcxf8.fsf@corp.Sun.COM>
Lines: 44
X-Mailer: Gnus v5.4.46/XEmacs 20.2(beta3)

Per Abrahamsen <abraham@dina.kvl.dk> writes:

> ;;;###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.

Doesn't work in message mode for me.

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)])

so that backspace and delete no longer generate the same keysym.  That 
way people can bind the keys to anything they darn well please.

I'm changing it here to test it anyways, and redumping to see if it
messes anything up.

I'm also going to pull all the stuff out of pc-select.el that doesn't
_specifically_ have to do with selection (all the F4/F6/F1 whatever
bindings) since they belong in pc-mode.el, not pc-select.el (IMHO).
I could easily get used to (shift arrow) marking regions and such, but 
I don't want to have to go CUA just to get those.  I'm sure I'm not
the only one, as well, and if people want CUA they can load the other
package (pc-mode) instead or in addition to.

If other people agree, I'll submit the hacked ones for 20.3, otherwise 
I'll just use 'em locally.

-- Gary F.

