[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 cb3684e9dfa: Fix script for some characters
From: |
Eli Zaretskii |
Subject: |
emacs-29 cb3684e9dfa: Fix script for some characters |
Date: |
Wed, 20 Dec 2023 08:57:01 -0500 (EST) |
branch: emacs-29
commit cb3684e9dfa6603298540e3befe99962ff87d7ee
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
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)
---
admin/unidata/blocks.awk | 3 ++-
lisp/international/characters.el | 3 +++
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/admin/unidata/blocks.awk b/admin/unidata/blocks.awk
index 80ce7478a45..dd6d5796044 100755
--- 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 21e2b59a1a4..1f002ab723a 100644
--- 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)
+
;;; Setting unicode-category-table.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 cb3684e9dfa: Fix script for some characters,
Eli Zaretskii <=