]> git.eshelyaron.com Git - emacs.git/commitdiff
Lua compilation-mode rules adjustments (bug#60830)
authorMattias Engdegård <mattiase@acm.org>
Wed, 10 Jan 2024 15:55:14 +0000 (16:55 +0100)
committerMattias Engdegård <mattiase@acm.org>
Wed, 10 Jan 2024 16:24:42 +0000 (17:24 +0100)
* lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
Translate `lua' and `lua-stack' to rx, and change two unnecessary
non-greedy operators to greedy.

lisp/progmodes/compile.el

index 797e594c0c5086ca4cdb04f856f57b9a898b986d..51c81b9d2f6205545810857d6f7882839aedf485 100644 (file)
@@ -364,10 +364,24 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
 
     ;; Tested with Lua 5.1, 5.2, 5.3, 5.4, and LuaJIT 2.1.
     (lua
-     "^[^\n\t]+?: \\([^\n\t]+?\\):\\([0-9]+?\\): .+\nstack traceback:\n\t"
+     ,(rx bol
+          (+? (not (in "\t\n")))
+          ": "
+          (group (+? (not (in "\t\n"))))
+          ":"
+          (group (+ (in "0-9")))
+          ": "
+          (+ nonl)
+          "\nstack traceback:\n\t")
      1 2 nil 2 1)
     (lua-stack
-     "^\t\\(?:\\[C\\]:\\|\\([^\n\t]+?\\):\\(?:\\([0-9]+?\\):\\)?\\) in "
+     ,(rx bol "\t"
+          (| "[C]:"
+             (: (group (+? (not (in "\t\n"))))
+                ":"
+                (? (group (+ (in "0-9")))
+                   ":")))
+          " in ")
      1 2 nil 0 1)
 
     (gmake