Mercurial > hg > xemacs-beta
changeset 5621:8265913e617b
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 | 7a81b4d98d2d |
| children | 4b4b37ddb7fd |
| files | lisp/ChangeLog lisp/faces.el |
| diffstat | 2 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Dec 27 15:21:28 2011 +0100 +++ b/lisp/ChangeLog Tue Dec 27 15:32:42 2011 +0100 @@ -1,3 +1,9 @@ +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). + 2011-12-27 Didier Verna <didier@xemacs.org> * wid-edit.el (widget-field-face): Set this face to shrink. Fix
--- a/lisp/faces.el Tue Dec 27 15:21:28 2011 +0100 +++ b/lisp/faces.el Tue Dec 27 15:32:42 2011 +0100 @@ -2113,6 +2113,9 @@ '(((win default mono) . "gray1")) 'global) +;; We need to set this face to not shrink *explicitely* in order to force +;; covering a shrinked selection. -- dvl +(set-face-shrink-p 'zmacs-region nil) (set-face-background 'zmacs-region '(((win default color) . "gray65") ((win default grayscale) . "gray65"))