diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-11-12 19:56:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-11-12 19:56:51 +0000 |
| commit | 5769ad4e85677f14f15b24c677bdeed040fa8f77 (patch) | |
| tree | d81e93c2796837aac639b30b935ddd23ca610406 | |
| parent | ee6bb6939fe507dc98986bfc23794da6110f61ef (diff) | |
| download | emacs-5769ad4e85677f14f15b24c677bdeed040fa8f77.tar.gz | |
(case table): Do nothing special for i and I.
| -rw-r--r-- | lisp/international/characters.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 0b7c223c258..3522b57d5d9 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -912,12 +912,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. -;; Thus we have to check language-environment to handle casing -;; correctly. Currently only I<->i is available. - ;; Latin Extended-A, Latin Extended-B (setq c #x0100) (while (<= c #x0233) @@ -933,8 +927,20 @@ (set-case-syntax-pair (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl)) (setq c (1+ c))) - (set-downcase-syntax ?$,1 P(B ?i tbl) - (set-upcase-syntax ?I ?$,1 Q(B 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 ?$,1 P(B ?i tbl) + ;; (set-upcase-syntax ?I ?$,1 Q(B tbl) + (set-case-syntax-pair ?$,1 R(B ?$,1 S(B tbl) (set-case-syntax-pair ?$,1 T(B ?$,1 U(B tbl) (set-case-syntax-pair ?$,1 V(B ?$,1 W(B tbl) |