[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.
(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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2aee20f: Correct arguments to `skip-syntax-forward',
Mattias Engdegård <=