]> git.eshelyaron.com Git - emacs.git/commitdiff
Sync with HEAD.
authorKenichi Handa <handa@m17n.org>
Wed, 22 Nov 2006 01:05:20 +0000 (01:05 +0000)
committerKenichi Handa <handa@m17n.org>
Wed, 22 Nov 2006 01:05:20 +0000 (01:05 +0000)
lisp/international/characters.el

index ff60ceb1b5bc7bd78813cfccca08d249d599efba..b671b96c624811b7ab35a81af21ceb844d26b101 100644 (file)
 
 (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)