diff options
| author | Dave Love | 2000-07-18 12:52:25 +0000 |
|---|---|---|
| committer | Dave Love | 2000-07-18 12:52:25 +0000 |
| commit | ba8cb52d565124031fb5e28222a4ec2c29abce3a (patch) | |
| tree | c8424959cd97dff000ce749cd02524ede8419981 | |
| parent | 74be0ade4cc437f9619e6f71d3a5037be3ea67eb (diff) | |
| download | emacs-ba8cb52d565124031fb5e28222a4ec2c29abce3a.tar.gz emacs-ba8cb52d565124031fb5e28222a4ec2c29abce3a.zip | |
(custom-variable-reset-saved, custom-variable-reset-standard): Remove
unused bindings.
| -rw-r--r-- | lisp/cus-edit.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 0c5588ac8f4..ae4277ea098 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -2423,7 +2423,6 @@ Optional EVENT is the location for the menu." | |||
| 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) |
| @@ -2444,8 +2443,7 @@ Optional EVENT is the location for the menu." | |||
| 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)) |