diff options
| author | jao <jao@gnu.org> | 2021-11-27 13:22:37 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-11-27 13:22:37 +0000 |
| commit | 61507dd264bec743cdc5843162ebc8779cf6d896 (patch) | |
| tree | b7ab6a1298f492ea18f7cbdd2408c5735735cb44 | |
| parent | 4c373a010433796f67a1c588630f6423f7bcb7a3 (diff) | |
| download | geiser-61507dd264bec743cdc5843162ebc8779cf6d896.tar.gz geiser-61507dd264bec743cdc5843162ebc8779cf6d896.tar.bz2 | |
Fix for file location identification (column number might be missing)
| -rw-r--r-- | elisp/geiser-edit.el | 4 |
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))))))) |