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"