mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(cyrillic-koi8): Use safe-chars' property instead of safe-charsets'.

Browse Source 
(cyrillic-alternativnyj): Likewise.
(ccl-encode-alternativnyj): Don't check the charset
cyrillic-iso8859-5.
This commit is contained in:
Kenichi Handa 2000-07-27 06:22:42 +00:00
parent 5ddcadb8e3
commit 53a1db8067
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/language/cyrillic.el
View File

@ -112,7 +112,12 @@
;; will have to forgive us.
?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)"
'(ccl-decode-koi8 . ccl-encode-koi8)
'((safe-charsets ascii cyrillic-iso8859-5)
`((safe-chars . ,(let ((table (make-char-table 'safe-chars))
(i 0))
(while (< i 256)
(aset table (aref cyrillic-koi8-r-decode-table i) t)
(setq i (1+ i)))
table))
(mime-charset . koi8-r)
(valid-codes (0 . 127) 163 179 (192 . 255))
(charset-origin-alist (cyrillic-iso8859-5 "KOI8-R"
@ -190,8 +195,7 @@
`(1
((loop
(read-multibyte-character r0 r1)
(if (r0 == ,(charset-id 'cyrillic-iso8859-5))
(translate-character cyrillic-alternativnyj-encode-table r0 r1))
(translate-character cyrillic-alternativnyj-encode-table r0 r1)
(write-repeat r1))))
"CCL program to encode Alternativnyj.")
@ -199,7 +203,13 @@
'cyrillic-alternativnyj 4 ?A
"ALTERNATIVNYJ 8-bit encoding for Cyrillic"
'(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
'((safe-charsets ascii cyrillic-iso8859-5)
`((safe-chars . ,(let ((table (make-char-table 'safe-chars))
(i 0))
(while (< i 256)
(aset table (aref cyrillic-alternativnyj-decode-table i)
t)
(setq i (1+ i)))
table))
(valid-codes (0 . 175) (224 . 241) 255)
(charset-origin-alist (cyrillic-iso8859-5 "ALTERNATIVNYJ"
cyrillic-encode-koi8-r-char))))