diff options
| -rw-r--r-- | lisp/wid-edit.el | 4 |
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" |