diff options
| author | jao <jao@gnu.org> | 2022-10-23 22:43:09 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-23 22:43:09 +0100 |
| commit | ea8668dbe7ded2d2d7a31cdf5ee52c3088f0cfc1 (patch) | |
| tree | 459f355bbde74c899728a0240907d615f8167ce6 | |
| parent | a2ef4dbd7d63896f012896d497b17d8162f82178 (diff) | |
| download | geiser-guile-ea8668dbe7ded2d2d7a31cdf5ee52c3088f0cfc1.tar.gz geiser-guile-ea8668dbe7ded2d2d7a31cdf5ee52c3088f0cfc1.tar.bz2 | |
debug transient tweaks
| -rw-r--r-- | geiser-guile.el | 11 |
1 files 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." |