Mercurial > emacs
comparison lisp/cus-edit.el @ 40825:22caa22b7399
2001-11-07 Per Abrahamsen <abraham@dina.kvl.dk>
* cus-edit.el (custom-face-value-create): Don't ignore the
`customized-face' attribute when finding the current face spec.
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Thu, 08 Nov 2001 09:57:20 +0000 |
| parents | f49e883aeab2 |
| children | e694138746d6 |
comparison
equal
deleted
inserted
replaced
| 40824:40a1b665108c | 40825:22caa22b7399 |
|---|---|
| 2775 (message "Creating face editor...") | 2775 (message "Creating face editor...") |
| 2776 (custom-load-widget widget) | 2776 (custom-load-widget widget) |
| 2777 (unless (widget-get widget :custom-form) | 2777 (unless (widget-get widget :custom-form) |
| 2778 (widget-put widget :custom-form custom-face-default-form)) | 2778 (widget-put widget :custom-form custom-face-default-form)) |
| 2779 (let* ((symbol (widget-value widget)) | 2779 (let* ((symbol (widget-value widget)) |
| 2780 (spec (or (get symbol 'saved-face) | 2780 (spec (or (get symbol 'customized-face) |
| 2781 (get symbol 'saved-face) | |
| 2781 (get symbol 'face-defface-spec) | 2782 (get symbol 'face-defface-spec) |
| 2782 ;; Attempt to construct it. | 2783 ;; Attempt to construct it. |
| 2783 (list (list t (custom-face-attributes-get | 2784 (list (list t (custom-face-attributes-get |
| 2784 symbol (selected-frame)))))) | 2785 symbol (selected-frame)))))) |
| 2785 (form (widget-get widget :custom-form)) | 2786 (form (widget-get widget :custom-form)) |