From: Mattias Engdegård <mattiase@acm.org>
Date: Wed, 4 Sep 2019 14:27:02 +0000 (+0200)
Subject: Correct arguments to `skip-syntax-forward'
X-Git-Tag: emacs-27.0.90~1553^2~36
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2aee20fbf88322eff653405ea4932823fbb70fd5;p=emacs.git

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

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."
       (condition-case data ;Note: We get a spurious byte-compile warning here.
 	  (progn
 	    ;; Avoid a confusing end-of-file error.
-	    (skip-syntax-forward "\\s-")
+	    (skip-syntax-forward "-")
 	    (if (eobp)
 		(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-")
+	    (skip-syntax-forward "-")
 	    (if (and (not (eobp))
 		     (not err))
 		(setq err (format "Junk at end of expression: %s"