Mercurial > hg > xemacs-beta

comparison lisp/msw-init.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 7df0dd720c89
children e11d67e05968
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
60 (lambda () 60 (lambda ()
61 (if (console-on-window-system-p) 61 (if (console-on-window-system-p)
62 (activate-region-as-selection)))) 62 (activate-region-as-selection))))
63 ;; Old-style mswindows bindings. The new-style mswindows bindings 63 ;; Old-style mswindows bindings. The new-style mswindows bindings
64 ;; (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.
65 (define-key global-map '(control insert) 'mswindows-copy-clipboard) 65 (define-key global-map '(shift delete) 'kill-primary-selection)
66 (define-key global-map '(shift insert) 'mswindows-paste-clipboard) 66 (define-key global-map '(control delete) 'delete-primary-selection)
67 (define-key global-map '(shift delete) 'mswindows-cut-clipboard) 67 (define-key global-map '(shift insert) 'yank-clipboard-selection)
68 (define-key global-map '(control insert) 'copy-primary-selection)
68 69
69 ;; Random stuff 70 ;; Random stuff
70 (define-key global-map 'menu 'popup-mode-menu) 71 (define-key global-map 'menu 'popup-mode-menu)
71 72
72 (setq mswindows-post-win-initted t))) 73 (setq mswindows-post-win-initted t)))