branch: externals/dape
commit ee2aaad60f29077648b55a4832cddbfd1aea5cd6
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Invoke customize-variable if dape-configs is null
Suggested by Philip Kaluderic
---
dape.el | 34 ++++++++++++++++++----------------
1 file changed, 18 insertions(+), 16 deletions(-)
diff --git a/dape.el b/dape.el
index 0375b79b86..6e3295c463 100644
--- a/dape.el
+++ b/dape.el
@@ -2320,22 +2320,24 @@ If SKIP-FUNCTIONS function values are not called during
evaluation."
(defun dape--read-config ()
"Read config name and options."
- (let ((candidate
- (completing-read "Dape config: "
- (append
- (mapcan
- (lambda (name-config)
- (let* ((config (cdr name-config))
- (modes (plist-get config 'modes)))
- (when (apply 'provided-mode-derived-p
major-mode modes)
- (list (car name-config)))))
- dape-configs)
- dape--config-history)
- nil nil nil 'dape-history)))
- (if-let ((config
- (alist-get (intern candidate) dape-configs)))
- (list (intern candidate) config)
- (dape--config-from-string candidate))))
+ (if (null dape-configs)
+ (customize-variable 'dape-configs)
+ (let ((candidate
+ (completing-read "Dape config: "
+ (append
+ (mapcan
+ (lambda (name-config)
+ (let* ((config (cdr name-config))
+ (modes (plist-get config 'modes)))
+ (when (apply 'provided-mode-derived-p
major-mode modes)
+ (list (car name-config)))))
+ dape-configs)
+ dape--config-history)
+ nil nil nil 'dape-history)))
+ (if-let ((config
+ (alist-get (intern candidate) dape-configs)))
+ (list (intern candidate) config)
+ (dape--config-from-string candidate)))))
;;; Hover
