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
commit867774c0c37d88fd52dd980bd1dcb7ced795c558 (patch)
treef7c0156b4185190d100bed6b5b3a649c15933bff /elisp
parent8bf2c578f184837968b1a16cf07235e9ba616a91 (diff)
downloadgeiser-867774c0c37d88fd52dd980bd1dcb7ced795c558.tar.gz
geiser-867774c0c37d88fd52dd980bd1dcb7ced795c558.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)))