Mercurial > emacs
comparison lisp/international/quail.el @ 88753:444ef6485085
(quail-update-leim-list-file): Force
writing the file by iso-2022-7bit.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 12 Jun 2002 00:49:41 +0000 |
| parents | a202d9fb56eb |
| children | f0e86bd74de8 |
comparison
equal
deleted
inserted
replaced
| 88752:1aeb58b4f1e1 | 88753:444ef6485085 |
|---|---|
| 2814 (setq pkg-list (cdr pkg-list))) | 2814 (setq pkg-list (cdr pkg-list))) |
| 2815 (setq quail-dirs (cdr quail-dirs) dirnames (cdr dirnames)))) | 2815 (setq quail-dirs (cdr quail-dirs) dirnames (cdr dirnames)))) |
| 2816 | 2816 |
| 2817 ;; At last, write out LEIM list file. | 2817 ;; At last, write out LEIM list file. |
| 2818 (with-current-buffer list-buf | 2818 (with-current-buffer list-buf |
| 2819 (setq buffer-file-coding-system 'iso-2022-7bit) | 2819 (let ((coding-system-for-write 'iso-2022-7bit)) |
| 2820 (save-buffer 0)) | 2820 (save-buffer 0))) |
| 2821 (kill-buffer list-buf) | 2821 (kill-buffer list-buf) |
| 2822 (message "Updating %s ... done" leim-list))) | 2822 (message "Updating %s ... done" leim-list))) |
| 2823 | 2823 |
| 2824 (defun quail-advice (args) | 2824 (defun quail-advice (args) |
| 2825 "Advise users about the characters input by the current Quail package. | 2825 "Advise users about the characters input by the current Quail package. |