From 61507dd264bec743cdc5843162ebc8779cf6d896 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 27 Nov 2021 13:22:37 +0000 Subject: Fix for file location identification (column number might be missing) --- elisp/geiser-edit.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'elisp') 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))))))) -- cgit v1.2.3