emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/urgrep 91e3807239 109/115: Properly evaluate rx forms


From: ELPA Syncer
Subject: [elpa] externals/urgrep 91e3807239 109/115: Properly evaluate rx forms
Date: Wed, 10 May 2023 03:00:49 -0400 (EDT)

branch: externals/urgrep
commit 91e38072390fed17bc1f18ceb0422d357cf46598
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    Properly evaluate rx forms
---
 urgrep.el | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/urgrep.el b/urgrep.el
index c721c5024e..ca72887642 100644
--- a/urgrep.el
+++ b/urgrep.el
@@ -709,20 +709,19 @@ line number."
     (looking-at "[0-9]+\\([=-]\\).*$")))
 
 (defvar urgrep-mode-font-lock-keywords
-  `(((rx bol "Urgrep started" (* nonl))
+  `((,(rx bol "Urgrep started" (* nonl))
      (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t))
-    ((rx bol "Urgrep finished with "
-         (group (or (seq (? (+ digit) " ") (or "match" "matches"))
-                    "no matches")
-                " found")
-         (* nonl))
+    (,(rx bol "Urgrep finished with "
+          (or (group (? (+ digit) " ") (or "match" "matches") " found")
+              (group "no matches found"))
+          (* nonl))
      (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t)
      (1 'urgrep-match-count nil t)
      (2 'compilation-warning nil t))
-    ((rx bol "Urgrep "
-         (group (or "exited abnormally" "interrupt" "killed" "terminated"))
-         (? (* nonl) " with code " (group (+ digit)))
-         (* nonl))
+    (,(rx bol "Urgrep "
+          (group (or "exited abnormally" "interrupt" "killed" "terminated"))
+          (? (* nonl) " with code " (group (+ digit)))
+          (* nonl))
      (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t)
      (1 'compilation-error)
      (2 'compilation-error nil t))



reply via email to

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