[COMMIT] Shrink the widget-field-face

NOTE: This patch has been committed. Hello, so here's a first face that needs to be shrinked when its background is set to something non default (you shoulda seen its face :-). It also fixes its specification which was wrong, and answers sjt's comment on top of it. lisp/ChangeLog addition: 2011-12-27 Didier Verna <didier(a)xemacs.org&gt; * wid-edit.el (widget-field-face): Set this face to shrink. Fix incorrect specification. XEmacs 21.5 source patch: Diff command: hg diff --git --show-function Files affected: lisp/wid-edit.el diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el ＠＠ -88,22 +88,18 ＠＠ This exists as a variable so it can be s ;; 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." -- Resistance is futile. You will be jazzimilated. Scientific site: http://www.lrde.epita.fr/~didier Music (Jazz) site: http://www.didierverna.com _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches