# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1038334588 0
# Node ID 12718f5f58aa3108ee81b774cb288a91da8d6935
# Parent  538af265a4a76099dcb54ad1bae31fed4e1c406b
(encode-mac-roman): Deal with unencodable
characters.

diff -r 538af265a4a7 -r 12718f5f58aa lisp/language/european.el
--- a/lisp/language/european.el	Mon Nov 25 23:30:19 2002 +0000
+++ b/lisp/language/european.el	Tue Nov 26 18:16:28 2002 +0000
@@ -578,6 +578,9 @@
       (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 = ??)))
       (write-repeat r1))))
   "CCL program to encode Mac Roman")