Jan Vroonhof wrote:
Jonathan Harris <jhar(a)tardis.ed.ac.uk> writes:
> 1998-09-20 Jonathan Harris <jhar(a)tardis.ed.ac.uk>
>
> * simple.el (delete-key-deletes-forward): Custom default changed
> from nil to '(eq system-type 'windows-nt)'.
This the wrong fix, you should add a windows-nt case to this
;; Trash me, baby.
(defsubst delete-forward-p ()
(and delete-key-deletes-forward
(or (not (eq (device-type) 'x))
(x-keysym-on-keyboard-sans-modifiers-p 'backspace))))
Do you mean like:
(defsubst delete-forward-p ()
(or (eq (device-type) 'mswindows) <---
(and delete-key-deletes-forward
(or (not (eq (device-type) 'x))
(x-keysym-on-keyboard-sans-modifiers-p 'backspace)))))
or
(defsubst delete-forward-p ()
(or (eq system-type 'windows-nt) <---
(and delete-key-deletes-forward
(or (not (eq (device-type) 'x))
(x-keysym-on-keyboard-sans-modifiers-p 'backspace)))))
I don't think either case is right because they both make
delete-key-deletes-forward redundant on mswindows devices, which seems
to me to complicate things and which would require doc changes.
All I'm looking for is for delete-key-deletes-forward to default to t on
mswindows devices and/or windows-nt systems.
Jonathan.
--
Jonathan Harris | jhar(a)tardis.ed.ac.uk
London, England | Jonathan.Harris(a)symbian.com