(unless (widget-get widget :custom-form)
(widget-put widget :custom-form custom-face-default-form))
(let* ((symbol (widget-value widget))
- (spec (or (get symbol 'customized-face)
- (get symbol 'saved-face)
- (get symbol 'face-defface-spec)
- ;; Attempt to construct it.
- (list (list t (face-custom-attributes-get
- symbol (selected-frame))))))
+ (spec (custom-face-get-spec symbol))
(form (widget-get widget :custom-form))
(indent (widget-get widget :indent))
(edit (widget-create-child-and-convert
(child (car (widget-get widget :children)))
(value (widget-value child)))
(put symbol 'customized-face value)
- (face-spec-set symbol value)
+ (face-spec-set symbol value nil '(custom))
(custom-face-state-set widget)
(custom-redraw-magic widget)))
(let* ((symbol (widget-value widget))
(child (car (widget-get widget :children)))
(value (widget-value child)))
- (face-spec-set symbol value)
+ (face-spec-set symbol value nil '(custom))
(put symbol 'saved-face value)
(put symbol 'customized-face nil)
(custom-save-all)
(unless value
(signal 'error (list "No saved value for this face" symbol)))
(put symbol 'customized-face nil)
- (face-spec-set symbol value)
+ (face-spec-set symbol value nil '(custom))
(widget-value-set child value)
(custom-face-state-set widget)
(custom-redraw-magic widget)))
(when (get symbol 'saved-face)
(put symbol 'saved-face nil)
(custom-save-all))
- (face-spec-set symbol value)
+ (face-spec-set symbol value nil '(custom))
(widget-value-set child value)
(custom-face-state-set widget)
(custom-redraw-magic widget)))