bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

cyril-util fix/addition


From: Dave Love
Subject: cyril-util fix/addition
Date: 03 Feb 2002 18:27:03 +0000
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1.80

2001-12-18  Dave Love  <address@hidden>

        * language/cyril-util.el (cyrillic-encode-koi8-r-char) 
        (cyrillic-encode-alternativnyj-char): Get translation tables from
        symbol properties, not as variables.
        (standard-display-cyrillic-translit): Include unicodes.

2001-12-18  Dave Love  <address@hidden>

        * language/cyril-util.el (cyrillic-encode-koi8-r-char) 
        (cyrillic-encode-alternativnyj-char): Get translation tables from
        symbol properties, not as variables.

*** cyril-util.el.~1.21.~       Mon Jul 23 19:28:47 2001
--- cyril-util.el       Tue Dec 18 16:46:28 2001
***************
*** 1,6 ****
  ;;; cyril-util.el --- utilities for Cyrillic scripts
  
! ;; Copyright (C) 1997  Free Software Foundation, Inc.
  
  ;; Keywords: mule, multilingual, Cyrillic
  
--- 1,6 ----
  ;;; cyril-util.el --- utilities for Cyrillic scripts
  
! ;; Copyright (C) 1997, 2001 Free Software Foundation, Inc.
  
  ;; Keywords: mule, multilingual, Cyrillic
  
***************
*** 28,52 ****
  ;;;###autoload
  (defun cyrillic-encode-koi8-r-char (char)
    "Return KOI8-R external character code of CHAR if appropriate."
!   (aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0)
        char))
  
  ;;;###autoload
  (defun cyrillic-encode-alternativnyj-char (char)
    "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
    (aref (char-table-extra-slot
!        cyrillic-alternativnyj-nonascii-translation-table 0)
        char))
  
  
