From 8bf2c578f184837968b1a16cf07235e9ba616a91 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 24 Feb 2009 02:18:28 +0100 Subject: Partial support for stack trace display. --- elisp/geiser-compile.el | 34 +++++----------------------------- 1 file changed, 5 insertions(+), 29 deletions(-) (limited to 'elisp/geiser-compile.el') diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el index 82200a5..8b4a4db 100644 --- a/elisp/geiser-compile.el +++ b/elisp/geiser-compile.el @@ -24,19 +24,10 @@ ;;; Code: +(require 'geiser-debug) (require 'geiser-eval) -(require 'geiser-popup) (require 'geiser-base) - -;;; Compilation buffer: - -(define-derived-mode geiser-compile-mode compilation-mode "Geiser Compilation" - "Major mode showing the results of compiling or loading scheme files. -\{geiser-compile-mode-keymap}") - -(geiser-popup--define compile "*Geiser compilation*" geiser-compile-mode) - ;;; Auxiliary functions: @@ -49,25 +40,10 @@ (cons buffer path)))) (defun geiser-compile--display-result (title ret) - (let ((err (geiser-eval--retort-error ret)) - (output (geiser-eval--retort-output ret))) - (geiser-compile--with-buffer - (erase-buffer) - (insert title) - (newline) - (when output - (insert output) - (newline)) - (when err - (insert "\n" (geiser-eval--error-msg err) "\n")) - (goto-char (point-min))) - (if (not err) - (message "%s %s" title (if (> 0 (length output)) - (geiser--chomp output) - (or (geiser-eval--retort-result ret) - "OK!"))) - (message "") - (geiser-compile--pop-to-buffer)))) + (if (not (geiser-eval--retort-error ret)) + (message "%s %s" title (or (geiser-eval--retort-result ret) "OK!")) + (message "") + (geiser-debug--display-retort title ret))) (defun geiser-compile--file-op (path compile-p msg) (let* ((b/p (geiser-compile--buffer/path path)) -- cgit v1.2.3