Mercurial > hg > xemacs-beta

comparison lisp/msw-init.el @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents 6c0ae1f9357f
children 7df0dd720c89
comparison
equal deleted inserted replaced
275:a68ae4439f57 276:6330739388db
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 ;; We can't load this until after the initial device is created
47 ;; because the icon initialization needs to access the display to get
48 ;; any toolbar-related color resources.
49 (if (and (featurep 'xpm) (featurep 'toolbar))
50 (init-x-toolbar))
46 ;; Old-style mswindows bindings. The new-style mswindows bindings 51 ;; Old-style mswindows bindings. The new-style mswindows bindings
47 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs. 52 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs.
48 (define-key global-map '(control insert) 'mswindows-copy-clipboard) 53 (define-key global-map '(control insert) 'mswindows-copy-clipboard)
49 (define-key global-map '(shift insert) 'mswindows-paste-clipboard) 54 (define-key global-map '(shift insert) 'mswindows-paste-clipboard)
50 (define-key global-map '(shift delete) 'mswindows-cut-clipboard) 55 (define-key global-map '(shift delete) 'mswindows-cut-clipboard)