custom-face-menu

custom-face-menu is a variable defined in `cus-edit.el'.
Its value is shown below.

Documentation:
Alist of actions for the `custom-face' widget.
Each entry has the form (NAME ACTION FILTER) where NAME is the name of
the menu entry, ACTION is the function to call on the widget when the
menu is selected, and FILTER is a predicate which takes a `custom-face'
widget as an argument, and returns non-nil if ACTION is valid on that
widget. If FILTER is nil, ACTION is always valid.

Value:

(("Set for Current Session" custom-face-set)
 ("Undo Edits" custom-redraw
  (lambda
    (widget)
    (memq
     (widget-get widget :custom-state)
     '(modified changed))))
 ("Revert This Session's Customization" custom-face-reset-saved
  (lambda
    (widget)
    (memq
     (widget-get widget :custom-state)
     '(modified set changed))))
 ("---" ignore ignore)
 ("Add Comment" custom-comment-show custom-comment-invisible-p)
 ("---" ignore ignore)
 ("For Current Display" custom-face-edit-selected
  (lambda
    (widget)
    (not
     (eq
      (widget-get widget :custom-form)
      'selected))))
 ("For All Kinds of Displays" custom-face-edit-all
  (lambda
    (widget)
    (not
     (eq
      (widget-get widget :custom-form)
      'all))))
 ("Show Lisp Expression" custom-face-edit-lisp
  (lambda
    (widget)
    (not
     (eq
      (widget-get widget :custom-form)
      'lisp)))))