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.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 11fc464..c3968e7 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -273,8 +273,9 @@ buffer.")
(setq img (when (and res (not err) (not debug))
(geiser-debug--insert-res res)))
(when (or err key output)
- (or (geiser-debug--display-error impl module key output)
- (insert "\n" (if key (format "%s\n" key) "") (or output "") "\n")))
+ (let ((msg (or (geiser-eval--error-msg err) output "")))
+ (or (geiser-debug--display-error impl module key msg)
+ (insert "\n" (if key (format "Error: %s\n" key) "") msg "\n"))))
(when after
(goto-char (point-max))
(insert "\nExpression evaluated was:\n\n")