summaryrefslogtreecommitdiff
path: root/elisp/geiser-guile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-30 03:58:51 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-30 03:58:51 +0200
commit627eef525aab39ba0895e120f0bca9be7fc10e6b (patch)
treea632fee37db1c2f02a4a68177015d2f2a1b6bcca /elisp/geiser-guile.el
parent982bd4598eed2549ce1c2cd1f9bae3fa6cdf3e86 (diff)
downloadgeiser-guile-627eef525aab39ba0895e120f0bca9be7fc10e6b.tar.gz
geiser-guile-627eef525aab39ba0895e120f0bca9be7fc10e6b.tar.bz2
Guile: display backtrace upon entering debugger.
Inserting the banner is disabled for now: it confuses comint badly for reasons i don't understand yet.
Diffstat (limited to 'elisp/geiser-guile.el')
-rw-r--r--elisp/geiser-guile.el9
1 files changed, 2 insertions, 7 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index a88cf54..a8a7a7c 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -142,13 +142,8 @@ This function uses `geiser-guile-init-file' if it exists."
(defun geiser-guile--display-error (module key msg)
(if (eq key 'geiser-debugger)
(progn
- (comint-send-string nil ",locals\n")
- (accept-process-output nil 0.01)
- (when msg
- (goto-char (point-max))
- (comint-previous-prompt 1)
- (insert "\n" msg)
- (goto-char (point-max))))
+ (goto-char (point-max))
+ (comint-send-string nil ",bt\n"))
(when key
(insert "Error: ")
(geiser--insert-with-face (format "%s" key) 'bold)