summaryrefslogtreecommitdiff
path: root/elisp/geiser-edit.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-11-27 13:22:37 +0000
committerjao <jao@gnu.org>2021-11-27 13:22:37 +0000
commit61507dd264bec743cdc5843162ebc8779cf6d896 (patch)
treeb7ab6a1298f492ea18f7cbdd2408c5735735cb44 /elisp/geiser-edit.el
parent4c373a010433796f67a1c588630f6423f7bcb7a3 (diff)
downloadgeiser-61507dd264bec743cdc5843162ebc8779cf6d896.tar.gz
geiser-61507dd264bec743cdc5843162ebc8779cf6d896.tar.bz2
Fix for file location identification (column number might be missing)
Diffstat (limited to 'elisp/geiser-edit.el')
-rw-r--r--elisp/geiser-edit.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index 9ed9400..cfa11fb 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -146,7 +146,7 @@ or following links in error buffers.")
'help-echo "Go to error location"))
(defconst geiser-edit--default-file-rx
- "^[ \t]*\\([^<>:\n\"]+\\):\\([0-9]+\\):\\([0-9]+\\)")
+ "^[ \t]*\\([^<>:\n\"]+\\):\\([0-9]+\\)\\(?:\\([0-9]+\\)\\)?")
(defun geiser-edit--buttonize-files (&optional rx no-fill)
(let ((rx (or rx geiser-edit--default-file-rx))
@@ -157,7 +157,7 @@ or following links in error buffers.")
(match-end 1)
(match-string 1)
(match-string 2)
- (match-string 3)
+ (or (match-string 3) 0)
'window)
(unless no-fill (fill-region (match-end 0) (point-at-eol)))))))