--- a/lisp/keydefs.el	Wed Dec 26 17:30:16 2007 +0100
+++ b/lisp/keydefs.el	Sun Jan 20 13:09:58 2008 +0100
@@ -620,12 +620,16 @@
 (define-key global-map '(meta delete)	'backward-or-forward-kill-word)
 (define-key global-map [(control x) (delete)]
 				        'backward-or-forward-kill-sentence)
+(define-key global-map '(shift delete) 'kill-primary-selection)
+
 (define-key global-map 'kp-delete	'backward-or-forward-delete-char)
 (define-key global-map '(control kp-delete) 'backward-or-forward-kill-word)
 (define-key global-map '(meta kp-delete) 'backward-or-forward-kill-word)
 (define-key global-map [(control x) (kp-delete)]
 					'backward-or-forward-kill-sentence)
 
+(define-key global-map '(shift kp-delete) 'kill-primary-selection)
+
 ;; don't try this one at home, kids.
 (define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp)
 (define-key global-map '(control meta kp-delete) 'backward-or-forward-kill-sexp)