# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1029824555 0
# Node ID 56b03c1b4ea5337107776ef362be7d0a53a63be8
# Parent  a37aae77b3f45be6491e31047966a838f13f0cbd
Remove duplicated case setting for Cyrillic and Greek letters.

diff -r a37aae77b3f4 -r 56b03c1b4ea5 lisp/international/characters.el
--- a/lisp/international/characters.el	Tue Aug 20 04:00:27 2002 +0000
+++ b/lisp/international/characters.el	Tue Aug 20 06:22:35 2002 +0000
@@ -180,53 +180,6 @@
 ;; Cyrillic character set (ISO-8859-5)
 
 (modify-syntax-entry ?№ ".")
-(let ((tbl (standard-case-table)))
-  (set-case-syntax-pair ?Ё ?ё tbl)
-  (set-case-syntax-pair ?Ђ ?ђ tbl)
-  (set-case-syntax-pair ?Ѓ ?ѓ tbl)
-  (set-case-syntax-pair ?Є ?є tbl)
-  (set-case-syntax-pair ?Ѕ ?ѕ tbl)
-  (set-case-syntax-pair ?І ?і tbl)
-  (set-case-syntax-pair ?Ї ?ї tbl)
-  (set-case-syntax-pair ?Ј ?ј tbl)
-  (set-case-syntax-pair ?Љ ?љ tbl)
-  (set-case-syntax-pair ?Њ ?њ tbl)
-  (set-case-syntax-pair ?Ћ ?ћ tbl)
-  (set-case-syntax-pair ?Ќ ?ќ tbl)
-  (set-case-syntax-pair ?Ў ?ў tbl)
-  (set-case-syntax-pair ?Џ ?џ tbl)
-  (set-case-syntax-pair ?А ?а tbl)
-  (set-case-syntax-pair ?Б ?б tbl)
-  (set-case-syntax-pair ?В ?в tbl)
-  (set-case-syntax-pair ?Г ?г tbl)
-  (set-case-syntax-pair ?Д ?д tbl)
-  (set-case-syntax-pair ?Е ?е tbl)
-  (set-case-syntax-pair ?Ж ?ж tbl)
-  (set-case-syntax-pair ?З ?з tbl)
-  (set-case-syntax-pair ?И ?и tbl)
-  (set-case-syntax-pair ?Й ?й tbl)
-  (set-case-syntax-pair ?К ?к tbl)
-  (set-case-syntax-pair ?Л ?л tbl)
-  (set-case-syntax-pair ?М ?м tbl)
-  (set-case-syntax-pair ?Н ?н tbl)
-  (set-case-syntax-pair ?О ?о tbl)
-  (set-case-syntax-pair ?П ?п tbl)
-  (set-case-syntax-pair ?Р ?р tbl)
-  (set-case-syntax-pair ?С ?с tbl)
-  (set-case-syntax-pair ?Т ?т tbl)
-  (set-case-syntax-pair ?У ?у tbl)
-  (set-case-syntax-pair ?Ф ?ф tbl)
-  (set-case-syntax-pair ?Х ?х tbl)
-  (set-case-syntax-pair ?Ц ?ц tbl)
-  (set-case-syntax-pair ?Ч ?ч tbl)
-  (set-case-syntax-pair ?Ш ?ш tbl)
-  (set-case-syntax-pair ?Щ ?щ tbl)
-  (set-case-syntax-pair ?Ъ ?ъ tbl)
-  (set-case-syntax-pair ?Ы ?ы tbl)
-  (set-case-syntax-pair ?Ь ?ь tbl)
-  (set-case-syntax-pair ?Э ?э tbl)
-  (set-case-syntax-pair ?Ю ?ю tbl)
-  (set-case-syntax-pair ?Я ?я tbl))
 
 ;; Ethiopic character set
 
@@ -237,45 +190,6 @@
     (setq chars (cdr chars))))
 (map-charset-chars #'modify-category-entry 'ethiopic ?e)
 
-;; Greek character set (ISO-8859-7)
-
-(modify-category-entry '(#x370 . #x3ff) ?g)
-
-(let ((tbl (standard-case-table)))
-  (set-case-syntax-pair ?Α ?α tbl)
-  (set-case-syntax-pair ?Β ?β tbl)
-  (set-case-syntax-pair ?Γ ?γ tbl)
-  (set-case-syntax-pair ?Δ ?δ tbl)
-  (set-case-syntax-pair ?Ε ?ε tbl)
-  (set-case-syntax-pair ?Ζ ?ζ tbl)
-  (set-case-syntax-pair ?Η ?η tbl)
-  (set-case-syntax-pair ?Θ ?θ tbl)
-  (set-case-syntax-pair ?Ι ?ι tbl)
-  (set-case-syntax-pair ?Κ ?κ tbl)
-  (set-case-syntax-pair ?Λ ?λ tbl)
-  (set-case-syntax-pair ?Μ ?μ tbl)
-  (set-case-syntax-pair ?Ν ?ν tbl)
-  (set-case-syntax-pair ?Ξ ?ξ tbl)
-  (set-case-syntax-pair ?Ο ?ο tbl)
-  (set-case-syntax-pair ?Π ?π tbl)
-  (set-case-syntax-pair ?Ρ ?ρ tbl)
-  (set-case-syntax-pair ?Σ ?σ tbl)
-  (set-case-syntax-pair ?Τ ?τ tbl)
-  (set-case-syntax-pair ?Υ ?υ tbl)
-  (set-case-syntax-pair ?Φ ?φ tbl)
-  (set-case-syntax-pair ?Χ ?χ tbl)
-  (set-case-syntax-pair ?Ψ ?ψ tbl)
-  (set-case-syntax-pair ?Ω ?ω tbl)
-  (set-case-syntax-pair ?Ϊ ?ϊ tbl)
-  (set-case-syntax-pair ?Ϋ ?ϋ tbl)
-  (set-case-syntax-pair ?Ώ ?ώ tbl)
-  (set-case-syntax-pair ?Ύ ?ύ tbl)
-  (set-case-syntax-pair ?Ό ?ό tbl)
-  (set-case-syntax-pair ?Ά ?ά tbl)
-  (set-case-syntax-pair ?Έ ?έ tbl)
-  (set-case-syntax-pair ?Ή ?ή tbl)
-  (set-case-syntax-pair ?Ί ?ί tbl))
-
 ;; Hebrew character set (ISO-8859-8)
 
 (modify-syntax-entry #x5be ".") ; MAQAF