Mercurial > hg > xemacs-beta

comparison lisp/msw-init.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 6330739388db
children 558f606b08ae
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
46 ;; We can't load this until after the initial device is created 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 47 ;; because the icon initialization needs to access the display to get
48 ;; any toolbar-related color resources. 48 ;; any toolbar-related color resources.
49 (if (and (featurep 'xpm) (featurep 'toolbar)) 49 (if (and (featurep 'xpm) (featurep 'toolbar))
50 (init-x-toolbar)) 50 (init-x-toolbar))
51 (add-hook 'zmacs-deactivate-region-hook
52 (lambda ()
53 (if (console-on-window-system-p)
54 (disown-selection))))
55 (add-hook 'zmacs-activate-region-hook
56 (lambda ()
57 (if (console-on-window-system-p)
58 (activate-region-as-selection))))
59 (add-hook 'zmacs-update-region-hook
60 (lambda ()
61 (if (console-on-window-system-p)
62 (activate-region-as-selection))))
51 ;; Old-style mswindows bindings. The new-style mswindows bindings 63 ;; Old-style mswindows bindings. The new-style mswindows bindings
52 ;; (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.
53 (define-key global-map '(control insert) 'mswindows-copy-clipboard) 65 (define-key global-map '(control insert) 'mswindows-copy-clipboard)
54 (define-key global-map '(shift insert) 'mswindows-paste-clipboard) 66 (define-key global-map '(shift insert) 'mswindows-paste-clipboard)
55 (define-key global-map '(shift delete) 'mswindows-cut-clipboard) 67 (define-key global-map '(shift delete) 'mswindows-cut-clipboard)