diff options
| author | jao <jao@gnu.org> | 2022-10-09 03:57:46 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-09 03:57:46 +0100 |
| commit | 9a3df3a9aa365f64cb9c228dbd856b02afe346ec (patch) | |
| tree | 7651715822852dd7016f0ce585144c2142afb2a3 | |
| parent | e63c33d2afb1ba8e732511e34c6a2db7a3a0898c (diff) | |
| download | geiser-9a3df3a9aa365f64cb9c228dbd856b02afe346ec.tar.gz geiser-9a3df3a9aa365f64cb9c228dbd856b02afe346ec.tar.bz2 | |
fix: proper use of the error reporting protocol
... even if that protocol is unwritten (note to self: write it already) and
nobody till now was being a good citizen (chez is becoming one).
| -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") |