# HG changeset patch
# User Didier Verna <didier@xemacs.org>
# Date 1324995688 -3600
# Node ID 7a81b4d98d2daf4f2e6b8300d74f9b1c128e993c
# Parent  75ad4969a16dbb001d64231093c08a2e35f0288d
Shrink the widget-field-face.


-------------------- ChangeLog entries follow: --------------------


lisp/ChangeLog addition:

2011-12-27  Didier Verna  <didier@xemacs.org>

	* wid-edit.el (widget-field-face): Set this face to shrink. Fix
	incorrect specification.

diff -r 75ad4969a16d -r 7a81b4d98d2d lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 26 15:04:25 2011 +0100
+++ b/lisp/ChangeLog	Tue Dec 27 15:21:28 2011 +0100
@@ -1,3 +1,8 @@
+2011-12-27  Didier Verna  <didier@xemacs.org>
+
+	* wid-edit.el (widget-field-face): Set this face to shrink. Fix
+	incorrect specification.
+
 2011-12-26  Didier Verna  <didier@xemacs.org>
 
 	* cl-macs.el (face-flush-p): Removed.
diff -r 75ad4969a16d -r 7a81b4d98d2d lisp/wid-edit.el
--- a/lisp/wid-edit.el	Mon Dec 26 15:04:25 2011 +0100
+++ b/lisp/wid-edit.el	Tue Dec 27 15:21:28 2011 +0100
@@ -88,22 +88,18 @@
 ;; TTY gets special definitions here and in the next defface, because
 ;; the gray colors defined for other displays cause black text on a black
 ;; background, at least on light-background TTYs.
-(defface widget-field-face '(
-			     ;; #### sjt sez:  XEmacs doesn't like this.
-			     ;; The Custom face editor widget shows a Lisp
-			     ;; form, not a face structure.  Does it produce
-			     ;; the right face on TTYs?
-			     ;; One hypothesis is that the editor doesn't
-			     ;; grok non-default display types in the value.
-			     (((type tty))
-			      (:background "yellow3")
-			      (:foreground "black"))
+(defface widget-field-face '((((type tty))
+			      (:background "yellow3"
+			       :foreground "black"
+			       :shrink t))
 			     (((class grayscale color)
 			       (background light))
-			      (:background "gray85"))
+			      (:background "gray85"
+			       :shrink t))
 			     (((class grayscale color)
 			       (background dark))
-			      (:background "dim gray"))
+			      (:background "dim gray"
+			       :shrink t))
 			     (t
 			      (:italic t)))
   "Face used for editable fields."