Mercurial > hg > xemacs-beta
comparison lisp/cus-edit.el @ 476:6a8b2ec80a19
[xemacs-hg @ 2001-04-18 18:18:46 by didierv]
Custom-reset-standard fix
| author | didierv |
|---|---|
| date | Wed, 18 Apr 2001 18:18:48 +0000 |
| parents | e7ef97881643 |
| children | e07227fed94e |
comparison
equal
deleted
inserted
replaced
| 475:f42052c80e1c | 476:6a8b2ec80a19 |
|---|---|
| 302 (format "Customize variable: (default %s) " v) | 302 (format "Customize variable: (default %s) " v) |
| 303 "Customize variable: ") | 303 "Customize variable: ") |
| 304 obarray (lambda (symbol) | 304 obarray (lambda (symbol) |
| 305 (and (boundp symbol) | 305 (and (boundp symbol) |
| 306 (or (get symbol 'custom-type) | 306 (or (get symbol 'custom-type) |
| 307 (user-variable-p symbol)))) | 307 (user-variable-p symbol)))) |
| 308 t nil nil (and v (symbol-name v)))) | 308 t nil nil (and v (symbol-name v)))) |
| 309 (list (if (equal val "") | 309 (list (if (equal val "") |
| 310 (if (symbolp v) v nil) | 310 (if (symbolp v) v nil) |
| 311 (intern val))))) | 311 (intern val))))) |
| 312 | 312 |
| 610 (defun Custom-reset-standard (&rest ignore) | 610 (defun Custom-reset-standard (&rest ignore) |
| 611 "Reset all modified, set, or saved group members to their standard settings." | 611 "Reset all modified, set, or saved group members to their standard settings." |
| 612 (interactive) | 612 (interactive) |
| 613 (let ((children custom-options)) | 613 (let ((children custom-options)) |
| 614 (mapc (lambda (child) | 614 (mapc (lambda (child) |
| 615 (when (eq (widget-get child :custom-state) 'modified) | 615 (when (memq (widget-get child :custom-state) '(modified set saved)) |
| 616 (widget-apply child :custom-reset-standard))) | 616 (widget-apply child :custom-reset-standard))) |
| 617 children))) | 617 children))) |
| 618 | 618 |
| 619 | 619 |
| 620 ;;; The Customize Commands | 620 ;;; The Customize Commands |