diff options
Diffstat (limited to 'elisp/geiser-debug.el')
-rw-r--r-- | elisp/geiser-debug.el | 35 |
1 files 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 |