465 |
|
|
466 |
(define-coding-system-alias 'cp1251 'windows-1251) |
(define-coding-system-alias 'cp1251 'windows-1251) |
467 |
|
|
468 |
|
(let ((elt `("microsoft-cp1251" windows-1251 1 |
469 |
|
,(get 'encode-windows-1251 'translation-table))) |
470 |
|
(slot (assoc "microsoft-cp1251" ctext-non-standard-encodings-alist))) |
471 |
|
(if slot |
472 |
|
(setcdr slot (cdr elt)) |
473 |
|
(push elt ctext-non-standard-encodings-alist))) |
474 |
|
|
475 |
(set-language-info-alist |
(set-language-info-alist |
476 |
"Bulgarian" `((coding-system windows-1251) |
"Bulgarian" `((coding-system windows-1251) |
477 |
(coding-priority windows-1251) |
(coding-priority windows-1251) |
478 |
|
(ctext-non-standard-encodings "microsoft-cp1251") |
479 |
(nonascii-translation |
(nonascii-translation |
480 |
. ,(get 'decode-windows-1251 'translation-table)) |
. ,(get 'decode-windows-1251 'translation-table)) |
481 |
(input-method . "bulgarian-bds") |
(input-method . "bulgarian-bds") |
487 |
(set-language-info-alist |
(set-language-info-alist |
488 |
"Belarusian" `((coding-system windows-1251) |
"Belarusian" `((coding-system windows-1251) |
489 |
(coding-priority windows-1251) |
(coding-priority windows-1251) |
490 |
|
(ctext-non-standard-encodings "microsoft-cp1251") |
491 |
(nonascii-translation |
(nonascii-translation |
492 |
. ,(get 'decode-windows-1251 'translation-table)) |
. ,(get 'decode-windows-1251 'translation-table)) |
493 |
(input-method . "belarusian") |
(input-method . "belarusian") |