From: ueno <ueno>
Date: Sun, 28 Apr 2002 05:28:28 +0000 (+0000)
Subject: * lsdb.el (lsdb-save-file): Reduce the actual size of the hash table
X-Git-Tag: lsdb-0_3~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=79ba26d3395d28ac1b0d1cf854f13e4a17a2b782;p=elisp%2Flsdb.git

* lsdb.el (lsdb-save-file): Reduce the actual size of the hash table
before saving it.
---

diff --git a/lsdb.el b/lsdb.el
index 3158c5f..0a57796 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -338,7 +338,8 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 	    (if coding-system-name
 		(insert ";;; -*- coding: " coding-system-name " -*-\n"))))
       (insert "#s(hash-table size "
-	      (number-to-string (lsdb-hash-table-size hash-table))
+	      ;; reduce the actual size of the close hash table
+	      (number-to-string (lsdb-hash-table-count hash-table))
 	      " test equal data (")
       (lsdb-maphash
        (lambda (key value)