From: Lars Hansen <larsh@soem.dk>
Date: Sun, 8 Aug 2004 19:38:51 +0000 (+0000)
Subject: (widget-sexp-validate): Allow whitespace after expression.
X-Git-Tag: ttn-vms-21-2-B4~5320
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bc603c41715a07b049bc26e4ec1022531b2f557;p=emacs.git

(widget-sexp-validate): Allow whitespace after expression.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afa583fd9ef..ac91216cdca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-08  Lars Hansen  <larsh@math.ku.dk>
+
+	* wid-edit.el (widget-sexp-validate): Allow whitespace after
+	expression.
+
 2004-08-08  Luc Teirlinck  <teirllm@auburn.edu>
 
 	* subr.el (global-unset-key, local-unset-key): Doc fixes.
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 8029fb3d5a6..05ef4b95658 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3153,6 +3153,8 @@ It will read a directory name from the minibuffer when invoked."
 		(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"