From 79ba26d3395d28ac1b0d1cf854f13e4a17a2b782 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 28 Apr 2002 05:28:28 +0000 Subject: [PATCH] * lsdb.el (lsdb-save-file): Reduce the actual size of the hash table before saving it. --- lsdb.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4