2777 |
(unless (widget-get widget :custom-form) |
(unless (widget-get widget :custom-form) |
2778 |
(widget-put widget :custom-form custom-face-default-form)) |
(widget-put widget :custom-form custom-face-default-form)) |
2779 |
(let* ((symbol (widget-value widget)) |
(let* ((symbol (widget-value widget)) |
2780 |
(spec (or (get symbol 'saved-face) |
(spec (or (get symbol 'customized-face) |
2781 |
|
(get symbol 'saved-face) |
2782 |
(get symbol 'face-defface-spec) |
(get symbol 'face-defface-spec) |
2783 |
;; Attempt to construct it. |
;; Attempt to construct it. |
2784 |
(list (list t (custom-face-attributes-get |
(list (list t (custom-face-attributes-get |