mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/subr-x.el (hash-table-keys, hash-table-values): Use cl-loop.

Browse Source
This commit is contained in:
Tino Calancha 2016-11-26 12:03:25 +09:00
parent 8e5c025979
commit acb5589fcd
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/emacs-lisp/subr-x.el
View File

@ -33,6 +33,7 @@
;;; Code:
(require 'pcase)
(eval-when-compile (require 'cl-lib))
(defmacro internal--thread-argument (first? &rest forms)
@ -146,15 +147,11 @@ to bind a single value, BINDINGS can just be a plain tuple."
(defsubst hash-table-keys (hash-table)
"Return a list of keys in HASH-TABLE."
(let ((keys '()))
(maphash (lambda (k _v) (push k keys)) hash-table)
keys))
(cl-loop for k being the hash-keys of hash-table collect k))
(defsubst hash-table-values (hash-table)
"Return a list of values in HASH-TABLE."
(let ((values '()))
(maphash (lambda (_k v) (push v values)) hash-table)
values))
(cl-loop for v being the hash-values of hash-table collect v))
(defsubst string-empty-p (string)
"Check whether STRING is empty."