changeset 832:f3244b2b4053

[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.
author ben
date Thu, 09 May 2002 08:33:46 +0000
parents 5d09ddada9ae
children ee2d33cfc3c1
files lisp/ChangeLog lisp/keydefs.el lisp/msw-init.el
diffstat 3 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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)
--- 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)