Skip to content

Commit d7c6a9f

Browse files
committed
Don't keywordize debug input
1 parent fa726ce commit d7c6a9f

File tree

1 file changed

+2
-5
lines changed

1 file changed

+2
-5
lines changed

cider-debug.el

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -401,13 +401,10 @@ message."
401401
(if (symbolp last-command-event)
402402
(symbol-name last-command-event)
403403
(ignore-errors
404-
(nrepl-dict-get cider--debug-mode-commands-dict
405-
(downcase (string last-command-event)))))
404+
(concat ":" (nrepl-dict-get cider--debug-mode-commands-dict
405+
(downcase (string last-command-event))))))
406406
nil
407407
(cider--uppercase-command-p)))
408-
(unless (or (string-prefix-p ":" command)
409-
(string-prefix-p "{" command))
410-
(setq command (concat ":" command)))
411408
(when (and (string-prefix-p ":" command) force)
412409
(setq command (format "{:response %s :force? true}" command)))
413410
(cider-nrepl-send-unhandled-request

0 commit comments

Comments
 (0)