XEmacs 21.2.32 "Kastor & Polydeukes".

[chise/xemacs-chise.git.1] / lisp / msw-init.el

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