Cleanups to the show/jump debug buffer mess

Let's see if i finally got this right...

1 files changed, 8 insertions, 9 deletions

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 7afcb53..07ac98a 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -155,6 +155,7 @@ buffer.")
       (when dir (setq default-directory dir))
       (unless after
         (geiser-debug--display-error impl module nil what)
+        (goto-char (point-max))
         (newline 2))
       (setq img (when (and res (not err)) (geiser-debug--insert-res res)))
       (setq dbg (geiser-debug--display-error impl module key output))
@@ -164,15 +165,13 @@ buffer.")
         (geiser-debug--display-error impl module nil what))
       (goto-char (point-min)))
     (when (or img dbg)
-      (when geiser-debug-show-debug-p
-        (geiser-debug--pop-to-buffer))
-      (when (and dbg (not geiser-debug-jump-to-debug-p))
-        (ignore-errors (next-error))
-        (when (not geiser-debug-show-debug-p)
-          (pop-to-buffer (geiser-debug--buffer)
-                         'display-buffer-reuse-window t)
-          (View-quit))
-        (message "Evaluation error: %s" dbg)))))
+      (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)
+          (display-buffer (geiser-debug--buffer))
+          (when dbg
+            (ignore-errors (next-error))
+            (message "=> %s" dbg)))))))
 
 (defsubst geiser-debug--wrap-region (str)
   (format "(begin %s)" str))