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
