* lisp/international/characters.el (char-script-table): Tweak

some ranges to better match the source.  (Bug#20789#17)

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index ad6a0d986a950b7bb2465df016349e3c5e7890b8..c4c9060d842166997f7d4208d46167c82d389a87 100644 (file)
--- 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)