diff options
| author | Lars Hansen <larsh@soem.dk> | 2004-08-08 19:38:51 +0000 |
|---|---|---|
| committer | Lars Hansen <larsh@soem.dk> | 2004-08-08 19:38:51 +0000 |
| commit | 3bc603c41715a07b049bc26e4ec1022531b2f557 (patch) | |
| tree | 91e73b81e55cc1d5531ab2f450d5828e39dc0bd7 /lisp/wid-edit.el | |
| parent | 8392e13818eadb0645893eaf991d9cae429f2e78 (diff) | |
| download | emacs-3bc603c41715a07b049bc26e4ec1022531b2f557.tar.gz | |
(widget-sexp-validate): Allow whitespace after expression.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 2 |
1 files changed, 2 insertions, 0 deletions
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" |