# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1023677238 0
# Node ID ee1a7b81cb0e1bbc136c53fe33a4eb858bdd2e13
# Parent  5b5e4677c0572640a6f22fd939ed1cf2ec0ad68f
(custom-display): Add support for `supports' predicate.

diff -r 5b5e4677c057 -r ee1a7b81cb0e lisp/cus-edit.el
--- a/lisp/cus-edit.el	Mon Jun 10 02:15:24 2002 +0000
+++ b/lisp/cus-edit.el	Mon Jun 10 02:47:18 2002 +0000
@@ -2627,7 +2627,11 @@
 				    (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.