diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-04-16 00:39:03 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-04-16 00:39:03 -0300 |
| commit | d7c6a9fde5ffa3db1de909b527fb21af29f433cc (patch) | |
| tree | c73fdb503f1de59eace8ec5bde7fa7773225fa2c /cider-debug.el | |
| parent | fa726cefebdf527784123e9d0a4a727c0146af88 (diff) | |
Don't keywordize debug input
Diffstat (limited to 'cider-debug.el')
| -rw-r--r-- | cider-debug.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/cider-debug.el b/cider-debug.el index 8f41fd16..eb38df76 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -401,13 +401,10 @@ message." (if (symbolp last-command-event) (symbol-name last-command-event) (ignore-errors - (nrepl-dict-get cider--debug-mode-commands-dict - (downcase (string last-command-event))))) + (concat ":" (nrepl-dict-get cider--debug-mode-commands-dict + (downcase (string last-command-event)))))) nil (cider--uppercase-command-p))) - (unless (or (string-prefix-p ":" command) - (string-prefix-p "{" command)) - (setq command (concat ":" command))) (when (and (string-prefix-p ":" command) force) (setq command (format "{:response %s :force? true}" command))) (cider-nrepl-send-unhandled-request |