[nongnu] elpa/geiser 4c373a0 1/2: Customizable next-error on evaluation errors

[ELPA Syncer]

branch: elpa/geiser
commit 4c373a010433796f67a1c588630f6423f7bcb7a3
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    Customizable next-error on evaluation errors
    
    Set to nil by default, which might surprise some users, if we had
    enough :)
---
 elisp/geiser-debug.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index c2194d2..3956c43 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -53,6 +53,13 @@ in case of evaluation errors.
 See also `geiser-debug-show-debug-p`. "
   :type 'boolean)
 
+(geiser-custom--defcustom geiser-debug-auto-next-error-p nil
+  "When set, automatically invoke `next-error' on of evaluation errors.
+
+This will make point jump to the location of an error if the output
+of the evaluation contains any."
+  :type 'boolean)
+
 (geiser-custom--defcustom geiser-debug-show-debug-p t
   "When set to t (the default), show the debug pop-up buffer in
 case of evaluation errors.
@@ -189,7 +196,7 @@ buffer.")
           (if geiser-debug-jump-to-debug-p
               (geiser-debug--pop-to-buffer)
             (display-buffer (geiser-debug--buffer))))
-        (when err
+        (when (and err geiser-debug-auto-next-error-p)
           (ignore-errors (next-error))
           (message "=> %s" output))))))