Fix +debugger/start for dap-mode

And fix variable name typo.
This commit is contained in:
Henrik Lissner 2019-07-09 21:33:02 +02:00
parent 95a6a2baaf
commit 69ba8bb657
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -5,7 +5,7 @@
(defun +debugger-list-for-dap () (defun +debugger-list-for-dap ()
(when (and (bound-and-true-p lsp-mode) (when (and (bound-and-true-p lsp-mode)
(require 'dap-mode nil t) (require 'dap-mode nil t)
dsp-mode) dap-mode)
(mapcar #'car dap--debug-template-configurations))) (mapcar #'car dap--debug-template-configurations)))
(defun +debugger-list-for-realgud () (defun +debugger-list-for-realgud ()
@ -48,7 +48,9 @@ for what debugger to use. If the prefix ARG is set, prompt anyway."
(unless (fboundp debugger) (unless (fboundp debugger)
(user-error "Couldn't find debugger backend %S" debugger)) (user-error "Couldn't find debugger backend %S" debugger))
(setq-local +debugger--last debugger) (setq-local +debugger--last debugger)
(call-interactively debugger)) (if (assoc debugger dap--debug-template-configurations)
(dap-debug debugger)
(call-interactively debugger)))
(+debugger/start-last))) (+debugger/start-last)))
;;;###autoload ;;;###autoload