Fix script for some characters

* lisp/international/characters.el (char-script-table): Fix script
for 2 characters.

* admin/unidata/blocks.awk: Fix script for Yijing Hexagram
Symbols.  (Bug#67924)

diff --git a/admin/unidata/blocks.awk b/admin/unidata/blocks.awk
index 80ce7478a45c39fceaa4abab8023138d3a6a5729..dd6d5796044e8e54d8cc6e296794606590c464b8 100755 (executable)
--- a/admin/unidata/blocks.awk
+++ b/admin/unidata/blocks.awk
@@ -60,6 +60,7 @@ BEGIN {
     alias["cjk strokes"] = "cjk-misc"
     alias["cjk symbols and punctuation"] = "cjk-misc"
     alias["halfwidth and fullwidth forms"] = "cjk-misc"
+    alias["yijing hexagram symbols"] = "cjk-misc"
     alias["common indic number forms"] = "north-indic-number"
 
     tohex["a"] = 10
@@ -94,7 +95,7 @@ function name2alias(name   , w, w2) {
     if (alias[name]) return alias[name]
     else if (name ~ /for symbols/) return "symbol"
     else if (name ~ /latin|combining .* marks|spacing modifier|tone letters|alphabetic presentation/) return "latin"
-    else if (name ~ /cjk|yijing|enclosed ideograph|kangxi/) return "han"
+    else if (name ~ /cjk|enclosed ideograph|kangxi/) return "han"
     else if (name ~ /arabic/) return "arabic"
     else if (name ~ /^greek/) return "greek"
     else if (name ~ /^coptic/) return "coptic"

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 21e2b59a1a4b1a483c2d757a12d9187e3155007d..1f002ab723acdfcdd34d701ea69ee4e9fe33ca3a 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -1480,6 +1480,9 @@ Setup `char-width-table' appropriate for non-CJK language environment."
 ;; Fix some exceptions that blocks.awk/Blocks.txt couldn't get right.
 (set-char-table-range char-script-table '(#x2ea . #x2eb) 'bopomofo)
 (set-char-table-range char-script-table #xab65 'greek)
+(set-char-table-range char-script-table #x16fe0 'tangut)
+(set-char-table-range char-script-table #x16fe1 'nushu)
+
 
 \f
 ;;; Setting unicode-category-table.