summaryrefslogtreecommitdiff
path: root/elisp/geiser-debug.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-debug.el')
-rw-r--r--elisp/geiser-debug.el17
1 files changed, 8 insertions, 9 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 7afcb53..07ac98a 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -155,6 +155,7 @@ buffer.")
(when dir (setq default-directory dir))
(unless after
(geiser-debug--display-error impl module nil what)
+ (goto-char (point-max))
(newline 2))
(setq img (when (and res (not err)) (geiser-debug--insert-res res)))
(setq dbg (geiser-debug--display-error impl module key output))
@@ -164,15 +165,13 @@ buffer.")
(geiser-debug--display-error impl module nil what))
(goto-char (point-min)))
(when (or img dbg)
- (when geiser-debug-show-debug-p
- (geiser-debug--pop-to-buffer))
- (when (and dbg (not geiser-debug-jump-to-debug-p))
- (ignore-errors (next-error))
- (when (not geiser-debug-show-debug-p)
- (pop-to-buffer (geiser-debug--buffer)
- 'display-buffer-reuse-window t)
- (View-quit))
- (message "Evaluation error: %s" dbg)))))
+ (when (or geiser-debug-jump-to-debug-p geiser-debug-show-debug-p)
+ (if geiser-debug-jump-to-debug-p
+ (geiser-debug--pop-to-buffer)
+ (display-buffer (geiser-debug--buffer))
+ (when dbg
+ (ignore-errors (next-error))
+ (message "=> %s" dbg)))))))
(defsubst geiser-debug--wrap-region (str)
(format "(begin %s)" str))