Mercurial > emacs
changeset 56628:7759479de37c
(widget-sexp-validate): Allow whitespace after expression.
| author | Lars Hansen <larsh@soem.dk> |
|---|---|
| date | Sun, 08 Aug 2004 19:35:15 +0000 |
| parents | 566a024b577f |
| children | ba58809b0845 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Sun Aug 08 17:14:58 2004 +0000 +++ b/lisp/wid-edit.el Sun Aug 08 19:35:15 2004 +0000 @@ -3153,6 +3153,8 @@ (setq err "Empty sexp -- use `nil'?") (unless (widget-apply widget :match (read (current-buffer))) (setq err (widget-get widget :type-error)))) + ;; Allow whitespace after expression. + (skip-syntax-forward "\\s-") (if (and (not (eobp)) (not err)) (setq err (format "Junk at end of expression: %s"