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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afa583fd9eff81c04371c84db62ebb36eae3c84b..ac91216cdcaf461faff0de9e9b58b34237530fa5 100644 (file)
--- 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 8029fb3d5a6eae43ed9d9b41962b2ccf837d1c6d..05ef4b95658831b0956d90fc62f5a12982ac34ab 100644 (file)
--- 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"