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)) |