[Emacs-diffs] Changes to emacs/lisp/language/cyrillic.el

[Kenichi Handa]

Index: emacs/lisp/language/cyrillic.el
diff -c emacs/lisp/language/cyrillic.el:1.43 
emacs/lisp/language/cyrillic.el:1.44
*** emacs/lisp/language/cyrillic.el:1.43        Wed Oct  1 14:07:47 2003
--- emacs/lisp/language/cyrillic.el     Wed Dec  3 03:25:25 2003
***************
*** 465,473 ****
  
  (define-coding-system-alias 'cp1251 'windows-1251)
  
  (set-language-info-alist
   "Bulgarian" `((coding-system windows-1251)
!                 (coding-priority windows-1251)
               (nonascii-translation
                . ,(get 'decode-windows-1251 'translation-table))
               (input-method . "bulgarian-bds")
--- 465,481 ----
  
  (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)
!              (ctext-non-standard-encodings "microsoft-cp1251")
               (nonascii-translation
                . ,(get 'decode-windows-1251 'translation-table))
               (input-method . "bulgarian-bds")
***************
*** 479,484 ****
--- 487,493 ----
  (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")