Mercurial > emacs
comparison lisp/cus-edit.el @ 45724:ee1a7b81cb0e
(custom-display): Add support for `supports' predicate.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 10 Jun 2002 02:47:18 +0000 |
| parents | 3fe5828abc37 |
| children | abb237aa3c61 |
comparison
equal
deleted
inserted
replaced
| 45723:5b5e4677c057 | 45724:ee1a7b81cb0e |
|---|---|
| 2625 Match frames with light backgrounds.") | 2625 Match frames with light backgrounds.") |
| 2626 light) | 2626 light) |
| 2627 (const :format "Dark\n" | 2627 (const :format "Dark\n" |
| 2628 :sibling-args (:help-echo "\ | 2628 :sibling-args (:help-echo "\ |
| 2629 Match frames with dark backgrounds.") | 2629 Match frames with dark backgrounds.") |
| 2630 dark))))))) | 2630 dark))) |
| 2631 (group :sibling-args (:help-echo "\ | |
| 2632 Only match frames that support the specified face attributes.") | |
| 2633 (const :format "Supports attributes:" supports) | |
| 2634 (custom-face-edit :format "%n%v")))))) | |
| 2631 | 2635 |
| 2632 ;;; The `custom-face' Widget. | 2636 ;;; The `custom-face' Widget. |
| 2633 | 2637 |
| 2634 (defface custom-face-tag-face | 2638 (defface custom-face-tag-face |
| 2635 `((t (:weight bold :height 1.2 :inherit variable-pitch))) | 2639 `((t (:weight bold :height 1.2 :inherit variable-pitch))) |