[nongnu] elpa/geiser 61507dd 2/2: Fix for file location identification (column number might be missing)

[ELPA Syncer]

branch: elpa/geiser
commit 61507dd264bec743cdc5843162ebc8779cf6d896
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    Fix for file location identification (column number might be missing)
---
 elisp/geiser-edit.el | 4 ++--
 1 file 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)))))))