/[emacs]/emacs/lisp/language/cyrillic.el
ViewVC logotype

Diff of /emacs/lisp/language/cyrillic.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by fx, Wed Oct 1 18:07:47 2003 UTC revision 1.44 by handa, Wed Dec 3 08:25:25 2003 UTC
# Line 465  Support for Russian using koi8-r and the Line 465  Support for Russian using koi8-r and the
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")
# Line 479  Support for Russian using koi8-r and the Line 487  Support for Russian using koi8-r and the
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")

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26