Jan Vroonhof wrote: 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