Mercurial > emacs
comparison lisp/international/kkc.el @ 37016:7472ec46ab91
(kkc-save-init-file): Locally bind print-length to nil.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 27 Mar 2001 01:12:42 +0000 |
| parents | b82a6fbaae16 |
| children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
| 37015:f8dd0e40dc34 | 37016:7472ec46ab91 |
|---|---|
| 59 | 59 |
| 60 (defun kkc-save-init-file () | 60 (defun kkc-save-init-file () |
| 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)))) |
| 68 | 69 |
| 69 ;; Sequence of characters to be used for indexes for shown list. The | 70 ;; Sequence of characters to be used for indexes for shown list. The |