(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
(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)