From ea8668dbe7ded2d2d7a31cdf5ee52c3088f0cfc1 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 23 Oct 2022 22:43:09 +0100 Subject: debug transient tweaks --- geiser-guile.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/geiser-guile.el b/geiser-guile.el index 339075a..8d09c5b 100644 --- a/geiser-guile.el +++ b/geiser-guile.el @@ -436,11 +436,14 @@ This function uses `geiser-guile-init-file' if it exists." (transient-define-prefix geiser-guile--debug-transient () "Debugging meta-commands." ["Guile debugger" + [("n" "Next error" compilation-next-error) + ("p" "Previous error" compilation-next-error) + ("z" "Scheme buffer" geiser-debug-switch-to-buffer) + ("x" "Exit debug level" geiser-guile-debug-quit)] [("b" "Show backtrace" geiser-guile-debug-show-backtrace) - ("e" "Show error" geiser-guile-debug-show-error)] - [("l" "Show locals" geiser-guile-debug-show-locals) - ("r" "Show registers" geiser-guile-debug-show-registers)] - [("x" "Exit debug level" geiser-guile-debug-quit)]]) + ("e" "Show error" geiser-guile-debug-show-error) + ("l" "Show locals" geiser-guile-debug-show-locals) + ("r" "Show registers" geiser-guile-debug-show-registers)]]) (defun geiser-guile-debug-menu () "Show available debugging commands, if any." -- cgit v1.2.3