Commit 64e49fa8 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(cyrillic-koi8): Fix the value of

`valid-code' property.
(cyrillic-alternativnyj): Likewise.
(cyrillic-alternativnyj-encode-table): Fix the initial value.
parent c11b3a3f
......@@ -122,7 +122,7 @@
'(ccl-decode-koi8 . ccl-encode-koi8)
'((safe-charsets ascii cyrillic-iso8859-5)
(mime-charset . koi8-r)
(valid-codes (0 127) 163 179 (192 255))))
(valid-codes (0 . 127) 163 179 (192 . 255))))
(define-coding-system-alias 'koi8-r 'cyrillic-koi8)
(define-coding-system-alias 'koi8 'cyrillic-koi8)
......@@ -186,7 +186,7 @@
(let* ((ch (aref cyrillic-alternativnyj-decode-table i))
(split (split-char ch)))
(if (eq (car split) 'cyrillic-iso8859-5)
(aset table (nth 1 split) i)
(aset table (logior (nth 1 split) 128) i)
(if (/= ch 32)
(aset table ch i))))
(setq i (1+ i)))
......@@ -218,7 +218,7 @@
"ALTERNATIVNYJ 8-bit encoding for Cyrillic"
'(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
'((safe-charsets ascii cyrillic-iso8859-5)
(valid-codes (0 175) (224 241) 255)))
(valid-codes (0 . 175) (224 . 241) 255)))
(define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment