From a033ea13a3aafd9595267896825e9e5b7a6f38df Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 4 Sep 2000 09:41:48 +0000 Subject: [PATCH] (custom-set-variables): Print message about errors in setting. --- lisp/ChangeLog | 7 +++++++ lisp/custom.el | 7 ++++--- 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 + + * 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 * 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))) -- 2.11.4.GIT