awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-11 13:07:28 -05:00
Code Issues Packages Projects Releases Wiki Activity

Handle empty input in +debugger-completing-read

Browse Source
This commit is contained in:
Henrik Laxhuber
2021-02-28 23:18:19 +01:00
parent 8c33866b21
commit cf3d9eb6e0
1 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/tools/debugger/autoload/debugger.el
View File

@@ -50,9 +50,12 @@ infromation."
(+debugger-list-for-dap) (+debugger-list-for-dap)
(+debugger-list-for-realgud))) (+debugger-list-for-realgud)))
(result (--map (cons (cadr it) it) configurations)) (result (--map (cons (cadr it) it) configurations))
(completion (completing-read "Start debugger: " (-map 'car result) nil t )) (completion (completing-read "Start debugger: " (-map 'car result) nil t)))
(configuration (cdr (assoc completion result)))) (if (eq completion "")
(user-error "No debugging configuration specified.")
(let ((configuration (cdr (assoc completion result))))
(if (eq (car configuration) 'dap) (if (eq (car configuration) 'dap)
;; get dap debugging arguments
(let* ((debug-args (-> (cdr configuration) (let* ((debug-args (-> (cdr configuration)
cl-rest cl-rest
copy-tree copy-tree
@@ -64,7 +67,7 @@ infromation."
(or (plist-get debug-args :type) (or (plist-get debug-args :type)
(user-error "%s does not specify :type" debug-args)))))) (user-error "%s does not specify :type" debug-args))))))
(cons 'dap launch-args)) (cons 'dap launch-args))
(cons 'realgud (intern (cadr configuration)))))) (cons 'realgud (intern (cadr configuration))))))))
;; ;;
;;; Interactive commands ;;; Interactive commands