From e475612a278de1518f0ad2c2f51950de450e2a7e Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sat, 20 Jan 2001 01:24:15 +0000 Subject: [PATCH] (custom-face-save): Do post-processing on the face's new value like `custom-face-set' does. --- lisp/cus-edit.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index a9358d66703..052b4ca2dee 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2873,14 +2873,18 @@ Optional EVENT is the location for the menu." "Prepare for saving WIDGET's face attributes, but don't write `.emacs'." (let* ((symbol (widget-value widget)) (child (car (widget-get widget :children))) - (value (widget-value child)) + (value (custom-post-filter-face-spec (widget-value child))) (comment-widget (widget-get widget :comment-widget)) (comment (widget-value comment-widget))) (when (equal comment "") (setq comment nil) ;; Make the comment invisible by hand if it's empty (custom-comment-hide comment-widget)) - (face-spec-set symbol value) + (if (face-spec-choose value) + (face-spec-set symbol value) + ;; face-set-spec ignores empty attribute lists, so just give it + ;; something harmless instead. + (face-spec-set symbol '((t :foreground unspecified)))) (put symbol 'saved-face value) (put symbol 'customized-face nil) (put symbol 'face-comment comment) -- 2.39.2