Wrap around error in coreutil's ls

[gnu-emacs] / lisp / international / characters.el

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 56f6c80fe814eb98bcb0922220582a12c7d1de69..1757d2ba12c8ddcb3e698d1a0650b5643355b6c2 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -194,6 +194,7 @@ with L, LRE, or LRO Unicode bidi character type.")
 
 (dolist (l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212
                               japanese-jisx0213-1 japanese-jisx0213-2
+                               japanese-jisx0213.2004-1
                               cp932-2-byte))
   (map-charset-chars #'modify-category-entry l ?j))
 
@@ -290,6 +291,7 @@ with L, LRE, or LRO Unicode bidi character type.")
     (map-charset-chars #'modify-category-entry (car charsets) ?b)
     (setq charsets (cdr charsets))))
 (modify-category-entry '(#x600 . #x6ff) ?b)
+(modify-category-entry '(#x8a0 . #x8ff) ?b)
 (modify-category-entry '(#xfb50 . #xfdff) ?b)
 (modify-category-entry '(#xfe70 . #xfefe) ?b)
 
@@ -621,16 +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)
+  ;; 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 ?Dž ?dž tbl)
+  (set-downcase-syntax ?Dž ?dž tbl)
   (set-case-syntax-pair ?LJ ?lj tbl)
-  (set-case-syntax-pair ?Lj ?lj tbl)
+  (set-downcase-syntax ?Lj ?lj tbl)
   (set-case-syntax-pair ?NJ ?nj tbl)
-  (set-case-syntax-pair ?Nj ?nj tbl)
+  (set-downcase-syntax ?Nj ?nj tbl)
 
   ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
+
   (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)
@@ -700,6 +705,7 @@ with L, LRE, or LRO Unicode bidi character type.")
   (set-case-syntax-pair ?Ɜ ?ɜ tbl)
   (set-case-syntax-pair ?Ɡ ?ɡ tbl)
   (set-case-syntax-pair ?Ɬ ?ɬ tbl)
+  (set-case-syntax-pair ?Ɪ ?ɪ tbl)
   (set-case-syntax-pair ?Ʞ ?ʞ tbl)
   (set-case-syntax-pair ?Ʇ ?ʇ tbl)
   (set-case-syntax-pair ?Ʝ ?ʝ tbl)
@@ -810,6 +816,9 @@ with L, LRE, or LRO Unicode bidi character type.")
     (set-case-syntax-pair c (+ c #x1C60) tbl)
     (setq c (1+ c)))
 
+  ;; Cyrillic Extended-C
+  (modify-category-entry '(#x1C80 . #x1C8F) ?y)
+
   ;; general punctuation
   (setq c #x2000)
   (while (<= c #x200b)
@@ -903,6 +912,12 @@ with L, LRE, or LRO Unicode bidi character type.")
     (set-case-syntax-pair c (+ c 28) tbl)
     (setq c (1+ c)))
 
+  ;; Osage
+  (setq c #x104B0)
+  (while (<= c #x104D3)
+    (set-case-syntax-pair c (+ c 40) tbl)
+    (setq c (1+ c)))
+
   ;; Old Hungarian
   (setq c #x10c80)
   (while (<= c #x10cb2)
@@ -915,6 +930,12 @@ with L, LRE, or LRO Unicode bidi character type.")
     (set-case-syntax-pair c (+ c #x20) tbl)
     (setq c (1+ c)))
 
+  ;; Adlam
+  (setq c #x1e900)
+  (while (<= c #x1e921)
+    (set-case-syntax-pair c (+ c #x22) tbl)
+    (setq c (1+ c)))
+
   ;; Combining diacritics
   (modify-category-entry '(#x300 . #x362) ?^)
   ;; Combining marks
@@ -1183,7 +1204,40 @@ with L, LRE, or LRO Unicode bidi character type.")
 
 ;; 2: East Asian Wide and Full-width characters.
 (let ((l '((#x1100 . #x115F)
+           (#x231A . #x231B)
           (#x2329 . #x232A)
+           (#x23E9 . #x23EC)
+           (#x23F0 . #x23F0)
+           (#x23F3 . #x23F3)
+           (#x25FD . #x25FE)
+           (#x2614 . #x2615)
+           (#x2648 . #x2653)
+           (#x267F . #x267F)
+           (#x2693 . #x2693)
+           (#x26A1 . #x26A1)
+           (#x26AA . #x26AB)
+           (#x26BD . #x26BE)
+           (#x26C4 . #x26C5)
+           (#x26CE . #x26CE)
+           (#x26D4 . #x26D4)
+           (#x26EA . #x26EA)
+           (#x26F2 . #x26F3)
+           (#x26F5 . #x26F5)
+           (#x26FA . #x26FA)
+           (#x26FD . #x26FD)
+           (#x2705 . #x2705)
+           (#x270A . #x270B)
+           (#x2728 . #x2728)
+           (#x274C . #x274C)
+           (#x274E . #x274E)
+           (#x2753 . #x2755)
+           (#x2757 . #x2757)
+           (#x2795 . #x2797)
+           (#x27B0 . #x27B0)
+           (#x27BF . #x27BF)
+           (#x2B1B . #x2B1C)
+           (#x2B50 . #x2B50)
+           (#x2B55 . #x2B55)
           (#x2E80 . #x303E)
           (#x3040 . #xA4CF)
           (#xAC00 . #xD7A3)
@@ -1191,6 +1245,46 @@ with L, LRE, or LRO Unicode bidi character type.")
           (#xFE30 . #xFE6F)
           (#xFF01 . #xFF60)
           (#xFFE0 . #xFFE6)
+           (#x16FE0 . #x16FE0)
+           (#x17000 . #x187EC)
+           (#x18800 . #x18AF2)
+           (#x1F18E . #x1F18E)
+           (#x1F191 . #x1F19A)
+           (#x1F200 . #x1F202)
+           (#x1F210 . #x1F23B)
+           (#x1F300 . #x1F320)
+           (#x1F32D . #x1F335)
+           (#x1F337 . #x1F37C)
+           (#x1F37E . #x1F393)
+           (#x1F3A0 . #x1F3CA)
+           (#x1F3CF . #x1F3D3)
+           (#x1F3E0 . #x1F3F0)
+           (#x1F3F4 . #x1F3F4)
+           (#x1F3F8 . #x1F3FA)
+           (#x1F3FB . #x1F3FF)
+           (#x1F440 . #x1F440)
+           (#x1F442 . #x1F4FC)
+           (#x1F4FF . #x1F53D)
+           (#x1F54B . #x1F54E)
+           (#x1F550 . #x1F567)
+           (#x1F57A . #x1F57A)
+           (#x1F595 . #x1F596)
+           (#x1F5A4 . #x1F5A4)
+           (#x1F5FB . #x1F5FF)
+           (#x1F600 . #x1F64F)
+           (#x1F680 . #x1F6C5)
+           (#x1F6CC . #x1F6CC)
+           (#x1F6D0 . #x1F6D2)
+           (#x1F6EB . #x1F6EC)
+           (#x1F6F4 . #x1F6F6)
+           (#x1F910 . #x1F91E)
+           (#x1F920 . #x1F927)
+           (#x1F930 . #x1F930)
+           (#x1F933 . #x1F93E)
+           (#x1F940 . #x1F94B)
+           (#x1F950 . #x1F95E)
+           (#x1F980 . #x1F991)
+           (#x1F9C0 . #x1F9C0)
           (#x20000 . #x2FFFF)
           (#x30000 . #x3FFFF))))
   (dolist (elt l)