# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1039754545 0
# Node ID 47d70e67763f685839220d1aa63c7230dad358ba
# Parent  f6c59ca557c74822d0506966481952c848f79a3e
(encode-mac-roman): Fix last change.

diff -r f6c59ca557c7 -r 47d70e67763f lisp/language/european.el
--- 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")