Mercurial > emacs

diff lisp/wid-edit.el @ 56628:7759479de37c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(widget-sexp-validate): Allow whitespace after expression.
author Lars Hansen <larsh@soem.dk>
date Sun, 08 Aug 2004 19:35:15 +0000
parents 21a47f89c6f6
children 3b4942fd58d8 3fd4a5c21153
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"