Update char-script-table

* lisp/international/characters.el (char-script-table): Update
from Unicode 8.0 Draft.

1 files changed, 19 insertions, 7 deletions

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 247a10dd38f..f70a3286117 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -1172,6 +1172,8 @@ Setup char-width-table appropriate for non-CJK language environment."
 ;;
 ;; The Unicode blocks actually extend past some of these ranges with
 ;; undefined codepoints.
+;;
+;; Last update: http://www.unicode.org/Public/8.0.0/ucd/Blocks-8.0.0d3.txt
 (let ((script-list nil))
   (dolist
       (elt
@@ -1181,7 +1183,7 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#x02B0 #x036F latin)          ; Spacing Modifiers and Diacriticals
          (#x0370 #x03E1 greek)
          (#x03E2 #x03EF coptic)
-         (#x03F0 #x03F3 greek)
+         (#x03F0 #x03FF greek)
          (#x0400 #x052F cyrillic)
          (#x0530 #x058F armenian)
          (#x0590 #x05FF hebrew)
@@ -1225,7 +1227,7 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#x1950 #x197F tai-le)
          (#x1980 #x19DF tai-lue)        ; New Tai Lue
          (#x19E0 #x19FF khmer)          ; Khmer Symbols
-         (#x1A00 #x1A00 buginese)
+         (#x1A00 #x1A1F buginese)
          (#x1A20 #x1AAF tai-tham)
          (#x1AB0 #x1AFF latin)          ; Combining Diacritical Marks Extended
          (#x1B00 #x1B7F balinese)
@@ -1259,7 +1261,7 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#x31A0 #x31BF bopomofo)       ; Bopomofo Extended
          (#x31C0 #x31EF cjk-misc)       ; CJK Strokes
          (#x31F0 #x31FF kana)           ; Katakana Phonetic Extensions
-         (#x3200 #x9FAF han)
+         (#x3200 #x9FFF han)
          (#xA000 #xA4CF yi)
          (#xA4D0 #xA4FF lisu)
          (#xA500 #xA63F vai)
@@ -1282,6 +1284,7 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#xAAE0 #xAAFF meetei-mayek)   ; Meetei Mayek Extensions
          (#xAB00 #xAB2F ethiopic)       ; Ethiopic Extended-A
          (#xAB30 #xAB6F latin)          ; Latin Extended-E
+         (#xAB70 #xABBF cherokee)       ; Cherokee Supplement
          (#xABC0 #xABFF meetei-mayek)
          (#xAC00 #xD7FF hangul)
          (#xF900 #xFAFF han)
@@ -1289,12 +1292,14 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#xFB13 #xFB17 armenian)       ; Armenian ligatures
          (#xFB1D #xFB4F hebrew)         ; Alphabetic Presentation Forms
          (#xFB50 #xFDFF arabic)         ; Arabic Presentation Forms-A
+         (#xFE10 #xFE1F vertical-form)
          (#xFE20 #xFE2F latin)          ; Combining Half Marks
          (#xFE30 #xFE4F han)
+         (#xFE50 #xFE6F symbol)         ; Small Form Variants
          (#xFE70 #xFEFF arabic)         ; Arabic Presentation Forms-B
          (#xFF00 #xFF5F cjk-misc)
          (#xFF61 #xFF9F kana)
-         (#xFFE0 #xFFE6 cjk-misc)
+         (#xFFE0 #xFFEF cjk-misc)
          (#x10000 #x100FF linear-b)
          (#x10100 #x1013F aegean-number)
          (#x10140 #x1018F ancient-greek-number)
@@ -1313,11 +1318,12 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#x10480 #x104AF osmanya)
          (#x10500 #x1052F elbasan)
          (#x10530 #x1056F caucasian-albanian)
-         (#x10600 #x106BF linear-a)
+         (#x10600 #x1077F linear-a)
          (#x10800 #x1083F cypriot-syllabary)
          (#x10840 #x1085F aramaic)
          (#x10860 #x1087F palmyrene)
          (#x10880 #x108AF nabataean)
+         (#x108E0 #x108FF hatran)
          (#x10900 #x1091F phoenician)
          (#x10920 #x1093F lydian)
          (#x10980 #x109FF meroitic)
@@ -1330,6 +1336,7 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#x10B60 #x10B7F inscriptional-pahlavi)
          (#x10B80 #x10BAF psalter-pahlavi)
          (#x10C00 #x10C4F old-turkic)
+         (#x10C80 #x10CFF old-hungarian)
          (#x10E60 #x10E7F rumi-number)
          (#x11000 #x1107F brahmi)
          (#x11080 #x110CF kaithi)
@@ -1339,17 +1346,21 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#x11180 #x111DF sharada)
          (#x111E0 #x111FF sinhala-archaic-number)
          (#x11200 #x1124F khojki)
+         (#x11280 #x112AF multani)
          (#x112B0 #x112FF khudawadi)
          (#x11300 #x1137F grantha)
          (#x11480 #x114DF tirhuta)
          (#x11580 #x115FF siddham)
          (#x11600 #x1165F modi)
          (#x11680 #x116CF takri)
+         (#x11700 #x1173F ahom)
          (#x118A0 #x118FF warang-citi)
          (#x11AC0 #x11AFF pau-cin-hau)
          (#x12000 #x123FF cuneiform)
          (#x12400 #x1247F cuneiform-numbers-and-punctuation)
+         (#x12400 #x1254F cuneiform)    ; Early Dynastic Cuneiform
          (#x13000 #x1342F egyptian)
+         (#x14400 #x1457F anatolian)
          (#x16800 #x16A3F bamum)
          (#x16A40 #x16A6F mro)
          (#x16AD0 #x16AFF bassa-vah)
@@ -1363,6 +1374,7 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#x1D300 #x1D35F tai-xuan-jing-symbol)
          (#x1D360 #x1D37F counting-rod-numeral)
          (#x1D400 #x1D7FF mathematical)
+         (#x1D800 #x1DAAF sutton-sign-writing)
          (#x1E800 #x1E8DF mende-kikakui)
          (#x1EE00 #x1EEFF arabic)       ; Arabic Mathematical Alphabetic Symbols
          (#x1F000 #x1F02F mahjong-tile)
@@ -1370,8 +1382,8 @@ Setup char-width-table appropriate for non-CJK language environment."
          (#x1F0A0 #x1F0FF playing-cards)
          (#x1F100 #x1F1FF symbol)       ; Enclosed Alphanumeric Supplement
          (#x1F200 #x1F2FF han)          ; Enclosed Ideographic Supplement
-         (#x1F300 #x1F8FF symbol)
-         (#x20000 #x2B81F han)
+         (#x1F300 #x1F9FF symbol)
+         (#x20000 #x2CEAF han)
          (#x2F800 #x2FFFF han)))
     (set-char-table-range char-script-table
                           (cons (car elt) (nth 1 elt)) (nth 2 elt))