diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-24 10:38:46 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-24 10:38:46 +0100 |
| commit | 65633c9b1be28e4a0bc6bc37ec8cccef33cc0a92 (patch) | |
| tree | 937d9d14c757b35f70336445d1b4ff3aaafaef23 /elisp/geiser-debug.el | |
| parent | 641449ca6073648d5722d1a552d3a5245d523e48 (diff) | |
| download | geiser-guile-65633c9b1be28e4a0bc6bc37ec8cccef33cc0a92.tar.gz geiser-guile-65633c9b1be28e4a0bc6bc37ec8cccef33cc0a92.tar.bz2 | |
Compilation mode working on dbg buffers.
Diffstat (limited to 'elisp/geiser-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 10 |
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))) |