--- a/lisp/msw-init.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/msw-init.el	Mon Aug 13 11:35:02 2007 +0200
@@ -47,6 +47,7 @@
 	(if (featurep 'infodock)
 	    (require 'id-x-toolbar)
 	  (init-x-toolbar)))
+    (if (featurep 'gutter) (init-gutter))
     (add-hook 'zmacs-deactivate-region-hook
 	      (lambda ()
 		(if (console-on-window-system-p)
@@ -61,13 +62,15 @@
 		    (activate-region-as-selection))))
     ;; 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)   'kill-primary-selection)
-    (define-key global-map '(control delete) 'delete-primary-selection)
-    (define-key global-map '(shift insert)   'yank-clipboard-selection)
-    (define-key global-map '(control insert) 'copy-primary-selection)
+    (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)
+
+    (global-set-key '(meta f4)	      'save-buffers-kill-emacs)
 
     ;; Random stuff
-    (define-key global-map 'menu	'popup-mode-menu)
+    (global-set-key 'menu	'popup-mode-menu)
 
     (setq mswindows-post-win-initted t)))