From: ueno <ueno>
Date: Sat, 24 Aug 2002 05:41:39 +0000 (+0000)
Subject: (lsdb-insert-hash-table): Bind print-level and print-length.
X-Git-Tag: lsdb-0_8~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8d145be3f38ea4422f50a90b2eaaef697998654e;p=elisp%2Flsdb.git

(lsdb-insert-hash-table): Bind print-level and print-length.
---

diff --git a/lsdb.el b/lsdb.el
index c27b756..f4a442e 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -416,7 +416,8 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 	  " test equal data (")
   (lsdb-maphash
    (lambda (key value)
-     (insert (prin1-to-string key) " " (prin1-to-string value) " "))
+     (let (print-level print-length)
+       (insert (prin1-to-string key) " " (prin1-to-string value) " ")))
    hash-table)
   (insert "))"))