[elpa] externals/relint 6908115: Fix regexp matching sugar prefixes

[Mattias Engdegård]

branch: externals/relint
commit 6908115f2cf925b2ade2eedb16e3f2ead99afae6
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

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