Some trivial improvements.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/init.el b/src/init.el
index c9038fd..b2fd434 100644
--- a/src/init.el
+++ b/src/init.el
@@ -17,6 +17,16 @@
 (defun zencoding-join-string (lis joiner)
   (mapconcat 'identity lis joiner))
 
+(defun zencoding-get-keys-of-hash (hash)
+  (let ((ks nil))
+    (maphash #'(lambda (k v) (setq ks (cons k ks))) hash)
+    ks))
+
+(defun zencoding-get-vals-of-hash (hash)
+  (let ((vs nil))
+    (maphash #'(lambda (k v) (setq vs (cons v vs))) hash)
+    vs))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Generic parsing macros and utilities