diff options
| -rw-r--r-- | elisp/geiser-debug.el | 5 |
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") |