[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 5fb0129 2/6: Using Dbg buffer for output when
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser-guile 5fb0129 2/6: Using Dbg buffer for output when entering the debugger |
Date: |
Sun, 19 Dec 2021 18:57:49 -0500 (EST) |
branch: elpa/geiser-guile
commit 5fb0129c962558bd5e70ac3a739e566627277a09
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
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:
- [nongnu] elpa/geiser-guile updated (961bb01 -> c5a4a60), ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser-guile 5fb0129 2/6: Using Dbg buffer for output when entering the debugger,
ELPA Syncer <=
- [nongnu] elpa/geiser-guile b6e1f3f 4/6: Debugger level in Dbg buffer, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser-guile 63a8812 3/6: New debugger support for , q and , bt, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser-guile 91f4bef 5/6: Debugger: cleaning the "Entering a new prompt" salutation, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser-guile cf8fbd0 1/6: Support for connection-address, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser-guile c5a4a60 6/6: Deps and versioning, ELPA Syncer, 2021/12/19