Function: custom-face-widget-to-spec

custom-face-widget-to-spec is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-face-widget-to-spec WIDGET)

Documentation

Return a face spec corresponding to WIDGET.

WIDGET should be a custom-face widget.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-face-widget-to-spec (widget)
  "Return a face spec corresponding to WIDGET.
WIDGET should be a `custom-face' widget."
  (unless (eq (widget-type widget) 'custom-face)
    (error "Invalid widget"))
  (let ((child (car (widget-get widget :children))))
    (custom-post-filter-face-spec
     (if (eq (widget-type child) 'custom-face-edit)
	 `((t ,(widget-value child)))
       (widget-value child)))))