Re: Consider adding hash-keys and hash-values

[Bozhidar Batsov <bozhidar@batsov.com>]

[-- Attachment #1.1: Type: text/plain, Size: 298 bytes --]

I've attached a patch for your consideration.


On 31 October 2013 15:37, Stefan Monnier <monnier@iro.umontreal.ca> wrote:

> > Sounds reasonable. Maybe we can use another name, though? Something in
> the
> > lines of `helpers`, `extras`, etc.
>
> I don't have a preference.
>
>
>         Stefan
>

[-- Attachment #1.2: Type: text/html, Size: 719 bytes --]

[-- Attachment #2: 0001-lisp-helpers.el-Add-new-library-for-helper-functions.patch --]
[-- Type: application/octet-stream, Size: 2250 bytes --]

From df44b0223a67f519a61a54b39f34014374cd0760 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@batsov.com>
Date: Sat, 2 Nov 2013 17:22:33 +0200
Subject: [PATCH] * lisp/helpers.el: Add new library for helper functions

---
 lisp/ChangeLog  |  4 ++++
 lisp/helpers.el | 40 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 44 insertions(+)
 create mode 100644 lisp/helpers.el

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7716ed1..6558e5d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2013-11-02  Bozhidar Batsov  <bozhidar@batsov.com>
 
+	* helpers.el: Add new functions `hash-table-keys' and `hash-table-values'.
+
+2013-11-02  Bozhidar Batsov  <bozhidar@batsov.com>
+
 	* emacs-lisp/package.el (package-version-join): Recognize
 	snapshot versions.
 
diff --git a/lisp/helpers.el b/lisp/helpers.el
new file mode 100644
index 0000000..203a378
--- /dev/null
+++ b/lisp/helpers.el
@@ -0,0 +1,40 @@
+;;; 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:
+
+(defun hash-table-keys (hash-table)
+  "Return a list of keys in HASH-TABLE."
+  (let ((keys '()))
+    (maphash (lambda (k v) (setq keys (cons k keys))) hash-table)
+    keys))
+
+(defun hash-table-values (hash-table)
+  "Return a list of values in HASH-TABLE."
+  (let ((values '()))
+    (maphash (lambda (k v) (setq values (cons k values))) hash-table)
+    values))
+
+;;; helpers.el ends here
-- 
1.8.4