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

setting.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 272366e267fd43615547fcdff1e0083cdd9d13a0..fff537222b7f8799258fbcec73552b8bb20d4dee 100644 (file)
--- 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 a724d497f5999e89744d6d2a5a8c15c2bc4433d0..ea7afc45fc5c0e333488d01d9aaea7a32fa647a2 100644 (file)
--- 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)))