From: Dave Love <fx@gnu.org>
Date: Tue, 26 Nov 2002 18:16:58 +0000 (+0000)
Subject: (ccl-encode-koi8, ccl-encode-koi8-u)
X-Git-Tag: ttn-vms-21-2-B4~12266
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=149c2e798533130ed2218096de70f3ed6390e363;p=emacs.git

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

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index d49996a0e64..47cf5349f22 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -140,6 +140,9 @@
     ((loop
       (read-multibyte-character r0 r1)
       (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-R.")
 
@@ -277,6 +280,9 @@ This works whether or not the table is Unicode-based or
     ((loop
       (read-multibyte-character r0 r1)
       (translate-character cyrillic-koi8-u-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-U.")
 
@@ -375,6 +381,9 @@ This works whether or not the table is Unicode-based or
     ((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.")