diff options
| -rw-r--r-- | lisp/language/european.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/language/european.el b/lisp/language/european.el index 0f725ab4a2f..105692a3d5b 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el | |||
| @@ -578,6 +578,9 @@ 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)) | ||
| 582 | (if (r0 != ,(charset-id 'eight-bit-control)) | ||
| 583 | (r1 = ??))) | ||
| 581 | (write-repeat r1)))) | 584 | (write-repeat r1)))) |
| 582 | "CCL program to encode Mac Roman") | 585 | "CCL program to encode Mac Roman") |
| 583 | 586 | ||