diff options
author | Vitalie Spinu <spinuvit@gmail.com> | 2018-10-15 23:40:56 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2018-10-17 00:17:55 +0200 |
commit | c936cdad4c944b716e2842f11c373f69a452c4b2 (patch) | |
tree | 686a453f744dad086c4e91002a712ab993f36694 /cider-debug.el | |
parent | a7c926c2438b714210d4f2f818604b99ae484771 (diff) |
Differentiate between :continue and :Continue commands
clojure-emacs/cider-nrepl#552
Diffstat (limited to 'cider-debug.el')
-rw-r--r-- | cider-debug.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/cider-debug.el b/cider-debug.el index 7ea5b875..b8cc2f48 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -292,7 +292,7 @@ of `cider-interactive-eval' in debug sessions." (defvar cider--debug-mode-tool-bar-map (let ((tool-bar-map (make-sparse-keymap))) (tool-bar-add-item "right-arrow" #'cider-debug-mode-send-reply :next :label "Next step") - (tool-bar-add-item "next-node" #'cider-debug-mode-send-reply :continue :label "Continue non-stop") + (tool-bar-add-item "next-node" #'cider-debug-mode-send-reply :continue :label "Continue") (tool-bar-add-item "jump-to" #'cider-debug-mode-send-reply :out :label "Out of sexp") (tool-bar-add-item "exit" #'cider-debug-mode-send-reply :quit :label "Quit") tool-bar-map)) @@ -377,7 +377,8 @@ In order to work properly, this mode must be activated by "Menu for CIDER debug mode" `("CIDER Debugger" ["Next step" (cider-debug-mode-send-reply ":next") :keys "n"] - ["Continue non-stop" (cider-debug-mode-send-reply ":continue") :keys "c"] + ["Continue" (cider-debug-mode-send-reply ":continue") :keys "c"] + ["Continue non-stop" (cider-debug-mode-send-reply ":Continue") :keys "C"] ["Move out of sexp" (cider-debug-mode-send-reply ":out") :keys "o"] ["Quit" (cider-debug-mode-send-reply ":quit") :keys "q"] "--" @@ -411,7 +412,7 @@ message." (symbol-name last-command-event) (ignore-errors (concat ":" (nrepl-dict-get cider--debug-mode-commands-dict - (downcase (string last-command-event)))))) + (string last-command-event))))) nil (cider--uppercase-command-p))) (when (and (string-prefix-p ":" command) force) |