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 | 867774c0c37d88fd52dd980bd1dcb7ced795c558 (patch) | |
| tree | f7c0156b4185190d100bed6b5b3a649c15933bff | |
| parent | 8bf2c578f184837968b1a16cf07235e9ba616a91 (diff) | |
| download | geiser-867774c0c37d88fd52dd980bd1dcb7ced795c558.tar.gz geiser-867774c0c37d88fd52dd980bd1dcb7ced795c558.tar.bz2 | |
Compilation mode working on dbg buffers.
| -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))) |