Mercurial > emacs
comparison lisp/cus-edit.el @ 30284:7dd010204a23
(custom-variable-reset-saved, custom-variable-reset-standard): Remove
unused bindings.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 18 Jul 2000 12:52:25 +0000 |
| parents | 80383e9be1e2 |
| children | 617f41808ff6 |
comparison
equal
deleted
inserted
replaced
| 30283:70a7936c29c5 | 30284:7dd010204a23 |
|---|---|
| 2421 | 2421 |
| 2422 (defun custom-variable-reset-saved (widget) | 2422 (defun custom-variable-reset-saved (widget) |
| 2423 "Restore the saved value for the variable being edited by WIDGET." | 2423 "Restore the saved value for the variable being edited by WIDGET." |
| 2424 (let* ((symbol (widget-value widget)) | 2424 (let* ((symbol (widget-value widget)) |
| 2425 (set (or (get symbol 'custom-set) 'set-default)) | 2425 (set (or (get symbol 'custom-set) 'set-default)) |
| 2426 (comment-widget (widget-get widget :comment-widget)) | |
| 2427 (value (get symbol 'saved-value)) | 2426 (value (get symbol 'saved-value)) |
| 2428 (comment (get symbol 'saved-variable-comment))) | 2427 (comment (get symbol 'saved-variable-comment))) |
| 2429 (cond ((or value comment) | 2428 (cond ((or value comment) |
| 2430 (put symbol 'variable-comment comment) | 2429 (put symbol 'variable-comment comment) |
| 2431 (condition-case nil | 2430 (condition-case nil |
| 2442 (defun custom-variable-reset-standard (widget) | 2441 (defun custom-variable-reset-standard (widget) |
| 2443 "Restore the standard setting for the variable being edited by WIDGET. | 2442 "Restore the standard setting for the variable being edited by WIDGET. |
| 2444 This operation eliminates any saved setting for the variable, | 2443 This operation eliminates any saved setting for the variable, |
| 2445 restoring it to the state of a variable that has never been customized." | 2444 restoring it to the state of a variable that has never been customized." |
| 2446 (let* ((symbol (widget-value widget)) | 2445 (let* ((symbol (widget-value widget)) |
| 2447 (set (or (get symbol 'custom-set) 'set-default)) | 2446 (set (or (get symbol 'custom-set) 'set-default))) |
| 2448 (comment-widget (widget-get widget :comment-widget))) | |
| 2449 (if (get symbol 'standard-value) | 2447 (if (get symbol 'standard-value) |
| 2450 (funcall set symbol (eval (car (get symbol 'standard-value)))) | 2448 (funcall set symbol (eval (car (get symbol 'standard-value)))) |
| 2451 (error "No standard setting known for %S" symbol)) | 2449 (error "No standard setting known for %S" symbol)) |
| 2452 (put symbol 'variable-comment nil) | 2450 (put symbol 'variable-comment nil) |
| 2453 (put symbol 'customized-value nil) | 2451 (put symbol 'customized-value nil) |