mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

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

Browse Source 
some ranges to better match the source.  (Bug#20789#17)
This commit is contained in:
Glenn Morris 2015-06-16 23:26:16 -07:00
parent 5a90d5125b
commit c9e2003b44
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/international/characters.el
View File

@ -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)