summaryrefslogtreecommitdiff
path: root/elisp/geiser-debug.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-11-27 13:16:49 +0000
committerjao <jao@gnu.org>2021-11-27 13:16:49 +0000
commit4c373a010433796f67a1c588630f6423f7bcb7a3 (patch)
treea3e80b4d499e91a278f1d3e6e77c3bb03c07d3b0 /elisp/geiser-debug.el
parent64e09725c75a2ca4a366c018b107d8bb0e00862e (diff)
downloadgeiser-4c373a010433796f67a1c588630f6423f7bcb7a3.tar.gz
geiser-4c373a010433796f67a1c588630f6423f7bcb7a3.tar.bz2
Customizable next-error on evaluation errors
Set to nil by default, which might surprise some users, if we had enough :)
Diffstat (limited to 'elisp/geiser-debug.el')
-rw-r--r--elisp/geiser-debug.el9
1 files changed, 8 insertions, 1 deletions
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))))))