# HG changeset patch
# User Didier Verna <didier@xemacs.org>
# Date 1324996362 -3600
# Node ID 8265913e617bfac0c9dd45cfb5872c11c16de060
# Parent  7a81b4d98d2daf4f2e6b8300d74f9b1c128e993c
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).

diff -r 7a81b4d98d2d -r 8265913e617b lisp/ChangeLog
--- 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
diff -r 7a81b4d98d2d -r 8265913e617b lisp/faces.el
--- 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"))