Add new inline function `hash-table-empty-p'

This commit is contained in:
Bozhidar Batsov 2015-05-20 18:49:20 +03:00
parent e2f5b72f78
commit 7a22bb66a6

View file

@ -140,6 +140,10 @@ to bind a single value, BINDINGS can just be a plain tuple."
(declare (indent 1) (debug if-let))
(list 'if-let bindings (macroexp-progn body)))
(defsubst hash-table-empty-p (table)
"Check whether TABLE is empty (has 0 elements)."
(zerop (hash-table-count table)))
(defsubst hash-table-keys (hash-table)
"Return a list of keys in HASH-TABLE."
(let ((keys '()))