[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser be6d808 6/8: Tweaks to geiser-debug-mode keymap
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser be6d808 6/8: Tweaks to geiser-debug-mode keymap |
Date: |
Sun, 19 Dec 2021 18:57:40 -0500 (EST) |
branch: elpa/geiser
commit be6d80843b0d96d917e05e2854dd062edf3db223
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
Tweaks to geiser-debug-mode keymap
---
elisp/geiser-debug.el | 35 ++++++++++++++++++++---------------
1 file changed, 20 insertions(+), 15 deletions(-)
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index b0705c6..394f7da 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -97,7 +97,6 @@ all ANSI sequences."
(defvar geiser-debug-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
- (set-keymap-parent map button-buffer-map)
map)
"Keymap for `geiser-debug-mode'.")
@@ -113,15 +112,6 @@ all ANSI sequences."
(defvar-local geiser-debug--debugger-active-p nil)
(defvar-local geiser-debug--sender-buffer nil)
-(geiser-menu--defmenu debug geiser-debug-mode-map
- ("Next error" "n" compilation-next-error)
- ("Previous error" "p" compilation-previous-error)
- ("Debugger command" "," geiser-debug--debugger-transient
- :enable geiser-debug--debugger-active-p)
- ("Source buffer" ("z" (kbd "C-c C-z")) geiser-debug-switch-to-buffer)
- --
- ("Quit" nil View-quit))
-
(defun geiser-debug--send-to-repl (thing)
(unless (and geiser-debug--debugger-active-p geiser-debug--sender-buffer)
(error "Debugger not active"))
@@ -166,11 +156,26 @@ all ANSI sequences."
"Debugging meta-commands."
[:description (lambda () (format "%s debugger" (geiser-impl--impl-str)))
:if (lambda () geiser-debug--debugger-active-p)
- ("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)])
+ ["Display"
+ ("b" "backtrace" geiser-debug-debugger-backtrace)
+ ("e" "error" geiser-debug-debugger-error)
+ ("l" "locals" geiser-debug-debugger-locals)
+ ("r" " registers" geiser-debug-debugger-registers)]
+ ["Go"
+ ("jn" "Jump to next error" next-error)
+ ("jp" "Jump to previous error" previous-error)
+ ("x" "Exit debug level" geiser-debug-debugger-quit)]])
+
+(geiser-menu--defmenu debug geiser-debug-mode-map
+ ("Next error" ("n" [?\t]) compilation-next-error)
+ ("Previous error" ("p" "\e\t" [backtab]) compilation-previous-error)
+ ("Next error location" ((kbd "M-n")) next-error)
+ ("Previous error location" ((kbd "M-p")) previous-error)
+ ("Debugger command ..." "," geiser-debug--debugger-transient
+ :enable geiser-debug--debugger-active-p)
+ ("Source buffer" ("z" (kbd "C-c C-z")) geiser-debug-switch-to-buffer)
+ --
+ ("Quit" nil View-quit))
;;; 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 <=
- [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, 2021/12/19
- [nongnu] elpa/geiser cf188fd 7/8: Docs, news and version, ELPA Syncer, 2021/12/19