Mercurial > emacs
changeset 106763:28260028067c
international/fontset.el (build-default-fontset-data): Exclude characters in scripts kana, hangul, han, or cjk-misc.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 08 Jan 2010 10:54:58 +0900 |
| parents | e778a4a0f821 (current diff) 19b3c3f93cd1 (diff) |
| children | 832dec788709 89ca5bbe8e71 6d51d2e8c691 |
| files | |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 07 23:46:44 2010 +0100 +++ b/lisp/ChangeLog Fri Jan 08 10:54:58 2010 +0900 @@ -1,3 +1,8 @@ +2010-01-08 Kenichi Handa <handa@m17n.org> + + * international/fontset.el (build-default-fontset-data): Exclude + characters in scripts kana, hangul, han, or cjk-misc. + 2010-01-07 Juanma Barranquero <lekktu@gmail.com> * vc-dir.el (vc-dir-prepare-status-buffer): Pass a (fake) filename
--- a/lisp/international/fontset.el Thu Jan 07 23:46:44 2010 +0100 +++ b/lisp/international/fontset.el Fri Jan 08 10:54:58 2010 +0900 @@ -361,8 +361,10 @@ (let ((from (car range)) (to (cdr range))) (if (< to #x110000) (while (<= from to) - (aset cjk-table from - (logior (or (aref cjk-table from) 0) mask)) + (or (memq (aref char-script-table from) + '(kana hangul han cjk-misc)) + (aset cjk-table from + (logior (or (aref cjk-table from) 0) mask))) (setq from (1+ from)))))) (nth 1 elt) nil (nth 2 elt) (nth 3 elt))) (setq i (1+ i)))