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