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>
* 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