summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-04-19 23:56:23 +0100
committerjao <jao@gnu.org>2021-04-19 23:56:23 +0100
commit24613fe56960294ea03f1655beb69738384e7726 (patch)
tree7469a1a83c09095f15294b7f48140af2f21ff9c2 /elisp
parent9cff9b2a5b4c5695626fd0c5a228aeb42c41890e (diff)
downloadgeiser-24613fe56960294ea03f1655beb69738384e7726.tar.gz
geiser-24613fe56960294ea03f1655beb69738384e7726.tar.bz2
Fix for the fix (avoid popping up on empty output strings)
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-debug.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index a43de73..fe1c85d 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -156,9 +156,9 @@ buffer.")
(let* ((err (geiser-eval--retort-error ret))
(key (geiser-eval--error-key err))
(output (geiser-eval--retort-output ret))
+ (output (and (stringp output) (not (string= output "")) output))
(impl geiser-impl--implementation)
(module (geiser-eval--get-module))
- (dbg nil)
(img nil)
(dir default-directory)
(buffer (current-buffer))
@@ -172,7 +172,7 @@ buffer.")
(when dir (setq default-directory dir))
(unless after (insert what "\n\n"))
(setq img (when (and res (not err)) (geiser-debug--insert-res res)))
- (when (or key output)
+ (when (or err key output)
(or (geiser-debug--display-error impl module key output)
(insert "\n" (if key (format "%s\n" key) "") output "\n")))
(when after
@@ -183,7 +183,7 @@ buffer.")
(colors (ansi-color-apply-on-region (point-min) (point-max)))
(remove (ansi-color-filter-region (point-min) (point-max))))
(goto-char (point-min)))
- (when (or img dbg output)
+ (when (or img err output)
(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)