branch: externals/dape
commit 2a4462d36a3475fe1146841c44d52245910e8d59
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Fix nil-ed plist props in config diff
---
dape.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/dape.el b/dape.el
index d38e28f3fa..336c73d4a6 100644
--- a/dape.el
+++ b/dape.el
@@ -2604,10 +2604,15 @@ arrays [%S ...], if meant as an object replace (%S ...)
with (:%s ...)"
(defun dape--config-diff (name post-eval)
"Create a diff of config NAME and POST-EVAL config."
- (let ((pre-eval (alist-get name dape-configs)))
+ (let ((base-config (alist-get name dape-configs)))
(cl-loop for (key value) on post-eval by 'cddr
- unless (equal (dape--config-eval-value (plist-get pre-eval key) t)
- value)
+ unless (and
+ ;; Does the key exist in `base-config'?
+ (plist-member base-config key)
+ ;; Has value changed?
+ (equal (dape--config-eval-value (plist-get base-config
key)
+ t)
+ value))
append (list key value))))
(defun dape--config-to-string (name post-eval-config)
