[nongnu] elpa/geiser-chez 0cd37833ab 03/15: geiser-chez-debug-on-exception-p -> geiser-chez-debug-on-exception

[ELPA Syncer]

branch: elpa/geiser-chez
commit 0cd37833aba3af0150ea4486e244cd38f376f1cd
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    geiser-chez-debug-on-exception-p -> geiser-chez-debug-on-exception
---
 geiser-chez.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/geiser-chez.el b/geiser-chez.el
index b179ef76d2..cb6ad00f03 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)