Function: custom-face-state-set

custom-face-state-set is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-face-state-set WIDGET &optional NO-FILTER)

Documentation

Set the state of WIDGET, a custom-face widget.

If the user edited the widget, set the state to modified. If not, the new state is one of the return values of custom-face-state. Optional argument NO-FILTER means to check against an unfiltered spec.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-face-state-set (widget &optional no-filter)
  "Set the state of WIDGET, a custom-face widget.
If the user edited the widget, set the state to modified.  If not, the new
state is one of the return values of `custom-face-state'.
Optional argument NO-FILTER means to check against an unfiltered spec."
  (let ((face (widget-value widget)))
    (widget-put widget :custom-state
                (if (face-spec-match-p
                     face
                     (if no-filter
                         (custom-face-get-current-spec-unfiltered face)
                       (custom-face-widget-to-spec widget)))
                    (custom-face-state face)
                  'modified))))