[bpt/emacs.git] / lisp / helpers.el

;;; helpers.el --- Some non-essential library extensions

;; Copyright (C) 2013 Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: convenience
;; Package: emacs

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;; Code:

(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))

(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))

(provide 'helpers)

;;; helpers.el ends here
Commit	Line	Data
7b530552 BB	1	;;; helpers.el --- Some non-essential library extensions
	2
	3	;; Copyright (C) 2013 Free Software Foundation, Inc.
	4
	5	;; Maintainer: FSF
	6	;; Keywords: convenience
	7	;; Package: emacs
	8
	9	;; This file is part of GNU Emacs.
	10
	11	;; GNU Emacs is free software: you can redistribute it and/or modify
	12	;; it under the terms of the GNU General Public License as published by
	13	;; the Free Software Foundation, either version 3 of the License, or
	14	;; (at your option) any later version.
	15
	16	;; GNU Emacs is distributed in the hope that it will be useful,
	17	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	;; GNU General Public License for more details.
	20
	21	;; You should have received a copy of the GNU General Public License
	22	;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
	23
	24	;;; Commentary:
	25
	26	;;; Code:
	27
	28	(defsubst hash-table-keys (hash-table)
	29	"Return a list of keys in HASH-TABLE."
	30	(let ((keys '()))
	31	(maphash (lambda (k v) (push k keys)) hash-table)
	32	keys))
	33
	34	(defsubst hash-table-values (hash-table)
	35	"Return a list of values in HASH-TABLE."
	36	(let ((values '()))
	37	(maphash (lambda (k v) (push v values)) hash-table)
	38	values))
	39
	40	(provide 'helpers)
	41
	42	;;; helpers.el ends here