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)

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.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-face-state-set (widget)
  "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'."
  (let ((face (widget-value widget)))
    (widget-put widget :custom-state
                (if (face-spec-match-p face (custom-face-widget-to-spec widget))
                    (custom-face-state face)
                  'modified))))