diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-03-21 16:44:10 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-03-21 16:44:10 +0000 |
| commit | e02577b7d8dc9e9384b0e27edf992a5606b81465 (patch) | |
| tree | 2a1e6343be9eb706805d96279b86817eab4e3da0 /lisp/custom.el | |
| parent | 11e887e29ed7373ecda47ae4956c1752b47c8c98 (diff) | |
| download | emacs-e02577b7d8dc9e9384b0e27edf992a5606b81465.tar.gz | |
* cus-edit.el (custom-face-set): Call custom-push-theme before
face-spec set so that `changed' theme is correctly saved.
(custom-face-reset-standard): Reset to recalculated face rather
than defface spec.
* custom.el (custom-push-theme): Only save `changed' theme if the
current face does not match the defface specs.
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index 15b5b4a815c..c67f3b06272 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -819,7 +819,8 @@ See `custom-known-themes' for a list of known themes." (not (equal (eval (car (get symbol 'standard-value))) (symbol-value symbol))))) (setq old (list (list 'changed (symbol-value symbol)))) - (if (facep symbol) + (if (and (facep symbol) + (not (face-spec-match-p symbol (get symbol 'face-defface-spec)))) (setq old (list (list 'changed (list (append '(t) (custom-face-attributes-get symbol nil))))))))) (put symbol prop (cons (list theme value) old)) |