Commit 2bb915b8 authored by Kenichi Handa's avatar Kenichi Handa

Sync with HEAD.

parent db9aec47
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment