From d850458362cced54f4f0ca6157fa180cf80199fc Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 13 Dec 2002 04:45:14 +0000 Subject: [PATCH] (encode-mac-roman): Fix last change. --- lisp/ChangeLog | 7 +++++++ lisp/language/european.el | 7 ++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5315601a33a..4ed085eacf8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2002-12-13 Kenichi Handa + + * language/european.el (encode-mac-roman): Fix last change. + + * language/cyrillic.el (ccl-encode-koi8, ccl-encode-koi8-u) + (ccl-encode-alternativnyj): Fix last change. + 2002-12-13 Nick Roberts * gdb-ui.el: Improve documentation strings. 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.")) (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") -- 2.39.5