# HG changeset patch # User Dave Love # Date 963924745 0 # Node ID 7dd010204a2349ef4f03fceba32e1f2139e04155 # Parent 70a7936c29c5f6166423b6ea7389002a2f41391f (custom-variable-reset-saved, custom-variable-reset-standard): Remove unused bindings. diff -r 70a7936c29c5 -r 7dd010204a23 lisp/cus-edit.el --- a/lisp/cus-edit.el Tue Jul 18 12:50:38 2000 +0000 +++ b/lisp/cus-edit.el Tue Jul 18 12:52:25 2000 +0000 @@ -2423,7 +2423,6 @@ "Restore the saved value for the variable being edited by WIDGET." (let* ((symbol (widget-value widget)) (set (or (get symbol 'custom-set) 'set-default)) - (comment-widget (widget-get widget :comment-widget)) (value (get symbol 'saved-value)) (comment (get symbol 'saved-variable-comment))) (cond ((or value comment) @@ -2444,8 +2443,7 @@ This operation eliminates any saved setting for the variable, restoring it to the state of a variable that has never been customized." (let* ((symbol (widget-value widget)) - (set (or (get symbol 'custom-set) 'set-default)) - (comment-widget (widget-get widget :comment-widget))) + (set (or (get symbol 'custom-set) 'set-default))) (if (get symbol 'standard-value) (funcall set symbol (eval (car (get symbol 'standard-value)))) (error "No standard setting known for %S" symbol))