From 74e7d16603b36b647d15d03cb421fc9b16e11df8 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 27 Mar 2001 01:12:42 +0000 Subject: [PATCH] (kkc-save-init-file): Locally bind print-length to nil. --- lisp/international/kkc.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index bfd8a079834..78d981affab 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el @@ -61,7 +61,8 @@ This string is shown at mode line when users are in KKC mode.") "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)))) -- 2.39.2