diff options
| author | Mattias EngdegÄrd | 2019-09-04 16:27:02 +0200 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2019-09-04 16:27:02 +0200 |
| commit | 2aee20fbf88322eff653405ea4932823fbb70fd5 (patch) | |
| tree | 4e3a3c0169c80a28a792f72054e2b927d3d35a90 | |
| parent | 4c3a40a9b7b8b953d7882942d44373ccd8f7a3cd (diff) | |
| download | emacs-2aee20fbf88322eff653405ea4932823fbb70fd5.tar.gz emacs-2aee20fbf88322eff653405ea4932823fbb70fd5.zip | |
Correct arguments to `skip-syntax-forward'
* lisp/wid-edit.el (widget-sexp-validate): Fix bad calls to
`skip-syntax-forward', whose argument is not a regexp.
| -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" |