Mercurial > emacs

changeset 53242:e8f42b49f71f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist. ("Bulgarian"): Add ctext-non-standard-encodings. ("Belarusian"): Likewise.
author Kenichi Handa <handa@m17n.org>
date Wed, 03 Dec 2003 08:25:25 +0000
parents b5acb6a7d79b
children abbcd93bf46e
files lisp/language/cyrillic.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/cyrillic.el	Wed Dec 03 08:25:05 2003 +0000
+++ b/lisp/language/cyrillic.el	Wed Dec 03 08:25:25 2003 +0000
@@ -465,9 +465,17 @@
 
 (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 @@
 (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")