procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
setting.
This commit is contained in:
Dave Love 2000-09-04 09:41:48 +00:00
parent 1d86963473
commit a033ea13a3
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -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.

7
lisp/custom.el
View file

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