Mercurial > hg > xemacs-beta

comparison lisp/msw-init.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 558f606b08ae
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
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 46 (if (featurep 'toolbar)
47 ;; because the icon initialization needs to access the display to get 47 (if (featurep 'infodock)
48 ;; any toolbar-related color resources. 48 (require 'id-x-toolbar)
49 (if (and (featurep 'xpm) (featurep 'toolbar)) 49 (init-x-toolbar)))
50 (init-x-toolbar))
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