summaryrefslogtreecommitdiff
path: root/elisp
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
commit430e12756c7065595092f4738ccb86725f0a1086 (patch)
tree0f1b082ff5c6de92d5da4a6d7b57a170690f7a8a /elisp
parent2128f08e04b5904c1dbbc4a30ecf77688f2569a6 (diff)
downloadgeiser-guile-430e12756c7065595092f4738ccb86725f0a1086.tar.gz
geiser-guile-430e12756c7065595092f4738ccb86725f0a1086.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')
-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)