diff options
| author | Bozhidar Batsov <bozhidar@batsov.com> | 2015-05-20 18:49:20 +0300 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.com> | 2015-05-20 18:49:20 +0300 |
| commit | 7a22bb66a68d5393a5507ea4226e90090f59fff3 (patch) | |
| tree | c7ae43292e8ca0d5d2e600a742f94a904567a444 /lisp/emacs-lisp | |
| parent | e2f5b72f78cbed16c90148d26df393385bacdcaf (diff) | |
| download | emacs-7a22bb66a68d5393a5507ea4226e90090f59fff3.tar.gz emacs-7a22bb66a68d5393a5507ea4226e90090f59fff3.tar.bz2 emacs-7a22bb66a68d5393a5507ea4226e90090f59fff3.zip | |
Add new inline function `hash-table-empty-p'
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/subr-x.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index bd178faa4af..dc5b7e9824c 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -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 '())) |