! ;; Display 
  
  ;; Written by Valery Alexeev <address@hidden>.
  
  (defvar cyrillic-language-alist
!       (list '("Belorussian") '("Bulgarian") '("Macedonian") 
            '("Russian") '("Serbo-Croatian") '("Ukrainian"))
!       "*List of known cyrillic languages")
  
  ;;;###autoload
  (defun standard-display-cyrillic-translit (&optional cyrillic-language)
--- 28,56 ----
  ;;;###autoload
  (defun cyrillic-encode-koi8-r-char (char)
    "Return KOI8-R external character code of CHAR if appropriate."
!   (aref (char-table-extra-slot
!        (get 'cyrillic-koi8-r-nonascii-translation-table 'translation-table)
!        0)
        char))
  
  ;;;###autoload
  (defun cyrillic-encode-alternativnyj-char (char)
    "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
    (aref (char-table-extra-slot
!        (get 'cyrillic-alternativnyj-nonascii-translation-table
!             'translation-table)
!        0)
        char))
  
  
! ;; Display
  
  ;; Written by Valery Alexeev <address@hidden>.
  
  (defvar cyrillic-language-alist
!       (list '("Belorussian") '("Bulgarian") '("Macedonian")
            '("Russian") '("Serbo-Croatian") '("Ukrainian"))
!       "List of known cyrillic languages.")
  
  ;;;###autoload
  (defun standard-display-cyrillic-translit (&optional cyrillic-language)
***************
*** 56,62 ****
  
  The argument is a string which specifies which language you are using;
  that affects the choice of transliterations slightly.
! Possible values are listed in 'cyrillic-language-alist'.
  If the argument is t, we use the default cyrillic transliteration.
  If the argument is nil, we return the display table to its standard state."
    (interactive
--- 60,66 ----
  
  The argument is a string which specifies which language you are using;
  that affects the choice of transliterations slightly.
! Possible values are listed in `cyrillic-language-alist'.
  If the argument is t, we use the default cyrillic transliteration.
  If the argument is nil, we return the display table to its standard state."
    (interactive
***************
*** 141,147 ****
      (aset standard-display-table ?,LM(B  [?E?'])
      (aset standard-display-table ?,LN(B  [?Y?u])
      (aset standard-display-table ?,LO(B  [?Y?a])
!     
      (aset standard-display-table ?,Lt(B  [?i?e])
      (aset standard-display-table ?,Lw(B  [?i])
      (aset standard-display-table ?,L~(B  [?u])
--- 145,151 ----
      (aset standard-display-table ?,LM(B  [?E?'])
      (aset standard-display-table ?,LN(B  [?Y?u])
      (aset standard-display-table ?,LO(B  [?Y?a])
! 
      (aset standard-display-table ?,Lt(B  [?i?e])
      (aset standard-display-table ?,Lw(B  [?i])
      (aset standard-display-table ?,L~(B  [?u])
***************
*** 155,161 ****
      (aset standard-display-table ?,Ly(B  [?l?j])
      (aset standard-display-table ?,Lz(B  [?n?j])
      (aset standard-display-table ?,L(B  [?d?z])
!     
      (aset standard-display-table ?,L$(B  [?Y?e])
      (aset standard-display-table ?,L'(B  [?Y?i])
      (aset standard-display-table ?,L.(B  [?U])
--- 159,165 ----
      (aset standard-display-table ?,Ly(B  [?l?j])
      (aset standard-display-table ?,Lz(B  [?n?j])
      (aset standard-display-table ?,L(B  [?d?z])
! 
      (aset standard-display-table ?,L$(B  [?Y?e])
      (aset standard-display-table ?,L'(B  [?Y?i])
      (aset standard-display-table ?,L.(B  [?U])
***************
*** 169,192 ****
      (aset standard-display-table ?,L)(B  [?L?j])
      (aset standard-display-table ?,L*(B  [?N?j])
      (aset standard-display-table ?,L/(B  [?D?j])
!     
      (when (equal cyrillic-language "Bulgarian")
        (aset standard-display-table ?,Li(B [?s?h?t])
        (aset standard-display-table ?,LI(B [?S?h?t])
        (aset standard-display-table ?,Ln(B [?i?u])
        (aset standard-display-table ?,LN(B [?I?u])
        (aset standard-display-table ?,Lo(B [?i?a])
!       (aset standard-display-table ?,LO(B [?I?a]))
!     
!     (when (equal cyrillic-language "Ukrainian") ; based on the official 
                                        ; transliteration table
        (aset standard-display-table ?,LX(B [?y])
        (aset standard-display-table ?,L8(B [?Y])
        (aset standard-display-table ?,LY(B [?i])
        (aset standard-display-table ?,L9(B [?Y])
!     (aset standard-display-table ?,Ln(B [?i?u])
!     (aset standard-display-table ?,Lo(B [?i?a]))))
! 
  
  ;;
  (provide 'cyril-util)
--- 173,306 ----
      (aset standard-display-table ?,L)(B  [?L?j])
      (aset standard-display-table ?,L*(B  [?N?j])
      (aset standard-display-table ?,L/(B  [?D?j])
! 
!     ;; Unicode version:
!     (aset standard-display-table ?$,1(P(B  [?a])
!     (aset standard-display-table ?$,1(Q(B  [?b])
!     (aset standard-display-table ?$,1(R(B  [?v])
!     (aset standard-display-table ?$,1(S(B  [?g])
!     (aset standard-display-table ?$,1(T(B  [?d])
!     (aset standard-display-table ?$,1(U(B  [?e])
!     (aset standard-display-table ?$,1(q(B  [?y?o])
!     (aset standard-display-table ?$,1(V(B  [?z?h])
!     (aset standard-display-table ?$,1(W(B  [?z])
!     (aset standard-display-table ?$,1(X(B  [?i])
!     (aset standard-display-table ?$,1(Y(B  [?j])
!     (aset standard-display-table ?$,1(Z(B  [?k])
!     (aset standard-display-table ?$,1([(B  [?l])
!     (aset standard-display-table ?$,1(\(B  [?m])
!     (aset standard-display-table ?$,1(](B  [?n])
!     (aset standard-display-table ?$,1(^(B  [?o])
!     (aset standard-display-table ?$,1(_(B  [?p])
!     (aset standard-display-table ?$,1(`(B  [?r])
!     (aset standard-display-table ?$,1(a(B  [?s])
!     (aset standard-display-table ?$,1(b(B  [?t])
!     (aset standard-display-table ?$,1(c(B  [?u])
!     (aset standard-display-table ?$,1(d(B  [?f])
!     (aset standard-display-table ?$,1(e(B  [?k?h])
!     (aset standard-display-table ?$,1(f(B  [?t?s])
!     (aset standard-display-table ?$,1(g(B  [?c?h])
!     (aset standard-display-table ?$,1(h(B  [?s?h])
!     (aset standard-display-table ?$,1(i(B  [?s?c?h])
!     (aset standard-display-table ?$,1(j(B  [?~])
!     (aset standard-display-table ?$,1(k(B  [?y])
!     (aset standard-display-table ?$,1(l(B  [?'])
!     (aset standard-display-table ?$,1(m(B  [?e?'])
!     (aset standard-display-table ?$,1(n(B  [?y?u])
!     (aset standard-display-table ?$,1(o(B  [?y?a])
! 
!     (aset standard-display-table ?$,1(0(B  [?A])
!     (aset standard-display-table ?$,1(1(B  [?B])
!     (aset standard-display-table ?$,1(2(B  [?V])
!     (aset standard-display-table ?$,1(3(B  [?G])
!     (aset standard-display-table ?$,1(4(B  [?D])
!     (aset standard-display-table ?$,1(5(B  [?E])
!     (aset standard-display-table ?$,1(!(B  [?Y?o])
!     (aset standard-display-table ?$,1(6(B  [?Z?h])
!     (aset standard-display-table ?$,1(7(B  [?Z])
!     (aset standard-display-table ?$,1(8(B  [?I])
!     (aset standard-display-table ?$,1(9(B  [?J])
!     (aset standard-display-table ?$,1(:(B  [?K])
!     (aset standard-display-table ?$,1(;(B  [?L])
!     (aset standard-display-table ?$,1(<(B  [?M])
!     (aset standard-display-table ?$,1(=(B  [?N])
!     (aset standard-display-table ?$,1(>(B  [?O])
!     (aset standard-display-table ?$,1(?(B  [?P])
!     (aset standard-display-table ?$,1(@(B  [?R])
!     (aset standard-display-table ?$,1(A(B  [?S])
!     (aset standard-display-table ?$,1(B(B  [?T])
!     (aset standard-display-table ?$,1(C(B  [?U])
!     (aset standard-display-table ?$,1(D(B  [?F])
!     (aset standard-display-table ?$,1(E(B  [?K?h])
!     (aset standard-display-table ?$,1(F(B  [?T?s])
!     (aset standard-display-table ?$,1(G(B  [?C?h])
!     (aset standard-display-table ?$,1(H(B  [?S?h])
!     (aset standard-display-table ?$,1(I(B  [?S?c?h])
!     (aset standard-display-table ?$,1(J(B  [?~])
!     (aset standard-display-table ?$,1(K(B  [?Y])
!     (aset standard-display-table ?$,1(L(B  [?'])
!     (aset standard-display-table ?$,1(M(B  [?E?'])
!     (aset standard-display-table ?$,1(N(B  [?Y?u])
!     (aset standard-display-table ?$,1(O(B  [?Y?a])
! 
!     (aset standard-display-table ?$,1(t(B  [?i?e])
!     (aset standard-display-table ?$,1(w(B  [?i])
!     (aset standard-display-table ?$,1(~(B  [?u])
!     (aset standard-display-table ?$,1(r(B  [?d?j])
!     (aset standard-display-table ?$,1({(B  [?c?h?j])
!     (aset standard-display-table ?$,1(s(B  [?g?j])
!     (aset standard-display-table ?$,1(u(B  [?s])
!     (aset standard-display-table ?$,1(|(B  [?k])
!     (aset standard-display-table ?$,1(v(B  [?i])
!     (aset standard-display-table ?$,1(x(B  [?j])
!     (aset standard-display-table ?$,1(y(B  [?l?j])
!     (aset standard-display-table ?$,1(z(B  [?n?j])
!     (aset standard-display-table ?$,1((B  [?d?z])
! 
!     (aset standard-display-table ?$,1($(B  [?Y?e])
!     (aset standard-display-table ?$,1('(B  [?Y?i])
!     (aset standard-display-table ?$,1(.(B  [?U])
!     (aset standard-display-table ?$,1("(B  [?D?j])
!     (aset standard-display-table ?$,1(+(B  [?C?h?j])
!     (aset standard-display-table ?$,1(#(B  [?G?j])
!     (aset standard-display-table ?$,1(%(B  [?S])
!     (aset standard-display-table ?$,1(,(B  [?K])
!     (aset standard-display-table ?$,1(&(B  [?I])
!     (aset standard-display-table ?$,1(((B  [?J])
!     (aset standard-display-table ?$,1()(B  [?L?j])
!     (aset standard-display-table ?$,1(*(B  [?N?j])
!     (aset standard-display-table ?$,1(/(B  [?D?j])
! 
      (when (equal cyrillic-language "Bulgarian")
        (aset standard-display-table ?,Li(B [?s?h?t])
        (aset standard-display-table ?,LI(B [?S?h?t])
        (aset standard-display-table ?,Ln(B [?i?u])
        (aset standard-display-table ?,LN(B [?I?u])
        (aset standard-display-table ?,Lo(B [?i?a])
!       (aset standard-display-table ?,LO(B [?I?a])
!       ;; Unicode version:
!       (aset standard-display-table ?$,1(i(B [?s?h?t])
!       (aset standard-display-table ?$,1(I(B [?S?h?t])
!       (aset standard-display-table ?$,1(n(B [?i?u])
!       (aset standard-display-table ?$,1(N(B [?I?u])
!       (aset standard-display-table ?$,1(o(B [?i?a])
!       (aset standard-display-table ?$,1(O(B [?I?a]))
! 
!     (when (equal cyrillic-language "Ukrainian")       ; based on the official
                                        ; transliteration table
        (aset standard-display-table ?,LX(B [?y])
        (aset standard-display-table ?,L8(B [?Y])
        (aset standard-display-table ?,LY(B [?i])
        (aset standard-display-table ?,L9(B [?Y])
!       (aset standard-display-table ?,Ln(B [?i?u])
!       (aset standard-display-table ?,Lo(B [?i?a])
!       ;; Unicode version:
!       (aset standard-display-table ?$,1(X(B [?y])
!       (aset standard-display-table ?$,1(8(B [?Y])
!       (aset standard-display-table ?$,1(Y(B [?i])
!       (aset standard-display-table ?$,1(9(B [?Y])
!       (aset standard-display-table ?$,1(n(B [?i?u])
!       (aset standard-display-table ?$,1(o(B [?i?a]))))
  
  ;;
  (provide 'cyril-util)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]