From 24613fe56960294ea03f1655beb69738384e7726 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 19 Apr 2021 23:56:23 +0100 Subject: Fix for the fix (avoid popping up on empty output strings) --- elisp/geiser-debug.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-debug.el') 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) -- cgit v1.2.3