Mercurial > emacs
changeset 31362:652b5c65769a
(custom-set-variables): Print message about errors in
setting.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 04 Sep 2000 09:40:59 +0000 |
| parents | cb09e02f0217 |
| children | 6865e0a3ad1d |
| files | lisp/custom.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)))