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