mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

(kkc-save-init-file): Locally bind print-length to nil.

Browse Source
This commit is contained in:
Kenichi Handa 2001-03-27 01:12:42 +00:00
parent f46cc673eb
commit 74e7d16603
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/international/kkc.el
View File

@ -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))))