Mercurial > hg > xemacs-beta
comparison lisp/msw-init.el @ 404:2f8bb876ab1d r21-2-32
Import from CVS: tag r21-2-32
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:16:07 +0200 |
| parents | e11d67e05968 |
| children | 697ef44129c6 |
comparison
equal
deleted
inserted
replaced
| 403:9f011ab08d48 | 404:2f8bb876ab1d |
|---|---|
| 45 (unless mswindows-post-win-initted | 45 (unless mswindows-post-win-initted |
| 46 (if (featurep 'toolbar) | 46 (if (featurep 'toolbar) |
| 47 (if (featurep 'infodock) | 47 (if (featurep 'infodock) |
| 48 (require 'id-x-toolbar) | 48 (require 'id-x-toolbar) |
| 49 (init-x-toolbar))) | 49 (init-x-toolbar))) |
| 50 (if (featurep 'gutter) (init-gutter)) | |
| 50 (add-hook 'zmacs-deactivate-region-hook | 51 (add-hook 'zmacs-deactivate-region-hook |
| 51 (lambda () | 52 (lambda () |
| 52 (if (console-on-window-system-p) | 53 (if (console-on-window-system-p) |
| 53 (disown-selection)))) | 54 (disown-selection)))) |
| 54 (add-hook 'zmacs-activate-region-hook | 55 (add-hook 'zmacs-activate-region-hook |
| 59 (lambda () | 60 (lambda () |
| 60 (if (console-on-window-system-p) | 61 (if (console-on-window-system-p) |
| 61 (activate-region-as-selection)))) | 62 (activate-region-as-selection)))) |
| 62 ;; Old-style mswindows bindings. The new-style mswindows bindings | 63 ;; Old-style mswindows bindings. The new-style mswindows bindings |
| 63 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs. | 64 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs. |
| 64 (define-key global-map '(shift delete) 'kill-primary-selection) | 65 (global-set-key '(shift delete) 'kill-primary-selection) |
| 65 (define-key global-map '(control delete) 'delete-primary-selection) | 66 (global-set-key '(control delete) 'delete-primary-selection) |
| 66 (define-key global-map '(shift insert) 'yank-clipboard-selection) | 67 (global-set-key '(shift insert) 'yank-clipboard-selection) |
| 67 (define-key global-map '(control insert) 'copy-primary-selection) | 68 (global-set-key '(control insert) 'copy-primary-selection) |
| 69 | |
| 70 (global-set-key '(meta f4) 'save-buffers-kill-emacs) | |
| 68 | 71 |
| 69 ;; Random stuff | 72 ;; Random stuff |
| 70 (define-key global-map 'menu 'popup-mode-menu) | 73 (global-set-key 'menu 'popup-mode-menu) |
| 71 | 74 |
| 72 (setq mswindows-post-win-initted t))) | 75 (setq mswindows-post-win-initted t))) |
| 73 | 76 |