# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 968060459 0
# Node ID 652b5c65769af8854edf2e8c87658347a5a794f8
# Parent  cb09e02f0217d1943cc43cd045c5dc3f4f279838
(custom-set-variables): Print message about errors in
setting.

diff -r cb09e02f0217 -r 652b5c65769a lisp/custom.el
--- a/lisp/custom.el	Mon Sep 04 09:40:27 2000 +0000
+++ b/lisp/custom.el	Mon Sep 04 09:40:59 2000 +0000
@@ -458,8 +458,8 @@
 	    (put symbol 'saved-value (list value))
 	    (put symbol 'saved-variable-comment comment)
 	    ;; Allow for errors in the case where the setter has
-	    ;; changed between versions, say.
-	    (condition-case nil
+	    ;; changed between versions, say, but let the user know.
+	    (condition-case data
 		(cond (now
 		       ;; Rogue variable, set it now.
 		       (put symbol 'force-value t)
@@ -467,7 +467,8 @@
 		      ((default-boundp symbol)
 		       ;; Something already set this, overwrite it.
 		       (funcall set symbol (eval value))))
-	      (error nil))
+	      (error 
+	       (message "Error setting %s: %s" symbol data)))
 	    (setq args (cdr args))
 	    (and (or now (default-boundp symbol))
 		 (put symbol 'variable-comment comment)))