procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Faster implementation of map-empty-p

Browse source 
* lisp/emacs-lisp/map.el (map-empty-p): Faster implementation using
specific tests depending on the type of the map.
This commit is contained in:
Nicolas Petton 2015-04-29 19:01:56 +02:00
parent 12a3ea52c4
commit a5237a0499
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/map.el
View file

@ -150,7 +150,11 @@ FUNCTION is called with two arguments, the key and the value."
(arrayp map)))
(defun map-empty-p (map)
(null (map-keys map)))
"Return non-nil is MAP is empty."
(map--dispatch map
:list (null map)
:array (seq-empty-p map)
:hash-table (zerop (hash-table-count map))))
(defun map-contains-key-p (map key &optional testfn)
"Return non-nil if MAP contain the key KEY, nil otherwise.