branch: elpa/parseedn
commit 7f38ea08b44691bd9ee13d3d539f2c9380d5c07f
Author: tmpUser2022 <[email protected]>
Commit: GitHub <[email protected]>
Fix empty hash
Before: `(parseedn-print-str #s(hash-table size 0 data ())) ;; => "{nil
nil}"`
After: `(parseedn-print-str #s(hash-table size 0 data ())) ;; => "{}"`
---
parseedn.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/parseedn.el b/parseedn.el
index 1e06e54218..6e93399f91 100644
--- a/parseedn.el
+++ b/parseedn.el
@@ -165,7 +165,7 @@ TAG-READERS is an optional association list. For more
information, see
(defun parseedn-print-hash-or-alist (map &optional ks)
"Insert hash table MAP or elisp alist as an EDN map into the current buffer."
- (let ((keys (or ks (map-keys map))))
+ (when-let ((keys (or ks (map-keys map))))
(parseedn-print (car keys))
(insert " ")
(parseedn-print (map-elt map (car keys)))
