branch: elpa/parseedn
commit 7f38ea08b44691bd9ee13d3d539f2c9380d5c07f
Author: tmpUser2022 <98637343+tmpuser2...@users.noreply.github.com>
Commit: GitHub <nore...@github.com>

    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)))

Reply via email to