From 4c373a010433796f67a1c588630f6423f7bcb7a3 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 27 Nov 2021 13:16:49 +0000 Subject: 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(-) (limited to 'elisp/geiser-debug.el') 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)))))) -- cgit v1.2.3