From 037f82a7e72fa7bdc7b1d507f9b760884aecf2f0 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 23 Jun 2016 22:44:08 +0300
Subject: [PATCH] * 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 ad9432c5cc6..1757d2ba12c 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)
-- 
2.39.2