From: Dave Love <fx@gnu.org>
Date: Mon, 4 Sep 2000 09:41:48 +0000 (+0000)
Subject: (custom-set-variables): Print message about errors in
X-Git-Tag: emacs-pretest-21.0.90~1815
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a033ea13a3aafd9595267896825e9e5b7a6f38df;p=emacs.git

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

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)))