Mercurial > emacs
comparison lisp/cus-edit.el @ 47809:26938a3af137
(Custom-reset-current): Don't test for default-boundp.
(Custom-reset-saved): Don't test for saved-value.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Wed, 09 Oct 2002 15:18:25 +0000 |
| parents | 8b3fa993e0ad |
| children | 4649d9cb92dd |
comparison
equal
deleted
inserted
replaced
| 47808:5db3fc34243e | 47809:26938a3af137 |
|---|---|
| 673 (defun Custom-reset-current (&rest ignore) | 673 (defun Custom-reset-current (&rest ignore) |
| 674 "Reset all modified group members to their current value." | 674 "Reset all modified group members to their current value." |
| 675 (interactive) | 675 (interactive) |
| 676 (let ((children custom-options)) | 676 (let ((children custom-options)) |
| 677 (mapc (lambda (widget) | 677 (mapc (lambda (widget) |
| 678 (and (default-boundp (widget-value widget)) | 678 (if (memq (widget-get widget :custom-state) |
| 679 (if (memq (widget-get widget :custom-state) | 679 '(modified changed)) |
| 680 '(modified changed)) | 680 (widget-apply widget :custom-reset-current))) |
| 681 (widget-apply widget :custom-reset-current)))) | 681 children))) |
| 682 children))) | |
| 683 | 682 |
| 684 (defun Custom-reset-saved (&rest ignore) | 683 (defun Custom-reset-saved (&rest ignore) |
| 685 "Reset all modified or set group members to their saved value." | 684 "Reset all modified or set group members to their saved value." |
| 686 (interactive) | 685 (interactive) |
| 687 (let ((children custom-options)) | 686 (let ((children custom-options)) |
| 688 (mapc (lambda (widget) | 687 (mapc (lambda (widget) |
| 689 (and (get (widget-value widget) 'saved-value) | 688 (if (memq (widget-get widget :custom-state) |
| 690 (if (memq (widget-get widget :custom-state) | 689 '(modified set changed rogue)) |
| 691 '(modified set changed rogue)) | 690 (widget-apply widget :custom-reset-saved))) |
| 692 (widget-apply widget :custom-reset-saved)))) | 691 children))) |
| 693 children))) | |
| 694 | 692 |
| 695 (defun Custom-reset-standard (&rest ignore) | 693 (defun Custom-reset-standard (&rest ignore) |
| 696 "Erase all customization (either current or saved) for the group members. | 694 "Erase all customization (either current or saved) for the group members. |
| 697 The immediate result is to restore them to their standard settings. | 695 The immediate result is to restore them to their standard settings. |
| 698 This operation eliminates any saved settings for the group members, | 696 This operation eliminates any saved settings for the group members, |