From 7b530552e80abf7701aa6c965e30ff22528c42ab Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Mon, 4 Nov 2013 17:34:42 +0200 Subject: [PATCH] * lisp/helpers.el: Actually commit the library code. --- etc/NEWS | 4 ++++ lisp/ChangeLog | 5 +++++ lisp/helpers.el | 42 ++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 51 insertions(+) create mode 100644 lisp/helpers.el diff --git a/etc/NEWS b/etc/NEWS index 2e86ecbda6..eb2b7136cc 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -742,6 +742,10 @@ frame. +++ ** New macro with-eval-after-load. Like eval-after-load, but better behaved. +** New library helpers.el for misc helper functions +*** `hash-table-keys' +*** `hash-table-values' + ** Obsoleted functions: *** `log10' *** `dont-compile' diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e351b73fbd..4530afbde2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -13,6 +13,11 @@ 2013-11-04 Bozhidar Batsov + * progmodes/ruby-mode.el (ruby-mode): Clean up docstring. + + * subr.el (version<, version<=, version=): + Update docstrings with information for snapshot versions. + * helpers.el: New library for misc helper functions. (hash-table-keys): New function returning a list of hash keys. (hash-table-values): New function returning a list of hash values. diff --git a/lisp/helpers.el b/lisp/helpers.el new file mode 100644 index 0000000000..51361043eb --- /dev/null +++ b/lisp/helpers.el @@ -0,0 +1,42 @@ +;;; 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 . + +;;; 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 -- 2.20.1