Remove duplicated case setting for Cyrillic and Greek letters.

2 files changed, 3 insertions, 86 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba86de9a83a..ab218367279 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-08-20  Kenichi Handa  <handa@etl.go.jp>
 
+        * international/characters.el: Remove duplicated case setting for
+        Cyrillic and Greek letters.
+
         * case-table.el (describe-buffer-case-table): Handle the case
         that KEY is a cons within map-char-table.
 
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index a385a83aa00..b618e2c1431 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -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