From a9f26f1391aa6edaa728df5e05c6bcac8039289c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 8 Mar 2010 02:45:02 +0100 Subject: Guile: slightly better compilation error regexps. --- elisp/geiser-guile.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index b359dcc..0523dfe 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -152,8 +152,8 @@ This function uses `geiser-guile-init-file' if it exists." ;;; Compilation shell regexps (defun geiser-guile--startup () (set (make-local-variable 'compilation-error-regexp-alist) - '(("^In \\([^:]+\\):" 1) - ("^ \\([0-9]+\\): " nil 1))) + '(("^In \\(/[^:\n]+\\):\n +\\([0-9]+\\): +" 1 2) + ("at \\(/[^:\n]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\)" 1 2 3))) (compilation-setup t)) -- cgit v1.2.3