(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)
(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)))