procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

("Tajik", "Bulgarian", "Belarusian"): Add

Browse source 
charset.
("Ukrainian"): New.
This commit is contained in:
Dave Love 2002-08-18 13:18:54 +00:00
parent ed1d5bc0b2
commit 0a3fa7140a
1 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/language/cyrillic.el
View file

@ -149,17 +149,16 @@
;; (set-language-info-alist ;; (set-language-info-alist
;; "Windows-1251" `((coding-system windows-1251) ;; "Windows-1251" `((coding-system windows-1251)
;; (coding-priority windows-1251) ;; (coding-priority windows-1251)
;; (nonascii-translation
;; . ,(get 'decode-windows-1252 'translation-table))
;; (input-method . "russian-typewriter") ; fixme? ;; (input-method . "russian-typewriter") ; fixme?
;; (features code-pages) ;; (features code-pages)
;; (documentation . "Support for windows-1251 character set.")) ;; (documentation . "Support for windows-1251 character set."))
;; '("Cyrillic")) ;; '("Cyrillic"))
(set-language-info-alist (set-language-info-alist
"Tajik" `((coding-system cyrillic-koi8-t) "Tajik" `((coding-system koi8-t)
(coding-priority cyrillic-koi8-t) (coding-priority koi8-t)
(nonascii-translation . cyrillic-koi8-t) (nonascii-translation . cyrillic-koi8-t)
(charset . koi8-t)
(input-method . "russian-typewriter") ; fixme? (input-method . "russian-typewriter") ; fixme?
(features code-pages) (features code-pages)
(documentation . "Support for Tajik using KOI8-T.")) (documentation . "Support for Tajik using KOI8-T."))
@ -169,6 +168,7 @@
"Bulgarian" `((coding-system windows-1251) "Bulgarian" `((coding-system windows-1251)
(coding-priority windows-1251) (coding-priority windows-1251)
(nonascii-translation . windows-1251) (nonascii-translation . windows-1251)
(charset . windows-1251)
(input-method . "bulgarian-standard") (input-method . "bulgarian-standard")
(features code-pages) (features code-pages)
(documentation (documentation
@ -179,6 +179,7 @@
"Belarusian" `((coding-system windows-1251) "Belarusian" `((coding-system windows-1251)
(coding-priority windows-1251) (coding-priority windows-1251)
(nonascii-translation . windows-1251) (nonascii-translation . windows-1251)
(charset . windows-1251)
(input-method . "belarusian") (input-method . "belarusian")
(features code-pages) (features code-pages)
(documentation (documentation
@ -186,6 +187,14 @@
\(The name Belarusian replaced Byelorussian in the early 1990s.)")) \(The name Belarusian replaced Byelorussian in the early 1990s.)"))
'("Cyrillic")) '("Cyrillic"))
(set-language-info-alist
"Ukrainian" `((coding-system koi8-u)
(coding-priority koi8-u)
(input-method . "ukrainian-computer")
(documentation
. "Support for Ukrainian with koi8-u character set."))
'("Cyrillic"))
(provide 'cyrillic) (provide 'cyrillic)
;;; cyrillic.el ends here ;;; cyrillic.el ends here