Mercurial > emacs
comparison lisp/international/codepage.el @ 24662:5d61c3793c06
(cp-coding-system-for-codepage-1):
Make the magnification parameter for the -dos encoder be 2.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Sun, 02 May 1999 09:48:22 +0000 |
| parents | fe0089dd2d2f |
| children | e2cb024e88cd |
comparison
equal
deleted
inserted
replaced
| 24661:a969304198eb | 24662:5d61c3793c06 |
|---|---|
| 86 (write-multibyte-character r0 r1))) | 86 (write-multibyte-character r0 r1))) |
| 87 (write r1)) | 87 (write r1)) |
| 88 (repeat))))) | 88 (repeat))))) |
| 89 (ccl-encoder-dos | 89 (ccl-encoder-dos |
| 90 (ccl-compile | 90 (ccl-compile |
| 91 `(1 (loop (read-multibyte-character r0 r1) | 91 ;; The 2 here supplies the buf_magnification parameter for |
| 92 ;; the CCL program. Since the -dos coding system generates | |
| 93 ;; \r\n for each \n, a factor of 2 covers even the worst case | |
| 94 ;; of empty lines with a single \n. | |
| 95 `(2 (loop (read-multibyte-character r0 r1) | |
| 92 (if (r1 == ?\n) | 96 (if (r1 == ?\n) |
| 93 (write ?\r) | 97 (write ?\r) |
| 94 (if (r0 != ,(charset-id 'ascii)) | 98 (if (r0 != ,(charset-id 'ascii)) |
| 95 ((translate-character ,encoder r0 r1) | 99 ((translate-character ,encoder r0 r1) |
| 96 (if (r0 == ,(charset-id 'japanese-jisx0208)) | 100 (if (r0 == ,(charset-id 'japanese-jisx0208)) |