aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2000-07-18 12:52:25 +0000
committerDave Love2000-07-18 12:52:25 +0000
commitba8cb52d565124031fb5e28222a4ec2c29abce3a (patch)
treec8424959cd97dff000ce749cd02524ede8419981
parent74be0ade4cc437f9619e6f71d3a5037be3ea67eb (diff)
downloademacs-ba8cb52d565124031fb5e28222a4ec2c29abce3a.tar.gz
emacs-ba8cb52d565124031fb5e28222a4ec2c29abce3a.zip
(custom-variable-reset-saved, custom-variable-reset-standard): Remove
unused bindings.
-rw-r--r--lisp/cus-edit.el4
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."
2444This operation eliminates any saved setting for the variable, 2443This operation eliminates any saved setting for the variable,
2445restoring it to the state of a variable that has never been customized." 2444restoring 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))