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

1 files changed, 5 insertions, 1 deletions

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.