[nongnu] elpa/lua-mode 6a7929a 013/468: lua-postprocess-output-buffer: match first error, not last

[Philip Kaludercic]

branch: elpa/lua-mode
commit 6a7929a537cada5d2be36282f1938ef2dd8fe506
Author: juergen <juergen>
Commit: juergen <juergen>

    lua-postprocess-output-buffer: match first error, not last
    xemacs-compatibility: fixed lua-traceback-line-re
---
 lua-mode.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index bc12b33..eca75a4 100755
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -136,8 +136,8 @@ Should be a list of strings."
   )
 
 (defcustom lua-traceback-line-re
-  "stack 
traceback:\n\\(?:[[:blank:]]+.*\n\\)*?[[:blank:]]+\\([^:]*\\):\\([[:digit:]]+\\):"
-  "Regular expression that describes tracebacks."
+  "\\(?:^[\t ]*\\|>[\t ]+\\)\\([^\n\t ]+\\):\\([0-9]+\\):"
+  "Regular expression that describes tracebacks and errors."
   :group 'lua
   :type  'regexp
   )
@@ -1039,9 +1039,9 @@ t, otherwise return nil.  BUF must exist."
     (save-excursion
       (set-buffer buf)
       (goto-line start-line)
-      (while (re-search-forward lua-traceback-line-re nil t)
-       (setq file (match-string 1)
-             line (string-to-int (match-string 2)))))
+      (if (re-search-forward lua-traceback-line-re nil t)
+         (setq file (match-string 1)
+               line (string-to-int (match-string 2)))))
     (when (and lua-jump-on-traceback line)
       (beep)
       ;; TODO: highlight