branch: externals/relint
commit 6908115f2cf925b2ade2eedb16e3f2ead99afae6
Author: Mattias Engdegård <matti...@acm.org>
Commit: Mattias Engdegård <matti...@acm.org>
Fix regexp matching sugar prefixes
Matching order matters.
---
relint.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/relint.el b/relint.el
index 0cdf903..1795b3c 100644
--- a/relint.el
+++ b/relint.el
@@ -126,7 +126,7 @@ indices to follow to target)."
(let ((skip (car p)))
;; Enter next sexp and skip past the `skip' first sexps inside.
(cond
- ((looking-at (rx (or "'" "#'" "`" "," ",@")))
+ ((looking-at (rx (or "'" "#'" "`" ",@" ",")))
(goto-char (match-end 0))
(setq skip (1- skip)))
((looking-at (rx "("))
@@ -138,7 +138,7 @@ indices to follow to target)."
(goto-char (match-end 0))
(relint--skip-whitespace)
(cond
- ((looking-at (rx (or "'" "#'" "`" "," ",@")))
+ ((looking-at (rx (or "'" "#'" "`" ",@" ",")))
;; Sugar after dot represents one sexp.
(goto-char (match-end 0))
(setq skip (1- skip)))
