From 64e49fa8935aed03a1916f85666c80ad2608978c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 18 Aug 1998 13:15:18 +0000 Subject: [PATCH] (cyrillic-koi8): Fix the value of `valid-code' property. (cyrillic-alternativnyj): Likewise. (cyrillic-alternativnyj-encode-table): Fix the initial value. --- lisp/language/cyrillic.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index cbc41f6b256..abb399e5a18 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -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) -- 2.39.2