From 3bc603c41715a07b049bc26e4ec1022531b2f557 Mon Sep 17 00:00:00 2001 From: Lars Hansen Date: Sun, 8 Aug 2004 19:38:51 +0000 Subject: [PATCH] (widget-sexp-validate): Allow whitespace after expression. --- lisp/ChangeLog | 5 +++++ lisp/wid-edit.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * wid-edit.el (widget-sexp-validate): Allow whitespace after + expression. + 2004-08-08 Luc Teirlinck * 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" -- 2.39.2