# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 985655562 0
# Node ID 7472ec46ab91fce28eeeff3bd9f98e30e08b70fc
# Parent  f8dd0e40dc346aa38fa6d31ff6a3118b13005386
(kkc-save-init-file): Locally bind print-length to nil.

diff -r f8dd0e40dc34 -r 7472ec46ab91 lisp/international/kkc.el
--- a/lisp/international/kkc.el	Mon Mar 26 18:43:58 2001 +0000
+++ b/lisp/international/kkc.el	Tue Mar 27 01:12:42 2001 +0000
@@ -61,7 +61,8 @@
   "Save initial setup code for KKC to a file specified by `kkc-init-file-name'"
   (if (and kkc-init-file-flag
 	   (not (eq kkc-init-file-flag t)))
-      (let ((coding-system-for-write 'iso-2022-7bit))
+      (let ((coding-system-for-write 'iso-2022-7bit)
+	    (print-length nil))
 	(write-region (format "(setq kkc-lookup-cache '%S)\n" kkc-lookup-cache)
 		      nil
 		      kkc-init-file-name))))