diff options
| -rw-r--r-- | etc/NEWS | 4 | ||||
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/helpers.el | 42 |
3 files changed, 51 insertions, 0 deletions
@@ -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 e351b73fbd6..4530afbde21 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -13,6 +13,11 @@ 2013-11-04 Bozhidar Batsov <bozhidar@batsov.com> + * 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 00000000000..51361043eb2 --- /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 <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 |