mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.

Browse source 
("Bulgarian"): Add ctext-non-standard-encodings.
("Belarusian"): Likewise.
This commit is contained in:
Kenichi Handa 2003-12-03 08:25:25 +00:00
parent 1e056d4870
commit 52d8246cbd
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/language/cyrillic.el
View file

@ -465,9 +465,17 @@ Support for Russian using koi8-r and the russian-computer input method.")
(define-coding-system-alias 'cp1251 'windows-1251)
(let ((elt `("microsoft-cp1251" windows-1251 1
,(get 'encode-windows-1251 'translation-table)))
(slot (assoc "microsoft-cp1251" ctext-non-standard-encodings-alist)))
(if slot
(setcdr slot (cdr elt))
(push elt ctext-non-standard-encodings-alist)))
(set-language-info-alist
"Bulgarian" `((coding-system windows-1251)
(coding-priority windows-1251)
(coding-priority windows-1251)
(ctext-non-standard-encodings "microsoft-cp1251")
(nonascii-translation
. ,(get 'decode-windows-1251 'translation-table))
(input-method . "bulgarian-bds")
@ -479,6 +487,7 @@ Support for Russian using koi8-r and the russian-computer input method.")
(set-language-info-alist
"Belarusian" `((coding-system windows-1251)
(coding-priority windows-1251)
(ctext-non-standard-encodings "microsoft-cp1251")
(nonascii-translation
. ,(get 'decode-windows-1251 'translation-table))
(input-method . "belarusian")