diff options
| author | jao <jao@gnu.org> | 2022-10-09 02:33:30 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-09 02:33:30 +0100 |
| commit | 0cd37833aba3af0150ea4486e244cd38f376f1cd (patch) | |
| tree | 5f25679880b3a7215ed70ee7f7823dbd90167552 /geiser-chez.el | |
| parent | 21d35aa8d6b2e2b281a773514640fb77586a543c (diff) | |
| download | geiser-chez-0cd37833aba3af0150ea4486e244cd38f376f1cd.tar.gz geiser-chez-0cd37833aba3af0150ea4486e244cd38f376f1cd.tar.bz2 | |
geiser-chez-debug-on-exception-p -> geiser-chez-debug-on-exception
Diffstat (limited to 'geiser-chez.el')
| -rw-r--r-- | geiser-chez.el | 8 |
1 files changed, 6 insertions, 2 deletions
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) |