Mercurial > emacs
comparison lisp/cus-edit.el @ 67791:32dce3f26e21
(custom-variable-reset-standard, custom-face-reset-standard):
Recalculate new values.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 24 Dec 2005 04:05:13 +0000 |
parents | 7c9d6a4a35c7 |
children | 1c774eee2980 |
comparison
equal
deleted
inserted
replaced
67790:146a0850a220 | 67791:32dce3f26e21 |
---|---|
2767 (put symbol 'customized-value nil) | 2767 (put symbol 'customized-value nil) |
2768 (put symbol 'customized-variable-comment nil) | 2768 (put symbol 'customized-variable-comment nil) |
2769 (when (or (get symbol 'saved-value) (get symbol 'saved-variable-comment)) | 2769 (when (or (get symbol 'saved-value) (get symbol 'saved-variable-comment)) |
2770 (put symbol 'saved-value nil) | 2770 (put symbol 'saved-value nil) |
2771 (custom-push-theme 'theme-value symbol 'user 'reset nil) | 2771 (custom-push-theme 'theme-value symbol 'user 'reset nil) |
2772 (custom-theme-recalc-variable symbol) | |
2772 (put symbol 'saved-variable-comment nil) | 2773 (put symbol 'saved-variable-comment nil) |
2773 (custom-save-all)) | 2774 (custom-save-all)) |
2774 (widget-put widget :custom-state 'unknown) | 2775 (widget-put widget :custom-state 'unknown) |
2775 ;; This call will possibly make the comment invisible | 2776 ;; This call will possibly make the comment invisible |
2776 (custom-redraw widget))) | 2777 (custom-redraw widget))) |
3432 (put symbol 'customized-face nil) | 3433 (put symbol 'customized-face nil) |
3433 (put symbol 'customized-face-comment nil) | 3434 (put symbol 'customized-face-comment nil) |
3434 (when (or (get symbol 'saved-face) (get symbol 'saved-face-comment)) | 3435 (when (or (get symbol 'saved-face) (get symbol 'saved-face-comment)) |
3435 (put symbol 'saved-face nil) | 3436 (put symbol 'saved-face nil) |
3436 (custom-push-theme 'theme-face symbol 'user 'reset nil) | 3437 (custom-push-theme 'theme-face symbol 'user 'reset nil) |
3438 (custom-theme-recalc-face symbol) | |
3437 ;; Do not explictly save resets to standards without themes. | 3439 ;; Do not explictly save resets to standards without themes. |
3438 (if (null (cdr (get symbol 'theme-face))) | 3440 (if (null (cdr (get symbol 'theme-face))) |
3439 (put symbol 'theme-face nil)) | 3441 (put symbol 'theme-face nil)) |
3440 (put symbol 'saved-face-comment nil) | 3442 (put symbol 'saved-face-comment nil) |
3441 (custom-save-all)) | 3443 (custom-save-all)) |