Mercurial > emacs
changeset 48830:47d70e67763f
(encode-mac-roman): Fix last change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 13 Dec 2002 04:42:25 +0000 |
| parents | f6c59ca557c7 |
| children | 55e7852135dc |
| files | lisp/language/european.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/european.el Fri Dec 13 02:35:51 2002 +0000 +++ b/lisp/language/european.el Fri Dec 13 04:42:25 2002 +0000 @@ -578,9 +578,10 @@ (read-multibyte-character r0 r1) (translate-character ucs-mule-to-mule-unicode r0 r1) (translate-character mac-roman-encoder r0 r1) - (if (r0 != ,(charset-id 'eight-bit-graphic)) - (if (r0 != ,(charset-id 'eight-bit-control)) - (r1 = ??))) + (if (r0 != ,(charset-id 'ascii)) + (if (r0 != ,(charset-id 'eight-bit-graphic)) + (if (r0 != ,(charset-id 'eight-bit-control)) + (r1 = ??)))) (write-repeat r1)))) "CCL program to encode Mac Roman")