From: Kenichi Handa <handa@m17n.org>
Date: Tue, 26 Nov 2002 23:31:13 +0000 (+0000)
Subject: (ccl-encode-koi8)
X-Git-Tag: emacs-pretest-21.2.93~16
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e48d9bbf9e2ac0bad70ce3fedbdcca93b1bac0e8;p=emacs.git

(ccl-encode-koi8)
(ccl-encode-alternativnyj): Deal with unencodable characters.
---

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 392958adcd9..f476075cb25 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -102,6 +102,9 @@
       (read-multibyte-character r0 r1)
       (if (r0 == ,(charset-id 'cyrillic-iso8859-5))
 	  (translate-character cyrillic-koi8-r-encode-table r0 r1))
+      (if (r0 != ,(charset-id 'eight-bit-graphic))
+	  (if (r0 != ,(charset-id 'eight-bit-control))
+	      (r1 = ??)))
       (write-repeat r1))))
   "CCL program to encode KOI8.")
 	     
@@ -197,6 +200,9 @@
     ((loop
       (read-multibyte-character r0 r1)
       (translate-character cyrillic-alternativnyj-encode-table r0 r1)
+      (if (r0 != ,(charset-id 'eight-bit-graphic))
+	  (if (r0 != ,(charset-id 'eight-bit-control))
+	      (r1 = ??)))
       (write-repeat r1))))
   "CCL program to encode Alternativnyj.")