From: Miles Bader <miles@gnu.org>
Date: Mon, 10 Jun 2002 02:47:18 +0000 (+0000)
Subject: (custom-display): Add support for `supports' predicate.
X-Git-Tag: ttn-vms-21-2-B4~14694
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b32d1a7ca64a79baf74e1547d38459482464f45;p=emacs.git

(custom-display): Add support for `supports' predicate.
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 344ffab2d47..d09d39733b3 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2627,7 +2627,11 @@ Match frames with light backgrounds.")
 				    (const :format "Dark\n"
 					   :sibling-args (:help-echo "\
 Match frames with dark backgrounds.")
-					   dark)))))))
+					   dark)))
+		  (group :sibling-args (:help-echo "\
+Only match frames that support the specified face attributes.")
+			 (const :format "Supports attributes:" supports)
+			 (custom-face-edit :format "%n%v"))))))
 
 ;;; The `custom-face' Widget.