diff options
| -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.") | |||
| 61 | "Save initial setup code for KKC to a file specified by `kkc-init-file-name'" | 61 | "Save initial setup code for KKC to a file specified by `kkc-init-file-name'" |
| 62 | (if (and kkc-init-file-flag | 62 | (if (and kkc-init-file-flag |
| 63 | (not (eq kkc-init-file-flag t))) | 63 | (not (eq kkc-init-file-flag t))) |
| 64 | (let ((coding-system-for-write 'iso-2022-7bit)) | 64 | (let ((coding-system-for-write 'iso-2022-7bit) |
| 65 | (print-length nil)) | ||
| 65 | (write-region (format "(setq kkc-lookup-cache '%S)\n" kkc-lookup-cache) | 66 | (write-region (format "(setq kkc-lookup-cache '%S)\n" kkc-lookup-cache) |
| 66 | nil | 67 | nil |
| 67 | kkc-init-file-name)))) | 68 | kkc-init-file-name)))) |