summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-24 10:38:46 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-24 10:38:46 +0100
commit65633c9b1be28e4a0bc6bc37ec8cccef33cc0a92 (patch)
tree937d9d14c757b35f70336445d1b4ff3aaafaef23 /elisp
parent641449ca6073648d5722d1a552d3a5245d523e48 (diff)
downloadgeiser-chez-65633c9b1be28e4a0bc6bc37ec8cccef33cc0a92.tar.gz
geiser-chez-65633c9b1be28e4a0bc6bc37ec8cccef33cc0a92.tar.bz2
Compilation mode working on dbg buffers.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-debug.el10
1 files 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)))