From 65633c9b1be28e4a0bc6bc37ec8cccef33cc0a92 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 24 Feb 2009 10:38:46 +0100 Subject: Compilation mode working on dbg buffers. --- elisp/geiser-debug.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index c32c895..c3983ec 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -41,9 +41,15 @@ (define-key map "p" 'previous-line) map)) +(defconst geiser-debug--error-alist + '(("^In file \\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\)" 1 2 3) + ("^Error.+$" nil nil nil 0))) + (define-derived-mode geiser-debug-mode compilation-mode "Geiser Dbg" "A major mode for displaying Scheme compilation and evaluation results. -\\{geiser-debug-mode-map}") +\\{geiser-debug-mode-map}" + (set (make-local-variable 'compilation-error-regexp-alist) + geiser-debug--error-alist)) ;;; Buffer for displaying evaluation results: @@ -84,7 +90,7 @@ (source (geiser-debug--frame-source frame)) (description (geiser-debug--frame-desc frame))) (if source - (insert (format "%s:%s:%s\n" + (insert (format "In file %s:%s:%s\n" (geiser-debug--frame-source-file source) (geiser-debug--frame-source-line source) (geiser-debug--frame-source-column source))) -- cgit v1.2.3