From: ueno <ueno>
Date: Fri, 26 Apr 2002 12:45:22 +0000 (+0000)
Subject: * lsdb.el (lsdb-maphash) [Emacs]: Fixed.
X-Git-Tag: lsdb-0_1~4
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Flsdb.git;a=commitdiff_plain;h=40c680236b3d993f8e2ec066f5d4b88d0922ac82

* lsdb.el (lsdb-maphash) [Emacs]: Fixed.
---

diff --git a/lsdb.el b/lsdb.el
index 610b4df..07cf0c4 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -243,7 +243,7 @@ may remhash or puthash the entry currently being processed by FUNCTION."
     (mapatoms
      (lambda (symbol)
        (funcall function (symbol-name symbol) (symbol-value symbol)))
-     hash-table))
+     (nth 1 hash-table)))
   (defun lsdb-hash-table-size (hash-table)
     "Return the size of HASH-TABLE.
 This is the current number of slots in HASH-TABLE, whether occupied or not."