From 5853edf8952ab82cce4a1ece11104c1130eeb3ac Mon Sep 17 00:00:00 2001 From: Eric Ludlam Date: Tue, 17 Dec 2019 21:19:02 -0500 Subject: [PATCH] matlab-shell-gud.el: (gud-matlab-tool-bar-map): Add show stack and breakpoints. Remove up/down. Pull buttons from matlab-mode-map, not gud-minor-mode-map. (matlab-shell-mode-gud-enable-bindings): Bind stop-subjob to C-q Finish is now dbstep out. (matlab-shell-gud-minor-mode-map): q now bound to stop-subjob. --- matlab-shell-gud.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/matlab-shell-gud.el b/matlab-shell-gud.el index cb0eb12..8317c28 100644 --- a/matlab-shell-gud.el +++ b/matlab-shell-gud.el @@ -52,13 +52,15 @@ Disable this option if the tooltips are too slow in your setup." (gud-cont . "gud/cont") (gud-next . "gud/next") (gud-step . "gud/step") - (gud-stop-subjob . "gud/stop") (gud-finish . "gud/finish") - (gud-up . "gud/up") - (gud-down . "gud/down")) + (gud-stop-subjob . "gud/stop") + (mlg-show-stack . "gud/all") + (mlg-show-breakpoints . "describe") + ) map) (tool-bar-local-item-from-menu - (car x) (cdr x) map gud-minor-mode-map)))) + (car x) (cdr x) map matlab-mode-map)) + map)) (declare-function matlab-netshell-eval "matlab-netshell" (mode)) @@ -91,8 +93,8 @@ Disable this option if the tooltips are too slow in your setup." (gud-def gud-step (matlab-gud-fcn "dbstep in") "\C-s" "Step one source line, possibly into a function.") (gud-def gud-next (matlab-gud-fcn "dbstep %p") "\C-n" "Step over one source line.") (gud-def gud-cont (matlab-gud-fcn "dbcont") "\C-r" "Continue with display.") - (gud-def gud-stop-subjob (matlab-gud-fcn "dbquit") nil "Quit debugging.") ;; gud toolbar stop - (gud-def gud-finish (matlab-gud-fcn "dbquit") "\C-f" "Finish executing current function.") + (gud-def gud-stop-subjob (matlab-gud-fcn "dbquit") "\C-q" "Quit debugging.") ;; gud toolbar stop + (gud-def gud-finish (matlab-gud-fcn "dbstep out") "\C-f" "Finish executing current function.") (gud-def gud-up (matlab-gud-fcn "dbup") "<" "Up N stack frames (numeric arg).") (gud-def gud-down (matlab-gud-fcn "dbdown") ">" "Down N stack frames (numeric arg).") (gud-def gud-list-breakpoints (matlab-at-fcn "ebstatus") "\C-v" "List breakpoints") @@ -854,7 +856,7 @@ Call debug activate/deactivate features." (define-key km " " 'gud-step) (define-key km "n" 'gud-next) (define-key km "f" 'gud-finish) - (define-key km "q" 'gud-finish) + (define-key km "q" 'gud-stop-subjob) ;(define-key km "u" 'gud-up) ;(define-key km "d" 'gud-down) (define-key km "<" 'gud-up)