[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 2aee20f: Correct arguments to `skip-syntax-forward'

From: Mattias Engdegård
Subject: [Emacs-diffs] master 2aee20f: Correct arguments to `skip-syntax-forward'
Date: Wed, 4 Sep 2019 10:31:59 -0400 (EDT)

branch: master
commit 2aee20fbf88322eff653405ea4932823fbb70fd5
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    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.
 lisp/wid-edit.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 1ddc461..fdc1629 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.
            ;; 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"

reply via email to

[Prev in Thread] Current Thread [Next in Thread]