Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 5620:7a81b4d98d2d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Didier Verna <didier@xemacs.org>
date Tue, 27 Dec 2011 15:21:28 +0100
parents ac37a5f7e5be
children cc6f0266bc36
comparison
equal deleted inserted replaced
5619:75ad4969a16d 5620:7a81b4d98d2d
86 86
87 ;; #### comment from GNU Emacs 21.3.50, test the first spec. 87 ;; #### comment from GNU Emacs 21.3.50, test the first spec.
88 ;; TTY gets special definitions here and in the next defface, because 88 ;; TTY gets special definitions here and in the next defface, because
89 ;; the gray colors defined for other displays cause black text on a black 89 ;; the gray colors defined for other displays cause black text on a black
90 ;; background, at least on light-background TTYs. 90 ;; background, at least on light-background TTYs.
91 (defface widget-field-face '( 91 (defface widget-field-face '((((type tty))
92 ;; #### sjt sez: XEmacs doesn't like this. 92 (:background "yellow3"
93 ;; The Custom face editor widget shows a Lisp 93 :foreground "black"
94 ;; form, not a face structure. Does it produce 94 :shrink t))
95 ;; the right face on TTYs?
96 ;; One hypothesis is that the editor doesn't
97 ;; grok non-default display types in the value.
98 (((type tty))
99 (:background "yellow3")
100 (:foreground "black"))
101 (((class grayscale color) 95 (((class grayscale color)
102 (background light)) 96 (background light))
103 (:background "gray85")) 97 (:background "gray85"
98 :shrink t))
104 (((class grayscale color) 99 (((class grayscale color)
105 (background dark)) 100 (background dark))
106 (:background "dim gray")) 101 (:background "dim gray"
102 :shrink t))
107 (t 103 (t
108 (:italic t))) 104 (:italic t)))
109 "Face used for editable fields." 105 "Face used for editable fields."
110 :group 'widget-faces) 106 :group 'widget-faces)
111 107