From 7b41860d8524aa418e9fe4a7fc3c40f18ad64671 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 13 Dec 2002 04:28:19 +0000 Subject: [PATCH] (encode-mac-roman): Fix last change. --- lisp/language/european.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/language/european.el b/lisp/language/european.el index c02520efef3..0801516cbe7 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -516,9 +516,10 @@ but it selects the Dutch tutorial.")) ((loop (read-multibyte-character 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") -- 2.39.5