From 7a25131b95a71028fe3b83920a5cd9cf7f77ea7e Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 5 Sep 2010 03:33:52 +0200
Subject: Guile: fixes for compilation error regexps

---
 elisp/geiser-guile.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 6086dd8..af9d589 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -170,8 +170,7 @@ This function uses `geiser-guile-init-file' if it exists."
 (defun geiser-guile--startup ()
   (set (make-local-variable 'compilation-error-regexp-alist)
        `((,geiser-guile--path-rx geiser-guile--resolve-file-x)
-         ("^ *\\([0-9]+\\): +" nil 1)
-         ("at \\(/[^:\n]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\)" 1 2 3)))
+         ("^  +\\([0-9]+\\):\\([0-9]+\\)" nil 1 2)))
   (setq geiser-con--debugging-inhibits-eval nil)
   (compilation-setup t)
   (font-lock-add-keywords nil
-- 
cgit v1.2.3