From 0cd37833aba3af0150ea4486e244cd38f376f1cd Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 9 Oct 2022 02:33:30 +0100 Subject: geiser-chez-debug-on-exception-p -> geiser-chez-debug-on-exception --- geiser-chez.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'geiser-chez.el') diff --git a/geiser-chez.el b/geiser-chez.el index b179ef7..cb6ad00 100644 --- a/geiser-chez.el +++ b/geiser-chez.el @@ -63,11 +63,14 @@ init file at this location in remote host." :type '(repeat string) :group 'geiser-chez) -(geiser-custom--defcustom geiser-chez-debug-on-exception-p nil +(geiser-custom--defcustom geiser-chez-debug-on-exception nil "Whether to automatically enter the debugger when catching an exception" :type 'boolean :group 'geiser-chez) +(define-obsolete-variable-alias 'geiser-chez-debug-on-exception-p + 'geiser-chez-debug-on-exception "0.18") + ;;; REPL support: @@ -190,7 +193,8 @@ This function uses `geiser-chez-init-file' if it exists." (defun geiser-chez--enter-debugger () "Tell Geiser to interact with the debugger." - (when geiser-chez-debug-on-exception-p + (when geiser-chez-debug-on-exception + (geiser-switch nil 'chez) (let ((bt-cmd "\n(debug)\n") (repl-buffer (geiser-repl--repl/impl 'chez))) (compilation-forget-errors) -- cgit v1.2.3