diff options
| author | Kenichi Handa | 2002-12-13 04:45:14 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2002-12-13 04:45:14 +0000 |
| commit | d850458362cced54f4f0ca6157fa180cf80199fc (patch) | |
| tree | 2c97bbe4377a7ce25592bb3c58637f2d4e2123e7 /lisp/language | |
| parent | 200c93e2af65f4fa433416b91d4a8d34209d80f3 (diff) | |
| download | emacs-d850458362cced54f4f0ca6157fa180cf80199fc.tar.gz emacs-d850458362cced54f4f0ca6157fa180cf80199fc.zip | |
(encode-mac-roman): Fix last change.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/european.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/language/european.el b/lisp/language/european.el index 4d4b71a8201..b594fb37413 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el | |||
| @@ -578,9 +578,10 @@ but it selects the Dutch tutorial and input method.")) | |||
| 578 | (read-multibyte-character r0 r1) | 578 | (read-multibyte-character r0 r1) |
| 579 | (translate-character ucs-mule-to-mule-unicode r0 r1) | 579 | (translate-character ucs-mule-to-mule-unicode r0 r1) |
| 580 | (translate-character mac-roman-encoder r0 r1) | 580 | (translate-character mac-roman-encoder r0 r1) |
| 581 | (if (r0 != ,(charset-id 'eight-bit-graphic)) | 581 | (if (r0 != ,(charset-id 'ascii)) |
| 582 | (if (r0 != ,(charset-id 'eight-bit-control)) | 582 | (if (r0 != ,(charset-id 'eight-bit-graphic)) |
| 583 | (r1 = ??))) | 583 | (if (r0 != ,(charset-id 'eight-bit-control)) |
| 584 | (r1 = ??)))) | ||
| 584 | (write-repeat r1)))) | 585 | (write-repeat r1)))) |
| 585 | "CCL program to encode Mac Roman") | 586 | "CCL program to encode Mac Roman") |
| 586 | 587 | ||