# HG changeset patch
# User ben
# Date 1020933226 0
# Node ID f3244b2b40536b8dbe51b1708d91e5c3401b1411
# Parent  5d09ddada9aeeab01a16605f283bb24b5d4a60c3
[xemacs-hg @ 2002-05-09 08:33:45 by ben]
key def changes


keydefs.el, msw-init.el:
	ctrl-delete is like M-d, in keeping with PC standards.  it still
	will function at its original (delete-selection), when there's a
	selection, with the new associated pending-del patch.

diff -r 5d09ddada9ae -r f3244b2b4053 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu May 09 07:16:38 2002 +0000
+++ b/lisp/ChangeLog	Thu May 09 08:33:46 2002 +0000
@@ -1,3 +1,11 @@
+2002-05-09  Ben Wing  <ben@xemacs.org>
+
+	* keydefs.el (global-map): New.
+	* msw-init.el (init-post-mswindows-win):
+	ctrl-delete is like M-d, in keeping with PC standards.  it still
+	will function at its original (delete-selection), when there's a
+	selection, with the new associated pending-del patch.
+
 2002-04-14  Golubev I. N.  <gin@mo.msk.ru>
 
 	* info.el (Info-find-index-alternatives): fix missing \ in \t.
diff -r 5d09ddada9ae -r f3244b2b4053 lisp/keydefs.el
--- a/lisp/keydefs.el	Thu May 09 07:16:38 2002 +0000
+++ b/lisp/keydefs.el	Thu May 09 08:33:46 2002 +0000
@@ -614,10 +614,12 @@
 
 ;; the infamous delete key
 (define-key global-map 'delete	        'backward-or-forward-delete-char)
+(define-key global-map '(control delete) 'backward-or-forward-kill-word)
 (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 '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)
diff -r 5d09ddada9ae -r f3244b2b4053 lisp/msw-init.el
--- a/lisp/msw-init.el	Thu May 09 07:16:38 2002 +0000
+++ b/lisp/msw-init.el	Thu May 09 08:33:46 2002 +0000
@@ -46,7 +46,6 @@
     ;; Old-style mswindows bindings. The new-style mswindows bindings
     ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs.
     (global-set-key '(shift delete)   'kill-primary-selection)
-    (global-set-key '(control delete) 'delete-primary-selection)
     (global-set-key '(shift insert)   'yank-clipboard-selection)
     (global-set-key '(control insert) 'copy-primary-selection)