Mercurial > emacs
comparison lisp/cus-edit.el @ 20262:c6532008f2a9
(custom-face-save): Save the face.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 15 Nov 1997 20:56:41 +0000 |
| parents | e1ca1fe89e6e |
| children | a7bab1d0c5e3 |
comparison
equal
deleted
inserted
replaced
| 20261:a1ca84bd10fd | 20262:c6532008f2a9 |
|---|---|
| 2407 (child (car (widget-get widget :children))) | 2407 (child (car (widget-get widget :children))) |
| 2408 (value (widget-value child))) | 2408 (value (widget-value child))) |
| 2409 (face-spec-set symbol value) | 2409 (face-spec-set symbol value) |
| 2410 (put symbol 'saved-face value) | 2410 (put symbol 'saved-face value) |
| 2411 (put symbol 'customized-face nil) | 2411 (put symbol 'customized-face nil) |
| 2412 (custom-save-all) | |
| 2412 (custom-face-state-set widget) | 2413 (custom-face-state-set widget) |
| 2413 (custom-redraw-magic widget))) | 2414 (custom-redraw-magic widget))) |
| 2414 | 2415 |
| 2415 (defun custom-face-reset-saved (widget) | 2416 (defun custom-face-reset-saved (widget) |
| 2416 "Restore WIDGET to the face's default attributes." | 2417 "Restore WIDGET to the face's default attributes." |