# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1164157520 0
# Node ID 664b50fcda5bee60431270105c1528f323749ee1
# Parent  d677464a3fad5ca5d9882cad05e055b99a631662
Sync with HEAD.

diff -r d677464a3fad -r 664b50fcda5b lisp/international/characters.el
--- a/lisp/international/characters.el	Wed Nov 22 01:03:19 2006 +0000
+++ b/lisp/international/characters.el	Wed Nov 22 01:05:20 2006 +0000
@@ -433,11 +433,6 @@
 
 (let ((tbl (standard-case-table)) c)
 
-;; In some languages, U+0049 LATIN CAPITAL LETTER I and U+0131 LATIN
-;; SMALL LETTER DOTLESS I make a case pair, and so do U+0130 LATIN
-;; CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN SMALL LETTER I.
-;; See the Turkish language environment.
-
   ;; Latin-1
 
   ;; Fixme: Some of the non-word syntaxes here perhaps should be
@@ -485,8 +480,20 @@
 	 (zerop (% c 2))
 	 (set-case-syntax-pair (1- c) c tbl))
     (setq c (1+ c)))
-  (set-downcase-syntax  ?İ ?i tbl)
-  (set-upcase-syntax    ?I ?ı tbl)
+
+
+  ;; In some languages, such as Turkish, U+0049 LATIN CAPITAL LETTER I
+  ;; and U+0131 LATIN SMALL LETTER DOTLESS I make a case pair, and so
+  ;; do U+0130 LATIN CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN
+  ;; SMALL LETTER I.
+
+  ;; We used to set up half of those correspondence unconditionally,
+  ;; but that makes searches slow.  So now we don't set up either half
+  ;; of these correspondences by default.
+
+  ;; (set-downcase-syntax  ?İ ?i tbl)
+  ;; (set-upcase-syntax    ?I ?ı tbl)
+
   (set-case-syntax-pair ?IJ ?ij tbl)
   (set-case-syntax-pair ?Ĵ ?ĵ tbl)
   (set-case-syntax-pair ?Ķ ?ķ tbl)