diff options
| author | Kenichi Handa <handa@m17n.org> | 2001-03-27 01:12:42 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2001-03-27 01:12:42 +0000 |
| commit | 74e7d16603b36b647d15d03cb421fc9b16e11df8 (patch) | |
| tree | cb23f0e1919567d8d43c965c6dcfa418d28ebdc4 /lisp/international/kkc.el | |
| parent | f46cc673ebffcf6ca61c5aa824c4dcfbcbc5dce8 (diff) | |
| download | emacs-74e7d16603b36b647d15d03cb421fc9b16e11df8.tar.gz | |
(kkc-save-init-file): Locally bind print-length to nil.
Diffstat (limited to 'lisp/international/kkc.el')
| -rw-r--r-- | lisp/international/kkc.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |