From 52d8246cbdc4f78bdb71fc5f19e4b802fe24911f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 3 Dec 2003 08:25:25 +0000 Subject: [PATCH] Register "microsoft-cp1251" in ctext-non-standard-encodings-alist. ("Bulgarian"): Add ctext-non-standard-encodings. ("Belarusian"): Likewise. --- lisp/language/cyrillic.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index ad3ab940492..19ff671834b 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -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") -- 2.39.2