diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-05-27 11:22:39 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-05-27 11:22:39 +0000 |
| commit | 968786fd0ed183f9d8d651e740822c021a1e96ec (patch) | |
| tree | 2e7b4b923a0282a10f95a83b149d3e06ad5dad6d /lisp/language | |
| parent | 514eb97bbf3ed6ed9bf799efd8fc63591678c1ff (diff) | |
| download | emacs-968786fd0ed183f9d8d651e740822c021a1e96ec.tar.gz | |
Add cyrillic-iso8859-5 characters in the encoding table of
windows-1251.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/cyrillic.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 44a9ccc66a1..ea7f6b0624b 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -475,6 +475,23 @@ Support for Russian using koi8-r and the russian-computer input method.") ?\$,1(V(B ?\$,1(W(B ?\$,1(X(B ?\$,1(Y(B ?\$,1(Z(B ?\$,1([(B ?\$,1(\(B ?\$,1(](B ?\$,1(^(B ?\$,1(_(B ?\$,1(`(B ?\$,1(a(B ?\$,1(b(B ?\$,1(c(B ?\$,1(d(B ?\$,1(e(B ?\$,1(f(B ?\$,1(g(B ?\$,1(h(B ?\$,1(i(B ?\$,1(j(B ?\$,1(k(B ?\$,1(l(B ?\$,1(m(B ?\$,1(n(B ?\$,1(o(B] nil ?b))) +;; Register cyrillic-iso8859-5 characters in the encode table of +;; windows-1251. +(let ((table (get 'encode-windows-1251 'translation-table)) + ;; Nth element is a cyrillic-iso8859-5 character encoded to a + ;; code (128 + N), or nil. + (vec [?\,L"(B ?\,L#(B nil ?\,Ls(B nil nil nil nil nil nil ?\,L)(B nil ?\,L*(B ?\,L,(B ?\,L+(B ?\,L/(B + ?\,Lr(B nil nil nil nil nil nil nil nil nil ?\,Ly(B nil ?\,Lz(B ?\,L|(B ?\,L{(B ?\,L(B + nil ?\,L.(B ?\,L~(B ?\,L((B nil nil nil nil ?\,L!(B nil ?\,L$(B nil nil nil nil ?\,L'(B + nil nil ?\,L&(B ?\,Lv(B nil nil nil nil ?\,Lq(B ?\,Lp(B ?\,Lt(B nil ?\,Lx(B ?\,L%(B ?\,Lu(B ?\,Lw(B + ?\,L0(B ?\,L1(B ?\,L2(B ?\,L3(B ?\,L4(B ?\,L5(B ?\,L6(B ?\,L7(B ?\,L8(B ?\,L9(B ?\,L:(B ?\,L;(B ?\,L<(B ?\,L=(B ?\,L>(B ?\,L?(B + ?\,L@(B ?\,LA(B ?\,LB(B ?\,LC(B ?\,LD(B ?\,LE(B ?\,LF(B ?\,LG(B ?\,LH(B ?\,LI(B ?\,LJ(B ?\,LK(B ?\,LL(B ?\,LM(B ?\,LN(B ?\,LO(B + ?\,LP(B ?\,LQ(B ?\,LR(B ?\,LS(B ?\,LT(B ?\,LU(B ?\,LV(B ?\,LW(B ?\,LX(B ?\,LY(B ?\,LZ(B ?\,L[(B ?\,L\(B ?\,L](B ?\,L^(B ?\,L_(B + ?\,L`(B ?\,La(B ?\,Lb(B ?\,Lc(B ?\,Ld(B ?\,Le(B ?\,Lf(B ?\,Lg(B ?\,Lh(B ?\,Li(B ?\,Lj(B ?\,Lk(B ?\,Ll(B ?\,Lm(B ?\,Ln(B ?\,Lo(B])) + (dotimes (i (length vec)) + (if (aref vec i) + (aset table (aref vec i) (+ 128 i))))) + (define-coding-system-alias 'cp1251 'windows-1251) (let ((elt `("microsoft-cp1251" windows-1251 1 |