Fix +debugger/start
not working (#4782)
* Fix `+debugger/start` not working * Correct indentation Co-authored-by: Henrik Lissner <accounts@v0.io>
This commit is contained in:
parent
9f08db8e33
commit
cdcdde3354
1 changed files with 4 additions and 4 deletions
|
@ -48,10 +48,10 @@ the debugging configuration of the current buffer."
|
||||||
Presents both dap and realgud configurations, and returns a list of the form
|
Presents both dap and realgud configurations, and returns a list of the form
|
||||||
\('dap ...) or ('realgud ...) containing the corresponding debug configuration
|
\('dap ...) or ('realgud ...) containing the corresponding debug configuration
|
||||||
infromation."
|
infromation."
|
||||||
(let ((result (mapcar (lambda (c) (cons (cadr c) c))
|
(let* ((result (mapcar (lambda (c) (cons (cadr c) c))
|
||||||
(append (+debugger--list-for-dap)
|
(append (+debugger--list-for-dap)
|
||||||
(+debugger--list-for-realgud))))
|
(+debugger--list-for-realgud))))
|
||||||
(completion (completing-read "Start debugger: " (mapcar #'car result) nil t)))
|
(completion (completing-read "Start debugger: " (mapcar #'car result) nil t)))
|
||||||
(if (or (null completion) (string-empty-p completion))
|
(if (or (null completion) (string-empty-p completion))
|
||||||
(user-error "No debugging configuration specified.")
|
(user-error "No debugging configuration specified.")
|
||||||
(let ((configuration (cdr (assoc completion result))))
|
(let ((configuration (cdr (assoc completion result))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue