[Emacs-diffs] Changes to emacs/lisp/language/cyrillic.el

[Dave Love]

Index: emacs/lisp/language/cyrillic.el
diff -c emacs/lisp/language/cyrillic.el:1.37 
emacs/lisp/language/cyrillic.el:1.38
*** emacs/lisp/language/cyrillic.el:1.37        Sun Nov 17 19:05:52 2002
--- emacs/lisp/language/cyrillic.el     Tue Nov 26 13:16:58 2002
***************
*** 140,145 ****
--- 140,148 ----
      ((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,282 ****
--- 280,288 ----
      ((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,380 ****
--- 381,389 ----
      ((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.")