Mercurial > hg > xemacs-beta

comparison lisp/msw-init.el @ 221:6c0ae1f9357f r20-4b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b9
author cvs
date Mon, 13 Aug 2007 10:10:02 +0200
parents 262b8bb4a523
children 6330739388db
comparison
equal deleted inserted replaced
220:04f4bca7b601 221:6c0ae1f9357f
41 (setq mswindows-win-initted t))) 41 (setq mswindows-win-initted t)))
42 42
43 (defun init-post-mswindows-win (console) 43 (defun init-post-mswindows-win (console)
44 "Initialize mswindows GUI at startup (post). Don't call this." 44 "Initialize mswindows GUI at startup (post). Don't call this."
45 (unless mswindows-post-win-initted 45 (unless mswindows-post-win-initted
46 ;; XXX Add zmacs region hooks here ?
47
48 ;; Old-style mswindows bindings. The new-style mswindows bindings 46 ;; Old-style mswindows bindings. The new-style mswindows bindings
49 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs. 47 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs.
50 (define-key global-map '(shift delete) 'mswindows-cut-region) 48 (define-key global-map '(control insert) 'mswindows-copy-clipboard)
51 ; (define-key global-map '(control delete) 'mswindows-delete-region) 49 (define-key global-map '(shift insert) 'mswindows-paste-clipboard)
52 (define-key global-map '(shift insert) 'mswindows-paste-region) 50 (define-key global-map '(shift delete) 'mswindows-cut-clipboard)
53 (define-key global-map '(control insert) 'mswindows-copy-region)
54
55 ;; Other mswindows style-compliant keys
56 (define-key global-map '(control z) 'undo)
57
58 ;; Other mswindows style-compliant keys
59 (define-key global-map '(control z) 'undo)
60 51
61 ;; Random stuff 52 ;; Random stuff
62 (define-key global-map 'menu 'popup-mode-menu) 53 (define-key global-map 'menu 'popup-mode-menu)
63 54
64 (setq mswindows-post-win-initted t))) 55 (setq mswindows-post-win-initted t)))