[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser fcd697f 5/8: New debugger commands: locals, registe
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser fcd697f 5/8: New debugger commands: locals, registers, error |
Date: |
Sun, 19 Dec 2021 18:57:40 -0500 (EST) |
branch: elpa/geiser
commit fcd697f487fcc585d521e0565f70f6251c5f2a9f
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
New debugger commands: locals, registers, error
---
elisp/geiser-debug.el | 32 +++++++++++++++++++++++++-------
1 file changed, 25 insertions(+), 7 deletions(-)
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index f73b6cd..b0705c6 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -107,7 +107,7 @@ all ANSI sequences."
(buffer-disable-undo)
(set-syntax-table scheme-mode-syntax-table)
(setq next-error-function 'geiser-edit--open-next)
- (compilation-minor-mode 1)
+ (compilation-setup t)
(setq buffer-read-only t))
(defvar-local geiser-debug--debugger-active-p nil)
@@ -138,21 +138,39 @@ all ANSI sequences."
(geiser-repl--switch-to-buffer geiser-debug--sender-buffer)))
(defun geiser-debug-debugger-quit ()
- "Quit the current debugging session level"
+ "Quit the current debugging session level."
(interactive)
(geiser-debug--send-to-repl 'quit))
(defun geiser-debug-debugger-backtrace ()
- "Quit the current debugging session level"
+ "Quit the current debugging session level."
(interactive)
- (geiser-debug--send-to-repl 'bt))
+ (geiser-debug--send-to-repl 'backtrace))
+
+(defun geiser-debug-debugger-locals ()
+ "Show local variables."
+ (interactive)
+ (geiser-debug--send-to-repl 'locals))
+
+(defun geiser-debug-debugger-registers ()
+ "Show register values."
+ (interactive)
+ (geiser-debug--send-to-repl 'registers))
+
+(defun geiser-debug-debugger-error ()
+ "Show error message."
+ (interactive)
+ (geiser-debug--send-to-repl 'error))
(transient-define-prefix geiser-debug--debugger-transient ()
- "Debugging meta-commands"
+ "Debugging meta-commands."
[:description (lambda () (format "%s debugger" (geiser-impl--impl-str)))
:if (lambda () geiser-debug--debugger-active-p)
- ("q" "Quit current debugger level" geiser-debug-debugger-quit)
- ("bt" "Display backtrace" geiser-debug-debugger-backtrace)])
+ ("x" "Quit current debugger level" geiser-debug-debugger-quit)
+ ("e" "Display error" geiser-debug-debugger-error)
+ ("b" "Display backtrace" geiser-debug-debugger-backtrace)
+ ("l" "Display locals" geiser-debug-debugger-locals)
+ ("r" "Display registers" geiser-debug-debugger-registers)])
;;; Implementation-dependent functionality
- [nongnu] elpa/geiser updated (476897e -> ba290b4), ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser a789a6c 2/8: Allowing debuggers to use Dbg buffer for output, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser d857699 1/8: initial support for connection-address, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser ec580a1 4/8: Debugger: fixes and better determination of debugging status, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser be6d808 6/8: Tweaks to geiser-debug-mode keymap, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser ba290b4 8/8: Requiring Emacs 25.1, for transient's sake, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser 21dcac5 3/8: 'debug commands so that each impl can take care of them, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser fcd697f 5/8: New debugger commands: locals, registers, error,
ELPA Syncer <=
- [nongnu] elpa/geiser cf188fd 7/8: Docs, news and version, ELPA Syncer, 2021/12/19