# HG changeset patch
# User Lars Hansen <larsh@soem.dk>
# Date 1091993715 0
# Node ID 7759479de37c2398306964470c71bdb167f4e767
# Parent  566a024b577f00b385e5fc61f3373a4f445cd5f4
(widget-sexp-validate): Allow whitespace after expression.

diff -r 566a024b577f -r 7759479de37c lisp/wid-edit.el
--- 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"