From c9e2003b44b446a2f994039d9fc73d387cf6a1df Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 16 Jun 2015 23:26:16 -0700 Subject: [PATCH] * lisp/international/characters.el (char-script-table): Tweak some ranges to better match the source. (Bug#20789#17) --- lisp/international/characters.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/international/characters.el b/lisp/international/characters.el index ad6a0d986a9..c4c9060d842 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -1297,8 +1297,9 @@ Setup char-width-table appropriate for non-CJK language environment." (#xFE30 #xFE4F han) (#xFE50 #xFE6F symbol) ; Small Form Variants (#xFE70 #xFEFF arabic) ; Arabic Presentation Forms-B - (#xFF00 #xFF5F cjk-misc) + (#xFF00 #xFF60 cjk-misc) (#xFF61 #xFF9F kana) + (#xFFA0 #xFFDF hangul) (#xFFE0 #xFFEF cjk-misc) (#x10000 #x100FF linear-b) (#x10100 #x1013F aegean-number) @@ -1383,8 +1384,9 @@ Setup char-width-table appropriate for non-CJK language environment." (#x1F100 #x1F1FF symbol) ; Enclosed Alphanumeric Supplement (#x1F200 #x1F2FF han) ; Enclosed Ideographic Supplement (#x1F300 #x1F9FF symbol) - (#x20000 #x2CEAF han) - (#x2F800 #x2FFFF han))) + (#x20000 #x2A6DF han) + (#x2A700 #x2CEAF han) + (#x2F800 #x2FA1F han))) (set-char-table-range char-script-table (cons (car elt) (nth 1 elt)) (nth 2 elt)) (or (memq (nth 2 elt) script-list) -- 2.39.2