procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Lars Hansen 2004-08-08 19:38:51 +00:00
parent 8392e13818
commit 3bc603c417
2 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

2
lisp/wid-edit.el
View file

@ -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"