From 5fb0129c962558bd5e70ac3a739e566627277a09 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 18 Dec 2021 01:47:23 +0000 Subject: Using Dbg buffer for output when entering the debugger --- geiser-guile.el | 22 ++++------------------ 1 file changed, 4 insertions(+), 18 deletions(-) diff --git a/geiser-guile.el b/geiser-guile.el index 597e6b9..c4dffc2 100644 --- a/geiser-guile.el +++ b/geiser-guile.el @@ -83,11 +83,6 @@ exported modules." If nil, only the last frame is shown." :type 'boolean) -(geiser-custom--defcustom geiser-guile-jump-on-debug-p nil - "Whether to automatically jump to error when entering the debugger. -If t, Geiser will use `next-error' to jump to the error's location." - :type 'boolean) - (geiser-custom--defcustom geiser-guile-show-debug-help-p t "Whether to show brief help in the echo area when entering the debugger." :type 'boolean) @@ -243,25 +238,16 @@ This function uses `geiser-guile-init-file' if it exists." (defun geiser-guile--enter-debugger () "Tell Geiser to interact with the debugger." - (let ((bt-cmd (format ",geiser-newline\n,error-message\n,%s\n" - (if geiser-guile-debug-show-bt-p "bt" "fr")))) - (compilation-forget-errors) - (goto-char (point-max)) - (geiser-repl--prepare-send) - (comint-send-string nil bt-cmd) - (when geiser-guile-show-debug-help-p - (message "Debug REPL. Enter ,q to quit, ,h for help.")) - (when geiser-guile-jump-on-debug-p - (accept-process-output (get-buffer-process (current-buffer)) 0.2 nil t) - (ignore-errors (next-error))) - t)) + (when geiser-guile-show-debug-help-p + (message "Debugger active. Press , for commands.")) + nil) (defun geiser-guile--display-error (_module key msg) "Display error with given KEY and message MSG." (when (stringp msg) (save-excursion (insert msg)) (geiser-edit--buttonize-files)) - (and (not key) (not (zerop (length msg))) msg)) + (not (zerop (length msg)))) ;;; Trying to ascertain whether a buffer is Guile Scheme: -- cgit v1.2.3