aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/wid-edit.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 1ddc461f4e8..fdc16299c88 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3333,13 +3333,13 @@ It reads a directory name from an editable text field."
3333 (condition-case data ;Note: We get a spurious byte-compile warning here. 3333 (condition-case data ;Note: We get a spurious byte-compile warning here.
3334 (progn 3334 (progn
3335 ;; Avoid a confusing end-of-file error. 3335 ;; Avoid a confusing end-of-file error.
3336 (skip-syntax-forward "\\s-") 3336 (skip-syntax-forward "-")
3337 (if (eobp) 3337 (if (eobp)
3338 (setq err "Empty sexp -- use nil?") 3338 (setq err "Empty sexp -- use nil?")
3339 (unless (widget-apply widget :match (read (current-buffer))) 3339 (unless (widget-apply widget :match (read (current-buffer)))
3340 (setq err (widget-get widget :type-error)))) 3340 (setq err (widget-get widget :type-error))))
3341 ;; Allow whitespace after expression. 3341 ;; Allow whitespace after expression.
3342 (skip-syntax-forward "\\s-") 3342 (skip-syntax-forward "-")
3343 (if (and (not (eobp)) 3343 (if (and (not (eobp))
3344 (not err)) 3344 (not err))
3345 (setq err (format "Junk at end of expression: %s" 3345 (setq err (format "Junk at end of expression: %s"