(custom-set-variables): Print message about errors in

setting.

2 files changed, 11 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 272366e267f..fff537222b7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-09-04  Dave Love  <fx@gnu.org>
+
+        * wid-edit.el (widget-sexp-validate): Fix garbled code.
+
+        * custom.el (custom-set-variables): Print message about errors in
+        setting.
+
 2000-09-03  Andrew Innes  <andrewi@gnu.org>
 
         * makefile.w32-in: Change to DOS line endings.
diff --git a/lisp/custom.el b/lisp/custom.el
index a724d497f59..ea7afc45fc5 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -458,8 +458,8 @@ COMMENT is a comment string about SYMBOL."
             (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 @@ COMMENT is a comment string about SYMBOL."
                       ((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)))