Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 5621:8265913e617b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Explicitely set zmacs-region to not shrink. -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2011-12-27 Didier Verna <didier@xemacs.org> * faces.el: Explicitely set the 'zmacs-region face to not shrink so as to override a shrink setting for a face under it (during face merging).
author Didier Verna <didier@xemacs.org>
date Tue, 27 Dec 2011 15:32:42 +0100
parents 75ad4969a16d
children 4b4b37ddb7fd
comparison
equal deleted inserted replaced
5620:7a81b4d98d2d 5621:8265913e617b
2111 'global) 2111 'global)
2112 (set-face-background-pixmap 'highlight 2112 (set-face-background-pixmap 'highlight
2113 '(((win default mono) . "gray1")) 2113 '(((win default mono) . "gray1"))
2114 'global) 2114 'global)
2115 2115
2116 ;; We need to set this face to not shrink *explicitely* in order to force
2117 ;; covering a shrinked selection. -- dvl
2118 (set-face-shrink-p 'zmacs-region nil)
2116 (set-face-background 'zmacs-region 2119 (set-face-background 'zmacs-region
2117 '(((win default color) . "gray65") 2120 '(((win default color) . "gray65")
2118 ((win default grayscale) . "gray65")) 2121 ((win default grayscale) . "gray65"))
2119 'global) 2122 'global)
2120 (set-face-background-pixmap 'zmacs-region 2123 (set-face-background-pixmap 'zmacs-region