From: Dave Love <fx@gnu.org>
Date: Tue, 18 Jul 2000 12:52:25 +0000 (+0000)
Subject: (custom-variable-reset-saved, custom-variable-reset-standard): Remove
X-Git-Tag: emacs-pretest-21.0.90~2768
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba8cb52d565124031fb5e28222a4ec2c29abce3a;p=emacs.git

(custom-variable-reset-saved, custom-variable-reset-standard): Remove
unused bindings.
---

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."
   "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 @@ Optional EVENT is the location for the menu."
 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))