Fix for the fix (avoid popping up on empty output strings)

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)