changeset 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 70a7936c29c5
children 0ff2877c9bbe
files lisp/cus-edit.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))