Mercurial > emacs
changeset 90669:664b50fcda5b
Sync with HEAD.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 22 Nov 2006 01:05:20 +0000 |
| parents | d677464a3fad |
| children | a48ba67a019c |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 14 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)