[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 037f82a: * lisp/international/characters.el (standa
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 037f82a: * lisp/international/characters.el (standard-case-table): Improve last change. |
Date: |
Thu, 23 Jun 2016 19:45:49 +0000 (UTC) |
branch: master
commit 037f82a7e72fa7bdc7b1d507f9b760884aecf2f0
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
* lisp/international/characters.el (standard-case-table): Improve last
change.
---
lisp/international/characters.el | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index ad9432c..1757d2b 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -623,21 +623,19 @@ with L, LRE, or LRO Unicode bidi character type.")
(set-case-syntax-pair ?Ʊ ?ʊ tbl)
(set-case-syntax-pair ?Ʋ ?ʋ tbl)
(set-case-syntax-pair ?Ʒ ?ʒ tbl)
- ;; The order of the next 6 lines is important, since we want
- ;; upcase of dž return DŽ, not Dž, and the same for the rest.
- (set-case-syntax-pair ?Dž ?dž tbl)
+ ;; We use set-downcase-syntax below, since we want upcase of dž
+ ;; return DŽ, not Dž, and the same for the rest.
(set-case-syntax-pair ?DŽ ?dž tbl)
- (set-case-syntax-pair ?Lj ?lj tbl)
+ (set-downcase-syntax ?Dž ?dž tbl)
(set-case-syntax-pair ?LJ ?lj tbl)
- (set-case-syntax-pair ?Nj ?nj tbl)
+ (set-downcase-syntax ?Lj ?lj tbl)
(set-case-syntax-pair ?NJ ?nj tbl)
+ (set-downcase-syntax ?Nj ?nj tbl)
;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
- ;; The order of the next two lines is important, since we want
- ;; upcase of dz return DZ, not Dz.
- (set-case-syntax-pair ?Dz ?dz tbl)
(set-case-syntax-pair ?DZ ?dz tbl)
+ (set-downcase-syntax ?Dz ?dz tbl)
(set-case-syntax-pair ?Ƕ ?ƕ tbl)
(set-case-syntax-pair ?Ƿ ?ƿ tbl)
(set-case-syntax-pair ?Ⱥ ?ⱥ tbl)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 037f82a: * lisp/international/characters.el (standard-case-table): Improve last change.,
Eli Zaretskii <=