--- a/lisp/msw-init.el	Mon Aug 13 10:09:36 2007 +0200
+++ b/lisp/msw-init.el	Mon Aug 13 10:10:02 2007 +0200
@@ -43,20 +43,11 @@
 (defun init-post-mswindows-win (console)
   "Initialize mswindows GUI at startup (post).  Don't call this."
   (unless mswindows-post-win-initted
-    ;; XXX Add zmacs region hooks here ?
-
     ;; Old-style mswindows bindings. The new-style mswindows bindings
     ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs.
-    (define-key global-map '(shift delete)   'mswindows-cut-region)
-    ; (define-key global-map '(control delete) 'mswindows-delete-region)
-    (define-key global-map '(shift insert)   'mswindows-paste-region)
-    (define-key global-map '(control insert) 'mswindows-copy-region)
-
-    ;; Other mswindows style-compliant keys
-    (define-key global-map '(control z)	'undo)
-
-    ;; Other mswindows style-compliant keys
-    (define-key global-map '(control z)        'undo)
+    (define-key global-map '(control insert) 'mswindows-copy-clipboard)
+    (define-key global-map '(shift insert)   'mswindows-paste-clipboard)
+    (define-key global-map '(shift delete)   'mswindows-cut-clipboard)
 
     ;; Random stuff
     (define-key global-map 'menu	'popup-mode-menu)