X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fmsw-init.el;h=aef2101b34d934b5b819b67f3d508ee97925052f;hp=de7d823e7a2ec55f8e78852a4177f9ee4b49b885;hb=2fd9701a4f902054649dde9143a3f77809afee8f;hpb=efab7bccd7d7da13ff3979d2890a417a048ec960

diff --git a/lisp/msw-init.el b/lisp/msw-init.el
index de7d823..aef2101 100644
--- a/lisp/msw-init.el
+++ b/lisp/msw-init.el
@@ -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)))